Help for this page

Select Code to Download


  1. or download this
    #    if( threads::list( threads::running ) >= 100 ) {
    #        sendResponse("Session rejected. Too many sessions currently r
    +unning.\n", 101, $client); #just decided 101 should be the retry retu
    +rn code, no reason really
    ...
    #        $client->shutdown(2);
    #        $client->close;
    #    }else
    
  2. or download this
    our $T //= 1000;
    our $R //= 1000;
    ...
    }
    
    $_->join for @threads;