
#!/usr/local/bin/perl
 use DBI;
my $db = 'DBI:mysql:tmdhost_bluebill:174.133.93.178';
my $username = 'statskeeper';
my $pass = 'zbYDLbrESmcuNucw';
 $myname=`hostname`;
chomp($myname);

my $db1 = 'DBI:mysql:monitoring:74.200.74.237';
my $username1 = 'backupstatus';
my $pass1 = 'dAtIebAmAikata';


sub insert_to_db {
 my $dbh3 = DBI->connect($db1, $username1, $pass1);
my $sql3 =  "INSERT INTO accmatches (`id` ,`server` ,`username` ,`domain`) VALUES (NULL , '$myname', '$userfile', '$prdomain');";
 my $sth3 = $dbh3->prepare($sql3);
    $sth3->execute or die "SQL error: $DBI:errstr\n";
    $dbh3->disconnect;
}

sub make_db_clean {

 my $dbh4 = DBI->connect($db1, $username1, $pass1);
 my $sql4 = "DELETE FROM accmatches where server='$myname';";
 my $sth4 = $dbh4->prepare($sql4);
    $sth4->execute or die "SQL error: $DBI:errstr\n";
    $dbh4->disconnect;
}


sub get_server_id {
   my $dbh = DBI->connect($db, $username, $pass);
   my $sql1 = "SELECT id from tblservers where name='$myname';";
   my $sth = $dbh->prepare($sql1);
   $sth->execute or die "SQL error: $DBI:errstr\n";;
   while (my @data = $sth->fetchrow_array) {
    $serverid = $data[0];
    chomp($serverid);
     print "Server name: $myname with ID $serverid \n";
 }
}


sub crawlfiles {
 @userfiles=`ls -A1 /var/cpanel/users`;
   chomp(@userfiles);
foreach $userfile(@userfiles)
 {
 open USERFILE, "<", "/var/cpanel/users/$userfile" or die $!;
  @userfiledata=(<USERFILE>);
   chomp(@userfiledata);
    foreach $line(@userfiledata) { 
      if ( $line =~/OWNER/ ) { 
      ($junk,$cpowner) = split("=",$line); 
    } 
      if ( $line =~/DNS=/ ) {
      ($junk,$prdomain) = split("=",$line);        
      } else {
        next; 

       }
# print "Server with id $serverid and hostname $myname. User $userfile with domain $prdomain owned by $cpowner \n";
  my $dbh = DBI->connect($db, $username, $pass);
   my $sql2 = "SELECT count(*) FROM tblhosting where username='$userfile' and server='$serverid';";
   my $sth = $dbh->prepare($sql2);
   $sth->execute or die "SQL error: $DBI:errstr\n";;
   while (my @data2 = $sth->fetchrow_array) {
    $existing = $data2[0];
    chomp($existing);
     if ($existing =~ /0/) {
 print "Server with id $serverid and hostname $myname. User $userfile with domain $prdomain owned by $cpowner \n";
 print "--- [NOT Existing] --- \n"; 
  insert_to_db;
   } else {
 #print "Server with id $serverid and hostname $myname. User $userfile with domain $prdomain owned by $cpowner \n";
 # print "+++ [Existing] +++ \n";
 } 
}
      }
    }
  close (USERFILE);
    }
&make_db_clean;
&get_server_id;
&crawlfiles;