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.
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;}