Changeset 14271 for misc/runpugs

Timestamp:

10/12/06 02:11:19 (2 years ago)

Author:

andara

Message:

[runpugs]
Changed session id calculation; added robots.txt

Location:

misc/runpugs

Files:

• cgi-bin/runpugs (modified) (2 diffs)
• htdocs/robots.txt (added)
• lib/WebTerminal/Server.pm (modified) (3 diffs)

misc/runpugs/cgi-bin/runpugs

@@ -37 +37 @@
 my $query=new CGI;
 
-my $sessionid=$query->param("sessionid") || crypt(rand(),'NM');
+my $sessionid=$query->param("sessionid");
+
+if (not $sessionid) {
+my $nid=crypt(rand(),'WV');
+$nid=~tr/.\//WV/;
+$nid=~s/^WV//;
+my $now=time()-1159056000; # 36 year, 275 days offset
+$sessionid=$nid.$now;
+}
 
 my $access_OK=1; # no restrictions
@@ -49 +57 @@
 
 my $ip=$ENV{'REMOTE_ADDR'};
+#my $ip="127.0.0.".int(rand(100));
 
 ######### MAIN SITEMANAGER PROGRAM ###################

misc/runpugs/lib/WebTerminal/Server.pm

@@ -37 +37 @@
     my $ip=shift;
         my $cmd = shift;
-if(scalar(keys %lastcalled)>100){
+if(scalar(keys %lastcalled)>50){ # each pugs takes 1% of feather's MEM!
     return "Sorry, I can't run any more sessions.\nPlease try again later.";
 } else {
@@ -76 +76 @@
                         ( my $id, my $ip, my $cmd ) = split( "\n", $msg, 3 );
             $cmd=pack("U0C*", unpack("C*",$cmd));
-#            print "CMD:",$cmd,"\n";
+            print "$id($ip): ",$cmd,"\n";
                         my $lines = &termhandler( $id, $ip, $cmd );
                         $conn->send_now("$id\n$lines");
@@ -106 +106 @@
    while (getppid()>10) { # a bit ad-hoc.
        sleep 300;
-print getppid(),"\n";
-kill 'USR1',getppid();
+        #print getppid(),"\n";
+        kill 'USR1',getppid();
     }
 } elsif ($! == EAGAIN) {