#!/usr/bin/perl -wT

use strict;
use CGI;

my $path = '../svn/_live';

my $q = new CGI;

die "Bad repository"
	unless($q->param('repos') =~ m/([A-Za-z0-9\-_\.]+)$/);
my $repos = $1;

my $fullpath = "$path/$repos";

die "No such repository"
	unless(-d $fullpath);

die "Bad revision"
	unless($q->param('rev') =~ m/(\d+)$/);
my $rev = $1;

print $q->header;

$ENV{'PATH'} = '/usr/bin';

system("svn update $fullpath");