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.3 2001/02/01 13:13:53 leif Exp $ + # $Id: perlhelper,v 1.4 2001/02/04 22:55:34 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:401:    }    elsif ($cmd eq "S" or $cmd eq "C")    { $Roxen::Request::req_outbuf = "";    $Roxen::Request::req_returncode = 200;    $data = Getdata(3);    alarm 150; # 2.5 minutes.    $Roxen::Request::req_state = 5423522; # Magic number.    if ($cmd eq "C")    { my ($cmdin, $cmdout, $cmd);    eval $data; +  if ($@) +  { Senderror("PERL EVAL ERROR: $@"); +  die "Perl: $@";    } -  +  }    else    { diag "{S:$data}\n";    Roxen::Internal::runscript($data);    }    $Roxen::Request::req_state = 0;    alarm 60; # One minute.    if ($Roxen::Request::req_returncode != 200)    { Sendreply(sprintf "RETURNCODE=%d", $Roxen::Request::req_returncode);}    Senddata($Roxen::Request::req_outbuf);