#!/usr/bin/perl -w
#DatenbankAbfragen

use strict;
use warnings;
use DBI;


my $dbh;
my  $raw_data;
my  $sqldata;
my  $rc;

open(DAT, '<','../gate_common/MySQLAccount.txt') or  die"Could not open SQL-Data-file!";
 $raw_data=<DAT>;
close(DAT);
chomp $raw_data;

my  ($host,$user,$pass,$db) = split(/:/, $raw_data);
print "host ".$host."\n"."user ".$user."\n"."pass ".$pass."\n"."db   ".$db."\n";

$dbh = DBI->connect("DBI:mysql:".$db.":".$host,$user,$pass) or die "Connect Error: $DBI::errstr()\n";

Query($dbh);
  
$dbh->disconnect;                                

 sub Query{ 
 my $query;
 my $sth;     
 my $execu;    
 my $newdata;
 my $NEID = 2923;
 my $ds;
 my @ergebnisse;
 my @row;

 
 
################RC-CISCO LETZTEN STATUS ABFRAGEN ####################################

$query = "SELECT * FROM RC_CISCO LEFT JOIN GATE_STATE ON RC_CISCO.NEID=GATE_STATE.NEID WHERE RC_CISCO.NEID=?  ORDER BY  RC_CISCO.ID DESC LIMIT 1;";
  $sth = $dbh->prepare($query) or die "$DBI::errstr\n";
  $sth->execute($NEID)or die "$DBI::errstr\n";

  while($newdata = $sth->fetchrow_array()){

if(not defined $newdata){
   $dbh->do("INSERT INTO RC_CISCO(NEID) VALUES(?)",undef,$NEID) or die $dbh->errstr();
}
  if(not defined $newdata){
   $dbh->do("INSERT INTO GATE_STATE(NEID) VALUES(?)",undef,$NEID) or die $dbh->errstr();
}


 while($newdata = $sth->fetchrow_hashref) 
    {
        print " Name:$newdata->{NEID}}\n";
    }
 $sth->finish();
}