https://opennet.me/openforum/vsluhforumID3/53557.html Сценарий (http://sources.homelink.ru/fallback-gw/) для переключения маршрутов на резервный канал, если основной шлюз перестал отвечать на пинг. Умеет проверять несколько шлюзов, каждому набору шлюзов может быть назначено несколько подсетей. Вызывается через cron. Проверен на FreeBSD и на Linux c iproute2. Команды проверки и переключения при желании можно переопределять в файле настроек.<br><br>URL: http://sources.homelink.ru/fallback-gw/<br>Новость: http://www.opennet.ru/opennews/art.shtml?num=21545<br> https://opennet.me/openforum/vsluhforumID3/53557.html#7 Sun, 03 May 2009 11:56:14 GMT &gt;В fallback-gw пинг работает до первого ответа, <br>&gt;поэтому ждать придётся только в случае отказа, <br>&gt;который бывает не каждый месяц. <br>&gt;В нормальной ситуации всё отрабатывает мгновенно. <br><br>Да, вижу.<br>Тогда у нас с вами были немного разные цели.<br>В моем случае ещё был такой фактор, как процент потерь в канале.<br> https://opennet.me/openforum/vsluhforumID3/53557.html#6 Sun, 03 May 2009 11:53:24 GMT &gt;Во фряхе перл системный без тредов собран по дефолту. С форками - <br>&gt;гемора было бы больше, чем толку, ИМХО. <br><br>Да, без тредов.<br>А насчет гемора - смотря какие приоритеты.<br>Если приоритет, чтобы работало быстро, важнее лени, то программист заморочится.<br> https://opennet.me/openforum/vsluhforumID3/53557.html#5 Sat, 02 May 2009 17:18:56 GMT Советую использовать perlcritic и книгу Perl Best Practices для доработки скрипта.<br> https://opennet.me/openforum/vsluhforumID3/53557.html#4 Sat, 02 May 2009 09:16:19 GMT В fallback-gw пинг работает до первого ответа,<br>поэтому ждать придётся только в случае отказа,<br>который бывает не каждый месяц.<br>В нормальной ситуации всё отрабатывает мгновенно.<br> https://opennet.me/openforum/vsluhforumID3/53557.html#3 Sat, 02 May 2009 08:52:14 GMT Во фряхе перл системный без тредов собран по дефолту. С форками - гемора было бы больше, чем толку, ИМХО.<br> https://opennet.me/openforum/vsluhforumID3/53557.html#1 Fri, 01 May 2009 21:23:10 GMT 2автор:<br><br>Хороший скрипт.<br>Ещё могу посоветовать посмотреть в сторону распараллеливания пингов.<br>Чтобы не ждать &lt;количество пингуемых точек&gt; * &lt;количество пингов&gt; секунд.<br><br>Сам в свое время сделал так:<br>shell скрипт в цикле запускает пинги командой "ping ... $ip &gt; /file.$ip &"<br>Ждет нужное количество секунд и извлекает информацию из всех файлов разом.<br>Таким образом опрашивалось 7 точек по 25 пингов каждые 40 секунд.<br><br>В perl можно посмотреть в сторону fork или в сторону threads.<br>Я бы ещё предложил system("ping $ip &"), но понимаю, что это не по фен-шую)<br>