#!/usr/pkg/bin/perl 

use POSIX;
use HTML::TokeParser;
use LWP::UserAgent;
use HTTP::Request::Common qw(POST GET);
use HTTP::Cookies;



$|++;
sub postdoc {
    my $docurl = shift;
    

    my $req = GET  $docurl;
 
    $req->header(Accept => $acpthdr);

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

    $cookie_jar->add_cookie_header( $req );
    $cookie_jar->save;

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

$ua = LWP::UserAgent->new( keep-alive => 1, timeout => 10);
$ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.3) Gecko/20060426 Firefox/1.5.0.3");
$cookie_jar = HTTP::Cookies->new( 
  file => "$ENV{'HOME'}/lwp_cookies.dat",
           autosave => 1,
         );
$ua->cookie_jar($cookie_jar);

postdoc("http://blablist.crowdiq.com/iqueue/blab.jsp?blabid=de0fc8335185f57286ab02493eeec042754ca6fe31313437383338333732323738");

exit(1);
#http://blablist.crowdiq.com/iqueue/vote?pollhashid=4e6941b3d3ff07390c519cd6efac2ec810f2cb2331313436363133383833373338&choicehashid=23fe0d4c19ac3b52382e0ff930b18902f39b3ae1346536393431623364336666303733393063353139636436656661633265&name=arp&comment=rhcp%20rocks!&captcha=&rnd=0.910699393112262&_=
#$fucker="http://blablist.crowdiq.com/iqueue/vote?pollhashid=4e6941b3d3ff07390c519cd6efac2ec810f2cb2331313436363133383833373338&choicehashid=23fe0d4c19ac3b52382e0ff930b18902f39b3ae1346536393431623364336666303733393063353139636436656661633265&name=arp&comment=rhcp%20rocks!&captcha=&rnd=0.910699393112262&_=";
#$fucker="http://blablist.crowdiq.com/iqueue/vote?pollhashid=4e6941b3d3ff07390c519cd6efac2ec810f2cb2331313436363133383833373338&choicehashid=23fe0d4c19ac3b52382e0ff930b18902f39b3ae1346536393431623364336666303733393063353139636436656661633265&name=pound-rhcp&comment=rhcp%20rocks!&captcha=&rnd=0.910699393112262&_=";

#$fucker="http://blablist.crowdiq.com/iqueue/vote?pollhashid=4e6941b3d3ff07390c519cd6efac2ec810f2cb2331313436363133383833373338&choicehashid=23fe0d4c19ac3b52382e0ff930b18902f39b3ae1346536393431623364336666303733393063353139636436656661633265&name=FOO&comment=&captcha=&rnd=0.18943399566710795&_=";
$fucker="http://blablist.crowdiq.com/iqueue/vote?pollhashid=4e6941b3d3ff07390c519cd6efac2ec810f2cb2331313436363133383833373338&choicehashid=d4645bd7fe0017473bdc6b5c50a2bca7205b463c346536393431623364336666303733393063353139636436656661633265&name=karen&comment=GREEN%20DAY%20SUCKS!&captcha=&rnd=0.06572171081138412&_=";
#$fucker="http://blablist.crowdiq.com/iqueue/vote?pollhashid=4e6941b3d3ff07390c519cd6efac2ec810f2cb2331313436363133383833373338&choicehashid=5db692b60ba4f60e14bb529c9189fc779c0cad07346536393431623364336666303733393063353139636436656661633265&name=karen&comment=I%20Love%20Greenie!&captcha=&rnd=0.8234899870552868&_=";

#$fucker="http://blablist.crowdiq.com/iqueue/vote?pollhashid=4e6941b3d3ff07390c519cd6efac2ec810f2cb2331313436363133383833373338&choicehashid=81cc444953190c57dfc9f8ca3f976348400db45a346536393431623364336666303733393063353139636436656661633265&name=sirsyko&comment=Deez%20Nuts!&captcha=&rnd=0.6503595041732221&_=";

$fucker="http://blablist.crowdiq.com/iqueue/vote?pollhashid=4e6941b3d3ff07390c519cd6efac2ec810f2cb2331313436363133383833373338&choicehashid=576090cf3a309c0ac9eabd663c6a40a0197dcebc346536393431623364336666303733393063353139636436656661633265&name=paola&comment=OHHHH%20I'M%20STILL%20ALIVE!&captcha=&rnd=0.3078916679590251&_=";

$fucker="http://blablist.crowdiq.com/iqueue/vote?pollhashid=6555f899db1fbfb39d73f6dc17e525c91e2153ee31313437373838323139303231&choicehashid=9324a418d702db8342d0e113270f573a4a61d406343630&name=sirsyko&comment=Not%20a%20guitarist,%20but%20RHCP%20REPRUHZENT!&captcha=&rnd=0.04893210575797313&_=";

$fuck1="http://blablist.crowdiq.com/iqueue/vote?pollhashid=56b25887cdcc7d5587fef378ffbc52d642241f9231313437323831373633323731&choicehashid=5374378c899e7d7a83ce48a0db4371b62f9ede51353662323538383763646363376435353837666566333738666662633532&name=sirsyko&comment=RHCP%20ROX&captcha=&rnd=0.3393426614045102&_=";
$fuck2="http://blablist.crowdiq.com/iqueue/vote?pollhashid=56b25887cdcc7d5587fef378ffbc52d642241f9231313437323831373633323731&choicehashid=2a9030e4ecc31d604a276793dabaa483e2facdb3353662323538383763646363376435353837666566333738666662633532&name=sirsyko&comment=THE%20HOUSE%20IS%20A'ROCKIN&captcha=&rnd=0.7245331838103952&_=";
$fuck3="http://blablist.crowdiq.com/iqueue/vote?pollhashid=56b25887cdcc7d5587fef378ffbc52d642241f9231313437323831373633323731&choicehashid=add1a5de091a960dc21047c090f1099d8f66377f323537&name=sirsyko&comment=LITTLE%20WING&captcha=&rnd=0.7294523325504669&_=";


$fucker="http://blablist.crowdiq.com/iqueue/vote?pollhashid=da71fd7e0d88ce8f2f261ee26636d95d7889cfa431313436373135323532303930&choicehashid=272c768163d81bc15b23e1538e0c81ce19b98a5b646137316664376530643838636538663266323631656532363633366439&name=sirsyko&comment=CANT%20STOP%20ADDICTED%20TO%20THE%20SHINDIG&captcha=&rnd=0.04354489999759137&_=";

$fucker="http://blablist.crowdiq.com/iqueue/vote?pollhashid=de0fc8335185f57286ab02493eeec042754ca6fe31313437383338333732323738&choicehashid=1070ef0dc778749d42364c4b628fd73fdda5c5f9343639&name=sirsyko&comment=CALIFORNIA%20REST%20IN%20PEACE,%20SIMULTAENOUS%20RELEASE&captcha=ezrg&rnd=0.12027652576527292&_=";



while (5) {
    print postdoc($fucker);
}