Posted 06 July 2012 - 05:00
Posted 06 July 2012 - 12:45
Posted 06 July 2012 - 19:54
Posted 06 July 2012 - 20:58
xendrome, on 06 July 2012 - 12:46, said:
Posted 06 July 2012 - 21:01
Posted 06 July 2012 - 21:16
#!/usr/bin/perl
use Net::Telnet;
$router = "192.168.0.1";
$usename = "***";
$password = "***";
$reboot_cmd = "reboot";
$telnet = new Net::Telnet ( Timeout=>10, Errmode=>'die', prompt => '/>/');
print "Logging into router $router..\n";
$telnet->open($router);
$telnet->login($usename, $password);
print "Logged into $router..\n";
print "Rebooting router. This may take a few minutes to complete.\n";
$telnet->print($reboot_cmd);
$telnet->close;
system("sudo rc.d stop networkmanager");
sleep(70);
system("sudo rc.d start networkmanager");
sleep(35);
print "Router reboot complete.\n";
Posted 06 July 2012 - 21:17
Posted 06 July 2012 - 21:31
Posted 06 July 2012 - 21:47
lars77, on 06 July 2012 - 21:31, said:
Posted 16 July 2012 - 06:38