Changeset 3249 in MondoRescue for branches/3.2/mindi

Timestamp:

Feb 27, 2014, 3:48:19 AM (10 years ago)

Author:

Bruno Cornec

Message:

• create function mr_kernel_get_modules in MondoRescue::Kernel.pm from code previously in get-modules.pl which now just calls it

File:

• branches/3.2/mindi/get-modules.pl (modified) (1 diff)

branches/3.2/mindi/get-modules.pl

@@ -4 +4 @@
 use POSIX "uname";
 use Data::Dumper;
+use ProjectBuilder::Base;
+use MondoRescue::Kernel;
 
-my ($sysname, $nodename, $release, $version, $machine ) = uname();
-my $ver = "";
-my $module = ""; 
-my %modlist;
-my $void = "";
-my $allmodules = "";
+my $ver = undef;
 
-
-if (not (defined $ARGV[0])) {
-        $ver = $release;
-} else {
-        $ver = $ARGV[0];
+if ((defined $ARGV[0]) && ($ARGV[0] eq "-v")) {
+    #$pbverbose = 1;
+    shift;
 }
-open(LSMOD, "/sbin/lsmod |") or die "Unable to launch lsmod";
-open(DEPMOD, "/sbin/depmod -n $ver |") or die "Unable to launch depmod";
-
-while (<DEPMOD>) {
-    ($module, $modlist{$module}) = split(/:/);
-    chomp($modlist{$module});
-    last if ($module =~ /^#/);
-    #print "Analyzing $module\n";
+if ((defined $ARGV[0]) && ($ARGV[0] eq "-k")) {
+    shift;
+    $ver = $ARGV[0];
+    shift;
 }
-print Dumper(%modlist)."\n";
-while (<LSMOD>) {
-    next if (/^Module/);
-    ($module, $void) = split(/ /);
-    #print "Analyzing $module\n";
-    $module = `/sbin/modinfo -n $module`;
-    chomp($module);
-    my ($void,$lib,$modulep,$kernelv,$modpath) = split(/\//,$module,5);
-    print "modpath: $modpath\n";
-    $allmodules .= $modlist{$modpath};
-}
-close(LSMOD);
-close(DEPMOD);
-$allmodules =~ s/\n/ /g;
-$allmodules =~ s/  */ /g;
-$allmodules =~ s/ [0-9A-z\/]*\// /g;
-$allmodules =~ s/\.ko.xz//g;
-print "all modules: $allmodules\n";
+my ($modulepath,@allmodpaths) = mr_kernel_get_modules($ver,@ARGV);
+print "modules path: $modulepath\n";
+print "all modpaths: ".join(' ',@allmodpaths)."\n";