X-Git-Url: http://git.maemo.org/git/?p=dh-make-perl;a=blobdiff_plain;f=dev%2Farm%2Flibwww-perl%2Flibwww-perl-5.813%2Ft%2Fnet%2Fcgi-bin%2Ftest;fp=dev%2Farm%2Flibwww-perl%2Flibwww-perl-5.813%2Ft%2Fnet%2Fcgi-bin%2Ftest;h=6a1535c65729dd227e8563785d0ea5dffa8cb706;hp=0000000000000000000000000000000000000000;hb=f477fa73365d491991707e7ed9217b48d6994551;hpb=da95c414033799c3a62606f299c3c00b5c77ca11

diff --git a/dev/arm/libwww-perl/libwww-perl-5.813/t/net/cgi-bin/test b/dev/arm/libwww-perl/libwww-perl-5.813/t/net/cgi-bin/test
new file mode 100755
index 0000000..6a1535c
--- /dev/null
+++ b/dev/arm/libwww-perl/libwww-perl-5.813/t/net/cgi-bin/test
@@ -0,0 +1,28 @@
+#!/usr/local/bin/perl
+
+$| = 1;
+print "Content-type: text/plain
+
+";
+
+if (@ARGV) {
+    print "ARGS: ";
+    print join(", ", map { $_ = qq{"$_"} } @ARGV);
+    print "\n\n";
+} else {
+    print "No command line arguments passed to script\n\n";
+}
+
+while (($key,$val) = each %ENV) {
+   print "$key=$val\n";
+}
+
+if ($ENV{CONTENT_LENGTH}) {
+    $len = $ENV{CONTENT_LENGTH};
+    while ($len) {
+	$n = sysread(STDIN, $content, $len, length $content);
+	last unless defined $n;
+	$len -= $n;
+    }
+    print "\nContent\n-------\n$content";
+}