From 842dab56effd7df6b34bcf187ff23080923a5d61 Mon Sep 17 00:00:00 2001
From: Yves Duret <yduret@mandriva.com>
Date: Tue, 10 Apr 2001 17:01:26 +0000
Subject: grub/lilo mode

---
 perl-install/bootlook.pm | 23 ++++++++---------------
 1 file changed, 8 insertions(+), 15 deletions(-)

(limited to 'perl-install/bootlook.pm')

diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm
index ded6e9412..5b9377f30 100644
--- a/perl-install/bootlook.pm
+++ b/perl-install/bootlook.pm
@@ -31,7 +31,7 @@ use standalone;
 use common qw(:common :file :functional :system);
 use my_gtk qw(:helpers :wrappers);
 use any;
-#use Data::dumper;
+use Data::Dumper;
 
 setlocale (LC_ALL, "");
 Locale::GetText::textdomain ("Bootlookdrake");
@@ -341,14 +341,6 @@ sub updateAurora
     
 }
 
-#sub AuroraChoose
-#{
-#    opendir YREP, "/lib/aurora/Monitors" or die "bootlook: $!";
-#    @files = grep !/^\.\.?$/, readdir YREP;
-#    print @files;
-#    closedir YREP;
-#}
-
 #-------------------------------------------------------------
 # launch autologin functions
 #-------------------------------------------------------------
@@ -402,24 +394,25 @@ sub set_autologin {
 }
 
 
-############################
+#-------------------------------------------------------------
+# lilo/grub functions
+#-------------------------------------------------------------
 sub lilo_choice
 {
     my $bootloader = bootloader::read('', '/etc/lilo.conf');
     local ($_) = `detectloader`;
     $bootloader->{methods} = { lilo => 1, grub => !!/grub/i };
-       
+    
     my ($hds) = catch_cdie { fsedit::hds([ detect_devices::hds() ], {}) } sub { 1 };
     my $fstab = [ fsedit::get_fstab(@$hds) ];
     fs::get_mntpoints_from_fstab($fstab);
  
     $::expert=1;
- # ask:
+# ask:
+    print Data::Dumper->Dump([$in],['$in']), "\n", Data::Dumper->Dump([$hds],['$hds']), "\n";
     
     any::setupBootloader($in, $bootloader, $hds, $fstab, $ENV{SECURE_LEVEL}) or $in->exit(0);
-    #  #eval { bootloader::install('', $bootloader, $fstab, $hds) };
-    print "ici\n";
-    
+#  eval { bootloader::install('', $bootloader, $fstab, $hds) };  
 #    if ($@) {
 #	$in->ask_warn('', 
 #		      [ _("Installation of LILO failed. The following error occured:"),
-- 
cgit v1.2.1