--- 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 <
+
@@ -569,10 +576,10 @@
"" .
"K/s\n\n",
$allul / 1024, $tulimit / 1024;
- printf $cfh " | Change interval: " .
+ printf $cfh " |
Reload:sec | Change 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";