#!/usr/bin/perl

if($ARGV[0]) {
   open(RAW,$ARGV[0]) || die("Can't open input file!\n$!\n");
   open(COOK,">$ARGV[0].html") || die("Can't open output file!\n$!\n");
   }
else {
   open(RAW,"<&STDIN");
   open(COOK,">&STDOUT");
   }

print COOK "<TABLE BORDER=1 BGCOLOR=#CCCCCC>\n<TR><TH>Code</TH>".
           "<TH>Song</TH><TH>Artist</TH><TH>Album</TH></TR>\n";
while(<RAW>) {
   chomp();  s/^\s*$//g;      # remove newline, and whitespace-only lines
   if($_ eq "") {
      print COOK "<TR><TD COLSPAN=4>&nbsp;</TD></TR>\n";
      next;
      }
   s/\t/  /g;  s/^  +/  /g;   # remove tabs, extra spaces;
   my(@Temp) = split("  ");  # Note, two spaces
   if($#Temp==2) {  $Code = "<TD>&nbsp;</TD>";  }
   elsif($#Temp==3) {
      my($RawCode) = shift(@Temp);
      my($Color);
      if($RawCode =~ /^G/) {
         $RawCode =~ s/G//g;
         if($RawCode eq "") {  $RawCode = "&nbsp;"  }
         $Code = "<TD ALIGN=CENTER BGCOLOR=#00CC00>$RawCode</TD>";
         }
      elsif($RawCode =~ /^II/) {
         $Code = "<TD ALIGN=CENTER BGCOLOR=#000000><FONT COLOR=#FFFFFF>".
                 "$RawCode</FONT></TD>";
         }
      elsif($RawCode =~ /^I/) {
         $Code = "<TD ALIGN=CENTER BGCOLOR=#FF0000>$RawCode</TD>";
         }
      else {  $Code = "<TD ALIGN=CENTER>$RawCode</TD>";  }
      }
   else {  warn "More than four fields on a line!";  }
   print COOK "<TR>\n$Code<TD>$Temp[0]</TD><TD>$Temp[1]</TD>".
              "<TD>$Temp[2]</TD>\n</TR>\n";
   }

print COOK "</TABLE>\n";

close(RAW);
close(COOK);