perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@hyperreal.org
Subject cvs commit: modperl/t/net/perl request-upload.pl
Date Thu, 24 Dec 1998 19:15:10 GMT
dougm       98/12/24 11:15:10

  Modified:    .        MANIFEST apache-modlist.html
               t/conf   httpd.conf-dist
               t/net/perl request-upload.pl
  Log:
  more test stuff for Apache::Request package
  
  Revision  Changes    Path
  1.51      +6 -0      modperl/MANIFEST
  
  Index: MANIFEST
  ===================================================================
  RCS file: /home/cvs/modperl/MANIFEST,v
  retrieving revision 1.50
  retrieving revision 1.51
  diff -u -r1.50 -r1.51
  --- MANIFEST	1998/11/13 03:27:48	1.50
  +++ MANIFEST	1998/12/24 19:15:08	1.51
  @@ -127,6 +127,8 @@
   t/modules/status.t
   t/modules/symbol.t
   t/modules/module.t
  +t/modules/request.t
  +t/modules/cookie.t
   t/internal/api.t
   t/internal/auth.t
   t/internal/croak.t
  @@ -143,6 +145,7 @@
   #t/internal/resolver.t
   t/internal/table.t
   t/internal/taint.t
  +t/net/perl/have_module.pl
   t/net/perl/module.pl
   t/net/perl/file.pl
   t/net/perl/log.pl
  @@ -168,6 +171,9 @@
   t/net/perl/dirty-script.cgi
   t/net/perl/dirty-test.cgi
   t/net/perl/dirty-lib
  +t/net/perl/request-upload.pl
  +t/net/perl/request-param.pl
  +t/net/perl/request-cookie.pl
   #t/net/perl/resolver.pl
   t/net/perl/io/redir.pl
   t/net/perl/io/perlio.pl
  
  
  
  1.51      +3 -1      modperl/apache-modlist.html
  
  Index: apache-modlist.html
  ===================================================================
  RCS file: /home/cvs/modperl/apache-modlist.html,v
  retrieving revision 1.50
  retrieving revision 1.51
  diff -u -r1.50 -r1.51
  --- apache-modlist.html	1998/12/22 22:28:59	1.50
  +++ apache-modlist.html	1998/12/24 19:15:08	1.51
  @@ -8,7 +8,7 @@
   <h1>The Apache/Perl Module List</h1>
   
   Maintained by <a href="mailto:dougm@pobox.com">Doug MacEachern</a>,
  -<br><i> $Revision: 1.50 $ $Date: 1998/12/22 22:28:59 $</i>
  +<br><i> $Revision: 1.51 $ $Date: 1998/12/24 19:15:08 $</i>
   
   <h3>Contents</h3>
   <a href="#intro">Introduction</a><br>
  @@ -239,6 +239,7 @@
   
   * Misc
   Byterun		i	Run Perl bytecode modules		DOUGM
  +Cookie		cmcO	C version of CGI::Cookie		APML
   Icon		idcO	Access to AddIcon* configuration	DOUGM
   Include		Smpf	mod_include + Apache::Registry handler	APML
   Mmap		bdcf	Share data via Mmap module		FLETCH
  @@ -251,6 +252,7 @@
   SIG		SmpO	Signal handlers for mod_perl		APML
   State		i	Powerful state engine			RSE
   TempFile	bdpf	Manage temporary files			TOMHUGHES
  +Upload		cmcO	File upload class			APML
   
   </pre>
   <h3><a name="where">Where Are The Modules Kept?</a></h3>
  
  
  
  1.20      +10 -0     modperl/t/conf/httpd.conf-dist
  
  Index: httpd.conf-dist
  ===================================================================
  RCS file: /home/cvs/modperl/t/conf/httpd.conf-dist,v
  retrieving revision 1.19
  retrieving revision 1.20
  diff -u -r1.19 -r1.20
  --- httpd.conf-dist	1998/11/19 16:52:19	1.19
  +++ httpd.conf-dist	1998/12/24 19:15:09	1.20
  @@ -279,3 +279,13 @@
   SetHandler perl-script
   </Location>
   
  +#libapr
  +<Location /apr-form-test>   
  +SetHandler apr-form  
  +</Location>   
  +<Location /apr-upload-test>   
  +SetHandler apr-upload 
  +</Location>   
  +<Location /apr-cookie-test>   
  +SetHandler apr-cookie 
  +</Location>   
  
  
  
  1.2       +1 -3      modperl/t/net/perl/request-upload.pl
  
  Index: request-upload.pl
  ===================================================================
  RCS file: /home/cvs/modperl/t/net/perl/request-upload.pl,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- request-upload.pl	1998/12/23 23:14:39	1.1
  +++ request-upload.pl	1998/12/24 19:15:10	1.2
  @@ -37,13 +37,11 @@
       my($lines, $bytes);
       $lines = $bytes = 0;
   
  -    #open FH, ">/tmp/upload.txt" or die $!;
       while(<$fh>) {
   	++$lines;
   	$bytes += length;
  -	print FH;
       }
  -    close FH;
  +
       my $info = $upload->info;
       while (my($k,$v) = each %$info) {
   	print "INFO: $k => $v\n";
  
  
  

Mime
View raw message