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 20:15:10 UTC
cvs commit: modperl/t/net/perl request-upload.pl
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";