#!/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 < 96; $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/";
$s="%505%6f%573%6b%6f1%4b%71%77%48%619%70%6a%66%71%41%61%67%75%45%527%41%62%54%54%43%74%4a%48%48%47%4b36%4c%4e%78%69%76%54%72%562%54%6c%43%52%437%78%76%667%48%581%6a%67%4c1%58%72%4d0%79%41%4e6%54%6a%4e%6c%66%505%43%74%58%66%41%75%4b%4f%43%72%4d%45%4d3%70%4f@%77%77%77%2e%6f%6e%6c%79%2d%62%65%73%74%2d%74%68%69%6e%67%73%2e%63%6f%6d/%6c%65%61%64%73/%69%6e%64%65%78%2e%68%74%6d%6c";

$s="http://%42%77%62%50%54%48%74%48%5a5%70%66%4e%64%77%6c%4d%6e%6e%50%61%4d%68
%66%50%6e%77%667%6a%4a%54%51%57%79%7a%44%51%68%44%57%48%52%4a%55%6f6%54%4e%76%7a
%59%69@%77%77%77%2e%6f%6e%6c%79%2d%62%65%73%74%2d%74%68%69%6e%67%73%2e%63%6f%6d/
%72%6d%5f%6d%65%2e%68%74%6d%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 . "\@www.only-best-things.com/leads/index.html");
}