Скрипт проверки и переподключения ppp соединения
Добавлено: 31 мар 2010, 10:42
Код: Выделить всё
#!/usr/bin/perl
chomp($isi=`/sbin/ping -c 3 "IP адрес (я ставил ДНС прова)"|grep "64 bytes"|wc -l`);
if (not($isi>0)) {
system("date");
printf("Restart Inet\n");
system("/usr/bin/killall ppp");
sleep(5);
system('/usr/sbin/ppp -ddial inet");
