-
+
+
+ |
$Lang::tr{'protocol'}
-
- |
+
+ |
$Lang::tr{'status'}
-
+ |
END
-
+my $lines=0;
+my $col="";
foreach my $p2pentry (sort @p2ps) {
my @p2pline = split( /\;/, $p2pentry);
if ($p2pline[2] eq 'on') {
@@ -104,13 +105,17 @@ foreach my $p2pentry (sort @p2ps) {
} else {
$gif = "/images/off.gif"
}
-
+ if ($lines % 2) {
+ print "";
+ $col="bgcolor='$color{'color20'}'"; }
+ else {
+ print " ";
+ $col="bgcolor='$color{'color22'}'"; }
print <
- |
+ |
$p2pline[0]:
|
-
+ |
|
END
+$lines++;
}
print < |