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

use strict;
use warnings;
use Mysql;


our $dbh;
my  @raw_data;
my  @sqldata;
my  $rc;

 sub Query{ 
 my $query;
 my $sth;     
 my $execu;    
 my $newdata;
my $ds;
my @ergebnisse;
my @row;
$query = "SELECT RC_CISCO.ID,  RC_CISCO.NEID,  RC_CISCO.TS,  RC_CISCO.BState,RC_CISCO.Data_CISCO,RC_CISCO.MD5 FROM RC_CISCO";

$sth = $dbh->prepare($query) or die "Querry Error prepare: $DBI::errstr\n";

    $ds = $sth->execute or die "Querry Error execute: $DBI::errstr\n";
 
    
    while(my @row  = $sth->fetchrow_array())
    {
        push(@ergebnisse,\@row);
     #print "ID:$newdata->{ID}  Name:$newdata->{NEID} Name:$newdata->{BState} Name:$newdata->{Data_CISCO} Name:$newdata->{MD5}\n";
    }
    
  $sth->finish();

}
      
  open(DAT, "../gate_common/MySQLAccount.txt") || die("Could not open SQL-Data-file!");
  
   @raw_data=<DAT>; 
   close(DAT);
   @sqldata = split(/:/, $raw_data[0]);
        print "host ".$sqldata[0]."\n"."user ".$sqldata[1]."\n"."pass ".$sqldata[2]."\n"."db   ".$sqldata[3]."\n";
   $dbh = DBI->connect("DBI:mysql:".$sqldata[3].":".$sqldata[0],$sqldata[1],$sqldata[2])|| die "Connect Error: $DBI::errstr()\n";
   
     Query;
    
   $rc = $dbh->disconnect;

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

use strict;
use warnings;
use DBI;
     
open(DAT, '<','../gate_common/MySQLAccount.txt') or  die"Could not open SQL-Data-file!";
my $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";

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

sub Query{
    my ($dbh) = @_;
    my @ergebnisse;
    my $query = "SELECT ID, NEID, TS,  BState, Data_CISCO, MD5 FROM RC_CISCO";
    my $sth = $dbh->prepare($query) or die "Querry Error prepare: $DBI::errstr\n";

    $sth->execute or die "Querry Error execute: $DBI::errstr\n";
   
     while(my @row  = $sth->fetchrow_array()){
#       push(@ergebnisse,\@row);
         print "@row\n";
    }   
    $sth->finish();
}