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.
4
2001/
03
/
13
14
:
18
:
10
leif Exp $
+
# $Id: perlhelper,v 1.
5
2001/
04
/
18
12
:
16
:
42
leif Exp $
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:406:
%Roxen::Request::req_info = (); %Roxen::Request::req_vars = (); %Roxen::Request::req_headers = (); } elsif ($cmd eq "S" or $cmd eq "C") { $Roxen::Request::req_outbuf = ""; $Roxen::Request::req_returncode = 200; $data = Getdata(3); alarm 180; # 3 minutes. $Roxen::Request::req_state = 5423522; # Magic number.
+
$ENV{GATEWAY_INTERFACE} = "CGI-PerlEx"; # Makes CGI.pm happier.
if ($cmd eq "C") { my ($cmdin, $cmdout, $cmd); eval $data; if ($@) { Senderror("PERL EVAL ERROR: $@"); die "Perl: $@"; } } else { diag "{S:$data}\n";
Roxen.git/server/perl/bin/perlhelper:434:
last if $starttime+300 < time; # Timeout after 5 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.
4
2001/
03
/
13
14
:
18
:
10
leif Exp $'); }
+
{ Sendreply('Roxen Perl Helper: $Id: perlhelper,v 1.
5
2001/
04
/
18
12
:
16
:
42
leif Exp $'); }
else { die "perlhelper $$/MLQQ: exiting.\n"; } } } # die "$$ perlhelper: exiting normally.\n"; CORE::exit(0); }