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/04 22:53:48 leif Exp $ + # $Id: perlhelper,v 1.4 2001/03/13 14:18:10 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:74:    if ($len > 500)    { # Drain the output buffer a bit.    $len = 16384 if $len > 16384;    Roxen::_helper::Senditem('+',    substr($Roxen::Request::req_outbuf, 0, $len));    $Roxen::Request::req_outbuf =    substr $Roxen::Request::req_outbuf, $len;    }   }    + sub PRINTF + { my $self = shift; +  Roxen::TieStdio::PRINT($self, CORE::sprintf($_[0], @_[1..$#_])); + } +    package Apache; # Some compatilibity with the Apache interface.      sub request   { return $Roxen::Request::req_req;   }   sub unescape_url   { my ($s) = (shift);    $s =~ s/%([0-9a-fA-F][0-9a-fA-F])/chr(hex($1))/eg;    return $s;   }
Roxen.git/server/perl/bin/perlhelper:429:    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.3 2001/02/04 22:53:48 leif Exp $'); } +  { Sendreply('Roxen Perl Helper: $Id: perlhelper,v 1.4 2001/03/13 14:18:10 leif Exp $'); }    else    { die "perlhelper $$/MLQQ: exiting.\n"; }    }    }   # die "$$ perlhelper: exiting normally.\n";    CORE::exit(0);   }