--- ctcs-1.4/ctcs 2007-06-05 05:17:46 +0000 +++ ctcs-1.4/ctcs 2008-01-02 15:17:18 +0000 @@ -29,6 +29,7 @@ # global variables my $ver = "1.4"; my $bwinterval = 5; # bandwidth management interval (seconds) +my $refreshInterval = 300; #Page refresh Interval (seconds) my $CTCS_PROTOCOL = "0003"; my $current_client = ""; my (%cfh,%torrents,%ctfile,%ctbw,%ctconfig,%ctdetail,%ctstatus,%ctstime, @@ -548,7 +549,13 @@ HTTP/1.0 200 OK\r Content-Type: text/html\r \r - CTCS - All Torrents + CTCS - All Torrents +EOF + printf $cfh "",$refreshInterval; + print $cfh < +

CTorrent Control Server

@@ -569,10 +576,10 @@ "" . "K/s\n\n", $allul / 1024, $tulimit / 1024; - printf $cfh "Change interval: " . + printf $cfh "Reload:secChange interval: " . "sec\n", - $bwinterval; + $refreshInterval,$bwinterval; print $cfh "
\n\n"; print $cfh "
Advanced Limits
\n\n"; @@ -1511,6 +1518,7 @@ if ($page =~ /[?&]dlimit=(\d+)/) { $tdlimit = $1 * 1024; } if ($page =~ /[?&]ulimit=(\d+)/) { $tulimit = $1 * 1024; } if ($page =~ /[?&]bwinterval=(\d+)/) { $bwinterval = $1; } + if ($page =~ /[?&]refreshInterval=(\d+)/) { $refreshInterval = $1; } $page =~ s/\?.*//; # print $cfh "HTTP/1.0 205 OK\r\n";