Changeset 14407 for misc/runpugs

Show
Ignore:
Timestamp:
10/18/06 01:01:43 (2 years ago)
Author:
andara
Message:

[runpugs]
-increased listen() queue
-turned a few die's into non-fatal errors

Location:
misc/runpugs/lib/WebTerminal
Files:
3 modified

Legend:

Unmodified
Added
Removed

  • misc/runpugs/lib/WebTerminal/Msg.pm

    r14202 r14407  
    172172                                          LocalAddr => $my_host, 
    173173                                          LocalPort => $my_port, 
    174                                           Listen    => 5, 
     174                                          Listen    => 15, # just a try! 
    175175                                          Proto     => 'tcp', 
    176176                                          Reuse     => 1); 
    … …  
    249249sub _new_client { 
    250250    my $sock = $main_socket->accept(); 
     251    #returns undef on fail! 
     252    ## so: 
    251253    my $conn = bless { 
    252254        'sock' =>  $sock, 

  • misc/runpugs/lib/WebTerminal/Server.pm

    r14403 r14407  
    3737        my $cmd = shift; 
    3838    if(scalar(keys %terminals)>50){ # each pugs takes 1% of feather's MEM! 
     39        print LOG "MAX nsessions reached\n"; 
    3940        return "Sorry, I can't run any more sessions.\nPlease try again later."; 
    4041    } else { 
    … …  
    6667        } else { 
    6768            if ($sessions_per_ip{$ip}>10) { 
     69        print LOG "MAX nsessions for $ip reached\n"; 
    6870                 return "Sorry, you can't run more than 10 sessions from one IP address.\n";    
    6971            } else { 
    … …  
    109111    my $port=shift; 
    110112    $SIG{USR1}=\&timeout; 
    111 my $daemon=0; 
     113my $daemon=1; 
    112114if ($daemon) { 
    113115    Proc::Daemon::Init; 
    … …  
    119121        if ($pid=fork) { 
    120122            #parent here 
    121             use Cwd; 
    122             print cwd(); 
     123#            use Cwd; 
     124#            print cwd(); 
     125            if (-e "/home/andara/apache/data/runpugs.log") { 
     126            rename 
     127            "/home/andara/apache/data/runpugs.log","/home/andara/apache/data/runpugs.log.".join("",localtime); 
     128            } 
    123129            open(LOG,">/home/andara/apache/data/runpugs.log"); 
    124130            WebTerminal::Msg->new_server( $host, $port, \&login_proc ); 
    … …  
    158164#            $terminals{$id}->write(':q'); 
    159165            delete $terminals{$id}; 
     166            print LOG "Cleaned up $ip : $id : $pid\n"; 
    160167            } 
    161168        } 

  • misc/runpugs/lib/WebTerminal/Server/Terminal.pm

    r14403 r14407  
    2525        $self->{'pugs'} = new Net::Telnet( 
    2626                -fhopen => $self->{'pty'}, 
    27         -timeout => 10, 
     27        -timeout => 20, 
    2828                -prompt => $prompt, 
    2929                -telnetmode      => 0, 
    … …  
    3131        ); 
    3232        #( $self->{'init'}, my $m ) = $self->{'pugs'}->waitfor( 
     33    my $error=''; 
    3334        ( my $p, my $m ) = $self->{'pugs'}->waitfor( 
    3435                -match   => $self->{'pugs'}->prompt, 
    3536                -errmode => "return" 
    36           ) or die "starting pugs failed: ", $self->{'pugs'}->lastline; 
    37         $self->{'init'}= $p.$m;#$self->{'pugs'}->prompt; 
     37          ) or do { 
     38#      die "starting pugs failed: ", $self->{'pugs'}->lastline; 
     39      $error="\nThere was a problem starting pugs. Please try again later."; 
     40      }; 
     41        $self->{'init'}= $p.$m.$error;#$self->{'pugs'}->prompt; 
    3842        bless($self,$class); 
    3943        return $self;