|
Lines 21-26
Link Here
|
| 21 |
my $opt_kernel_rpm = undef; |
21 |
my $opt_kernel_rpm = undef; |
| 22 |
my $opt_base = "initrd-base"; |
22 |
my $opt_base = "initrd-base"; |
| 23 |
my $opt_kernel_style = undef; |
23 |
my $opt_kernel_style = undef; |
|
|
24 |
my $opt_lib_dir = undef; |
| 24 |
|
25 |
|
| 25 |
GetOptions( |
26 |
GetOptions( |
| 26 |
'help|h' => \&help, |
27 |
'help|h' => \&help, |
|
Lines 29-38
Link Here
|
| 29 |
'kernel-rpm=s' => \$opt_kernel_rpm, |
30 |
'kernel-rpm=s' => \$opt_kernel_rpm, |
| 30 |
'style=s' => \$opt_style, |
31 |
'style=s' => \$opt_style, |
| 31 |
'initrd=s' => \$opt_base, |
32 |
'initrd=s' => \$opt_base, |
|
|
33 |
'libdir=s' => \$opt_lib_dir, |
| 32 |
); |
34 |
); |
| 33 |
|
35 |
|
| 34 |
my $opt_file = shift; |
36 |
my $opt_file = shift; |
| 35 |
|
37 |
|
|
|
38 |
if(defined $opt_lib_dir) { |
| 39 |
$lib_dir = $opt_lib_dir; |
| 40 |
} |
| 41 |
|
| 36 |
help unless $opt_file ne ""; |
42 |
help unless $opt_file ne ""; |
| 37 |
|
43 |
|
| 38 |
chomp (my $tmp_dir = `mktemp -d /tmp/install-initrd.XXXXXXXXXX`); |
44 |
chomp (my $tmp_dir = `mktemp -d /tmp/install-initrd.XXXXXXXXXX`); |
|
Lines 139-144
Link Here
|
| 139 |
"Options:\n" . |
145 |
"Options:\n" . |
| 140 |
" --kernel=kernel-version\tuse modules from this kernel (installed)\n" . |
146 |
" --kernel=kernel-version\tuse modules from this kernel (installed)\n" . |
| 141 |
" --kernel-rpm=rpm\t\tuse modules from this kernel rpm\n" . |
147 |
" --kernel-rpm=rpm\t\tuse modules from this kernel rpm\n" . |
|
|
148 |
" --libdir=dir\t\t\tsearch files in directory dir\n" . |
| 142 |
" --initrd=foo\t\t\tuse /usr/lib/install-initrd/foo.gz as base\n\n" . |
149 |
" --initrd=foo\t\t\tuse /usr/lib/install-initrd/foo.gz as base\n\n" . |
| 143 |
"Examples:\n" . |
150 |
"Examples:\n" . |
| 144 |
" $p foo\n" . |
151 |
" $p foo\n" . |