root/branches/newmole/scripts/svnbackup.pl

#!perl -w
# in above -w turns on some warnings

# perl script to back up the cloudy source files onto a different computer
# this is automatically executed once per week, early Saturday morning
# files go to cdrw_dir which should be an accessible cdrw drive,
# and also to out_dir

# bring in the perl module that includes copy
use File::Copy;

# the cluster disk drive where the repost live, we will back this up
$c = "u";
# location of repose on cluseter
$repo = "$c:/svn/cloudy";

# this is the letter of the cdrw drive on the network 
# this now (mid '05) is on thunder 
# on 05 oct 01 free space on cloudy_bk was 664 mb full space 703mb
# $cdrw_dir = "j:/";

# this is the large raid drive on lightning
$raid_drive = "c:/storage/backup/svn/";

# get current time and date
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
                                            gmtime(time);
# create name for dump file
$dumpfile = "$raid_drive"."$year"."$mon"."$mday".".svn" ;

# do the dump into the local file
system( "svnadmin dump $repo > $dumpfile " );

# compress the puppy
system("gzip $dumpfile " );

# copy it to raid drive
#copy( "$dumpfile".".gz" , "$raid_drive"."$dumpfile"."gz" );

# copy to cd
# copy( "$dumpfile".".gz" , "$cdrw_dir"."$dumpfile.gz" );

#unlink( "$dumpfile".".gz" );