trunk整理

[ultramonkey-l7/ultramonkey-l7-v3.git] / test / script / module-protocol-sessionless / materials / sessionless-14.pl

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 (executable)
index 0000000..096f751
--- /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 $_;
+}
+
+