You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
45 lines
1.0 KiB
45 lines
1.0 KiB
24 years ago
|
#!/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");
|
||
|
|
|
||
|
|
|