Ой, я прям прослезился


А что такое "обрыв звязи", может лучше лог закинуть? И уже не факт, что последняя прошивка будет работать лучше предыдущей. Тут где-то в соседней теме хороший человек доступно о сплитерах/фильтрах рассказал, прочти.


Зачем zoc (там язык хитрозадый), достаточно plink+vbscript. Хотя мне тоже интересно, какой командой можно перегрузить pppd.

to alexc


А чего его закидывать? Проблема у многих возникает.



Тем не менее, служба поддержки будет рекомендовать переходить на новую прошивку.


to Gusakov_Dmitry


Телнет лучше не использовать, лучше использовать ssh. Просто так написать скрипт уровня bat не получится, надо передать пароль в ответ на запрос сервера (модема). А вот на perl буквально несколько строчек вместо того "безобразия" что приводилось выше. Могу кинуть скрипт.

Следующий скрипт не заработал, я разбиратся не стал, так как модуль Net::SSH::Expect еще сырой, надо писать разработчику:
#!/usr/bin/perl
# cat > /etc/ppp/restartADSL2.pl
# chmod 500 /etc/ppp/restartADSL2.pl
use Net::SSH::Expect;
print("ADSL action ... ");
my $ssh = Net::SSH::Expect->new (
host => "192.168.1.1",
password=> 'Your password',
user => 'root',
raw_pty => 1,
);
my $login_output = $ssh->login();
my $ls = $ssh->exec("reboot");
print($ls);
$ssh->close();
print("done\n");
#---------------------------------------------------
А вот этот скрипт заработал (я использовал более низкий уровень):
#!/usr/bin/perl
# cat > /etc/ppp/restartADSL.pl
# chmod 500 /etc/ppp/restartADSL.pl
use Expect;
print("ADSL action ... ");
my $timeout = 1; my $spawn_ok;
my $exp = new Expect;
$exp->raw_pty(1); $exp->log_stdout(0);
$exp->spawn("ssh -l root 192.168.1.1")
or die "Cannot spawn ssh: $!\n";
$exp->expect($timeout,
[
qr 'password: $',
sub {
$spawn_ok = 1; my $fh = shift;
$fh->send("Your password\n");
exp_continue;
}
],
[
eof =>
sub {
if ($spawn_ok) {
die "ERROR: premature EOF in login.\n";
} else {
die "ERROR: could not spawn ssh.\n";
}
}
],
[
timeout =>
sub {
die "No login.\n";
}
],
'-re', qr'[#] $',
);
$exp->send("reboot\n");
$exp->soft_close();
print("done\n");
#---------------------------------------------------

Но естественно, если так жестко перегрузить модем на работающей линии, то Стрим заблокирует вход на 10 минут, поэтому желательно сначала закрыть сесию.

Как всё сложно. Разве телнет в 500-м уже отменили? Imho, куда проще в командной строке всё необходимое делать.

to CeTKo


Без разницы чем ребутить - телентом или ssh. И в том и другом случае необходимо ввести ручками пароль. А это приводит к том, что обычным скриптом, без дополнительной внешней программы, это сделать нельзя.

Ну а ssh лучше телнета или http тем, что пароль в открытом виде по сети не передается.

Я не о скрипте говорил - это-то понятно, что он нужен. Решение для telnet/ssh получается заметно проще, чем парсинг html-я - те же putty и teraterm умеют и ssh, и выполнять скрипты.

to CeTKo

Насчет teraterm не знаю, а вот в putty - пароль ручками imho

В putty куда удобнее пользоваться ключами (pagent). Либо есть kitty (по-моему так пишется), которая умеет сама пароль передавать.

to CeTKo

Интересно, а куда Вы ключ на модеме пропишите?....

Если бы это было возможно, проблем вообще бы не было, а обычные батники или sh скрпиты пошли бы на ура....

Когда-то я на скорую руку такой скриптик сваял, может кому пригодится:

---
#!/usr/bin/perl
use Net::Telnet;
$t=new Net::Telnet (timeout=>5);
$t->open("ip модема"); $t->login("логин","пароль");
$t->errmode("return"); $t->cmd("reboot");
---

Но "отладить" не успел - из командной строки запускаешь - модем на ура перегружается. А из cronа - фиг. Быстро понять почему не получилось.