From fdd0c69b55f6192d1825eb8ddd95bf2806e626f8 Mon Sep 17 00:00:00 2001
From: Mystery Man <unknown@mandriva.org>
Date: Fri, 9 Aug 2002 10:26:12 +0000
Subject: This commit was manufactured by cvs2svn to create tag 'V1_1_9_9mdk'.

---
 perl-install/standalone/drakboot | 62 ----------------------------------------
 1 file changed, 62 deletions(-)
 delete mode 100755 perl-install/standalone/drakboot

(limited to 'perl-install/standalone/drakboot')

diff --git a/perl-install/standalone/drakboot b/perl-install/standalone/drakboot
deleted file mode 100755
index 9c3449d1d..000000000
--- a/perl-install/standalone/drakboot
+++ /dev/null
@@ -1,62 +0,0 @@
-#!/usr/bin/perl
-
-use lib qw(/usr/lib/libDrakX);
-
-use standalone;     #- warning, standalone must be loaded very first, for 'explanations'
-
-use common;
-use interactive;
-use any;
-use bootloader;
-use detect_devices;
-use fsedit;
-use fs;
-use c;
-
-local $_ = join '', @ARGV;
-
-/-h/ and die "usage: drakboot [--expert] [--testing]\n";
-
-$::expert = /-expert/;
-$::testing = /-testing/;
-
-my $in = 'interactive'->vnew('su', 'bootloader');
-
-$::lilo_choice = \&lilo_choice;
-
-if ($in->isa('interactive::gtk')) {
-    require 'bootlook.pm';
-} else {
-    lilo_choice();
-}
-
-!$::isEmbedded and $in->exit(0);
-kill('USR1', $::CCPID);
-goto ask;
-
-sub lilo_choice
-{
-    my $bootloader = bootloader::read(); 
-    local ($_) = `detectloader`;
-    $bootloader->{methods} = { lilo => 1, grub => !!/grub/i, if_(arch() =~ /ppc/, yaboot => 1) };
-    
-    my ($all_hds) = catch_cdie { fsedit::hds([ detect_devices::hds() ], {}) } sub { 1 };
-    my $fstab = [ fsedit::get_all_fstab($all_hds) ];
-    fs::merge_info_from_fstab($fstab);
- 
-    $::expert=1;
-    
-  ask:
-    local $::isEmbedded = 0;
-    any::setupBootloader($in, $bootloader, $all_hds, $fstab, $ENV{SECURE_LEVEL}) or return;
-    eval { bootloader::install($bootloader, $fstab, $all_hds->{hds}) };
-
-    my $loader = arch() =~ /ppc/ ? "Yaboot" : "LILO";
-    if ($@) {
-	$in->ask_warn('', 
-		      [ _("Installation of %s failed. The following error occured:", $loader),
-			grep { !/^Warning:/ } cat_("/tmp/.error") ]);
-	unlink "/tmp/.error";
-	goto ask;
-    }
-}
-- 
cgit v1.2.1