remember Peter's tool

00DEV/status2html

@@ -0,0 +1,44 @@
+#!/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");
+
+