Отправляет email-рассылки с помощью сервиса Sendsay

Помогите со скриптом

Помогите написать скрипт по переключению каналов на perl или на шеле, в
oбщем... что собственно потребовалось: есть сетка с двумя интерфейсами -
eth1 и eth2 в общем есть два канала работают постоянно, но бывает что
один сильно забивается или вообще отключается, правда не на долго.
И если, скажем пингов 5-6 подряд `Destination Host Unreachable`, то
выполнить
`ifconfig eth(номер того интерфейса который не отработал) down`
потом проложить трассу с помошью уже готовых скриптов которые нужно
запустить из
/etc/sysconfig/static-routes
/etc/sysconfig/static-rules

Зарание спасибо.
-*Название листа "Linux: разрешение вопросов, перспективы и общение";
Написать в лист: mailto:comp.soft.linux.discuss-list@subscribe.ru
Адрес правил листа http://subscribe.ru/catalog/comp.soft.linux.discuss/rules
Номер письма: 7745; Возраст листа: 311; Участников: 1144
Адрес сайта рассылки: http://www.linuxrsp.ru
Адрес этого письма в архиве: http://subscribe.ru/archive/comp.soft.linux.discuss/msg/159666



-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.linux.discuss-list@subscribe.ru
Отписаться: mailto:comp.soft.linux.discuss--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

Ответить   Igor Galchevsky Tue, 01 Jun 2004 21:27:06 +0000 (#159666)

 

Ответы:

Блин, вы хоть скажите как пропинговать в Perl, или как перехватить
stdout в шелле.
-*Название листа "Linux: разрешение вопросов, перспективы и общение";
Написать в лист: mailto:comp.soft.linux.discuss-list@subscribe.ru
Адрес правил листа http://subscribe.ru/catalog/comp.soft.linux.discuss/rules
Номер письма: 7793; Возраст листа: 313; Участников: 1148
Адрес сайта рассылки: http://www.linuxrsp.ru
Адрес этого письма в архиве: http://subscribe.ru/archive/comp.soft.linux.discuss/msg/160774



-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.linux.discuss-list@subscribe.ru
Отписаться: mailto:comp.soft.linux.discuss--unsub@subscribe.ru

http://subscribe.ru/ mailto:ask@subscribe.ru

Ответить   Igor Galchevsky Wed, 02 Jun 2004 23:48:44 +0000 (#160774)

 

On Wed, 2 Jun 2004, Igor Galchevsky wrote:

Перехватить stdout:

$ping_out=`ping -c 1 a.b.c.d`;

Получить код завершения (и увидеть вывод на stdout):

$status = system("ping -c 1 a.b.c.d");

Ответить   Thu, 3 Jun 2004 14:14:40 +0400 (MSD) (#161129)

 

Hello Mike,

Thursday, June 3, 2004, 4:14:40 PM, you wrote:

#!/usr/bin/perl
use Net::Ping;
$time=10;
$p =Net::Ping->new("icmp");
unless ($p->ping($ip1,$time) {system("ifdown eth0")}

Тока вот поднять ты его не сможешь по условию. Т.к. интерфейс опущен.

Лучше всего править маршруты. Если nexthop недоступен - убирать
маршрут на этот интерфейс, и добавлять его если пингуешь его.

Ответить   Thu, 3 Jun 2004 16:42:22 +0600 (#161286)

 

i586-asplinux-linux-gnu)

#!/bin/sh

IP1=192.168.0.1
IP2=192.168.1.1
if ! ping -c 5 $IP1; then
ifconfig eth1 down
.....
fi
if ! ping -c 5 $IP2; then
ifconfig eth2 down
.....
fi

Ответить   Konstantin Korikov Thu, 3 Jun 2004 02:18:10 +0300 (#160807)