blob: f15d11cb6204a7178523631c320d8b20e6985116 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#!/usr/bin/perl
use lib qw(/usr/lib/libDrakX);
use MDV::Draklive::Live;
use MDV::Draklive::Config;
use MDV::Draklive::Initrd;
my ($initrd, $kernel) = @ARGV;
$initrd && $kernel or die "usage $0 <initrd> <kernel>\n";
my $live = 'MDV::Draklive::Live'->new;
MDV::Draklive::Config::read_config($live,
$MDV::Draklive::Config::default_config_root,
$MDV::Draklive::Config::default_config_path,
$MDV::Draklive::Config::default_settings_path);
MDV::Draklive::Config::check_config($live);
MDV::Draklive::Config::complete_config($live);
MDV::Draklive::Initrd::create_media_specific_initrd($live, $live->{media}, "/", $initrd, $kernel);
|