summaryrefslogtreecommitdiffstats
path: root/network/mod_limitipconn/test.pl
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--network/mod_limitipconn/test.pl18
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);
-}
-