
#!/usr/bin/perl
use DBI;

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


 @home_array=split(" ",`df -h |grep / |head -n1`);

sub update_home {
  my $dbh = DBI->connect($db, $username, $pass);
  my $sql = "UPDATE tmdhost SET home ='$home_array[2]/$home_array[1] ($home_array[4])' where srv='$myname';";
  my $sth = $dbh->prepare($sql);
  $sth->execute or die "SQL error: $DBI:errstr\n";
  $dbh->disconnect;
}

 
  @backup_array=split(" ",`df -h |grep backup`);

sub update_backup {
  my $dbh = DBI->connect($db, $username, $pass);
  my $sql = "UPDATE tmdhost SET bkp ='$backup_array[2]/$backup_array[1] ($backup_array[4])' where srv='$myname';";
  my $sth = $dbh->prepare($sql);
  $sth->execute or die "SQL error: $DBI:errstr\n";
  $dbh->disconnect;
}

  @tmp_array=split(" ",`df -h |grep tmp`);

sub update_tmp {
  my $dbh = DBI->connect($db, $username, $pass);
  my $sql = "UPDATE tmdhost SET tmp ='$tmp_array[2]/$tmp_array[1] ($tmp_array[4])' where srv='$myname';";
  my $sth = $dbh->prepare($sql);
  $sth->execute or die "SQL error: $DBI:errstr\n";
  $dbh->disconnect;
}

update_home;
update_backup;
update_tmp;