head	1.2;
access;
symbols
	OPENPKG_E1_MP_HEAD:1.2
	OPENPKG_E1_MP:1.2;
locks; strict;
comment	@# @;


1.2
date	2002.03.11.13.46.39;	author rse;	state dead;
branches;
next	1.1;

1.1
date	2001.10.23.11.20.45;	author rse;	state Exp;
branches;
next	;


desc
@@


1.2
log
@remove obsolete stuff
@
text
@#!/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");


@


1.1
log
@remember Peter's tool
@
text
@@