Opened by Gast at 2006-01-27 10:47
Hi @all,
habe ein kleines Problem. Will per Perl Script auf mehrere Router zugreifen (nach einander). Dabei verwende ich telnet. Weiterhin sollen auf dem Router dann eine Reihe von Befehlen ausgeführt werden. Das alles stellt noch nicht das Problem dar. Ein entsprechendes Script habe ich gebastelt. Jedoch wenn ich einen Befehl auf dem Router ausführe bekomme ich vom Router eine Frag ob ich die Aktion wirklich ausführen will. Hier hat man, wenn man direkt per Console oder Remotezugriff auf dem Router ist, die Auswahl zwischen y/[n]. Da ich den Befehl wirklich ausführen will tippe ich ja y nur wie bekomme ich das in das Script rein??? Hat jemand eine Ahnung. Hier seht ihr den entsprechenden Auszug aus dem Script.
Wie ihr seht handelt es sich bei dem Router um einen Netscreen. Deswegen habe ich auch das Modul Net::Telnet::Netscreen verwendet. Jedoch sollte das keinen Unterschied zum normalen Net::Telnet Modul darstellen. Mit dem oben gezeigten Code funktioniert es leider nicht. Habt ihr eine Ahnung???
habe ein kleines Problem. Will per Perl Script auf mehrere Router zugreifen (nach einander). Dabei verwende ich telnet. Weiterhin sollen auf dem Router dann eine Reihe von Befehlen ausgeführt werden. Das alles stellt noch nicht das Problem dar. Ein entsprechendes Script habe ich gebastelt. Jedoch wenn ich einen Befehl auf dem Router ausführe bekomme ich vom Router eine Frag ob ich die Aktion wirklich ausführen will. Hier hat man, wenn man direkt per Console oder Remotezugriff auf dem Router ist, die Auswahl zwischen y/[n]. Da ich den Befehl wirklich ausführen will tippe ich ja y nur wie bekomme ich das in das Script rein??? Hat jemand eine Ahnung. Hier seht ihr den entsprechenden Auszug aus dem Script.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
sub ripout
{
my $a = "$path/log/".$host."-".$wan."_in.stat";
my $b = "$path/log/".$host."-".$wan."_out.stat";
my $session = Net::Telnet::Netscreen->new(
Host => $wan,
Timeout => "90",
Input_log => $a,
Output_log => $b
);
#einloggen auf der CPE
$session->login('xy', 'zzzzz');
$a="set vrouter trust-vr";
$b="unset protocol rip";
$c="y";
$f="exit";
$d="save";
$e="exit";
$session->cmd($a);
$session->cmd($b);
$session->cmd($c);
$session->cmd($f);
$session->cmd($d);
$session->cmd($e);
$session->close;
}
Wie ihr seht handelt es sich bei dem Router um einen Netscreen. Deswegen habe ich auch das Modul Net::Telnet::Netscreen verwendet. Jedoch sollte das keinen Unterschied zum normalen Net::Telnet Modul darstellen. Mit dem oben gezeigten Code funktioniert es leider nicht. Habt ihr eine Ahnung???