Как реализовать проверку инетнет каналов ?

[ulan44]

Как реализовать данное чудо на perl ?
задача такова
есть интернет канал, и время от времени падает, нужно чтобы скрипт как-нибудь сек что интернет упал и писал в лог фаил ?

[pterodaktil]

Самый простой метод пинг. Пингуешь скажем шлюз прова  Не пингуется - it's dead

[ulan44]

Самый простой метод пинг. Пингуешь скажем шлюз прова  Не пингуется - it's dead

А поподробнее можно хотя бы мааальнекий примерчик
заранее спасибо.
Пользователь решил продолжить мысль 20 Октября 2009, 08:13:42:От налобал по быстрому... но чет не работает все равно
В общем имею два инет канала и нужно чтобы были всегда подняты так вот ip и интерфейсы забираются с mysql бызы
но при выполнении скрипа почему то даже если при не работающем канале все равно показывает что все ок хотя на самом деле он не работает =(

#!/usr/bin/perl -w

use FindBin;
use lib $FindBin::Bin;
require 'inc/db.pl';
$db=Connect();
$q=$db->prepare("select gate, iface from gateway");
$q->execute;
while (($gate, $iface) = $q->fetchrow_array()) {
system("
ping -q -c 2 $gate -I $iface > /dev/null
if [ $& -eq 0]; then
echo 'Filed\t $iface'
else
echo 'Its ok\t $gate\t $iface'
fi
");
}
$q->finish();
$db->disconnect();

[Lion-Simba]

Решение по подобному вопросу:
https://forum.ubuntu.ru/index.php?topic=33478.msg323680#msg323680

[ulan44]

я б хотел реализовать на perl и вот что еще странно
вот эта часть кода в bash работает замечательно толко в место gate и iface подставить значения

Код: [Выделить]

ping -q -c 2 $gate -I $iface > /dev/null
if [ $& -eq 0]; then
echo 'Filed\t $iface'
else
echo 'Its ok\t $gate\t $iface'
fi
а когда в perl делаешь так он от балды ставит статусы хз пока куда копать

[AnrDaemon]

Да не нужен перл - простого /bin/sh хватит.

[ulan44]

пока сделал так

Код: [Выделить]

#!/bin/sh

GW1="83.234.xxx.xxx";
IF1="eth0"

ping -c 3 -q $GW1 -I $IF1 > /dev/null
if [ $? -eq 0 ]; then
echo "$GW1      $IF1    up" >> /usr/local/scripts/utils/tmp/log_eth0;
 else
beep -f 1000 -n -f 2000 -n -f 2000
echo `date`     "$GW1   $IF1    down" >> /usr/local/scripts/utils/tmp/log_eth0;
fi
при падении канала будет и лог с времени писать + будет пищать системный динамик...
А про perl пока так и не понял, почему он выборочно ставить что интерфейс down или up,
хотя есть кое какое предположение, что не ставиться $iface в месте с ip принадлежащем данному интерфейсу
то есть если пинговать например 1.1.1.1 с интерфейсом eth0 допустим то интерфейс будет up,
так вот когда пинговать 2.2.2.2 который должен принадлежать интерфейсу eth1 то скорее всего он пингует его по интерфейсу опять таки через eth0...