X-Git-Url: http://git.ipfire.org/?p=people%2Fteissler%2Fipfire-2.x.git;a=blobdiff_plain;f=html%2Fcgi-bin%2Fp2p-block.cgi;h=04f13314244b5a1e5e42b9dc3aca8feecc729e7b;hp=6683ca8b620d0536116c2daca7fb7345df5261b8;hb=631b67b7cd4c5fa00417cbe9e843892cae6f0ff6;hpb=33a1b286084cf0745aced5f17c86e39b41859c40 diff --git a/html/cgi-bin/p2p-block.cgi b/html/cgi-bin/p2p-block.cgi old mode 100755 new mode 100644 index 6683ca8b6..04f133142 --- a/html/cgi-bin/p2p-block.cgi +++ b/html/cgi-bin/p2p-block.cgi @@ -84,19 +84,20 @@ open(FILE, "<$p2pfile") or die "Unable to read $p2pfile"; @p2ps = ; close FILE; -&Header::openbox('100%', 'center', $Lang::tr{'p2p block'}); +&Header::openbox('100%', 'center',); print < - - + + + 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 < - - END +$lines++; } print <
$Lang::tr{'protocol'} - - + + $Lang::tr{'status'} - +
+ $p2pline[0]: +
@@ -119,9 +124,11 @@ foreach my $p2pentry (sort @p2ps) {