#!/usr/bin/perl

my $v=shift;
my $vp;
if ($v =~ /(\d+)\-(\d+)/) {
    my ($maj,$min) = ($1,$2);
    my $minp = $min-1;
    $vp = sprintf("%d-%02d",$maj,$minp);
    my $cmd = "obodiff $vp/ro.obo $v/ro.obo > $v/ro.obodiff";
    runcmd($cmd);
    runcmd("diff  $vp/ro.obo $v/ro.obo > $v/ro.diff");
    exit 0;
}
else {
    die $v;
}

exit;

sub runcmd {
    my $cmd = shift;
    print STDERR "cmd: $cmd\n";
    print `$cmd`;

}