hiper/collecturls.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34

#!/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++;
        }
    }
}