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

use strict;
use warnings;
use DBI;
use Net::Telnet::Cisco;
our $dbh;

my $session = Net::Telnet::Cisco-> new (Host  => '10.200.2.105');

####################Verbindung##############
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";

getRouter ('1','r1','20.100.2.100' ,'router');


$dbh->disconnect;  

##########################################

sub get Router{

my $name=shift;
my $ip=shift;
my $user=shift;
my $pwd=shift;
 my @output
my ($query,$sth,$sth1,$execu,$newdata,$ds,$summe);



$query = "UPDATE GATE_STATE SET STATE.Time=NOW()  WHERE STATE.Name='$name'  AND IP='$ip' ORDER BY STATE.Time DESC LIMIT 1";
        $sth1=$dbh->prepare($query) or die "Querry Error prepare: $DBI::errstr\n";
        $sth1->execute or die "Querry Error execute: $DBI::errstr\n";
        $sth->finish();

 $query = "INSERT INTO Router(ID,Name,IP,State,Config) VALUES ('','$name',$ip,'UP','@output')";
        $sth1 = $dbh->prepare($query) or die "Error in query prepare: $DBI::errstr\n";
        $sth1->execute or die "Error executing query: $DBI::errstr\n";
        $sth->finish();


}