Add the original source packages to maemo, source lenny

[dh-make-perl] / dev / i386 / libwww-mechanize-perl / libwww-mechanize-perl-1.34 / t / local / referer-server

diff --git a/dev/i386/libwww-mechanize-perl/libwww-mechanize-perl-1.34/t/local/referer-server b/dev/i386/libwww-mechanize-perl/libwww-mechanize-perl-1.34/t/local/referer-server
new file mode 100755 (executable)
index 0000000..00ea5c9
--- /dev/null
+++ b/dev/i386/libwww-mechanize-perl/libwww-mechanize-perl-1.34/t/local/referer-server
@@ -0,0 +1,21 @@
+# Thanks to merlyn for nudging me and giving me this snippet!
+
+use HTTP::Daemon;
+use URI::URL;
+
+$|++;
+
+my $d = HTTP::Daemon->new or die;
+my $lhurl = URI::URL->new( $d->url );
+$lhurl->host( "localhost" );
+print $lhurl->as_string, "\n";
+
+$counter = 5;
+while ($counter-- and my $c = $d->accept) {
+    while (my $r = $c->get_request) {
+        my $ref = $r->headers->referer || "";
+        $c->send_response(HTTP::Response->new(200, "OK", undef, "Referer: '$ref'"));
+    }
+    $c->close;
+    undef($c);
+}