sludge_scripts/backup.pl - diff

Return to backup.pl CVS log

Up to [Local Repository] / sludge_scripts

version 1.1, 2011/06/22 20:12:58	version 1.2, 2011/06/23 13:32:48
Line 3	Line 3
use strict;	use strict;
use Data::Dumper;	use Data::Dumper;

my $VERSION = "\$Id\$";	my $VERSION = q/$Id$/;
my $REMOTE = "nick\@demandred.dyndns.org";	my $REMOTE = "nick\@demandred.dyndns.org";
my $OPTIONS = "-avxz\ -e\ ssh\ --delete";	my $OPTIONS = "-avxz\ -e\ ssh\ --delete";
my $RSYNC = "/usr/bin/rsync";	my $RSYNC = "/usr/bin/rsync";
Line 47 foreach my $backup ( keys %DIRS )	Line 47 foreach my $backup ( keys %DIRS )
my $dest = $BACKUP_DIR . "/" . $backup;	my $dest = $BACKUP_DIR . "/" . $backup;
my $command = "/usr/bin/rsync $OPTIONS \"$REMOTE:$dir\" $dest";	my $command = "/usr/bin/rsync $OPTIONS \"$REMOTE:$dir\" $dest";
print "Backing up $REMOTE:$dir to $dest\n$command\n";	print "Backing up $REMOTE:$dir to $dest\n$command\n";
system( "mkdir -p $backup" );	system( "mkdir -p $dest" );
system( $command );	system( $command );
}	}
}	}