source: MondoRescue/branches/stable/mindi/get-modules.pl@ 2672

#!/usr/bin/perl -w

use strict;
use POSIX "uname";

my ($sysname, $nodename, $release, $version, $machine ) = uname;
my $ver = "";
my $module = ""; 
my %modlist;
my $void = "";
my $allmodules = "";


if (not (defined $ARGV[0])) {
        $ver = $release;
} else {
        $ver = $ARGV[0];
}
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(/:/);
    last if ($module =~ /^#/);
    #print "Analyzing $module\n";
}
while (<LSMOD>) {
    next if (/^Module/);
    ($module, $void) = split(/ /);
    #print "Analyzing $module\n";
    $module = `/sbin/modinfo -n $module`;
    chomp($module);
    $allmodules .= $modlist{$module};
}
close(LSMOD);
close(DEPMOD);
$allmodules =~ s/\n/ /g;
$allmodules =~ s/  */ /g;
print "$allmodules\n";