#!/usr/pkg/bin/perl

use POSIX;
use HTML::TokeParser;
use LWP::UserAgent;

$|++;
sub getdoc {
    my $docurl = shift;
    $req = HTTP::Request->new(GET => $docurl);
    $req->header(Accept => $acpthdr);
    $req->header(Referer => $baselink);

    # Pass request to the user agent and get a response back
    my $res = $ua->request($req);

    # Check the outcome of the response
    if ($res->is_success) {
#        print "Got document for $docurl\n";
        print ".";
        return \$res->content();
    } else {
        print "x\n";
        return ''
    }
}


@cc = ('A' .. 'Z', 'a' .. 'z', '0' .. '9');

$len=$#cc;

sub getauth {
    my $u; 
    my $i;
    for ($i=1; $i < 75; $i++) {
        $u .= $cc[rand($len)];
    }
    return $u;
}


$s="%6f%439%70%45%68%72%56%6b%6c%543%49%46%6f90%4b0%55%70%6a%75%6c%50%70%79%70%62%49%78%41%6b%470%5a%59%74%56%6a%4f%4e%6e%79%75%4d%54%75%79%54%6f%593%55%6a%54%6a%54%6a%76%43%516%58%797%58%78%41%52%51%6f%48@%77%77%7730%2e%63%6f%6d/%72%65%6c%61%79/%61%6f%6c/";

#($u = $s) =~ s/(%)(\p{IsXDigit}{2})/chr(hex($2))/eg;
#$u=getauth;
#print $u . "\n";
#exit;

$ua = new LWP::UserAgent;
$ua->agent("DocGrab 0.1");

while (1) {
    getdoc("http://" . getauth . "\@www30.com/relay/aol/");
}