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 28 29 30
|
#!/usr/bin/perl
use Net::Telnet;
unless (open ($file, "switch.txt")) { die ("cannot open file Switch.txt\n"); } #fichier qui contient les adresses et noms des switchs
unless (open ($logfile, ">>syslog.txt")) { die ("cannot open file Log.txt\n"); } #fichier qui contient les sessions telnet échouées
while ($line = <$file>)
{
($HOST, $NAME, $CODE, $RADIUS) = split(/;/, $line);
if ($TELNET->open($HOST) && $CODE eq 'switch' && $RADIUS eq 'yes' )
{
.
.
.
.
.
}
else
{
.
.
}
}
close ($file);
<>; #Garde la fenêtre ouverte après la fin de l'exécution du script |
Partager