You are viewing a plain text version of this content. The canonical link for it is here.
Posted to cvs@httpd.apache.org by ja...@apache.org on 2021/04/30 15:18:31 UTC
svn commit: r1889330 -
/httpd/test/framework/trunk/t/htdocs/modules/cgi/perl_post.pl.PL
Author: jailletc36
Date: Fri Apr 30 15:18:31 2021
New Revision: 1889330
URL: http://svn.apache.org/viewvc?rev=1889330&view=rev
Log:
Add missing file used in new tests
Added:
httpd/test/framework/trunk/t/htdocs/modules/cgi/perl_post.pl.PL (with props)
Added: httpd/test/framework/trunk/t/htdocs/modules/cgi/perl_post.pl.PL
URL: http://svn.apache.org/viewvc/httpd/test/framework/trunk/t/htdocs/modules/cgi/perl_post.pl.PL?rev=1889330&view=auto
==============================================================================
--- httpd/test/framework/trunk/t/htdocs/modules/cgi/perl_post.pl.PL (added)
+++ httpd/test/framework/trunk/t/htdocs/modules/cgi/perl_post.pl.PL Fri Apr 30 15:18:31 2021
@@ -0,0 +1,23 @@
+local ($buffer, @pairs, $pair, $name, $value);
+
+print "Content-type: text/plain\n\n";
+
+$ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;
+print "$ENV{'REQUEST_METHOD'}\n";
+
+# Read in text
+if ($ENV{'REQUEST_METHOD'} eq "POST") {
+ read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
+} else {
+ $buffer = $ENV{'QUERY_STRING'};
+}
+
+# Split information into name/value pairs
+@pairs = split(/&/, $buffer);
+foreach $pair (@pairs) {
+ ($name, $value) = split(/=/, $pair);
+ $value =~ tr/+/ /;
+ $value =~ s/%(..)/pack("C", hex($1))/eg;
+
+ print "$name: $value\n";
+}
Propchange: httpd/test/framework/trunk/t/htdocs/modules/cgi/perl_post.pl.PL
------------------------------------------------------------------------------
svn:executable = *