openpkg-packages/00DEV/status2html

#!/usr/bin/perl
#
# Convert the Status text file to HTML
#
# Usage:  status2html.pl < 00STATUS > 00STATUS.html
#
my $bgcolor = "ffffff";

print ("<table cellspacing=0 cellpadding=0 border=0>\n");
LOOP:while(<>) {
@array = ($text0, $text1, $text2, $text3, $text4) = /^(\w+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+/;


 $array[0] =~ s|^\s+(.*?)|{$array[0]=$1}|es;   # Remove whitespaces at the beginning
 next LOOP if $array[0]  eq "";
 next LOOP if $array[0]  =~ /^=/;
 $array[0] =~ s|(.*?)\s+$|{$array[0]=$1}|es;       # Remove whitespaces at the end


 printf ("<tr bgcolor=#%s>\n", $bgcolor);


foreach (@array) {
    print ("<td>");
    ($dummy, $_) = ($_ =~ /^(\w+):(\S+)/) if ($_ =~ /^(\w+):(\S+)/); # Remove 1th part to ":"

    if ($_ eq "no") {
        print ("<font color=\"#cc3333\">");
    } elsif ($_ eq "yes") {
        print ("<font color=\"#33cc33\">");
    }
    print ("$_");
    print ("</td>");
}


if   ($bgcolor eq "f0f0f0") { $bgcolor = "ffffff"; }
else                        { $bgcolor = "f0f0f0"; }

}

print ("</table>\n");