Roxen.git
/
server
/
perl
/
bin
/
perlhelper
version
»
Context lines:
10
20
40
80
file
none
3
Roxen.git/server/perl/bin/perlhelper:1:
#! /usr/local/bin/perl # Perl helper script for Roxen Webserver. By Leif Stensson. #
-
#
$Id: perlhelper,v 1.7 2003/09/16 17:48:15 mast Exp $
+
#
$Id$
package Roxen::Internal; use strict; use vars '%Cache'; sub packagename { my($string) = @_; $string =~ s/([^A-Za-z0-9\/])/sprintf("_%2x",unpack("C",$1))/eg;
Roxen.git/server/perl/bin/perlhelper:442:
last if $starttime+1800 < time; # Final timeout after 30 minutes. $Roxen::Request::req_req = Roxen::Request->new(); } elsif ($cmd eq "Q") { $cmdin->sysread($cmd, 1) == 1 or die "perlhelper $$/MLQ: exiting.\n"; diag "{Q$cmd}"; if ($cmd eq "P") { Sendreply(""); } elsif ($cmd eq "V")
-
{ Sendreply('Roxen Perl Helper:
$Id: perlhelper,v 1.7 2003/09/16 17:48:15 mast Exp $
'); }
+
{ Sendreply('Roxen Perl Helper:
$Id$
'); }
else { die "perlhelper $$/MLQQ: exiting.\n"; } } } # die "$$ perlhelper: exiting normally.\n"; CORE::exit(0); }