You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@hyperreal.org on 1998/12/24 00:15:26 UTC

cvs commit: modperl/t/net/perl request-param.pl request-post.pl

dougm       98/12/23 15:15:26

  Added:       t/net/perl request-param.pl
  Removed:     t/net/perl request-post.pl
  Log:
  oops
  
  Revision  Changes    Path
  1.1                  modperl/t/net/perl/request-param.pl
  
  Index: request-param.pl
  ===================================================================
  use strict;
  use Apache::test;
  
  my $r = shift;
  $r->send_http_header('text/plain');
  
  eval {
      require Apache::Request;
  };
  
  unless (Apache::Request->can('upload')) {
      print "1..0\n";
      print $@ if $@;
      print "$INC{'Apache/Request.pm'}\n";
      return;
  }
  
  my $apr = Apache::Request->new($r);
  
  for ($apr->param) {
      my(@v) = $apr->param($_);
      print "param $_ => ", join ",", @v;
      print $/;
  }