cvs commit: modperl-2.0/t/filter/TestFilter out_bbs_filebucket.pm

[stas]

stas        2004/08/14 11:46:01

  Modified:    t/response/TestAPI lookup_misc.pm
               t/filter/TestFilter out_bbs_filebucket.pm
  Log:
  unescape OS path passed via QUERY_STRING (for win32 and such)
  Submitted by: Markus Wichitill <[EMAIL PROTECTED]>
  
  Revision  Changes    Path
  1.2       +2 -0      modperl-2.0/t/response/TestAPI/lookup_misc.pm
  
  Index: lookup_misc.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/lookup_misc.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -u -r1.1 -r1.2
  --- lookup_misc.pm    14 Aug 2004 05:10:12 -0000      1.1
  +++ lookup_misc.pm    14 Aug 2004 18:46:01 -0000      1.2
  @@ -11,6 +11,7 @@
   use Apache::RequestIO ();
   use Apache::Filter ();
   use Apache::SubRequest ();
  +use Apache::URI ();
   
   use Apache::TestTrace;
   
  @@ -24,6 +25,7 @@
       my %args = map { split '=', $_, 2 } split /;/, $r->args;
   
       if ($args{subreq} eq 'lookup_file') {
  +        Apache::URI::unescape_url($args{file});
           debug "lookup_file($args{file})";
           my $subr = $r->lookup_file($args{file});
           $subr->run;
  
  
  
  1.2       +3 -1      modperl-2.0/t/filter/TestFilter/out_bbs_filebucket.pm
  
  Index: out_bbs_filebucket.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/filter/TestFilter/out_bbs_filebucket.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -u -r1.1 -r1.2
  --- out_bbs_filebucket.pm     13 Aug 2004 01:51:14 -0000      1.1
  +++ out_bbs_filebucket.pm     14 Aug 2004 18:46:01 -0000      1.2
  @@ -8,6 +8,7 @@
   use Apache::RequestRec ();
   use Apache::RequestIO ();
   use Apache::Filter;
  +use Apache::URI ();
   
   use APR::Brigade ();
   use APR::Bucket ();
  @@ -57,8 +58,9 @@
       debug "\n-------- new request ----------";
   
       $r->content_type('text/plain');
  -    my $file = $r->args;
   
  +    my $file = $r->args;
  +    Apache::URI::unescape_url($file);
       $r->sendfile($file);
   
       return Apache::OK;