#!/usr/bin/perl -w
use strict;
my $date = `date "+%Y-%m-%d"`;
chomp $date;
my $cmd = "svn copy -m release . svn+ssh://ext.geneontology.org/share/go/svn/ontology-releases/$date";
print STDERR "CMD: $cmd\n";
exit(system($cmd));