#!/usr/bin/perl

# This script takes in two parameters.  The first is the
# full path to the kernel image.  The second is the full
# path to the initial ramdisk image

die unless ($#ARGV == 1);

$Root = "";

open (LILO,"/etc/lilo.conf");
while ($ThisLine = <LILO>) {
   # Rename current image named 'linux' to 'linux-old'
   $ThisLine =~ s/label\s*=\s*linux22$/label=linux22-old/;

   $ThisLine =~ s/^default=.*$/default=linux22/;

   # Find out the root partition
   unless ($Root) {
      if ($ThisLine =~ /root\s*=\s*(.+)$/) {
         $Root = $1;
      }
   }

   # Store config line...
   push @conf, $ThisLine;

}
close (LILO);

$Done = 0;

open (LILO,">/etc/lilo.conf");
foreach $ThisLine (@conf) {
   if ($ThisLine =~ /^image\s*=/) {
      unless ($Done) {
         # Time to insert our new block...
         print LILO "image=$ARGV[0]\n";
         print LILO "\tlabel=linux22\n";
         print LILO "\troot=$Root\n";
         print LILO "\tinitrd=$ARGV[1]\n";
         print LILO "\tread-only\n";
         $Done = 1;
      }
   }
   print LILO $ThisLine;
}
close (LILO);