Using perl Syntax Highlighting
sub reload {
my $session = Net::Telnet::Cisco->new(Host => 'x.x.x.x');
$session->login('user', 'pass');
#Enable mode
if($session->enable("passenable")) {
@output = $session->cmd('reload');}
else {
warn "Can't enable: " . $session->errmsg;}
my $session = Net::Telnet::Cisco->new(Host => 'x.x.x.x');
$session->login('user', 'pass');
#Enable mode
if($session->enable("passenable")) {
@output = $session->cmd('reload');}
else {
warn "Can't enable: " . $session->errmsg;}
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
esta función funciona casi perfectamente porque se tranca cuando quiere hacer el reload ya que luego el programa escribe reload, espera una confirmación (enter), pero no sé hacerlo. ¿Alguien tiene alguna pista?
¡GRACIAS A TODOS!
