post-commit.pl

#!/usr/bin/env perl

# Run this script with:
# post-commit.pl /path/to/svn/repo revision_number
# 
# You need to run it with environment variable LANG=en_US.UTF-8 for non-english locales
# Otherwise it will display invalid chars on Assembla stream and emails.

###################################################
# Find these below values on external svn tool tab
$TOOL_ID = ""; # 22 chars uuid
$SECRET_KEY = "";

# On *BSD systems, svnlook command can be in /usr/local/bin/svnlook
$SVN_LOOK_CMD = "/usr/bin/svnlook";

###################################################
# map svn usernames with assembla accounts, if usernames differ from Assembla usernames
# Our API will search users by login, then by email
# if user will not be found, Anonymous user will be used in alerts for svn commit
%USER_MAP = (
        'local_svn_user_1', 'assembla_username_1',
        'local_svn_user_2', 'assembla_username_2',
);

###################################################
# DO NOT CHANGE ANYTHING BELOW !!!
###################################################

$API_URL = "http://www.assembla.com/changesets/";

# Install below package on debian/ubuntu
# apt-get install libwww-perl

use HTTP::Request::Common;
use LWP::UserAgent;

$repo = $ARGV[0];
$rev = $ARGV[1];

$author = `$SVN_LOOK_CMD author -r "$rev" "$repo"`;
$log = `$SVN_LOOK_CMD log -r "$rev" "$repo"`;

chomp $author;
chomp $log;

$ua = LWP::UserAgent->new;
$ua->agent("AssemblaApiPerlClient/0.1");

# Create a request
my $req = POST $API_URL, 
		["tool_id" => 0, "spaces_tool_id" => $TOOL_ID, "secret_key" => $SECRET_KEY, "username" => ($USER_MAP{$author} || $author), "comment" => $log, "external_id" => $rev];

$req->content_type('application/x-www-form-urlencoded');

# Pass request to the user agent and get a response back
$res = $ua->request($req);

# Check the outcome of the response
if (!$res->is_success) {
    print $res->status_line, "\n";
}