perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@locus.apache.org
Subject cvs commit: modperl/lib/Apache FakeRequest.pm
Date Wed, 22 Mar 2000 02:31:31 GMT
dougm       00/03/21 18:31:31

  Modified:    .        Changes ToDo
               lib/Apache FakeRequest.pm
  Log:
  support Apache::FakeRequest::args in a list context
  
  Revision  Changes    Path
  1.434     +3 -0      modperl/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /home/cvs/modperl/Changes,v
  retrieving revision 1.433
  retrieving revision 1.434
  diff -u -r1.433 -r1.434
  --- Changes	2000/03/22 01:17:33	1.433
  +++ Changes	2000/03/22 02:31:30	1.434
  @@ -10,6 +10,9 @@
   
   =item 1.21_04-dev
   
  +support Apache::FakeRequest::args in a list context
  +[Michael Finke <mfinke@apollo.screamdesign.com>]
  +
   compile fixes for 5.6 + -Duse5005threads
   [Lincoln Stein <lstein@cshl.org>]
   
  
  
  
  1.239     +0 -3      modperl/ToDo
  
  Index: ToDo
  ===================================================================
  RCS file: /home/cvs/modperl/ToDo,v
  retrieving revision 1.238
  retrieving revision 1.239
  diff -u -r1.238 -r1.239
  --- ToDo	2000/03/15 09:50:47	1.238
  +++ ToDo	2000/03/22 02:31:30	1.239
  @@ -26,9 +26,6 @@
   - Support of <CR> <LF> in a EBCDIC environment
   [Ignasi Roca <ignasi.roca@fujitsu.siemens.es>]
   
  -- Apache::FakeRequest::args doesnt behave right in a list context
  -[Michael Finke <mfinke@apollo.screamdesign.com>]
  -
   - rename PerlSendHeader?
   
   - syswrite/WRITE
  
  
  
  1.4       +21 -2     modperl/lib/Apache/FakeRequest.pm
  
  Index: FakeRequest.pm
  ===================================================================
  RCS file: /home/cvs/modperl/lib/Apache/FakeRequest.pm,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- FakeRequest.pm	1998/11/19 04:36:32	1.3
  +++ FakeRequest.pm	2000/03/22 02:31:31	1.4
  @@ -11,7 +11,7 @@
   
   #dummy method stubs
   my @methods = qw{
  -  allow_options args
  +  allow_options
     as_string auth_name auth_type
     basic_http_header bootstrap bytes_sent
     can_stack_handlers cgi_env cgi_header_out
  @@ -28,7 +28,7 @@
     lookup_file lookup_uri main
     max_requests_per_child method method_number
     module next no_cache
  -  note_basic_auth_failure notes parse_args
  +  note_basic_auth_failure notes
     path_info perl_hook post_connection prev
     protocol proxyreq push_handlers
     query_string read read_client_block
  @@ -48,6 +48,25 @@
       $self->{$key} = $val if $val;
       $self->{$key};
   }
  +
  +sub parse_args {
  +    my($wantarray,$string) = @_;
  +    return unless defined $string and $string;
  +    if(defined $wantarray and $wantarray) {
  +        return map { 
  +	    s/%([0-9a-fA-F]{2})/pack("c",hex($1))/ge;
  +	    $_;
  +	} split /[=&;]/, $string, -1;
  +    }
  +    $string;
  +}
  +
  +sub args {
  +    my($r,$val) = @_;
  +    $r->{args} = $val if $val;
  +    parse_args(wantarray, $r->{args});
  +}
  +
   
   {
       my @code;
  
  
  

Mime
View raw message