#!/usr/bin/perl  -w
# 	$Header: /usr/local/src/cvs/telent/htdocs/linux/liloconfig,v 1.1.1.1 1999/05/22 03:17:52 dan Exp $	

$date=localtime;
$whoami=(getpwuid($<))[0];
($progname,$_)=reverse(split(/\//,$0));
if(grep(/-n/,@ARGV)){
    open(LILOCONF,">&1");
} else {
    open(LILOCONF,">/etc/lilo.conf") || die "$progname: opening /etc/lilo.conf: $!\n";
}

print LILOCONF <<EOTEXT
# /etc/lilo.conf 
# Created automatically by $whoami with $0 
#  on $date.  Edits will be lost
boot = /dev/hda
compact
read-only
linear
prompt
vga=ext
timeout=30	# 3 seconds
message=/boot/bootmessage
ramdisk = 0	# just in case I ever use a bootdisk
root = current	# use "current" root
EOTEXT
    ;

chdir("/");
opendir(DIR,"/");

sub bylibname {
    -M($a) <=> -M($b) ;
}

@kernels=(sort(bylibname grep(/vmlinuz/,readdir(DIR))));

print LILOCONF "image = /$kernels[0]\n    label=linux\n";
foreach $image(@kernels)
{
    print LILOCONF "image = /$image\n";
    $image =~ s/vmlinuz\W*/linux-/ ;
    print LILOCONF "   label=$image\n";
}			

print LILOCONF <<MORETEXT
other = /dev/hdb1
  loader=/boot/any_d.b
  label=dos
#End of file
MORETEXT
    ;

close LILOCONF;
if (!grep(/-n/,@ARGV)) { system("/sbin/lilo") ; };
exit;