Last change
on this file since 3619 was 3354, checked in by Bruno Cornec, 10 years ago |
- mr-kernel-get-modules now uses Getopt for parameter management, allowing verbosity increase
- Fix mr_kernel_get_modules to support depmod version providing relative paths such as on RHEL5
- Fix mr_kernel_get_modules to support modinfo version withou -k option support, using module full path instead
- the modlist hash is now having keys being full path module names as a consequence
|
-
Property svn:executable
set to
*
|
File size:
412 bytes
|
Rev | Line | |
---|
[3213] | 1 | #!/usr/bin/perl -w
|
---|
| 2 |
|
---|
| 3 | use strict;
|
---|
| 4 | use POSIX "uname";
|
---|
| 5 | use Data::Dumper;
|
---|
[3249] | 6 | use ProjectBuilder::Base;
|
---|
| 7 | use MondoRescue::Kernel;
|
---|
[3354] | 8 | use Getopt::Long qw(:config auto_abbrev no_ignore_case);
|
---|
[3213] | 9 |
|
---|
[3354] | 10 | my %opts; # CLI Options
|
---|
[3213] | 11 |
|
---|
[3354] | 12 | GetOptions(
|
---|
| 13 | "kernel|k:s" => \$opts{'k'},
|
---|
| 14 | "verbose|v+" => \$opts{'v'},
|
---|
| 15 | );
|
---|
[3250] | 16 |
|
---|
[3354] | 17 | $pbdebug = $opts{'v'};
|
---|
| 18 | $pbdebug = 0 if (not defined $pbdebug);
|
---|
| 19 | print join(' ',mr_kernel_get_modules($opts{'k'},@ARGV))."\n";
|
---|
Note:
See
TracBrowser
for help on using the repository browser.