diff options
Diffstat (limited to 'network/mod_limitipconn/test.pl')
-rw-r--r-- | network/mod_limitipconn/test.pl | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/network/mod_limitipconn/test.pl b/network/mod_limitipconn/test.pl deleted file mode 100644 index dc8ca7677b..0000000000 --- a/network/mod_limitipconn/test.pl +++ /dev/null @@ -1,18 +0,0 @@ -#!/usr/bin/perl - -# test.pl: small script to test mod_dosevasive's effectiveness - -use IO::Socket; -use strict; - -for(0..100) { - my($response); - my($SOCKET) = new IO::Socket::INET( Proto => "tcp", - PeerAddr=> "127.0.0.1:80"); - if (! defined $SOCKET) { die $!; } - print $SOCKET "GET /?$_ HTTP/1.0\n\n"; - $response = <$SOCKET>; - print $response; - close($SOCKET); -} - |