diff options
Diffstat (limited to 'perl-install/live_install')
-rwxr-xr-x | perl-install/live_install | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/perl-install/live_install b/perl-install/live_install new file mode 100755 index 000000000..4f519f0fc --- /dev/null +++ b/perl-install/live_install @@ -0,0 +1,28 @@ +#!../perl + +my $dir = `pwd`; +chomp $dir; +$dir .= "/../../.."; + +#- update /tmp/rhimage which points to top dir of Mandrake CD. +system "/bin/rm", "-rf", "/tmp/rhimage"; +mkdir "/tmp/rhimage", 0700 or die "cannot create directory /tmp/rhimage"; +system "/bin/rm", "-rf", "/tmp/drakx"; +mkdir "/tmp/drakx", 0700 or die "cannot create directory /tmp/drakx\n"; + +#- copy whole set of mdkinst tree and symlink to the CD. +foreach (qw(Mandrake RPMS misc boot images)) { + symlink "$dir/../../$_", "/tmp/rhimage/$_"; +} +system "/bin/cp", "-a", "$dir/../../Mandrake/mdkinst", "/tmp/drakx"; + +#- start the true live_install. +if (-x "/tmp/drakx/mdkinst/usr/bin/perl-install/live_install2") { + chdir "/tmp/drakx/mdkinst/usr/bin/perl-install2"; + system "/tmp/drakx/mdkinst/usr/bin/perl-install/live_install2"; +} else { + print STDERR "unable to get a working live system to start, check your working directory"; +} + +system "/bin/rm", "-rf", "/tmp/drakx"; +system "/bin/rm", "-rf", "/tmp/rhimage"; |