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.
1
2000/
08
/
01
14
:
26
:
43
leif Exp $
+
# $Id: perlhelper,v 1.
2
2000/
12
/
18
13
:
49
:
27
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:357:
$cmdin->fdopen($infd, "r") or die "Unable to open command input.\n"; $cmdout->fdopen($outfd, "w") or die "Unable to open command output.\n"; $cmdout->autoflush(1); $Roxen::Request::req_req = Roxen::Request->new(); while (1) { $Roxen::Request::req_state = 0; alarm 60; # One minute.
-
$cmdin->sysread($cmd, 1) == 1 or die "
perhelper
$$/MLR: exiting.\n";
+
$cmdin->sysread($cmd, 1) == 1 or die "
perlhelper
$$/MLR: exiting.\n";
diag "[$cmd]"; if ($cmd eq "E") { $var = Getdata(1); $data = Getdata(3); $ENV{$var} = $data; } elsif ($cmd eq "I") { $var = Getdata(1); $data = Getdata(3); $Roxen::Request::req_info{$var} = $data; } elsif ($cmd eq "F")