#!/usr/bin/perl

while (<>) {
  my $line = $_;
  if ( $line =~ /([a-zA-Z0-9\-\_\.]*)\t([a-zA-Z0-9\-\_\.]*)\t(.*)/) {
    print "label $1 \n";
    $kernel = `echo $2 | md5sum | cut -c1-8`;
    system("mv cdimage/isolinux/$2 cdimage/isolinux/$kernel"); 
    print "\t kernel $kernel \n";
    print "\t append initrd=initrd.img ramdisk_size=8192 pci=nommconf\n";
  }
}