#!/usr/bin/perl
#

# Parse the latest revision of the repo so that we
# can place this number in the FAQ text.

use strict;

my $rawver=`svnversion .`;
chomp($rawver);

if (/:/,$rawver){
	my @tmp=split/:/,$rawver;
	$rawver=$tmp[-1];
}

$rawver=~s/[a-z]//ig;
print "$rawver\n";