#!/usr/bin/perl

use strict;
use warnings;

use DBI;
use Net::Telnet::Cisco;

sub get_router_conf($)
{
  my $router=shift(@_); 
  my $session = Net::Telnet::Cisco-> new (Host  => $router->{ip});
  # Konfiguration lesen
  # keine Ahnung welche Daten du haben willst
  my @out = $session->cmd('show system:/running-config');
  return join("\n",@out);
}

my $host='192.168.0.1';
my $db='router';
my $user='ToPeG';
my $pass='getpo57';
my $dbistr="DBI:mysql:$db:$host";

my @routerlist=[
    {name=>'R1', ip=>'20.100.10.99'},
    {name=>'R2', ip=>'20.200.30.80'},
    {name=>'R3', ip=>'20.200.20.100'}
];

my $dbh = DBI->connect($dbistr,$user,$pass) or die $DBI::errstr();
my $query='INSERT INTO Router_Config (ID,Name,IP,Config) VALUES (?,?,?,?)';
my $sth = $dbh->prepare($query) or die $dbh->errstr();
for my $router (@routerlist)
{
  my $config=get_router_conf($router);
  $sth->execute('', $router->{name}, $router->{ip}, $config) or die $dbh->errstr();
}
$sth->finish() or die $dbh->errstr();
$dbh->disconnect();