gistfile1.txt

#!/usr/bin/perl -w
#svn_bioperl_irc.pl

use strict;
use warnings;
use WWW::Shorten 'TinyURL';

my $server = "irc.freenode.net";
my $port = 6667;
my $nick = "driveby_bot";
my $ident = "driveby_bot";
my $realname = "BioPerl CommitBot";
my $chan = "#bioperl";
my $pass = "";

use IO::Socket;

my ($REPOS, $REV, $USER, $COMMIT) = @ARGV;

my $shorturl  = makeashorterlink("http://code.open-bio.org/svnweb/index.cgi/bioperl/revision?rev=$REV");

my $log = "$REPOS: r$REV ($USER) : $COMMIT";

my $irc=IO::Socket::INET->new(
    PeerAddr=>$server,
    PeerPort=>$port,
    Proto=>'tcp') or die "Argh!";

#print $irc "USER $ident $ident $ident $ident :$realname\n";
print $irc "NICK $nick\n";
#print $irc "PRIVMSG nickserv/@/services.dal.net :identify $pass\n";
print $irc "USER $ident 8 * :$ident\n";
print $irc "join $chan\n";

while(defined(my $in=<$irc>)) {
    if($in=~/^:(.+)\!.+ JOIN\b/) {
        print $irc "PRIVMSG $chan :$log \n";
        print $irc "PRIVMSG $chan :Diff: $shorturl \n";
        last;
    }
}

close($irc);