cvs commit: modperl-2.0/t/response/TestApache post.pm

2001-04-19 Thread dougm 

dougm   01/04/19 10:36:37

  Modified:t/response/TestApache post.pm
  Log:
  move read_post util so it can be used by other tests
  
  Revision  ChangesPath
  1.2   +1 -18 modperl-2.0/t/response/TestApache/post.pm
  
  Index: post.pm
  ===
  RCS file: /home/cvs/modperl-2.0/t/response/TestApache/post.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- post.pm   2001/04/02 09:06:07 1.1
  +++ post.pm   2001/04/19 17:36:34 1.2
  @@ -3,28 +3,11 @@
   use strict;
   use warnings FATAL = 'all';
   
  -use APR::Table ();
  -
  -sub read_post {
  -my $r = shift;
  -
  -$r-setup_client_block;
  -
  -return undef unless $r-should_client_block;
  -
  -my $len = $r-headers_in-get('content-length');
  -
  -my $buf;
  -$r-get_client_block($buf, $len);
  -
  -return $buf;
  -}
  -
   sub handler {
   my $r = shift;
   $r-content_type('text/plain');
   
  -my $data = read_post($r) || "";
  +my $data = ModPerl::Test::read_post($r) || "";
   
   $r-puts(join ':', length($data), $data);

cvs commit: modperl-2.0/t/response/TestApache post.pm

2001-04-02 Thread dougm 

dougm   01/04/02 02:06:07

  Added:   t/response/TestApache post.pm
  Log:
  start of extended apache test
  
  Revision  ChangesPath
  1.1  modperl-2.0/t/response/TestApache/post.pm
  
  Index: post.pm
  ===
  package TestApache::post;
  
  use strict;
  use warnings FATAL = 'all';
  
  use APR::Table ();
  
  sub read_post {
  my $r = shift;
  
  $r-setup_client_block;
  
  return undef unless $r-should_client_block;
  
  my $len = $r-headers_in-get('content-length');
  
  my $buf;
  $r-get_client_block($buf, $len);
  
  return $buf;
  }
  
  sub handler {
  my $r = shift;
  $r-content_type('text/plain');
  
  my $data = read_post($r) || "";
  
  $r-puts(join ':', length($data), $data);
  
  0;
  }
  
  1;