>А скриптиком не поделишься? :) прежде чем прикручивать скрипт неплохо бы убедиться что перезагрузка модема спасает....
скрипт перезагрузки модема на перле readsl.pl:
#!/usr/bin/perl
## Connect and login.
use Net::Telnet ();
$passwd = new Net::Telnet (Dump_Log => "/var/log/readsl.log",
-timeout => 2,
-output_record_separator => "\r",
-telnetmode => 0,
-cmd_remove_mode => 1);
$passwd->errmode("return");
$passwd->open("192.168.1.1");
$passwd->waitfor('/login: ?$/i') or die "no password prompt: ", $passwd->lastline;
$passwd->print("root\r");
$passwd->waitfor('/assword: ?$/i') or die "bad old password: ", $passwd->lastline;
$passwd->print("admin\r");
$passwd->waitfor('/help/') or die "bad prompt: ", $passwd->lastline;
sleep(1);
$passwd->print("reboot\r");
sleep(1);
$passwd->close();
скрипт для соединения с adsl (через pppd)
#!/bin/bash
while [ true ]; do
/usr/sbin/pppd pty '/usr/sbin/pppoe -I eth0 -T 80 -U -m 1412 ' ipparam ppp0 linkname ppp0 noipdefault noauth default-asyncmap defaultroute hide-password nodetach usepeerdns mtu 1492 mru 1492 noaccomp noccp nobsdcomp nodeflate nopcomp novj novjccomp user xxxx password xxxx lcp-echo-interval 20 lcp-echo-failure 3 debug
/root/readsl.pl
sleep 100
done