
#!/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 home`);

sub update_home {
  my $dbh = DBI->connect($db, $username, $pass);
  my $sql = "UPDATE hdd_stats SET 
  lastupdate = now(), 
  srv='$myname', 
  fs_type='$home_array[0]',
  total_size='$home_array[1]', 
  used_space='$home_array[2]', 
  available_space='$home_array[3]', 
  usage_percentage='$home_array[4]', 
  mount_point='$home_array[5]' 
  where srv='$myname' AND mount_point='/home';";
  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 hdd_stats SET 
  lastupdate = now(), 
  srv='$myname', 
  fs_type='$backup_array[0]', 
  total_size='$backup_array[1]', 
  used_space='$backup_array[2]', 
  available_space='$backup_array[3]', 
  usage_percentage='$backup_array[4]', 
  mount_point='$backup_array[5]' 
  where srv='$myname' AND mount_point='/backup';";
  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 hdd_stats SET
  lastupdate = now(),
  srv='$myname',
  fs_type='$tmp_array[0]',
  total_size='$tmp_array[1]',
  used_space='$tmp_array[2]',
  available_space='$tmp_array[3]',
  usage_percentage='$tmp_array[4]',
  mount_point='$tmp_array[5]'
  where srv='$myname' AND mount_point='/tmp';";
  my $sth = $dbh->prepare($sql);
  $sth->execute or die "SQL error: $DBI:errstr\n";
  $dbh->disconnect;
}

update_home;
update_backup;
update_tmp;