source: trollforge/rucas/webchat.pl @ 467

#!/usr/bin/perl

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

require 'gen_nick.pl';
require 'gen_troll.pl';

my $proxyfile = "proxies.txt";
our $channel = "#wikia";

our $troll = "DEMOLISHED";
our $random = 1;  #1 will use trolldb, 0 will use message above
our $baseurl = "http://irc.wikia.com/";


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 $randomseed = 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";

    $mech->get($baseurl."irc.cgi");
        $mech->form_name('loginform');
        $mech->field('interface' => "mozilla");
        $mech->field('Nickname' => $nick);
        $mech->field('Channel' => $channel);
        $mech->field('Server' => "irc.freenode.net");
        $mech->click();
        my $content = $mech->response()->content();
        if($content =~ /&R=(\S+)&item/) { $randomseed = $1 } else { die "RANDOM SEED NOT RECOVERED"; }  

        if(fork){$mech->get($baseurl."nph-irc.cgi?style=default&R=".$randomseed."&interface=mozilla&chan=".uri_escape($channel)."&nick=".$nick."&serv=irc.freenode.net");}

    my $post_req = sub {
        my (@params) = @_;
                push @params, 'R' => $randomseed;
                push @params, 'cmd' => "say";
                push @params, 'item' => "say";
                push @params, 'xmlhttp' => "0";
        my $req_url = $baseurl."client-perl.cgi";        
        my $req = POST $req_url, \@params;
        $mech->add_header( 'Content-Type' => 'application/x-www-form-urlencoded; charset=UTF-8' );
        $mech->add_header( Encoding => 'application/x-www-form-urlencoded; charset=UTF-8' );
        $mech->request($req);
        return 1;
    };
    while (1) {
            if($random==1) {
                        $troll=gen_troll();             
                }
                $post_req->(target=>$channel,say=>$troll);
    }
}