Slashdot Mirror

← Back to Users

User: Chocolat

Chocolat's activity in the archive.

Stories
0
Comments
2
First seen
Last seen
Profile
(view on slashdot.org)

Comments · 2

  1. Fight MS ;-) on MSN Blocks Mozilla, Other Browsers [updated] · · Score: 1

    #!/usr/bin/perl -w
    use LWP::UserAgent;
    use strict ;
    my $ua = new LWP::UserAgent;
    $ua->agent('Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.5) Gecko/20011012') ;
    my $i=0 ;
    for(;;)
    { my $url="http://www.msn.com" ;
    my $req = new HTTP::Request 'GET' => $url ;
    $req->header('Accept' => 'text/html');
    my $res = $ua->request($req);
    if ($res->is_success)
    { $i++ ;
    print $i."\n" ;
    #print $res->content."\n\n" ;
    }
    else
    { print 'Error: '.$res->code .' '.$res->message; ;
    }
    }

  2. Fight MS ;-) on MSN Blocks Mozilla, Other Browsers [updated] · · Score: 1

    #!/usr/bin/perl -w
    use LWP::UserAgent;
    use strict ;
    my $ua = new LWP::UserAgent;
    $ua->agent('Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.5) Gecko/20011012') ;
    my $i=0 ;
    for(;;)
    { my $url="http://www.msn.com" ;
    my $req = new HTTP::Request 'GET' => $url ;
    $req->header('Accept' => 'text/html');
    my $res = $ua->request($req);
    if ($res->is_success)
    { $i++ ;
    print $i."\n" ;
    #print $res->content."\n\n" ;
    }
    else
    { print 'Error: '.$res->code .' '.$res->message; ;
    }
    }