Add the original source packages to maemo, source lenny

[dh-make-perl] / dev / i386 / libwww-perl / libwww-perl-5.813 / t / net / cgi-bin / nph-slowdata

diff --git a/dev/i386/libwww-perl/libwww-perl-5.813/t/net/cgi-bin/nph-slowdata b/dev/i386/libwww-perl/libwww-perl-5.813/t/net/cgi-bin/nph-slowdata
new file mode 100755 (executable)
index 0000000..01f012a
--- /dev/null
+++ b/dev/i386/libwww-perl/libwww-perl-5.813/t/net/cgi-bin/nph-slowdata
@@ -0,0 +1,26 @@
+#!/usr/local/bin/perl
+
+# This script outputs some data slowly. It can be used to check that
+# pipelined processing of response content really works.  We use syswrite
+# so that the script will notice when the connection is broken.
+
+out("HTTP/1.0 200 OK\r
+Content-Type: text/plain\r
+\r
+");
+
+for (1..5) {
+    out("The number is now $_\n");
+    sleep(1);
+}
+exit;
+
+
+sub out
+{
+    my $data = shift;
+    my $l = length $data;
+    if (syswrite(STDOUT, $data, $l) != $l) {
+       exit 1;
+    }
+}