#!/usr/bin/perl

use lib qw(/usr/lib/libDrakX);
use Getopt::Long;

use common;
use bootloader;

$::isStandalone = 1; #- not using standalone which messes with @ARGV and usage

my %options = (
	       'action=s' => \ (my $action),
	       'kernel-version=s' => \ (my $kernel_version), 

	       'vmlinuz=s' => \ (my $vmlinuz), 
	       'initrd-options=s' => \ (my $initrd_options),
	       'no-link' => \ (my $nolink),
	       'no-entry' => \ (my $no_entry),
	       'no-launch' => \ (my $no_launch),
	       'no-initrd' => \ (my $no_initrd),	       
	      );

GetOptions(%options) or die "usage: Releve " . join(' ', map { "[--$_]" } keys %options) . "\n";

my @known_actions = qw(add-kernel remove-kernel update-splash remove-splash detectloader);
$action && member($action, @known_actions) or die "<action> must be one of " . join(' ', @known_actions) . "\n";

if ($vmlinuz) {
    if (my $ver = bootloader::vmlinuz2version($vmlinuz)) {
	if ($kernel_version) {
	    $kernel_version eq $ver or die "$kernel_version and $ver don't match (hint: don't pass both --vmlinuz and --kernel-version)\n";
	} else {
	    $kernel_version = $ver;
	}
    }
    $vmlinuz = "/boot/$vmlinuz" if $vmlinuz !~ m!^/!;
} elsif ($kernel_version) {
    $vmlinuz = "/boot/vmlinuz-$kernel_version";
}


my $all_hds = fsedit::get_hds();
fs::get_info_from_fstab($all_hds, '');
my $hds = $all_hds->{hds};

my $bootloader = bootloader::read([ fsedit::get_fstab(@$hds) ]) or die "Cannot find a boot loader installed\n";


$action =~ s/-/_/g;
$::{$action}->();


#-###############################################################################
sub remove_now_broken_boot_symlinks() {
    foreach (glob("/boot/vmlinuz*"), glob("/boot/initrd*")) {
	-l $_ && !-e $_ or next;
	log::l("removing now broken symlink $_");
	unlink $_;
    }
}
sub remove_kernel() {
    unlink "/lib/modules/$kernel_version/build";
    remove_now_broken_boot_symlinks();


    my ($to_remove, $to_keep) = partition {
	$_->{kernel_or_dev} && $_->{kernel_or_dev} eq $vmlinuz;
    } @{$bootloader->{entries}};

    $_->{initrd} && unlink $_->{initrd} foreach @$to_remove;

#    foreach (@$to_keep) {
#	$_->{kernel_or_dev} && bootloader::expand_vmlinuz_symlink($_->{kernel_or_dev}) eq $vmlinuz or next;
#    }

    @{$bootloader->{entries}} = @$to_keep;


    modify_bootloader();
}    


#-###############################################################################
sub add_kernel() {
    bootloader::create_link_source();

    my $kernel_str = bootloader::vmlinuz2kernel_str($vmlinuz);
    my $root_part = fsedit::get_root([ fsedit::get_fstab(@$hds) ]);
    bootloader::add_kernel($bootloader, $kernel_str, 
			   { 
			    root => "/dev/$root_part->{device}", 
			    initrd_options => $initrd_options,
			    if_($bootloader->{default_vga}, vga => $bootloader->{default_vga}),
			   }, $nolink, $no_initrd);

    modify_bootloader();
}

sub modify_bootloader() {
    !$no_entry or return;

    bootloader::action($bootloader, 'write', $hds);
    bootloader::action($bootloader, 'when_config_changed', $hds) if !$no_launch;
}

#-###############################################################################
sub update_splash() {
    foreach (@{$bootloader->{entries}}) {
	bootloader::make_boot_splash($_->{initrd}, $_->{vga}) if $_->{initrd};
    }
    bootloader::action($bootloader, 'when_config_changed', $hds) if !$no_launch;
}

sub remove_splash() {
    foreach (@{$bootloader->{entries}}) {
	bootloader::remove_boot_splash($_->{initrd}) if $_->{initrd};
    }
    bootloader::action($bootloader, 'when_config_changed', $hds) if !$no_launch;
}

sub detectloader() {
    print uc(bootloader::main_method($bootloader->{method})), "\n" if $bootloader;
}
_64-branch'>topic/x86_64-branch</option>
<option value='user/animtim/designWork'>user/animtim/designWork</option>
<option value='user/colin/rescue-systemd'>user/colin/rescue-systemd</option>
<option value='user/ennael/mga6'>user/ennael/mga6</option>
<option value='user/erwan/bug-13680'>user/erwan/bug-13680</option>
<option value='user/jibz/aarch64'>user/jibz/aarch64</option>
<option value='user/martinw/mga6'>user/martinw/mga6</option>
<option value='user/pterjan/arm64'>user/pterjan/arm64</option>
</select> <input type='submit' value='switch'/></form></td></tr>
<tr><td class='sub'>Mageia Installer and base platform for many utilities</td><td class='sub right'>Thierry Vignaud [tv]</td></tr></table>
<table class='tabs'><tr><td>
<a href='/software/drakx/?h=15.32'>summary</a><a href='/software/drakx/refs/?h=15.32&amp;id=25d260aeaf8796c95ac1b7aedf8f45924c6b2d88'>refs</a><a href='/software/drakx/log/perl-install/standalone/drakconnect?h=15.32'>log</a><a href='/software/drakx/tree/perl-install/standalone/drakconnect?h=15.32&amp;id=25d260aeaf8796c95ac1b7aedf8f45924c6b2d88'>tree</a><a class='active' href='/software/drakx/commit/perl-install/standalone/drakconnect?h=15.32&amp;id=25d260aeaf8796c95ac1b7aedf8f45924c6b2d88'>commit</a><a href='/software/drakx/diff/perl-install/standalone/drakconnect?h=15.32&amp;id=25d260aeaf8796c95ac1b7aedf8f45924c6b2d88'>diff</a><a href='/software/drakx/stats/perl-install/standalone/drakconnect?h=15.32'>stats</a></td><td class='form'><form class='right' method='get' action='/software/drakx/log/perl-install/standalone/drakconnect'>
<input type='hidden' name='h' value='15.32'/><input type='hidden' name='id' value='25d260aeaf8796c95ac1b7aedf8f45924c6b2d88'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/software/drakx/commit/?h=15.32&amp;id=25d260aeaf8796c95ac1b7aedf8f45924c6b2d88'>root</a>/<a href='/software/drakx/commit/perl-install?h=15.32&amp;id=25d260aeaf8796c95ac1b7aedf8f45924c6b2d88'>perl-install</a>/<a href='/software/drakx/commit/perl-install/standalone?h=15.32&amp;id=25d260aeaf8796c95ac1b7aedf8f45924c6b2d88'>standalone</a>/<a href='/software/drakx/commit/perl-install/standalone/drakconnect?h=15.32&amp;id=25d260aeaf8796c95ac1b7aedf8f45924c6b2d88'>drakconnect</a></div><div class='content'><div class='cgit-panel'><b>diff options</b><form method='get'><input type='hidden' name='h' value='15.32'/><input type='hidden' name='id' value='25d260aeaf8796c95ac1b7aedf8f45924c6b2d88'/><table><tr><td colspan='2'/></tr><tr><td class='label'>context:</td><td class='ctrl'><select name='context' onchange='this.form.submit();'><option value='1'>1</option><option value='2'>2</option><option value='3' selected='selected'>3</option><option value='4'>4</option><option value='5'>5</option><option value='6'>6</option><option value='7'>7</option><option value='8'>8</option><option value='9'>9</option><option value='10'>10</option><option value='15'>15</option><option value='20'>20</option><option value='25'>25</option><option value='30'>30</option><option value='35'>35</option><option value='40'>40</option></select></td></tr><tr><td class='label'>space:</td><td class='ctrl'><select name='ignorews' onchange='this.form.submit();'><option value='0' selected='selected'>include</option><option value='1'>ignore</option></select></td></tr><tr><td class='label'>mode:</td><td class='ctrl'><select name='dt' onchange='this.form.submit();'><option value='0' selected='selected'>unified</option><option value='1'>ssdiff</option><option value='2'>stat only</option></select></td></tr><tr><td/><td class='ctrl'><noscript><input type='submit' value='reload'/></noscript></td></tr></table></form></div><table summary='commit info' class='commit-info'>
<tr><th>author</th><td>Thierry Vignaud &lt;tvignaud@mandriva.org&gt;</td><td class='right'>2004-01-22 20:42:33 +0000</td></tr>
<tr><th>committer</th><td>Thierry Vignaud &lt;tvignaud@mandriva.org&gt;</td><td class='right'>2004-01-22 20:42:33 +0000</td></tr>
<tr><th>commit</th><td colspan='2' class='sha1'><a href='/software/drakx/commit/perl-install/standalone/drakconnect?h=15.32&amp;id=25d260aeaf8796c95ac1b7aedf8f45924c6b2d88'>25d260aeaf8796c95ac1b7aedf8f45924c6b2d88</a> (<a href='/software/drakx/patch/perl-install/standalone/drakconnect?id=25d260aeaf8796c95ac1b7aedf8f45924c6b2d88'>patch</a>)</td></tr>
<tr><th>tree</th><td colspan='2' class='sha1'><a href='/software/drakx/tree/?h=15.32&amp;id=25d260aeaf8796c95ac1b7aedf8f45924c6b2d88'>2974a56df77316d00f1738004ae2e0b9bbb3eba6</a> /<a href='/software/drakx/tree/perl-install/standalone/drakconnect?h=15.32&amp;id=25d260aeaf8796c95ac1b7aedf8f45924c6b2d88'>perl-install/standalone/drakconnect</a></td></tr>
<tr><th>parent</th><td colspan='2' class='sha1'><a href='/software/drakx/commit/perl-install/standalone/drakconnect?h=15.32&amp;id=b6df1d4232e9d8fd08f6093306e1709aa9c892ea'>b6df1d4232e9d8fd08f6093306e1709aa9c892ea</a> (<a href='/software/drakx/diff/perl-install/standalone/drakconnect?h=15.32&amp;id=25d260aeaf8796c95ac1b7aedf8f45924c6b2d88&amp;id2=b6df1d4232e9d8fd08f6093306e1709aa9c892ea'>diff</a>)</td></tr><tr><th>download</th><td colspan='2' class='sha1'><a href='/software/drakx/snapshot/drakx-25d260aeaf8796c95ac1b7aedf8f45924c6b2d88.tar'>drakx-25d260aeaf8796c95ac1b7aedf8f45924c6b2d88.tar</a><br/><a href='/software/drakx/snapshot/drakx-25d260aeaf8796c95ac1b7aedf8f45924c6b2d88.tar.gz'>drakx-25d260aeaf8796c95ac1b7aedf8f45924c6b2d88.tar.gz</a><br/><a href='/software/drakx/snapshot/drakx-25d260aeaf8796c95ac1b7aedf8f45924c6b2d88.tar.bz2'>drakx-25d260aeaf8796c95ac1b7aedf8f45924c6b2d88.tar.bz2</a><br/><a href='/software/drakx/snapshot/drakx-25d260aeaf8796c95ac1b7aedf8f45924c6b2d88.tar.xz'>drakx-25d260aeaf8796c95ac1b7aedf8f45924c6b2d88.tar.xz</a><br/><a href='/software/drakx/snapshot/drakx-25d260aeaf8796c95ac1b7aedf8f45924c6b2d88.zip'>drakx-25d260aeaf8796c95ac1b7aedf8f45924c6b2d88.zip</a><br/></td></tr></table>
<div class='commit-subject'>