|
Last change
on this file since 3650 was 3650, checked in by Bruno Cornec, 7 years ago |
- Fix versions given back for mr-* tools
- Log pb and mr versions in mindi log
- mr-getparam now prints a version
|
-
Property svn:executable
set to
*
|
|
File size:
438 bytes
|
| Line | |
|---|
| 1 | #!/usr/bin/perl -w
|
|---|
| 2 |
|
|---|
| 3 | use strict;
|
|---|
| 4 | use POSIX "uname";
|
|---|
| 5 | use Data::Dumper;
|
|---|
| 6 | use ProjectBuilder::Base;
|
|---|
| 7 | use MondoRescue::Version;
|
|---|
| 8 | use MondoRescue::Kernel;
|
|---|
| 9 | use Getopt::Long qw(:config auto_abbrev no_ignore_case);
|
|---|
| 10 |
|
|---|
| 11 | my %opts; # CLI Options
|
|---|
| 12 |
|
|---|
| 13 | GetOptions(
|
|---|
| 14 | "kernel|k:s" => \$opts{'k'},
|
|---|
| 15 | "verbose|v+" => \$opts{'v'},
|
|---|
| 16 | );
|
|---|
| 17 |
|
|---|
| 18 | $pbdebug = $opts{'v'};
|
|---|
| 19 | $pbdebug = 0 if (not defined $pbdebug);
|
|---|
| 20 | print join(' ',mr_kernel_get_modules($opts{'k'},@ARGV))."\n";
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
