#!/usr/local/bin/perl # index.cgi # Display all the boot partitions require './lilo-lib.pl'; &ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1, 0, &help_search_link("lilo", "man", "doc", "howto")); # Check for non-intel architecture #if (!&is_x86()) { # print "
$text{'index_earch'}
\n"; # &ui_print_footer("/", $text{'index'}); # exit; # } # Check if lilo.conf exists if (!-r $config{'lilo_conf'}) { print "
",&text('index_econf', "$config{'lilo_conf'}"),"
\n";
&ui_print_footer("/", $text{'index'});
exit;
}
# Get the lilo version
$out = `$config{'lilo_cmd'} -V 2>&1`;
if ($out =~ /lilo\s+version\s+([0-9\.]+)/i) {
$lilo_version = $1;
}
else {
$lilo_version = 1;
}
open(VERSION, ">$module_config_directory/version");
print VERSION $lilo_version,"\n";
close(VERSION);
$conf = &get_lilo_conf();
@images = sort { $a->{'index'} <=> $b->{'index'} }
( &find("image", $conf), &find("other", $conf) );
$default = &find_value("default", $conf);
foreach $i (@images) {
local $n = $i->{'name'};
push(@icons, $n eq "image" ? "images/image.gif" : "images/other.gif");
$l = &find_value("label", $i->{'members'});
push(@titles, !$default && $i eq $images[0] ? "$l" :
$default && $default eq $l ? "$l" : $l);
push(@links, "edit_$n.cgi?idx=$i->{'index'}");
}
print "$text{'index_addk'} \n";
print "$text{'index_addp'}
\n";
&icons_table(\@links, \@titles, \@icons, 4);
print "$text{'index_addk'} \n";
print "$text{'index_addp'}
\n"; print &ui_hr(); print "