You are viewing a plain text version of this content. The canonical link for it is here.
Posted to cvs@httpd.apache.org by jo...@apache.org on 2007/11/02 12:31:13 UTC
svn commit: r591306 - in
/httpd/test/trunk/perl-framework/t/htdocs/modules/cgi: ./ action.pl.PL
Author: jorton
Date: Fri Nov 2 04:31:13 2007
New Revision: 591306
URL: http://svn.apache.org/viewvc?rev=591306&view=rev
Log:
- add CGI script for PR 43738 test case, missed in previous commit
Added:
httpd/test/trunk/perl-framework/t/htdocs/modules/cgi/action.pl.PL
Modified:
httpd/test/trunk/perl-framework/t/htdocs/modules/cgi/ (props changed)
Propchange: httpd/test/trunk/perl-framework/t/htdocs/modules/cgi/
------------------------------------------------------------------------------
--- svn:ignore (original)
+++ svn:ignore Fri Nov 2 04:31:13 2007
@@ -15,3 +15,4 @@
nph-102.pl
empty.pl
pr37166.pl
+action.pl
Added: httpd/test/trunk/perl-framework/t/htdocs/modules/cgi/action.pl.PL
URL: http://svn.apache.org/viewvc/httpd/test/trunk/perl-framework/t/htdocs/modules/cgi/action.pl.PL?rev=591306&view=auto
==============================================================================
--- httpd/test/trunk/perl-framework/t/htdocs/modules/cgi/action.pl.PL (added)
+++ httpd/test/trunk/perl-framework/t/htdocs/modules/cgi/action.pl.PL Fri Nov 2 04:31:13 2007
@@ -0,0 +1,10 @@
+use strict;
+
+print "Content-type: text/plain\n\n";
+
+print $ENV{PATH_INFO} . "\n";
+
+if (my $ct = $ENV{CONTENT_LENGTH}) {
+ read STDIN, my $buffer, $ct;
+ print $buffer;
+}