2
0
mirror of https://github.com/xcat2/xNBA.git synced 2024-12-23 19:51:46 +00:00
xNBA/contrib/initrd/include-modules
2005-05-17 16:44:57 +00:00

64 lines
2.1 KiB
Perl
Executable File

#!/usr/bin/perl -w
#
# Retrieve modules required for an initrd image
# $Id$
unless ( @ARGV ) {
die "Syntax: $0 [ -d target_directory ] module_1 module_2 module_3\n"
}
# Parse command line arguments
my @requested_modules = ();
my $target_dir = "";
my $kernel_ver;
my $quiet;
chomp ( my $current_kernel_ver = `uname -r` );
while ( $_ = shift ) {
if ( /-d/ ) { $target_dir = shift }
elsif ( /-k/ ) { $kernel_ver = shift }
elsif ( /-q/ ) { $quiet = 1 }
else { push @requested_modules, $_ };
}
# Create target directory if required
if ( $target_dir ) {
print STDERR "Target directory is $target_dir\n" unless $quiet;
system ( "mkdir -p $target_dir" );
chdir $target_dir;
}
# Use modprobe -nav to retrieve locations of modules and their dependencies
print STDERR "Requested modules ". join (' ', @requested_modules)."\n" unless $quiet;
my @modules_dups;
foreach my $module ( @requested_modules ) {
my @module_list = map { /^\S+\s+(.*)$/ ; $1 } `/sbin/modprobe -nva $module`;
die "Cannot find any modules matching $module\n" unless @module_list;
push @modules_dups, @module_list;
}
# Remove duplicates from list
my %module_basenames = ();
my @modules = ();
foreach my $module ( @modules_dups ) {
# Ugly hack : assume that dependencies are independent of kernel version
# This seems to be necessary because we can't run modprobe and specify
# an alternate modules.dep file; it refuses to understand lines of the
# form "depfile=XXX" as documented in modules.conf(5)
$module =~ s/$current_kernel_ver/$kernel_ver/ if $kernel_ver;
push @modules, $module unless $module_basenames{$module};
( my $basename ) = ( $module =~ /([^\/]+)\.o/ );
$module_basenames{$module} = $basename;
}
# Process module list
print "#!/bin/sh\n";
foreach my $module ( @modules ) {
my $basename = $module_basenames{$module};
# Report via stdout
print STDERR "Using module $basename from $module\n" unless $quiet;
# Copy uncompressed module to current directory
system ("gunzip -c $module > $basename.o");
# Print insmod line to stdout
print "insmod $basename\n";
}