25'ten fazla konu seçemezsiniz
Konular bir harf veya rakamla başlamalı, kısa çizgiler ('-') içerebilir ve en fazla 35 karakter uzunluğunda olabilir.
44 satır
1.0 KiB
44 satır
1.0 KiB
#!/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"); |
|
|
|
|
|
|