Return to backup.pl CVS log

Up to [Local Repository] / sludge_scripts

Annotation of sludge_scripts/backup.pl, revision 1.1

1.1     ! nick        1: #!/usr/bin/perl -w
        !             2: 
        !             3: use strict;
        !             4: use Data::Dumper;
        !             5: 
        !             6: my $VERSION    = "\$Id\$";
        !             7: my $REMOTE     = "nick\@demandred.dyndns.org";
        !             8: my $OPTIONS    = "-avxz\ -e\ ssh\ --delete";
        !             9: my $RSYNC      = "/usr/bin/rsync";
        !            10: my $LOGDIR     = $ARGV[0] || "/home/backup/logs";
        !            11: my $DATE       = `date +%Y%m%d`;
        !            12: my $BACKUP_DIR = "/home/backup/backups";
        !            13: 
        !            14: my %DIRS = (
        !            15:                demandred => [
        !            16:                        "/home/nick/database-backup.dump.gz",
        !            17:                        "/home/nick/database-backup.dump.yesterday.gz",
        !            18:                        "/home/nick/DroidBackups",
        !            19:                        "/home/cvs",
        !            20:                        "/home/nick/bbs",
        !            21:                        "/home/nick/notes",
        !            22:                        "/home/httpd",
        !            23:                        "/home/nick/Documents",
        !            24:                        "/home/nick/mail",
        !            25:                        "/home/nick/mail-backup",
        !            26:                ],
        !            27:                winshare => [
        !            28:                        "/home/winshare/Documents",
        !            29:                        "/home/winshare/Pictures",
        !            30:                        "/home/winshare/Receipts",
        !            31:                        "/home/winshare/Shared\\ Docs",
        !            32:                        "/home/winshare/Backgrounds",
        !            33:                ],
        !            34:                lanfear => [
        !            35:                        "/home/backup/systems/lanfear/home/nick/Documents",
        !            36:                        "/home/backup/systems/lanfear/home/nick/Receipts",
        !            37:                        "/home/backup/systems/lanfear/home/nick/Nick\\'s\\ Pictures",
        !            38:                        "/home/backup/systems/lanfear/home/nick/projects",
        !            39:                        "/home/backup/systems/lanfear/home/nick/notes",
        !            40:                ],
        !            41: );
        !            42: 
        !            43: foreach my $backup ( keys %DIRS ) 
        !            44: {
        !            45:        foreach my $dir ( @{ $DIRS{$backup} } ) 
        !            46:        {
        !            47:                my $dest    = $BACKUP_DIR . "/" . $backup;
        !            48:                my $command = "/usr/bin/rsync $OPTIONS \"$REMOTE:$dir\" $dest";
        !            49:                print "Backing up $REMOTE:$dir to $dest\n$command\n";
        !            50:                system( "mkdir -p $backup" );
        !            51:                system( $command );
        !            52:        }
        !            53: }