blob: 60e76fc6f73f688fc076182f2b7a1b305c8b0ddb (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
#!/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";
}
|
