#!/usr/bin/perl
#Kamin Whitehouse July 12 2004
#this little script will do a hot copy of a subversion repository that
#is too big for svn's hot-backup.py since the strings.XX file can get
#to large for the APR libraries, which do not provide support for very
#large files. 
#
#usage: 
#   hotcopy TYPE SRC DEST
#
#where TYPE is 0 for a daily backup and 1 for a monthly backup
#(indicated by the name of the day or the month appended to the backup
#directory), SRC is the top-level directory of the repository and DEST
#is the directory where the copy should be placed.

$DATE=`date`;
@WORDS=split(" ",$DATE);
$DIRNAME="reposBackup@WORDS[@ARGV[0]]";
if ( -e "@ARGV[2]/$DIRNAME") {
	system "rm -r @ARGV[2]/$DIRNAME";
}
system "cp -r @ARGV[1] @ARGV[2]/$DIRNAME";
system "cp @ARGV[1]/db/log* @ARGV[2]/$DIRNAME/db";
system "svnadmin recover @ARGV[2]/$DIRNAME";