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.2 2000/12/18 13:49:27 leif Exp $ + # $Id: perlhelper,v 1.3 2001/02/01 13:13:53 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:126:   package Roxen::Request;      sub new   { my $proto = shift;    my $class = ref($proto) || $proto;    my $self = {};    bless $self, $class;    return $self;   }    + sub get_http_variables () { return %Roxen::Request::req_vars;} + sub get_http_headers () { return %Roxen::Request::req_headers;} +    sub get_remote_host { return $Roxen::Request::req_info{'remoteaddr'};}   sub get_remote_logname { return undef;}   sub protocol { return $Roxen::Request::req_info{'prot'};}   sub method { return $Roxen::Request::req_info{'method'};}   sub main { return undef;}   sub prev { return undef;}   sub next { return undef;}   sub last { return $Roxen::Request::req_req;}   sub is_main { return 1;}   sub is_initial_request { return 0;}