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)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/3.2/MondoRescue/bin/mr-kernel-get-modules
r3250 r3354 6 6 use ProjectBuilder::Base; 7 7 use MondoRescue::Kernel; 8 use Getopt::Long qw(:config auto_abbrev no_ignore_case); 8 9 9 my $ver = undef;10 my %opts; # CLI Options 10 11 11 if ((defined $ARGV[0]) && ($ARGV[0] eq "-v")) { 12 #$pbverbose = 1; 13 shift; 14 } 15 if ((defined $ARGV[0]) && ($ARGV[0] eq "-k")) { 16 shift; 17 $ver = $ARGV[0]; 18 shift; 19 } 20 if ((defined $ARGV[0]) && ($ARGV[0] eq "-m")) { 21 shift; 22 } 12 GetOptions( 13 "kernel|k:s" => \$opts{'k'}, 14 "verbose|v+" => \$opts{'v'}, 15 ); 23 16 24 print join(' ',mr_kernel_get_modules($ver,@ARGV))."\n"; 17 $pbdebug = $opts{'v'}; 18 $pbdebug = 0 if (not defined $pbdebug); 19 print join(' ',mr_kernel_get_modules($opts{'k'},@ARGV))."\n";
Note:
See TracChangeset
for help on using the changeset viewer.