|
Lines 29-34
Link Here
|
| 29 |
# global variables |
29 |
# global variables |
| 30 |
my $ver = "1.4"; |
30 |
my $ver = "1.4"; |
| 31 |
my $bwinterval = 5; # bandwidth management interval (seconds) |
31 |
my $bwinterval = 5; # bandwidth management interval (seconds) |
|
|
32 |
my $refreshInterval = 300; #Page refresh Interval (seconds) |
| 32 |
my $CTCS_PROTOCOL = "0003"; |
33 |
my $CTCS_PROTOCOL = "0003"; |
| 33 |
my $current_client = ""; |
34 |
my $current_client = ""; |
| 34 |
my (%cfh,%torrents,%ctfile,%ctbw,%ctconfig,%ctdetail,%ctstatus,%ctstime, |
35 |
my (%cfh,%torrents,%ctfile,%ctbw,%ctconfig,%ctdetail,%ctstatus,%ctstime, |
|
Lines 548-554
Link Here
|
| 548 |
HTTP/1.0 200 OK\r |
549 |
HTTP/1.0 200 OK\r |
| 549 |
Content-Type: text/html\r |
550 |
Content-Type: text/html\r |
| 550 |
\r |
551 |
\r |
| 551 |
<HTML><HEAD><TITLE>CTCS - All Torrents</TITLE></HEAD><BODY> |
552 |
<HTML><HEAD><TITLE>CTCS - All Torrents</TITLE> |
|
|
553 |
EOF |
| 554 |
printf $cfh "<META HTTP-EQUIV=\"Refresh\" CONTENT=\"%d\">",$refreshInterval; |
| 555 |
print $cfh <<EOF =~ /[^\t]*\n/g; |
| 556 |
|
| 557 |
<META HTTP-EQUIV="Pragma" CONTENT="no-cache"> |
| 558 |
</HEAD><BODY> |
| 552 |
<CENTER> |
559 |
<CENTER> |
| 553 |
<H1><A HREF="http://www.rahul.net/dholmes/ctorrent/ctcs.html"> |
560 |
<H1><A HREF="http://www.rahul.net/dholmes/ctorrent/ctcs.html"> |
| 554 |
<I>CT</I>orrent <I>C</I>ontrol <I>S</I>erver</A></H1> |
561 |
<I>CT</I>orrent <I>C</I>ontrol <I>S</I>erver</A></H1> |
|
Lines 569-578
Link Here
|
| 569 |
"<INPUT NAME=\"ulimit\" TYPE=\"text\" align=right SIZE=4 VALUE=\"%d\">" . |
576 |
"<INPUT NAME=\"ulimit\" TYPE=\"text\" align=right SIZE=4 VALUE=\"%d\">" . |
| 570 |
"K/s\n</TR>\n", |
577 |
"K/s\n</TR>\n", |
| 571 |
$allul / 1024, $tulimit / 1024; |
578 |
$allul / 1024, $tulimit / 1024; |
| 572 |
printf $cfh "<TR><TD><TD align=right>Change interval: " . |
579 |
printf $cfh "<TR><TD>Reload:<INPUT name=\"refreshInterval\" type=\"text\" size=\"3\" value=\"%d\">sec<TD align=right>Change interval: " . |
| 573 |
"<INPUT name=\"bwinterval\" type=\"text\" align=right size=3 " . |
580 |
"<INPUT name=\"bwinterval\" type=\"text\" align=right size=3 " . |
| 574 |
"value=\"%d\">sec</TR>\n", |
581 |
"value=\"%d\">sec</TR>\n", |
| 575 |
$bwinterval; |
582 |
$refreshInterval,$bwinterval; |
| 576 |
print $cfh "</TABLE></CENTER></FORM>\n\n"; |
583 |
print $cfh "</TABLE></CENTER></FORM>\n\n"; |
| 577 |
print $cfh "<CENTER><A HREF=\"/alimits\">Advanced Limits</A></CENTER>\n\n"; |
584 |
print $cfh "<CENTER><A HREF=\"/alimits\">Advanced Limits</A></CENTER>\n\n"; |
| 578 |
|
585 |
|
|
Lines 1511-1516
Link Here
|
| 1511 |
if ($page =~ /[?&]dlimit=(\d+)/) { $tdlimit = $1 * 1024; } |
1518 |
if ($page =~ /[?&]dlimit=(\d+)/) { $tdlimit = $1 * 1024; } |
| 1512 |
if ($page =~ /[?&]ulimit=(\d+)/) { $tulimit = $1 * 1024; } |
1519 |
if ($page =~ /[?&]ulimit=(\d+)/) { $tulimit = $1 * 1024; } |
| 1513 |
if ($page =~ /[?&]bwinterval=(\d+)/) { $bwinterval = $1; } |
1520 |
if ($page =~ /[?&]bwinterval=(\d+)/) { $bwinterval = $1; } |
|
|
1521 |
if ($page =~ /[?&]refreshInterval=(\d+)/) { $refreshInterval = $1; } |
| 1514 |
|
1522 |
|
| 1515 |
$page =~ s/\?.*//; |
1523 |
$page =~ s/\?.*//; |
| 1516 |
# print $cfh "HTTP/1.0 205 OK\r\n"; |
1524 |
# print $cfh "HTTP/1.0 205 OK\r\n"; |
