diff options
| -rw-r--r-- | mkinitrd-draklive | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/mkinitrd-draklive b/mkinitrd-draklive new file mode 100644 index 0000000..f15d11c --- /dev/null +++ b/mkinitrd-draklive @@ -0,0 +1,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); |