#!/usr/bin/perl

use lib qw(/usr/lib/libDrakX);


use common qw(:common :file :functional);
use interactive;
use standalone;
use any;
use bootloader;
use detect_devices;
use fsedit;
use fs;
use c;

$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/;
local $_ = join '', @ARGV;

/-h/ and die "usage: drakboot [--expert]\n";

$::expert = /-expert/;

my $in = interactive->vnew('su');

require 'bootlook.pm' if ref($in) =~ /gtk/;
lilo_choice();


sub lilo_choice
{
    my $bootloader = bootloader::read('', '/etc/lilo.conf');
    local ($_) = `detectloader`;
    $bootloader->{methods} = { lilo => 1, grub => !!/grub/i };
    print $bootloader . "\n";
    
    
    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:
    any::setupBootloader($in, $bootloader, $hds, $fstab, $ENV{SECURE_LEVEL}) or $in->exit(0);
    #eval { bootloader::install('', $bootloader, $fstab, $hds) };

    if ($@) {
	$in->ask_warn('', 
		      [ _("Installation of LILO failed. The following error occured:"),
		   grep { !/^Warning:/ } cat_("/tmp/.error") ]);
	unlink "/tmp/.error";
	goto ask;
    }
}
    !$::isEmbedded and $in->exit(0);
    kill(USR1, $::CCPID);
    goto ask;