
#!/usr/bin/perl
$SendmailPath = '/usr/sbin/sendmail';
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);
}

$hostname=`hostname`;
 chomp($hostname);

sub homes_starting {
     sendmail('support.reports@tmdhosting.com', 'backup@tmdhosting.com', "[$hostname] Home folders backup is starting", 'Home folders backup is starting');
}
sub homes_finished {
     sendmail('support.reports@tmdhosting.com', 'backup@tmdhosting.com', "[$hostname] Home folders backup is completed", 'Backup completed succesffully');
}
sub sqldumps_starting {
     sendmail('support.reports@tmdhosting.com', 'backup@tmdhosting.com', "[$hostname] SQL dumps Backup is starting", 'SQL dumps backup is starting');
}
sub sqldumps_finished {
     sendmail('support.reports@tmdhosting.com', 'backup@tmdhosting.com', "[$hostname] SQL dumps Backup completed", 'Backup completed succesffully');
}
sub configs_started {
     sendmail('support.reports@tmdhosting.com', 'backup@tmdhosting.com', "[$hostname] Configs Backup is starting", 'Configs backup is starting');
}
sub configs_finished {
     sendmail('support.reports@tmdhosting.com', 'backup@tmdhosting.com', "[$hostname] Configs Backup completed", 'Backup completed succesffully');
}

sub start_configs {
  configs_started;
#  system("/usr/local/sbin/backup_configs.pl");
#  system("/usr/local/sbin/backup_cpanel_stuff.pl");
  configs_finished;
}

sub start_homes {
  homes_starting;
$now = localtime;
 ($day, $month, $time, $year) = split(" ", $now);
   chomp($day);
if ($day =~/Wed/) {
   system("/usr/local/sbin/backup_homes_wed.pl");
  } else {
 if ($day =~/Sun/){
   system("/usr/local/sbin/backup_homes_wed.pl");
 }
}
 homes_finished;
}

sub start_sqldumps {
  sqldumps_starting;
  system("/usr/local/sbin/local_mysql_backup.pl");
  sqldumps_finished;
}

start_configs;
start_sqldumps;
start_homes;