Changeset 3213 in MondoRescue

Timestamp:

Dec 23, 2013, 9:19:40 PM (11 years ago)

Author:

Bruno Cornec

Message:

• Add a get-modules.pl script to mindi (TBD further)

Files:

• branches/3.2/mindi/get-modules.pl (added)
• trunk/mindi/get-modules.pl (modified) (4 diffs)

trunk/mindi/get-modules.pl

@@ -3 +3 @@
 use strict;
 use POSIX "uname";
+use Data::Dumper;
 
-my ($sysname, $nodename, $release, $version, $machine ) = uname;
+my ($sysname, $nodename, $release, $version, $machine ) = uname();
 my $ver = "";
 my $module = ""; 
@@ -22 +23 @@
 while (<DEPMOD>) {
     ($module, $modlist{$module}) = split(/:/);
+    chomp($modlist{$module});
     last if ($module =~ /^#/);
     #print "Analyzing $module\n";
 }
+print Dumper(%modlist)."\n";
 while (<LSMOD>) {
     next if (/^Module/);
@@ -31 +34 @@
     $module = `/sbin/modinfo -n $module`;
     chomp($module);
-    $allmodules .= $modlist{$module};
+    my ($void,$lib,$modulep,$kernelv,$modpath) = split(/\//,$module,5);
+    print "modpath: $modpath\n";
+    $allmodules .= $modlist{$modpath};
 }
 close(LSMOD);
@@ -37 +42 @@
 $allmodules =~ s/\n/ /g;
 $allmodules =~ s/  */ /g;
-print "$allmodules\n";
+$allmodules =~ s/ [0-9A-z\/]*\// /g;
+$allmodules =~ s/\.ko.xz//g;
+print "all modules: $allmodules\n";