Legolas in Minas Tirith

#!/bin/sh
 
REPOS="$1"
TXN="$2"
SVNLOOK=/usr/bin/svnlook
 
# get last commit message
COMMIT=`$SVNLOOK log "$REPOS"`
USER=`whoami`
 
# call bot with arguments reposname, revison and commit message in one string
/usr/bin/perl /usr/local/bin/svn_irc_bot.pl "$USER $REPOS r$TXN: $COMMIT"
 
# all checks passed, so allow the commit
exit 0

#!/usr/bin/perl -w
#svn_irc_bot.pl
 
my $server = ""; #put here your address
my $port = 6667;
my $nick = "svn_bot";
my $ident = "svn_bot";
my $realname = "svn_bot";
my $chan = "#YourChannel";#put here your channel name
my $pass = "svn_bot";
my $svn_commit = $ARGV[0];
use IO::Socket;
 
my $irc=IO::Socket::INET->new(
PeerAddr=>$server,
PeerPort=>$port,
Proto=>'tcp') or die "DEAD!";
 
#print $irc "USER $ident $ident $ident $ident :$realname\n";
print $irc "NICK $nick\r\n";
#print $irc "PRIVMSG nickserv/@/services.dal.net :identify $pass\n";
print $irc "USER $ident 8 * :Perl IRC Hacks Robot\r\n";
 
print $irc "join $chan\n";
 
while(my $in = <$irc>)
{
if($in=~/004/)
{
print $irc "PRIVMSG $chan :$svn_commit \n";
last;
}
 
if($in=~/^PING(.*)$/i)
{
print $irc "PONG :$1\n";
}
}
close($irc);
#EOF