mkinitrd-draklive


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);