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
|
#!/usr/bin/perl
sub cat_ { local *F; open F, $_[0] or $_[1] ? die "cat of file $_[0] failed: $!\n" : return; my @l = <F>; wantarray ? @l : join '', @l }
sub read_already_loaded() {
foreach (cat_("/proc/modules")) {
my ($name) = split;
$conf{$name}{loaded} = 1;
}
}
sub load_deps($) {
my ($file) = @_;
local *F;
open F, $file or warn "error opening $file: $!\n", return 0;
foreach (<F>) {
my ($f, $deps) = split ':';
push @{$deps{$f}}, split ' ', $deps;
}
}
my $module_extension = cat_('/proc/version') =~ /^Linux version 2.4/ ? '.o' : '.ko';
my %mappings = ("usb-ohci" => "ohci-hcd",
"usb-uhci" => "uhci-hcd",
"uhci" => "uhci-hcd",
"printer" => "usblp",
"bcm4400" => "b44",
"3c559" => "3c359",
"3c90x" => "3c59x",
"dc395x_trm" => "dc395x",
"audigy" => "snd-emu10k1");
sub load {
my ($name, @options) = @_;
$name =~ s/\.k?o$//;
$name = $mappings{$name} || $name; #- 2.4 -> 2.6 compat mappings
$conf{$name}{loaded} and return;
eval { load($_, 'prereq') } foreach @{$deps{$name}};
system("gzip -dc /modules/$name$module_extension.gz > /tmp/$name$module_extension");
-r "/tmp/$name$module_extension" or die "can't find module $name\n";
system("/sbin/insmod /tmp/$name$module_extension");
my $retval = $?;
system("rm /tmp/$name$module_extension");
$retval and die("insmod $name failed");
}
!@ARGV || $ARGV[0] =~ /^-?-h/ and die "usage: modprobe <module> [<options...>]\n";
read_already_loaded();
load_deps("/modules/modules.dep");
load(@ARGV);
|