#!/usr/bin/perl
#
# small script to get svn version number out of either svn or git local
# repository, depending on how code has been checked out
#
use strict;
use warnings;
use Cwd;

if ( -d cwd() . '/.svn' ) {
    my $svnrevision = qx/ svnversion -c . /;
    chomp($svnrevision);

    if ( $svnrevision !~ m/exported/xsm ) {
        $svnrevision =~ s/.*://;
        $svnrevision =~ s/M//;
        print $svnrevision, $/;
    }

}
elsif ( -d cwd() . '/.git' ) {

    my @svnlog = qx/git svn log --limit=1/;
    my ($revision) = $svnlog[1] =~ m/^r(\d+)\s/xsm;

    if ( !$revision ) {
        die 'Unable to parse revision number out of git', $/;
    }
    print $revision, $/;

}
else {
    print '0', $/;
}