Hi ich hoffe mir kann jemand helfen.
Und zwar habe ich ein kleines Perl Script. Womit ich mich per SSH unter der hilfe von expect auf einen router einlogge.
Dort lasse ich dann ein config file ausgeben und speichere es in einer logdatei.
Das funktioniert auch soweit auf den meisten routern nur auf manchen will er einfach nicht die konfig ausgeben. weiß einer vielleicht woran das liegen könnte?
Hier ist der codeteil mit dem login.
Code
if (my $command = Expect->spawn("/usr/bin/ssh -l '".$username."' $HOST -o StrictHostKeyChecking=no"))
{
$r = $command->expect($timeout, -re => '[Pp]assword');
die "No 'password' prompt" unless defined $r;
$command->send_slow(0, "$pwd\n");
$r = $command->expect($timeout,'#');
die "No 'router' prompt" unless defined $r;
$command->send_slow(0, "terminal length 0\n");
$r = $command->expect($timeout,'#');
die "No 'transmit or receive' query" unless defined $r;
$command->send_slow(0, "show start\n");
$r = $command->expect($timeout,'#');
die "No 'perform tcp half close' query" unless defined $r;
$command->send_slow(0, "exit\n");
}