Vidax.net – The blog

Following my previous post, I decided to write a Perl script that will be executed on post-commit. Initially I had a Shell script to update automatically my development Apache document root every 3 min. Therefore each commit I make was visible within 3 minutes on my development site.

The former script was:

#!/bin/sh
repo="/var/www/mysite_dev/www"
svn=`which svn`
cd $repo
$svn up
chown -R www-data:www-data $repo

The new post-commit hook is now getting after each commit all the updated files and runs a « svn up » on them. This means that my development site is always up to date. The script is:

#!/usr/bin/perl
use strict;
use warnings;
my $file;
my $repo = '/var/svn/yourrepository';
my $site = '/var/www/yoursite';

my $path = shift @ARGV;
my $revision  = shift @ARGV;

my @files = `/usr/bin/svnlook changed -r $revision $repo | cut -b 5-`;
foreach (@files) {
        $file = $_;
        if ($file =~ m/trunk-2/i) {
                $file =~ s/trunk-2//i;

                system('/usr/bin/svn update --non-interactive '.$site.'/'.$file);
                system('chown www-data: '.$site.'/'.$file);
        }
}

PS: « trunk-2″ is my development branch. I want to update my development site on changes made in this branch only. Adapt this value according to your needs.