X-Git-Url: http://git.ipfire.org/?a=blobdiff_plain;f=html%2Fcgi-bin%2Fp2p-block.cgi;h=04f13314244b5a1e5e42b9dc3aca8feecc729e7b;hb=046ef135e667e8727d0826891004870d980a2feb;hp=6683ca8b620d0536116c2daca7fb7345df5261b8;hpb=349b93f67401d79548620da0bd9f695a36ae2823;p=ipfire-2.x.git diff --git a/html/cgi-bin/p2p-block.cgi b/html/cgi-bin/p2p-block.cgi old mode 100755 new mode 100644 index 6683ca8b62..04f1331424 --- 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) {