
#!/usr/bin/perl
use DBI;

my $db = 'DBI:mysql:monitoring:74.200.74.237';
my $username = 'backupstatus';
my $pass = 'dAtIebAmAikata';
$myname=`hostname`;
chomp($myname);

$state1 = 'running';
  chomp($state1);
$state2 = 'finished';
  chomp($state2);
$backuptype = 'cpanel stuff';
  chomp($backuptype);

sub set_letter {
  my $dbh = DBI->connect($db, $username, $pass);
  my $sql = "UPDATE backupstatus SET letter='$content', loadavg='$loadavg', backuptype='$backuptype', lastupdate = now() where srv='$myname';";
  my $sth = $dbh->prepare($sql);
  $sth->execute or die "SQL error: $DBI:errstr\n";
  $dbh->disconnect;
}

sub set_start {
   my $dbh = DBI->connect($db, $username, $pass);
   my $sql1 = "UPDATE backupstatus SET backupstate='$state1' where srv='$myname';";
   my $sth = $dbh->prepare($sql1);
   $sth->execute or die "SQL error: $DBI:errstr\n";
   $dbh->disconnect;
}

sub set_end {
   my $dbh = DBI->connect($db, $username, $pass);
   my $sql2 = "UPDATE backupstatus SET backupstate='$state2' where srv='$myname';";
   my $sth = $dbh->prepare($sql2);
   $sth->execute or die "SQL error: $DBI:errstr\n";
   $dbh->disconnect;
}

sub set_load {
 $loadavg=`c`;
 chomp($loadavg);
}

sub conduct1 {
 @cpfilesdir=`ls -A1 /var/cpanel/users`;
   my $dbh = DBI->connect($db, $username, $pass);
   my $sql3 = "SELECT destination from backupmap where source='$myname';";
   my $sth = $dbh->prepare($sql3);
   $sth->execute or die "SQL error: $DBI:errstr\n";;
   while (my @data = $sth->fetchrow_array) {
    my $destination = $data[0];
    chomp($destination); 
    foreach $content(@cpfilesdir){
   chomp($content);
   print "$now Started backup for $content \n"; 
   set_load;
   set_letter;
   system(" rsync -e ssh -avz /var/cpanel/users/$content $destination:/backup/$myname/cpanel_stuff/users/");  
   print "$now Finished backup for $content \n";
  }
 }
}

sub conduct2 {
 @valiasesdir=`ls -A1 /etc/valiases/`;
   my $dbh = DBI->connect($db, $username, $pass);
   my $sql3 = "SELECT destination from backupmap where source='$myname';";
   my $sth = $dbh->prepare($sql3);
   $sth->execute or die "SQL error: $DBI:errstr\n";;
   while (my @data = $sth->fetchrow_array) {
    my $destination = $data[0];
    chomp($destination);
    foreach $content(@valiasesdir){
   chomp($content);
   print "$now Started backup for $content \n";
   set_load;
   set_letter;
   system(" rsync -e ssh -avz /etc/valiases/$content $destination:/backup/$myname/cpanel_stuff/valiases/");
   print "$now Finished backup for $content \n";
  }
 }
}

sub conduct3 {
   my $dbh = DBI->connect($db, $username, $pass);
   my $sql3 = "SELECT destination from backupmap where source='$myname';";
   my $sth = $dbh->prepare($sql3);
   $sth->execute or die "SQL error: $DBI:errstr\n";;
   while (my @data = $sth->fetchrow_array) {
    my $destination = $data[0];
    chomp($destination);
   set_load;
   set_letter;
  system(" scp /etc/*domains $destination:/backup/$myname/cpanel_stuff/domain_files/");
 }
}

set_start;
conduct1;
conduct2;
conduct3;
set_load;
set_end;