
#!/usr/bin/perl

$myname='node01.tmdhosting510.com';
 chomp($myname);
$destination='node01.tmdhosting610.com';
 chomp($destination);
$log='/var/log/backup.log';
 chomp($log);
$now=localtime; 
$SendmailPath='/usr/sbin/sendmail';

sub startlog {
    open LOG, ">> $log" or die "Can't open $log : $!";
    print LOG "$now Starting backup for $config --> $destination:/backup/$myname/configs/$config \n";
    close LOG;
}

sub endlog {
    open LOG, ">> $log" or die "Can't open $log : $!";
    print LOG "$now Finished backup for $config --> $destination:/backup/$myname/configs/$config \n";
    close LOG;
}

sub sendmail {
        my ($to, $from, $subj, $msg) = @_;
        open (MAIL, "|$SendmailPath -t -n")|| die "Error! Can't use sendmail\n";
        print MAIL "To: $to\n";
        print MAIL "From: $from\n";
        print MAIL "Subject: $subj\n";
        print MAIL "Reply-To: $from\n\n";
        print MAIL "$msg\n";
        close (MAIL);
 }

sub notify_when_done {
     sendmail('fwd@tmdhosting.com', 'backup@tmdhosting.com', 'Config Backup completed', 'Backup completed succesffully');
}
@configs=("/etc/httpd/conf/httpd.conf","/etc/exim.conf","/var/cpanel/features/default","/etc/named.conf");
 sub backup_configs {
  foreach $config(@configs){
   chomp($config);
    startlog;
    system("rsync -e ssh -aHz --progress $config $destination:/backup/$myname/configs/");
    endlog;
 }
}

backup_configs;
#notify_when_done;