1 files changed, 0 insertions, 34 deletions
diff --git a/hiper/collecturls.pl b/hiper/collecturls.pl
deleted file mode 100755
index 6a0da3686..000000000
--- a/hiper/collecturls.pl
+++ /dev/null
@@ -1,34 +0,0 @@
-#!/usr/bin/perl
-
-# 1) http://randomurl.com/body.php
-# 2) http://random.yahoo.com/fast/ryl
-# 3) http://www.uroulette.com/visit
-
-# 1) very slow, responds with URL in body meta style:
-# <meta http-equiv="refresh" content="0; url=http://www.webmasterworld.com/forum85/735.htm">
-
-# 2) Responds with non-HTTP headers like:
-# Status: 301
-# Location: http://www.adaptive.net/
-
-# 3) ordinary 30X code and Location:
-
-my $url;
-map { $url .= " http://www.uroulette.com/visit"; } (1 .. 12);
-
-print $url."\n";
-
-my $count=0;
-
-open(DUMP, ">>dump");
-
-while(1) {
-    my @getit = `curl -si $url`;
-    for my $l (@getit) {
-        if($l =~ /^Location: (.*)/) {
-            print DUMP "$1\n";
-            print STDERR "$count\r";
-            $count++;
-        }
-    }
-}