
#!/usr/local/bin/perl
   use DBI;
   use LWP::Simple;
my $db = 'DBI:mysql:monitoring:74.200.74.237';
my $username = 'backupstatus';
my $pass = 'dAtIebAmAikata';

 $myname=`hostname`;
  chomp($myname);
  my $raw_amount=`ls -al /var/cpanel/users/|wc -l > /home/tmdhosti/www/acc_amount`;
  chomp($raw_amount);
   $amount= get("http://$myname/acc_amount");
  my $dbh = DBI->connect($db, $username, $pass);
  my $sql = "UPDATE acc_stats SET acc_amount='$amount[0]',lastupdate = now() where srv='$myname';";
  my $sth = $dbh->prepare($sql);
  $sth->execute or die "SQL error: $DBI:errstr\n";
  $dbh->disconnect;

print "$amount \n";