source: trollforge/irc/webchat.pl @ 654 Tweet

#!/usr/bin/perl

use strict;
use warnings;
use WWW::Mechanize;
use HTTP::Request::Common;
use JSON;
use List::Util qw/shuffle/;

require 'gen_nick.pl';

my $proxyfile = "proxies.txt";
my $debug = 0;
our $channel = '#freenode';
our $troll = "Did you know?  The_Thing AKA \"The Thing That Should Not Be\" calls himself as such because he survived THREE separate abortion attempts!";
our $random = 0;  #1 will use trolldb, 0 will use message above

my @proxies;
if (-e $proxyfile) {
    print "Loading proxies from $proxyfile\n";
    my $fh; open $fh, $proxyfile or die $!;
    local $/;
    my $proxies = <$fh>;
    close $fh;
    @proxies = split("\n", $proxies);
}

while (1) {
    if (fork) {
        sleep 1;
    } else {
        h8();
        exit;
    }
}

sub pick_proxy {
    return unless @proxies;
    my @p = shuffle @proxies;
    return shift @p;
}

sub h8 {
    my $nick = gen_nick();
        my $count = 0;
    my $mech = new WWW::Mechanize(
        stack_depth => 0,
        agent => 'Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10.6; en-US; rv:1.9.1.8) Gecko/20100202 Firefox/3.5.8',
    );

    my $proxy = pick_proxy();
    if ($proxy) {
        $proxy = "http://$proxy" unless $proxy =~ /^\w+:\/\//;
        $mech->proxy('http', $proxy);
    }

    print "Connecting with nick $nick";
    print " and proxy $proxy" if $proxy;
    print "...\n";

    my $base = "http://webchat.freenode.net/dynamic/two";

    my $t = 0;
    my $s;
    my $r = time();

    my $post_req = sub {
        my ($url, @params) = @_;

        push @params, 's' => $s if $s;

        my $req_url = "$base$url?r=$r";
        $req_url .= "&t=$t" if $t;
        $t++;
        
        my $req = POST $req_url, \@params;
        my $res = eval { $mech->request($req); };
        if (! $res || ! $res->is_success || $res->content =~ /You have a host listed in the DroneBL./
            || $res->content =~ /Your reported IP \[[\.\d\:]+\] is banned/) {
            my $failure = "";
            $failure .= $res->status_line if $res;
            $failure .= ' ' . $@ if $@;
            warn "request failed ($failure): " . $res->content . "\n";
            if ($proxy) {
                warn "proxy $proxy is probably bad\n";
            }
            return;
        }
        
        my $info = JSON::from_json($res->content);
        unless ($info) {
            die "Failed, response: " . $res->content;
        }

        unless ($s) {
            $s = $info->[1] or die "didn't get session token";
        }
        
        if ($debug) {
            print $res->content . "\n----\n";
        }
        return 1;
    };

    $post_req->('/e/n', nick => $nick);
    $post_req->('/e/s'); # t=2
    $post_req->('/e/p', c => 'JOIN '.$channel); # t=3
    $post_req->('/e/s'); # t=4
    $post_req->('/e/s'); # t=5
    for ($count=1; $count<11; $count++) {
            if($random==1) {
                        $mech->get('http://rolloffle.churchburning.org/troll_me_text.php');
                        $troll=$mech->content( format => 'text' );
                }
        $post_req->('/e/p', c => 'PRIVMSG '.$channel.' :'.$troll.'         '.gen_nick()); # t=8++
        $post_req->('/e/s'); # t=9++

    }
}