
#!/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 = 'mysql dumps';
  chomp($backuptype);

sub set_letter {
  my $dbh = DBI->connect($db, $username, $pass);
  my $sql = "UPDATE backupstatus SET letter='$content', loadavg='$loadavg', backuptype='$backuptype' 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 make_dir {
   system("mkdir -p /backup/dumps");
}
sub make_clean {
   system("rm -rf /backup/dumps");
}
sub set_load {
 $loadavg=`c`;
 chomp($loadavg);
}

make_dir;
sub conduct {
 @sqls=`mysql -e \"show databases\"`; 
   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(@sqls){
   chomp($content);
   print "$now Started SQL backup for $content \n"; 
   set_load;
   set_letter;
   system("/usr/local/cpanel/bin/cpuwatch 7 ionice -c2 -n3 mysqldump $content > /backup/dumps/$content.sql");
   system("/usr/local/cpanel/bin/cpuwatch 7 ionice -c2 -n3 rsync -e ssh -avz /backup/dumps/$content.sql $destination:/backup/$myname/mysql/");  
   print "$now Finished SQL backup for $content \n";
 }
}
}
set_start;
conduct;
make_clean;
set_load;
set_end;