Итак, сам скрипт:

#!/usr/bin/perl

use strict;
use subs;
use DBI;
use Net::Ping::External qw(ping);

sub dbinit {
    my $home = $ENV{HOME};
    my $db = DBI->connect("dbi:SQLite:dbname=".$home."/.ipnotify.db","","");
    my $iqry = $db->do("create table if not exists hosts(hostname TEXT)");
    $db->disconnect();
}

sub add {
    my $home = $ENV{HOME};
    my $db = DBI->connect("dbi:SQLite:dbname=".$home."/.ipnotify.db","","");

    if ($_[0] eq "") {
    printf "expected hostname\n";
    } else {
    my $qry = $db->do("insert into hosts values ('".$_[0]."')");
        printf $qry." hosts added to monitor list\n";
    }
    $db->disconnect();
}

sub del {
    my $home = $ENV{HOME};
    my $db = DBI->connect("dbi:SQLite:dbname=".$home."/.ipnotify.db","","");

    if ($_[0] eq "") {
    printf "expected hostname\n";
    } else {
    my $qry = $db->do("delete from hosts where hostname ='".$_[0]."'");
    if ($qry == 0) {
        printf "no such entry\n";
    } else {
        printf "ok\n";
    }
    }
    $db->disconnect();
}

sub list {
    my $home = $ENV{HOME};
    my $db = DBI->connect("dbi:SQLite:dbname=".$home."/.ipnotify.db","","");
    my $qry = $db->prepare("select hostname from hosts order by hostname");

    $qry->execute() or die("db query failed: ".$db->errstr);

    my$cnt = 0;
    while ((my $hostname) = $qry->fetchrow_array()) {
        printf $hostname."\n";
        $cnt++;
    }
    if ($cnt == 0) {
        printf "no entries\n";
    }
    $qry->finish();
    undef $qry;

    $db->disconnect();
}

sub daemon {
    my %states = ();
    while (1 == 1) {
    my $home = $ENV{HOME};
    my $db = DBI->connect("dbi:SQLite:dbname=".$home."/.ipnotify.db","","");
    my $qry = $db->prepare("select hostname from hosts");
    if ($qry->execute()) {
        while ((my $host) = $qry->fetchrow_array()) {
        my $notify = 0;
        if (ping(hostname => $host, timeout => 1)) {
            unless (exists($states{$host})) {
            $states{$host} = 1;
            $notify = 1;
            } else {
            if ($states{$host} == 0) {
                $states{$host} = 1;
                $notify = 1;
            }
            }
        } else {
            $states{$host} = 0;
        }
        if ($notify == 1) {
            `notify-send -u normal IPNotify "$host is online!"`;
        }
        }
    }
    $qry->finish();
    undef $qry;
    $db->disconnect();
    }
}

dbinit();
if (($ARGV[0] eq "") || (($ARGV[0] ne "add") && ($ARGV[0] ne "del") && ($ARGV[0] ne "list") && ($ARGV[0] ne "daemon"))) {
    printf "IPNotify usage:\n";
    printf "ipnotify daemon | list | add <host> | del <host>\n";
} else {
    if ($ARGV[0] eq "list") {
    list();
    };
    if ($ARGV[0] eq "daemon") {
    daemon();
    };
    if ($ARGV[0] eq "add") {
    add($ARGV[1]);
    };
    if ($ARGV[0] eq "del") {
    del($ARGV[1]);
    };
}

И как это использовать.

$ ipnotify
IPNotify usage:
ipnotify daemon | list | add <host> | del <host>

Все просто – четыре команды: запуск демона, показ списка отслеживаемых хостов, добавление хоста в список, удаление хоста из списка. Прежде всего надо запустить демона в фоне командой:

$ ipnotify daemon

Демон запущен и готов обслуживать своего пользователя.

$ ipnotify list
no entries

Сейчас список пуст. Добавим в него хост.

$ ipnotify add infomrk
1 hosts added to monitor list

Через некоторое время демон проверит хост на живость и покажет уведомление:
Интервал опроса хостов на живость – 60 секунд.  Если отпала необходимость мониторинга хоста, его можно удалить из списка:

$ ipnotify del infomrk
ok

При желании, любой более-менее разбирающийся в программировании сможет поправить исходник под себя: поправить таймауты и интервалы, изменить способ уведомления и т.д.

Скажите, а нахрена тогда вообще раздельные профили для юзеров придумали? Я думал для хранения персональных настроек, в том числе и предпочтений в плане используемого ПО.

Сегодня в очередной раз обломашись, решил наконец нагуглить решение. Оно пришло в первых же ссылках. Корень зла оказался в программном управлении потоком. Комбинация Ctrl-s останавливает поток. Разморозить его обратно поможет комбинация Ctrl-q.

Но при этом до удаленной стороны так и не дойдет, что какая-то клавиша была нажата – управляющее воздействие не будет воспринято софтом. Чтобы решить проблему, надо после подключения к удаленной машине выполнить команду:

stty -ixon -ixoff

Я прописал эту строчку в bashrc на удаленной машине, для автоматического срабатывания. Проблема решена.

Tagged: Linux, ssh ]]> http://rigid.wordpress.com/2010/01/20/%d0%b0-%d0%bb%d0%b0%d1%80%d1%87%d0%b8%d0%ba-%d0%bf%d1%80%d0%be%d1%81%d1%82%d0%be-%d0%be%d1%82%d0%ba%d1%80%d1%8b%d0%b2%d0%b0%d0%bb%d1%81%d1%8f/feed/ 0 rigid http://rigid.wordpress.com/2010/01/13/%d0%bf%d1%80%d0%b8%d0%bc%d0%b5%d1%80-%d0%bd%d0%b0%d1%81%d1%82%d1%80%d0%be%d0%b9%d0%ba%d0%b8-linux-based-%d1%82%d0%be%d1%87%d0%ba%d0%b8-%d0%b4%d0%be%d1%81%d1%82%d1%83%d0%bf%d0%b0-wifi-%d0%bd%d0%b0/ http://rigid.wordpress.com/2010/01/13/%d0%bf%d1%80%d0%b8%d0%bc%d0%b5%d1%80-%d0%bd%d0%b0%d1%81%d1%82%d1%80%d0%be%d0%b9%d0%ba%d0%b8-linux-based-%d1%82%d0%be%d1%87%d0%ba%d0%b8-%d0%b4%d0%be%d1%81%d1%82%d1%83%d0%bf%d0%b0-wifi-%d0%bd%d0%b0/#comments Wed, 13 Jan 2010 06:01:07 +0000 rigid http://rigid.wordpress.com/?p=46 ]]> Еще осенью получил в наследство старый системник на базе Pentium III. Сделал из системника домашний сервер-роутер под  Debian Linux для раздачи инета, качания торрентов и т.п. В том числе, хотелось раздавать по квартире беспроводную сеть. Для этого была куплена недорогая вайфай-карта от D-Link на базе чипа Ralink RT2561/R61. Но настройка оказалась не такой тривиальной, как хотелось.

Началось все с того, что карта наотрез отказывалась включать режим Master, жалуясь, что совсем не знает об этом режиме. Подолбавшись с этим около часа, решил плюнуть и настроить сеть в режиме Ad-Hoc – мы не гордые. В этом режиме карта завелась сразу, но тут в позу встал мой ноут с интеловским адаптером iwl3945. Эта железяка упорно не хотела работать в  Ad-Hoc. В пору было отчаиваться. В форумах нагуглил посты о том, что сам чип rt61 умеет работать в Master – это DLink урезал функционал дешевого устройства средствами firmware. Поэкспериментировал с различными версиями firmware из репозитория дебиана – ничего путного не получилось. Режим Master я получил, но работало все очень нестабильно.  Часы дальнейшего гугления дали свои результаты – нашелся пакет альтернативных драйверов для беспроводных адаптеров под Линукс – Compat Wireless. Страница для скачивания: http://wireless.kernel.org/en/users/Download. Для сборки стабильного релиза пришлось накатить ядро из нестабильной ветки дебиана, т.к. в стабильной все еще 2.6.26.

А теперь чуть поподробней про установку и настройку.

1. Первым делом надо установить драйвер. Кстати, для этого необходимо иметь установленный пакет с заголовками от ядра – называется пакет linux-headers-2.6-686. Скачиваем архив с драйверами с указанного выше адреса. Распаковываем и делаем make в каталоге, куда распаковали. Ждем, пока все модули соберутся. Затем делаем make install и наблюдаем за процессом установки модулей-драйверов. Модули ставятся в папку /lib/modules/версия_ядра/updates, так что их можно потом спокойно удалить, если что. В процессе установки скрипт сделает depmod, что сделает свежеустановленные модули более приоритетными. После этого можно сделать update-initramfs -u, что добавит эти драйверы в загрузочный образ.После этого можно перегрузить машину. Все, у нас новые драйвера.  Кстати, перацию по пересборке драйверов придется выполнять после каждого обновления или апгрейда ядра. Для пересборки нужно зайти в каталог с исходниками драйверов и выполнить make clean && make && make install.
2. Для обслуживания беспроводной сети нужен софт, называющийся hostapd. Для корректной работы требуется версия из нестабильной ветки дебиана, а именно 0.6.9. Именно в этой версии добавили поддержку стандартного драйвера nl80211, то есть для любой вайфайной карты, а не только Atheros. На какие настройки стоит обратить внимание при конфигурировании hostapd:
   • interface=wlan0 – интерфейс беспроводной сети
   • bridge=br0 – беспроводная сеть объединена в бридж с проводной локалкой
   • driver=nl80211 – выбран стандартный драйвер беспроводных карточек
   • ssid=rigid – имя беспроводной сети
   • country_code=RU – код страны определяет диапазон используемых каналов и ряд других правил
   • hw_mode=g – режим работы сети
   • channel=5 – выбранный канал (частота)
   • macaddr_acl=1 управление доступом к беспроводной сети по мак-адресам
   • accept_mac_file=/etc/hostapd/hostapd.accept – белый список мак-адресов. все, ктоне попал в этот список не смогут подключиться к сети

   Есть еще куча настроек, в том числе и шифрование, но я не стал его включать. Итак достаточно защит

3. Итак, hostapd предоставит беспроводную сеть, но надо выдать IP-адреса и другие сетевые настройки беспроводным и проводным пользователям. Этим у меня занимается dnsmasq. Эта программа так же есть в составе репозитория дебиан. Настраивается все достаточно просто. Вот ключевые параметры:
   • no-resolv – не используем файл  /etc/resolv.conf, днс-сервера укажем вручную
   • server=x.y.z.a – днс-сервер, к которому буду перенаправлены запросы. можно указывать не один раз, если серверов много
   • local=/local/ – суффикс локального домена, имена из которого будут искаться в /etc/hosts
   • interface=br0 – интерфейс, на котором слушать
   • domain=local – домен, который отдаем юзерам
   • dhcp-range=192.168.254.2,192.168.254.254,255.255.255.0,12h – диапазон локальных адресов и время аренды
   • dhcp-host=мак-адрес,айпи-адрес – конкретная привязка айпи к маку
   • dhcp-host=мак-адрес – просто указываем что этот мак «свой»
   • dhcp-option=option:router,192.168.254.1 – шлюз по умолчанию
   • dhcp-ignore=#known – игнорировать запросы от неизвестных мак-адресов – дополнительная защита от левых халявщиков

Все, система готова к раздаче инета. Естественно, чтобы все это заработало, надо настроить соединение с инетом, тем способом, каким предполагает провайдер и настроить NAT средствами iptables.

Ладно, черт бы с ними комментариями в коде. Сам пишу без комментариев, лишь потом, позже проставляю краткие комментарии о назначении того или иного куска кода. Я готов даже простить коллегам кривое форматирование кода – не у всех есть чувство эстетики программирования, когда код приятно читать.
Что бесит меня больше всего, так это абсолютно безымянные переменные и контролы. За что отвечает Edit19, кто-нибудь  может сходу сказать? Правильно, надо отвлекаться, лезть на форму, читать подпись к едиту. А подписи еще не всегда бывают информативны в плане функционала, ибо их часто придумывают пользователи. Это очень неприятно, неудобно, некрасиво. Ну неужели самому не приятно назвать переменную или переименовать контрол во что-нибудь осмысленное? И самому потом же проще будет вспоминать, чего понаписал.

И еще один момент, который пострашнее всякого неэтичного программирования. Отношение к разработке, как к халтуре. Халтурное проектирование БД. Халтурное программирование. Входные данные нигде и никак не проверяются. Просто берется текст из едита и пихается в базу – пофигу, текстовое поле в базе или числовое. В итоге процесс вода данных сопровождается букетом исключений. Но самый прикол начинается, когда я беру такую разработку и начинаю прикручивать к ней отчет. Я то предполагаю, что в базе лежат уже валидные данные.А потом юзер звонит и говорит что мой отчет неправильно работает,. и мы начинаем сидеть вместе с юзером по уши в отладчике и в SQL, ищем косяки в данных.

Вот мне было бы стыдно сдавать проекты с таким качеством. Это просто непрофессионально. А между прочим. товарищи, пишущие такое с пафосом рассказывают, что они закончили МГТУ – это, мол, не то что там какой-то МаГУ,. Вот в горном, мол, готовят настоящих квалифицированных программистов, а не учителей информатики.

Обидно за себя, за отдел, за профессию.

Полезность отчета для топ-менеджера очевидна. Но существующая разработка совсем не годится для использования руководителями.
Во-первых, топ-менеджер не хочет заморачиваться с изучением КИС. Ему нужно нажать на кнопку и получить информацию. Это правильно.
Во-вторых, по той же причине нужно переработать интерфейс. Руководителю не интересны десятки настроек отчета. Максимум – период времени.
В-третьих, нужна интеграция с уже существующим АРМом, а это Java EE. Атлантис нам совершенно не подходит.

Итак, я начал разрабатывать отчет практически с нуля. Самое неудобное заключается в том, что никто на заводе не в состоянии дать более-менее детальное и точное опеределение, что требуется от отчета. Разработкой под КИС занимался человек, который сейчас пытается меня консультировать. Поскольку в перспективе есть вероятность перехода на новую версию КИС, где можно будет пользоваться процедурами на PL/SQL, решили сделать общий пакет процедур, который в будущем можно будет использовать и из КИС. Но сказывается разница в подходах. У его разработки нет интерактивности. Настроил отчет, нажал на кнопку, получил на выходе отчет и система забывает о том, что формировала его. У меня ситуация иная. Руководитель должен иметь возможность по щелчку мыши углубляться в данные, все больше увеличивая детализацию отчета. Это означает, что система должна сохранять свое состояние  между запросами. При этом стоит учесть, что системой сможет воспользоваться несколько человек одновременно.

Как все это увязать – думаем сейчас напару. Радует, что работа сдвинулась с мертвой точки.

1. Увеличил число посылаемых пингов до 5
2. Добавил вывод сообщений о качестве связи – не только UP/DOWN а еще и количество удачных пингов

Чем это полезно. Сегодня с утра лежал один из узлов. Причем не просто лежал, а вроде как бы работал, но с большими потерями на линке. Старая версия скрипта не детектила такое состояние. А было бы полезно узать, в какой момент начались проблемы. Теперь эта информация пишется в лог и выводится через libnotify.

Итоговый скрипт:

#!/usr/bin/perl

# -- Netmon script by Sergei Shakshin

use strict;
use DateTime;
use Net::Ping::External qw(ping);

# --- Script configuration

my $tries = 5; # Ping retries
my $timeout = 5; # Ping timeout (in seconds)
my $interval = 5; # Interval (in minutes) between checks

my $logfile = "/home/rigid/log/netmon.log"; # Log file

my %hosts = (
    "host1"     => "10.0.0.1",
    "host2"     => "10.0.0.2",
);

# --- End of configuration. Stop edit here.
my $dt = DateTime->now->set_time_zone( 'Asia/Yekaterinburg' );
my $ltime = $dt->strftime("%d %b %Y, %H:%M:%S");
open(LF, ">>".$logfile);
print LF "[ $ltime ] ----------- new netmon session started ----------\n";
close(LF);

my %state = ();
while (my ($name, $ip) = each(%hosts)) {
    $state{$name} = "UP";
}
my %q = ();
while (my ($name, $ip) = each(%hosts)) {
    $q{$name} = 5;
}

while () {
    open(LF, ">>".$logfile);
    my @uphosts = ();
    my @downhosts = ();

    my %chq = ();

    while (my ($name, $ip) = each(%hosts)) {
        my $cnt = 0;
        for (my $i = 1; $i <= $tries; $i++) {
            if (ping(hostname => $ip, timeout => $timeout)) {
                $cnt++;
            }
        }
        if ($cnt == 0) {
            if ($state{$name} eq "UP") {
                $state{$name} = "DOWN";
                push(@downhosts, $name);
            }
        } else {
            if ($state{$name} eq "DOWN") {
                $state{$name} = "UP";
                push(@uphosts, $name);
            }
        }

        if ($q{$name} != $cnt) {
            $chq{$name} = $cnt;
            $q{$name} = $cnt;
        }
    }

    my $dt = DateTime->now->set_time_zone( 'Asia/Yekaterinburg' );

    my $ltime = $dt->strftime("%d %b %Y, %H:%M:%S");
    if (scalar(@uphosts) > 0) {
        my $lst = join(", ", @uphosts);
        `notify-send -u normal NetMon "Восстановилась связь с $lst"`;
        print LF "[ $ltime ] host $lst is UP\n";
    }
    if (scalar(@downhosts) > 0) {
                my $lst = join(", ", @downhosts);
                `notify-send -u critical NetMon "Пропала связь с $lst"`;
                print LF "[ $ltime ] host $lst is DOWN\n";
        }
    while (my($name, $qua) = each(%chq)) {
        if ($qua > 0) {
            `notify-send -u normal NetMon "Качество связи с $name: $qua / $tries"`;
            print LF "[ $ltime ] Link quality at $name changed to $qua / $tries\n";
        }
    }

    close(LF);
    sleep($interval * 60);
};

В итоге всех этих махинаций я имею на севере зеркальный софтрейд на базе mdraid и гибкий LVM поверх этого рейда. Проводил испытания – все отлично работает при выдергивании винта и добавлеении резервного вместо него.

Windows:Администрирование|Администрирование

Что в итоге делает ссылку с надписью «Администрирование» и ведущую на «Wndows:Администрирование». Получается некое подобие иерархии. Во всем остальном движок очень удобен, правда вики-форматированиек еще не все освоили.