#!/usr/bin/perl
my $svn_repo = "/subversion/REPONAME";
my $bkup_dir = "/mnt/Subversion/SVN-Backups/REPO_DIR/";
my $bkup_file = "REPONAME_backup-";
my $bkup_svr = "my.backup.com";
my $bkup_svr_login = "backup";

$bkup_file = $bkup_file . `date +%Y%m%d-%H%M`;
chomp $bkup_file;
my $youngest = `svnlook youngest $svn_repo`;
chomp $youngest;

my $dump_command = "svnadmin -q dump $svn_repo > $bkup_dir/$bkup_file";
print "nDumping Subversion repo $svn_repo to $bkup_file...n";
print `$dump_command`;
print "Backing up through revision $youngest... n";
print "nCompressing dump file...n";
print `gzip -9 $bkup_dir/$bkup_filen`;
chomp $bkup_file;
my $zipped_file = $bkup_dir . "/" . $bkup_file . ".gz";
print "nCreated $zipped_filen";