Changeset 3354 in MondoRescue for branches/3.2/MondoRescue/bin/mr-kernel-get-modules

Timestamp:

Mar 5, 2015, 1:23:38 PM (9 years ago)

Author:

Bruno Cornec

Message:

• 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

File:

• branches/3.2/MondoRescue/bin/mr-kernel-get-modules (modified) (1 diff)

branches/3.2/MondoRescue/bin/mr-kernel-get-modules

@@ -6 +6 @@
 use ProjectBuilder::Base;
 use MondoRescue::Kernel;
+use Getopt::Long qw(:config auto_abbrev no_ignore_case);
 
-my $ver = undef;
+my %opts;                           # CLI Options
 
-if ((defined $ARGV[0]) && ($ARGV[0] eq "-v")) {
-    #$pbverbose = 1;
-    shift;
-}
-if ((defined $ARGV[0]) && ($ARGV[0] eq "-k")) {
-    shift;
-    $ver = $ARGV[0];
-    shift;
-}
-if ((defined $ARGV[0]) && ($ARGV[0] eq "-m")) {
-    shift;
-}
+GetOptions(
+        "kernel|k:s" => \$opts{'k'},
+        "verbose|v+" => \$opts{'v'},
+);
 
-print join(' ',mr_kernel_get_modules($ver,@ARGV))."\n";
+$pbdebug = $opts{'v'};
+$pbdebug = 0 if (not defined $pbdebug);
+print join(' ',mr_kernel_get_modules($opts{'k'},@ARGV))."\n";