From 08e2ffd5a39b5e93466f6192b19e3d1bd14c26f4 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Wed, 29 Oct 2008 01:15:01 +0000
Subject: add initial mkinitrd-draklive prototype

---
 mkinitrd-draklive | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 mkinitrd-draklive

(limited to 'mkinitrd-draklive')

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);
-- 
cgit v1.2.1