Roxen.git / server / perl / bin / perlhelper

version» Context lines:

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")