source: MondoRescue/branches/3.2/mindi/get-modules.pl @ 3249

Last change on this file since 3249 was 3249, checked in by Bruno Cornec, 7 years ago
  • create function mr_kernel_get_modules in MondoRescue::Kernel.pm from code previously in get-modules.pl which now just calls it
  • Property svn:executable set to *
File size: 455 bytes
Line 
1#!/usr/bin/perl -w
2
3use strict;
4use POSIX "uname";
5use Data::Dumper;
6use ProjectBuilder::Base;
7use MondoRescue::Kernel;
8
9my $ver = undef;
10
11if ((defined $ARGV[0]) && ($ARGV[0] eq "-v")) {
12    #$pbverbose = 1;
13    shift;
14}
15if ((defined $ARGV[0]) && ($ARGV[0] eq "-k")) {
16    shift;
17    $ver = $ARGV[0];
18    shift;
19}
20my ($modulepath,@allmodpaths) = mr_kernel_get_modules($ver,@ARGV);
21print "modules path: $modulepath\n";
22print "all modpaths: ".join(' ',@allmodpaths)."\n";
Note: See TracBrowser for help on using the repository browser.