X-Git-Url: http://git.osdn.net/view?a=blobdiff_plain;f=test%2Fscript%2Fmodule-protocol-sessionless%2Fmaterials%2Fsessionless-14.pl;fp=test%2Fscript%2Fmodule-protocol-sessionless%2Fmaterials%2Fsessionless-14.pl;h=096f7513dfeea638c64d705d1430dc8807db90bb;hb=4bcd512a997b7bf361c23116b7e51273035432f3;hp=0000000000000000000000000000000000000000;hpb=c98260fdc42e319de4b7bc06212de30a378c5092;p=ultramonkey-l7%2Fultramonkey-l7-v3.git

diff --git a/test/script/module-protocol-sessionless/materials/sessionless-14.pl b/test/script/module-protocol-sessionless/materials/sessionless-14.pl
new file mode 100755
index 00000000..096f7513
--- /dev/null
+++ b/test/script/module-protocol-sessionless/materials/sessionless-14.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use IO::Socket::INET;
+
+$| = 1;
+
+my $socket = IO::Socket::INET->new(
+	PeerAddr => "127.0.0.1:40001"
+);
+
+print $socket "POST / HTTP/1.1\r\nHost: 127.0.0.1\r\nContent-length: 10\r\nX-Forwarded-For: proxy1,proxy2\r\n\r\n";
+print $socket "0123456789";
+
+while (<$socket>) {
+	print STDOUT $_;
+}
+
+