Поиск выдал кучу ссылок на проверку валидности написания самого адреса. Кто как не извращается, хотя для этого есть встроенная функция.
Мне же, требовалась более суровая проверка, ну хотябы на существование релея. А раз уж и до релея добрались, то почему бы не проверить и существование на нем пользователя?
Понятно, что многие релеи не выдают 550 если пользователя нет, но попытка – не пытка. Даже если на левого пользователя мы получим ответ 250, мы хотябы попытались и убедились в том, что релей есть и он живой.

Скрипт с комментами.

До вызова функции необходимо определить переменную $mymxhost – именем этого хоста, скрипт будет представляться почтовому релею.

<?
function check_email($email) {
  global $mymxhost;

  /**
   * Проверяем валидность написания email.
   */
  if(!filter_var($email, FILTER_VALIDATE_EMAIL)) {
    return false;
  }

  /**
   * Выкусываем имя хоста из email
   */
  preg_match('/^[^@]+@([a-zA-Z0-9._-]+\.[a-zA-Z]+)$/',$email, $host);

  /**
   * Проверяем наличие MX записи для хоста.
   */
  getmxrr($host[1], &$mxhosts);
  if(!count($mxhosts)) {
    return false;
  }

  /**
   * Парсим массив MX записей и коннектимся к хосту.
   */
  foreach($mxhosts as $host) {
    if($fp=pfsockopen($host,25)) {
      /**
       * Читаем приглашение от хоста. Ожидаем строки "220 HELO ...." в течении 30 секунд.
       */
      $string=read_string($fp,30);
      if(substr($string,0,3)!="220") {
        /**
         * Если ответа не получили или получили не приветсвие, закрываем соединение.
         */
        fclose($fp);
        return false;
      }

      /**
       * Отправляем приветсвие и ждем ответа от сервера в течении 5 секунд.
       */
      fwrite($fp,"HELO $mymxhost\n");
      $string=read_string($fp,5);
      if(substr($string,0,3)!="250") {
        /**
         * Если ответа не получили или получили что отличное от 250, закрываем соединение.
         * Возможные причины отказа:
         * Отсутсвие PTR запси для вашего хоста
         * Отсутствие  А и/или MX записи для хоста, которым вы представляетесь ($mymxhost)
         */
        fclose($fp);
        return false;
      }

      /**
       * Отправляем на сервер строку MAIL FROM: и ждем ответа от сервера в течении 5 секунд.
       */
      fwrite($fp,"MAIL FROM: <>\n");
      $string=read_string($fp,5);
      if(substr($string,0,3)!="250") {
        /**
         * Если ответа не получили или получили что отличное от 250, закрываем соединение.
         * Возможные причины отказа:
         * Сервер получатель отказывается принимать пустое поле MAIL FROM.
         * По RFC такие поля должны приниматься для обработки reverse connect, что мы и пытаемся сделать.
         */
        fclose($fp);
        return false;
      }

      /**
       * Отправляем на сервер строку RCPT TO: и ждем ответа от сервера в течении 5 секунд.
       * Если получили в ответ 250 - то сервер ответил, что пользователь у него есть (хотя это не значит, что он есть на самом деле).
       */
      fwrite($fp,"RCPT TO: $email\n");
      $string=read_string($fp,5);
      if(substr($string,0,3)!="250") {
        fclose($fp);
        return false;
      }
      else {
        fclose($fp);
        return true;
      }
    }
  }
}
/**
* Читаем строку возврата. Если ничего не вернулось, ждем 1 секунду и читаем снова.
* Если через $timeout секунд ничего не вернулось, то возвращаем false.
*/
function read_string($fp,$timeout) {
  $string="";
  for($i=1;$i<$timeout;$i++){
    $string=fread($fp, 128);
    if($string!=""){
      return $string;
    }
    sleep(1);
  }
  return false;
}

Цена вопроса дешевле чем в ДНП. В настоящий момент заказ почти укомплектован. Необходимо еще два желающих.

Купили дачу у Удачи

Демократичные цены, отличный сервис.

Ждем весны и начнем осваивать. следим за обновлениями.

Рядом маркером подписано «без него».

Рисунок 1. Схема кластера.

Поскольку у меня объем трафика довольно большой, для избежания потерь данных о трафике, NetFlow поток передается и принимается в отдельной подсети и выделенных под это отдельных физических интерфейсах. Физические интерфейсы em0,em1 и em2 имеют общие IP-адреса по которым доступен кластер. В случае выходя из строя сервера, либо проблем на любом из этих трех интерфейсах, резервный сервер забирает на себя функции мастера и соответствующие IP-адреса назначаются его интерфейсам.

Данная система построена на базе протокола CARP (Common Address Redundancy Protocol — протокол избыточности общего адреса)[2]

Каждый сервер укомплектован четырьмя сетевыми интерфейсами стандарта Gigabit Ethernet.
Интерфейсы em0 поддерживают работу службы авторизации на базе протокола RADIUS и имеют общий IP 1.2.3.243 (сервер utm1 IP-1.2.3.244, utm2 IP-1.2.3.245)
Интерфейсы em1 предназначены для сбора статистики по протоколу NetFlow и имеют общий IP 172.31.31.2 (сервер utm1 IP-172.31.31.3, utm2 IP-172.31.31.4)
Интерфейсы em2 предназначены для доступа к ядру из интерфейсов администратора, дилера и кассира, а также сервиса http для доступа клиентов к «Личному кабинету».
Интерфейсы имеют общий IP 1.2.3.99 (сервер utm1 IP-1.2.3.108, utm2 IP-1.2.3.109). Интерфейсы em3 на обоих серверах соединяются кроссоверным патчкордом и используются для репликации БД.
В настройках UTM соответствующие сервисы настроены на работу на CARP IP. MySQL запущен только на IP интерфейса em3
Настройку кластера начнем с включения поддержки CARP ядром ОС. Поскольку CARP портирован во FreeBSD из OpenBSD, ключ carpdev не поддерживается. Это влечет за собой то, что CARP IP-адресс и IP-адреса интерфейсов для данного IP должны находиться в одной подсети. Для включения CARP, необходимо добавить в конфигурационный файл строку

device carp

Но, прежде чем пересобрать ядро, рекомендую пропатчить файл ip_carp.c Нужно это для того, чтобы можно было перехватывать события, происходящие с интерфейсами CARP при помощи devd. Если вы не планируете управлять кластером по событиям CARP, а запускать проверку по cron, патч можно не ставить.

sys/netinet/ip_carp.c.orig	2008-08-18 02:49:50.000000000 +0400
+++ sys/netinet/ip_carp.c	2008-08-18 02:16:50.000000000 +0400
@@ -35,6 +35,7 @@
#include
#include
#include
+#include
#include
#include
#include
@@ -2108,6 +2109,7 @@
static void
carp_set_state(struct carp_softc *sc, int state)

+	char vhid_buf[15], *dev_msg;

if (sc->sc_carpdev)
CARP_SCLOCK_ASSERT(sc);
@@ -2119,15 +2121,20 @@
switch (state) {
case BACKUP:
SC2IFP(sc)->if_link_state = LINK_STATE_DOWN;
+		dev_msg = "CARP_SLAVE";
break;
case MASTER:
SC2IFP(sc)->if_link_state = LINK_STATE_UP;
+		dev_msg = "CARP_MASTER";
break;
default:
SC2IFP(sc)->if_link_state = LINK_STATE_UNKNOWN;
+		dev_msg = "CARP_UNKNOWN";
break;
}
rt_ifmsg(SC2IFP(sc));
+	snprintf(vhid_buf, sizeof(vhid_buf), "vhid=%d", sc->sc_vhid);
+	devctl_notify("IFNET", SC2IFP(sc)->if_xname, dev_msg, vhid_buf);
}

После применения патча и добавления в ядро поддержки CARP, необходимо пересобрать ядро:

# cd /usr/src
# make buildkernel KERNCONF=UTM
# make installkernel KERNCONF=UTM

Где UTM – имя моего конфигурационного файла ядра.
Перед перезагрузкой можно сразу поправить файл /etc/rc.conf добавив в него: Сервер utm1:

cloned_interfaces="carp0 carp1 carp2"
ifconfig_em0="inet 1.2.3.244 netmask 255.255.255.240"
ifconfig_em1="inet 1.2.3.108 netmask 255.255.255.240"
ifconfig_em2="inet 172.31.31.3 netmask 255.255.255.240"
ifconfig_em3="inet 172.30.30.172 netmask 255.255.255.248"
ifconfig_carp0="vhid 1 pass secret 1.2.3.242 netmask 255.255.255.240"
ifconfig_carp1="vhid 2 pass secret 1.2.3.99 netmask 255.255.255.240"
ifconfig_carp2="vhid 3 pass secret 172.31.31.2 netmask 255.255.255.240"

Сервер utm2:

cloned_interfaces="carp0 carp1 carp2"
ifconfig_em0="inet 1.2.3.245 netmask 255.255.255.240"
ifconfig_em1="inet 1.2.3.109 netmask 255.255.255.240"
ifconfig_em2="inet 172.31.31.3 netmask 255.255.255.240"
ifconfig_em3="inet 172.30.30.173 netmask 255.255.255.248"
ifconfig_carp0="vhid 1 pass secret 1.2.3.242 netmask 255.255.255.240"
ifconfig_carp1="vhid 2 pass secret 1.2.3.99 netmask 255.255.255.240"
ifconfig_carp2="vhid 3 pass secret 172.31.31.4 netmask 255.255.255.240"

Все сетевые соединения должны быть подключены.
Перегружаем сервера и смотрим:

#utm1 carp0: flags=49 metric 0 mtu 1500
carp: MASTER vhid 1 advbase 1 advskew 0
carp1: flags=49 metric 0 mtu 1500
carp: MASTER vhid 2 advbase 1 advskew 0
carp2: flags=49 metric 0 mtu 1500
carp: MASTER vhid 3 advbase 1 advskew 0

#utm2 carp0: flags=49 metric 0 mtu 1500
carp: BACKUP vhid 1 advbase 1 advskew 100
carp1: flags=49 metric 0 mtu 1500
carp: BACKUP vhid 2 advbase 1 advskew 100
carp2: flags=49 metric 0 mtu 1500
carp: BACKUP vhid 3 advbase 1 advskew 100

Как видно, на сервере utm1 интерфейсы carp имеют статус MASTER, а на utm2 – BACKUP
Теперь, если отключить любой CARP интерфейс на сервере utm1, то все CARP интерфейсы на сервере utm2 перейдут в статус MASTER, а на сервере utm1 отключенный интерфейс будет иметь статус INIT, а остальные BACKUP.
После восстановления связности, сервер utm1 опять захватит роль MASTER сервера в кластере. При этом dmesg покажет следующее

em1: link state changed to DOWN
carp0: MASTER -> BACKUP (more frequent advertisement received)
carp2: MASTER -> BACKUP (more frequent advertisement received)
carp1: INIT -> BACKUP
em1: link state changed to UP
carp2: BACKUP -> MASTER (preempting a slower master)
carp0: BACKUP -> MASTER (preempting a slower master)

На этом оставим пока работу CARP и настроим репликацию БД.
Репликация будет осуществляться двухсторонняя, т.е. изменения, сделанные на основном сервере, будут передаваться на резервный и наоборот. Нужно это для того, чтобы при остановке основного сервера, не произошла рассинхронизация БД.
База данных должна быть типа innodb. Помимо того, что это рекомендовано NetUP, только с таким типом работает репликация.
Реплицировать будем только базу UTM5.
Останавливаем ядро UTM, если оно запущено, а также все приложения, которые имеют доступ к базе UTM5. На основном сервере делаем дамп базы и переносим его на резервный.
Выполняем на основном сервере

#utm1 mysql –u root -p
mysql> GRANT REPLICATION SLAVE ON UTM5.* TO 'utmuser'@'utm2.domain.ru' \
IDENTIFIED BY 'password';
mysql> flush privileges;
mysql> quit

Где utmuser – имя пользователя, который будет подключаться с резервного сервера для репликации, utm2.domain.ru имя сервера (или IP адрес) резервного сервера, password – пароль пользователя utmuser На резервном сервере выполняем тоже самое, заменив имя сервера на основной и при необходимости имя пользователя и пароль.
Останавливаем mysql на обоих серверах и вносим изменения в файл my.cnf (у меня это /var/db/mysql/my.cnf
На сервере utm1 добавляем:

log-bin
server-id=1
max_binlog_size = 1G
max_relay_log_size = 0
binlog-do-db=UTM5
master-host = 172.30.30.173
master-user = utmuser
master-password = password

На сервере utm2:

log-bin
server-id=2
max_binlog_size = 1G
max_relay_log_size = 0
binlog-do-db=UTM5
master-host = 172.30.30.172
master-user = utmuser
master-password = password

Запускаем mysql на основном сервере, затем на резервном. Заходим в mysql и проверяем:

mysql> show master status;
+-----------------+----------+--------------+------------------+
| File            | Position | Binlog_Do_DB | Binlog_Ignore_DB |
+-----------------+----------+--------------+------------------+
| nup2-bin.000003 |      106 | UTM5,UTM5    |                  |
+-----------------+----------+--------------+------------------+
1 row in set (0.00 sec)
mysql> show slave status;

Выводит таблицу состояния SLAVE, там куча ячеек, думаю, сами разберетесь.
Главное, на что стоит обратить внимание, значения полей File и Position в выводе show master status на первом сервере, должны совпадать со значениями полей Master_Log_File и Read_Master_Log_Pos на втором. И наоборот, значения полей File и Position в выводе show master status на втором сервере, должны совпадать со значениями полей Master_Log_File и Read_Master_Log_Pos на первом.
Если все так и есть, репликация работает нормально.
Для проверки, можно внести абонента на основном сервере и проверить, появилась ли соответствующая запись на втором.
Более подробно с настройкой репликации можно ознакомиться на сайте mysql.ru [3]

Теперь переходим к процессу автоматизации.
Проблемой (а может быть и правильно, что так сделано) UTM, является то, что данные в БД предназначены для длительного хранения. Все последние изменения ядро хранит в ОЗУ и как следствие, запущенное на резервном сервере ядро не видит изменений, сделанных на основном сервере.
С другой стороны, согласен с разработчиками, что для корректной работы одновременно должно работать только одно ядро utm5_core.
Поэтому наша задача: контролировать статус сервер и в случае если SLAVE сервер берет на себя функции MASTER, запустить на нем ядро. И если MASTER сервер переходит в статус SLAVE, то гасить на нем ядро. Данную задачу можно реализовать через cron, периодически опрашивая состояние интерфейсов CARP. Ктомуже, это будет не лишним и в случае если по каким-либо причинам окажется, что на MASTER сервере ядро не запущено.
Скрипт проверяющий состояние сервера и запущены ли на нем необходимые модули приведен ниже:

#!/bin/sh
#Присвоение значения переменным
#Имя файла в который будут писаться сообщения о смене
#статуса и запуска процессов
log=/netup/utm5/log/_carp.log
#Имя директории с исполняемым скриптами UTM5
rc_dir=/usr/local/etc/rc.d
#Имя скрипта запуска ядра UTM5
core_script=utm5_core.sh
#Имя скрипта запуска RADIUS-сервера UTM5
#Если RADIUS-сервер не используется, закомментировать
radius_script=utm5_radius.sh
#Имя скрипта запуска RFW UTM5
#Если RFW-сервер не исползуется, закомментировать
#rfw_script=utm5_rfw.sh
#Включено ли логирование событий. 0-1
#Если включено, сто в файл определенный в переменной log будут писаться
#сообщения о смене состояния сервера и запуске или остановке сервисов UTM5
debug=1
DATE=`/bin/date +"%Y-%m-%d %H:%M:%S"`
CARP_STATUS="MASTER"

for CARP in `/sbin/ifconfig | /usr/bin/grep carp: | /usr/bin/awk \
'{print $2}'`
do
    if [ $CARP = "BACKUP" ] || [ $CARP = "INIT" ]; then
        CARP_STATUS="BACKUP";
    fi
done
if [ $core_script ];then
    UTM5_CORE=`/bin/ps ax | /usr/bin/grep utm5_core | /usr/bin/grep -v stop \
             | /usr/bin/grep safe | /usr/bin/awk '{print $1}'`
    if [ $CARP_STATUS = "BACKUP" ] && [ $UTM5_CORE ]; then
        $rc_dir/$core_script stop 1> /dev/null 2> /dev/null
        if [ $debug != 0 ];then
            /bin/echo $DATE "CARP is BACKUP && utm5_core is started. \
            Stop it." >> $log
        fi
    fi
    if [ $CARP_STATUS = "MASTER" ] && [ ! $UTM5_CORE ]; then
        $rc_dir/$core_script start 1> /dev/null 2> /dev/null
        if [ $debug != 0 ];then
            /bin/echo $DATE "CARP is MASTER && utm5_core is stoped. \
            Start it." >> $log
        fi
        sleep 5
    fi
fi
if [ $radius_script ];then
    UTM5_RADIUS=`/bin/ps ax | /usr/bin/grep utm5_radius \
              | /usr/bin/grep -v stop | /usr/bin/grep safe \
              | /usr/bin/awk '{print $1}'`
    if [ $CARP_STATUS = "BACKUP" ] && [ $UTM5_RADIUS ]; then
        $rc_dir/$radius_script stop 1> /dev/null 2> /dev/null
        if [ $debug != 0 ];then
            /bin/echo $DATE "CARP is BACKUP && utm5_radius is started. \
            Stop it." >> $log
        fi
    fi
    if [ $CARP_STATUS = "MASTER" ] && [ ! $UTM5_RADIUS ]; then
        $rc_dir/$radius_script start 1> /dev/null 2> /dev/null
        if [ $debug != 0 ];then
            /bin/echo $DATE "CARP is MASTER && utm5_radius is stoped. \
            Start it." >> $log
        fi
    fi
fi
if [ $rfw_script ];then
    UTM5_RFW=`/bin/ps ax | /usr/bin/grep utm5_rfw \
            | /usr/bin/grep -v stop | /usr/bin/grep safe \
            | /usr/bin/awk '{print $1}'`
    if [ $CARP_STATUS = "BACKUP" ] && [ $UTM5_RFW ]; then
        $rc_dir/$rfw_script stop 1> /dev/null 2> /dev/null
        if [ $debug != 0 ];then
            /bin/echo $DATE "CARP is BACKUP && utm5_rfw is started. \
            Stop it." >> $log
        fi
    fi
    if [ $CARP_STATUS = "MASTER" ] && [ ! $UTM5_RFW ]; then
        $rc_dir/$rfw_script start 1> /dev/null 2> /dev/null
        if [ $debug != 0 ];then
            /bin/echo $DATE "CARP is MASTER && utm5_rfw is stoped. \
            Start it." >> $log
        fi
    fi
fi

Данный скрипт проверяет, в каком состоянии находиться сервер:
Если сервер MASTER, то проверяется, запущенны ли сервисы utm5_core, utm5_radius и utm5_rfw (если какой то из сервисов не нужен, то нужно закомментировать строку определяющую имя запускающего данный сервис скрипта в начале файла. Если нужные сервисы не запущены, то дается команда на их запуск.
Если переменная debug=1 то информация о запуске или останове процессов пишется в файл определенный в переменной log
Для примера, сервер имеет статус MASTER но ядро UTM5 и RDIUS –сервер на нем не запущены. Дана команда на запуск этих сервисов.

2009-04-03 21:13:47 CARP is MASTER && utm5_core is stoped. Start it.
2009-04-03 21:13:47 CARP is MASTER && utm5_radius is stoped. Start it.

Сервер имеет состояние SLAVE но ядро и RADIUS на нем запущены, дана команда на их остановку

2009-04-03 21:10:22 CARP is BACKUP && utm5_core is started. Stop it.
2009-04-03 21:10:22 CARP is BACKUP && utm5_radius is started. Stop it.

На этом можно было бы и закончить, но пытливый читатель спросит, зачем мы патчили ip_carp.c в самом начале?
Отвечаю. Вариант с проверкой статуса сервера хоть и хорош, но выполнять его даже раз в минуту не очень хочется, а порой минута может стоить много денег и нервов. Поэтому, проверка состояния сервера и сервисов у меня выполняется раз в пять минут, а события вызываемые патченным сервисом carp обрабатываются налету при помощи демона devd. [4]
Внесем изменения в файл /etc/devd.conf [5]

notify 100 {
    match "system" "IFNET";
    match "type" "CARP_SLAVE";
    action "/usr/local/sbin/carp.sh $subsystem $vhid $type";
};

notify 100 {
    match "system" "IFNET";
    match "type" "CARP_MASTER";
    action "/usr/local/sbin/carp.sh $subsystem $vhid $type";
};
notify 100 {
    match "system" "IFNET";
    match "type" "CARP_UNKNOWN";
    action "/usr/local/sbin/carp.sh $subsystem $vhid $type";
};

Перезапускаем сервис devd:

# /etc/rc.d/devd stop
# /etc/rc.d/devd start

Внесенные изменения позволят запускать скрипты при наступлении определенных событий вызванных интерфейсами CARP.
Сделанный нами патч выдает три состояния CARP_MASTER – если carp интерфейс переходит в состояние MASTER, CARP_SLAVE – если carp интерфейс переходит в состояние SLAVE и CARP_UNCNOWN – если состояние интерфейса не удается определить.
При наступлении любого из этих событий, devd вызовет исполнение скрипта указанного в параметре action конфигурационного файла devd.conf для данного события. У меня это «/usr/local/sbin/carp.sh $subsystem $vhid $type», где $subsystem – имя carp интерфейса (carp0, carp1 и т.п.), $vhid – VHID интерфейса заданного в rc.conf, $type – тип события (CARP_SLAVE, CARP_MASTER, CARP_UNKNOWN).
По хорошему, нам нужно перехватывать только тип события, но в дальнейшем можно найти применения и для других параметров, пусть будут
Скрипт carp.sh

sleep 5
debug=1
log=/netup/utm5/log/_carp.log
bin_dir=/netup/utm5/bin
DATE=`/bin/date +"%Y-%m-%d %H:%M:%S"`
UTM5_CORE=`/bin/ps ax | /usr/bin/grep utm5_core | /usr/bin/grep -v stop \
         | /usr/bin/grep safe | /usr/bin/awk '{print $1}'`
TYPE=$3
if [ $TYPE = "CARP_MASTER" ] && [ ! $UTM5_CORE ]; then
    if [ $debug != 0 ];then
        /bin/echo "$DATE $TYPE ($1): Running \
        $bin_dir/check_utm5.sh" >> $log
    fi
    $bin_dir/check_utm5.sh
fi
if [ $TYPE = "CARP_SLAVE" ] && [ $UTM5_CORE ]; then
    if [ $debug != 0 ];then
        /bin/echo "$DATE $TYPE ($1):  Running \
        $bin_dir/check_utm5.sh" >> $log;
    fi
    $bin_dir/check_utm5.sh
fi

Данный скрипт проверяет только статус сервера и запущено ли ядро. Если сервер стал мастером и ядро не запущено или сервер стал ведомым и на нем запущено ядро, то выполняется скрипт check_utm5.sh описанный чуть выше.
Вобщемто, эта доработка позволяет сократить время поднятия сервисов в случае отказа основного сервера до 5-10 секунд.
Строка sleep 5 в начале файла нужна если у нас более чем один carp интерфейс. Поскольку при смене статуса одного из CARP интерфейсов, все остальные тоже меняют статус, соответсвенно и события вызывают данный скрипт несколько раз.
Так как запуск ядра UTM5 требует некоторого времени, чтобы ядро не запускалось несколько раз и введена данная задержка.
Кроме того, скрипт carp.sh пишет в логфайл время и тип наступившего события. Пример:

2009-04-03 21:12:09 CARP_MASTER (carp0): Running /netup/utm5/bin/check_utm5.sh
2009-04-03 21:12:09 CARP is MASTER && utm5_core is stoped. Start it.
2009-04-03 21:12:09 CARP is MASTER && utm5_radius is stoped. Start it.
2009-04-03 21:13:15 CARP_SLAVE (carp0):  Running /netup/utm5/bin/check_utm5.sh
2009-04-03 21:13:15 CARP is BACKUP && utm5_core is started. Stop it.
2009-04-03 21:13:15 CARP is BACKUP && utm5_radius is started. Stop it.

Скрипт carp.sh был запущен из devd с передачей типа CARP_MASTER. Скрипт поверил, что ядро не запущено и вызвал скрипт /netup/utm5/bin/check_utm5.sh, который в свою очередь проверил, что сервер имеет статус MASTER но на нем не запущено ядро и RADIUS сервер.
Дана команда на запуск данных сервисов.
Затем скрипт carp.sh был вызван с передачей типа CARP_SLAVE. Поскольку на сервере были запущены сервисы utm5_core и utm5_radius вызван скрипт check_utm5.sh который их остановил.
[1] Создание отказоустойчивого кластера для биллинговой системы на базе Gentoo Linux
[2] FreeBSD Man Pages (CARP)
[3] Репликация в MySQL
[4] FreeBSD Man Pages (devd)
[5] FreeBSD Man Pages (devd.conf)

Скрипт для сбора статистики по памяти.
Данный скрипт собирает статистику по нескольким параметрам загруженности памяти.
Впринципе, скрипт не сильно отличается от скрипта сбора статистики по CPU , поэтому остановимся на некоторых тонкостях.
В базу мы будем писать значения:

1. Всего свопа
2. Доступно свопа
3. Доступно основной памяти
4. Используется основной памяти
5. Используется под буфера
6. Используется под кэш
7. Используется свопа
8. Всего основной памяти (RAM)

Итого 8 параметров. Но по SNMP возможно получить только параметры

1. Всего свопа
2. Доступно свопа
3. Всего основной памяти (RAM)
4. Доступно основной памяти
5. Используется под буфера
6. Используется под кэш

Параметры «Используется свопа» и «Всего основной памяти» мы вычисляем в скрипте.
Все остальное аналогично скрипту для CPU.

—- START makerrdmem.sh —-
#!/bin/sh
RRDDIR=»/usr/local/rrd» #Директория базы данных
CMD=»/usr/local/bin/snmpget -r 9 -t 3 -Oqv -v2c» #Команда для сбора статистики по SNMP
RRDCMD=»/usr/local/bin/rrdtool»
COMNAME=»public» #Комьюнити сервера (серверов)
FILENAME=»mem.rrd» #суффикс файла
CONFIG=»/usr/local/etc/rrdconf/cpu.conf»
OID=».1.3.6.1.4.1.2021.4.3.0 \
.1.3.6.1.4.1.2021.4.4.0 \
.1.3.6.1.4.1.2021.4.5.0 \
.1.3.6.1.4.1.2021.4.6.0 \
.1.3.6.1.4.1.2021.4.14.0 \
.1.3.6.1.4.1.2021.4.15.0″
#OIDs
#memTotalSwap .1.3.6.1.4.1.2021.4.3.0
#memAvailSwap .1.3.6.1.4.1.2021.4.4.0
#memTotalReal .1.3.6.1.4.1.2021.4.5.0
#memAvailReal .1.3.6.1.4.1.2021.4.6.0
#memBuffer .1.3.6.1.4.1.2021.4.14.0
#memCached .1.3.6.1.4.1.2021.4.15.0
for i in `cat $CONFIG | grep -v «^#»`
do
HOST=$i
if [ ! -e "$RRDDIR/$HOST-$FILENAME" ]; then
[ -e "$RRDDIR" ] || mkdir «$RRDDIR»
$RRDCMD create «$RRDDIR/$HOST-$FILENAME» -s 60\
DS:tswap:GAUGE:360:0:U\
DS:aswap:GAUGE:360:0:U\
DS:treal:GAUGE:360:0:U\
DS:areal:GAUGE:360:0:U\
DS:buff:GAUGE:360:0:U\
DS:cach:GAUGE:360:0:U\
DS:uswap:GAUGE:360:0:U\
DS:ureal:GAUGE:360:0:U\
RRA:AVERAGE:0.5:1:1440\
RRA:AVERAGE:0.5:5:1440\
RRA:AVERAGE:0.5:30:1440\
RRA:AVERAGE:0.5:120:1440\
RRA:AVERAGE:0.5:720:1440\
RRA:MAX:0.5:1:1440\
RRA:MAX:0.5:5:1440\
RRA:MAX:0.5:30:1440\
RRA:MAX:0.5:120:1440\
RRA:MAX:0.5:720:1440
fi
STRING=`$CMD -c $COMNAME $HOST $OID | awk ‘{printf «:»$1}’`
TREAL=`$CMD -c $COMNAME $HOST .1.3.6.1.4.1.2021.4.5.0`
AREAL=`$CMD -c $COMNAME $HOST .1.3.6.1.4.1.2021.4.6.0`
UREAL=`expr $TREAL – $AREAL`
TSWAP=`$CMD -c $COMNAME $HOST .1.3.6.1.4.1.2021.4.3.0`
ASWAP=`$CMD -c $COMNAME $HOST .1.3.6.1.4.1.2021.4.4.0`
USWAP=`expr $TSWAP – $ASWAP`
FSTRING=$STRING:$USWAP:$UREAL
if [ -w "$RRDDIR/$HOST-$FILENAME" ]; then
$RRDCMD update $RRDDIR/$HOST-$FILENAME N$FSTRING
else
echo $HOST-$FILENAME is not writable
fi
done
—- END makerrdmem.sh —-

Вывод информации по памяти.
Хотя запись и ведется в одну базу, но на мой взгляд, разумнее выводить два графика.

1. Основная память
2. Своп

Скрипт вывода графика использования основной памяти:
Скрипт вызывается аналогично скрипту по процессору.
mem.cgi?DS= mail.maindomain.ru-mem.rrd&title=6%20hour%20graph&start=-6h

—- START mem.cgi —-
#!/usr/local/bin/perl -w
use RRDs;
use CGI qw(:standard);
use Math::Round qw(:all);
$rrddir=»/usr/local/rrd»;
my (@DEF, @FETCH_DEF, @PLOT, @options);
my $statfmt = «%.3lf%s»;
$|=1;
print header(‘image/gif’);
$database = param(‘DS’);
push (@FETCH_DEF, «$rrddir/$database»,
«AVERAGE», «-s», param(‘start’));
push(@DEF, «DEF:CP_TREAL=$rrddir/$database:treal:AVERAGE»);
push(@DEF, «DEF:CP_AREAL=$rrddir/$database:areal:AVERAGE»);
push(@DEF, «DEF:CP_BUFF=$rrddir/$database:buff:AVERAGE»);
push(@DEF, «DEF:CP_UREAL=$rrddir/$database:ureal:AVERAGE»);
push(@DEF, «CDEF:TREAL=CP_TREAL,1000,*»);
push(@DEF, «CDEF:AREAL=CP_AREAL,1000,*»);
push(@DEF, «CDEF:UREAL=CP_UREAL,1000,*»);
push(@DEF, «CDEF:BUFF=CP_BUFF,1000,*»);
push(@PLOT,
«COMMENT:Memory «,
«AREA:TREAL#1000CC:Total «,
«AREA:TREAL#54EC48:Free «,
«AREA:UREAL#EA644A:Used «,
«AREA:BUFF#48C4EC:Buffer»,
«LINE3:TREAL#1000AA»,
«LINE1:UREAL#CC3118″,
«LINE1:BUFF#1598C3″,
‘COMMENT:\n’);
push(@PLOT,
«GPRINT:TREAL:LAST:Now ${statfmt} total «,
«GPRINT:AREAL:LAST: ${statfmt} free «,
«GPRINT:UREAL:LAST: ${statfmt} used «,
«GPRINT:BUFF:LAST: ${statfmt} buffers»,
‘COMMENT:\n’);
push(@PLOT,
«GPRINT:TREAL:AVERAGE:Average ${statfmt} total «,
«GPRINT:AREAL:AVERAGE: ${statfmt} free «,
«GPRINT:UREAL:AVERAGE: ${statfmt} used «,
«GPRINT:BUFF:AVERAGE: ${statfmt} buffers»,
‘COMMENT:\n’);
push(@PLOT,
«GPRINT:TREAL:MAX:Maximum ${statfmt} total «,
«GPRINT:AREAL:MAX: ${statfmt} free «,
«GPRINT:UREAL:MAX: ${statfmt} used «,
«GPRINT:BUFF:MAX: ${statfmt} buffers»,
‘COMMENT:\n’);
foreach $opt (‘start’,'title’) {
if (param($opt)) {
push(@options, «–${opt}», param($opt));
}
}
push(@options, «–width»,»450″,»–height»,»120″);
push(@options, «–vertical-label»,»Memory Size»);
push(@options, «–lower-limit»,»1″);
push(@options, «–font»,»DEFAULT:8:/usr/lib/fonts/arial.ttf»);
RRDs::graph(‘-’,@options,@DEF,@PLOT);
exit 0;
—- END mem.cgi —-

Рисунок 1. График использования основной памяти.

—- START swap.cgi —-
#!/usr/local/bin/perl -w
use RRDs;
use CGI qw(:standard);
use Math::Round qw(:all);
$rrddir=»/usr/local/rrd»;
my (@DEF, @FETCH_DEF, @PLOT, @options);
my $statfmt = «%.3lf%s»;
$|=1;
print header(‘image/gif’);
$database = param(‘DS’);
push (@FETCH_DEF, «$rrddir/$database»,
«AVERAGE», «-s», param(‘start’));
push(@DEF, «DEF:CP_TSWAP=$rrddir/$database:tswap:AVERAGE»);
push(@DEF, «DEF:CP_ASWAP=$rrddir/$database:aswap:AVERAGE»);
push(@DEF, «DEF:CP_CACH=$rrddir/$database:cach:AVERAGE»);
push(@DEF, «DEF:CP_USWAP=$rrddir/$database:uswap:AVERAGE»);
push(@DEF, «CDEF:TSWAP=CP_TSWAP,1000,*»);
push(@DEF, «CDEF:ASWAP=CP_ASWAP,1000,*»);
push(@DEF, «CDEF:USWAP=CP_USWAP,1000,*»);
push(@DEF, «CDEF:CACH=CP_CACH,1000,*»);
push(@PLOT,
«COMMENT:Swap «,
«AREA:TSWAP#CC7016:Total «,
«AREA:TSWAP#ECD748:Free «,
«AREA:USWAP#7648EC:Used «,
«AREA:CACH#DE48EC:Cached»,
«LINE3:TSWAP#CC7016″,
«LINE1:USWAP#4D18E4″,
«LINE1:CACH#B415C7″,
‘COMMENT:\n’);
push(@PLOT,
«GPRINT:TSWAP:LAST:Now ${statfmt} total «,
«GPRINT:ASWAP:LAST: ${statfmt} free «,
«GPRINT:USWAP:LAST: ${statfmt} used «,
«GPRINT:CACH:LAST: ${statfmt} cached»,
‘COMMENT:\n’);
push(@PLOT,
«GPRINT:TSWAP:AVERAGE:Average ${statfmt} total «,
«GPRINT:ASWAP:AVERAGE: ${statfmt} free «,
«GPRINT:USWAP:AVERAGE: ${statfmt} used «,
«GPRINT:CACH:AVERAGE: ${statfmt} cached»,
‘COMMENT:\n’);
push(@PLOT,
«GPRINT:TSWAP:MAX:Maximum ${statfmt} total «,
«GPRINT:ASWAP:MAX: ${statfmt} free «,
«GPRINT:USWAP:MAX: ${statfmt} used «,
«GPRINT:CACH:MAX: ${statfmt} cached»,
‘COMMENT:\n’);
foreach $opt (‘start’,'title’) {
if (param($opt)) {
push(@options, «–${opt}», param($opt));
}
}
push(@options, «–width»,»450″,»–height»,»120″);
push(@options, «–vertical-label»,»Memory Size»);
push(@options, «–lower-limit»,»1″);
push(@options, «–font»,»DEFAULT:8:/usr/lib/fonts/arial.ttf»);
RRDs::graph(‘-’,@options,@DEF,@PLOT);
exit 0;
—- END swap.cgi —-

Рисунок 2. График использования своп.

Скрипт для сбора статистики по CPU.
Данный скрипт собирает статистику по нескольким параметрам загруженности CPU.
User – загрузка процессора пользовательскими приложениями;
Nice – загрузка процессора переназначенными приоритетами пользовательскими приложениями;
System – загрузка процессора системными приложениями;
Idle – свободные ресурсы процессора;
Kernel – загрузка процессора ядром системы;
Interrupt – загрузка процессора программными прерываниями.

—- START makerrdcpu.sh —-
#!/bin/sh
RRDDIR=»/usr/local/rrd» #Директория базы данных
CMD=»/usr/local/bin/snmpget -r 9 -t 3 -Oqv -v2c» #Команда для сбора статистики по SNMP
RRDCMD=»/usr/local/bin/rrdtool»
COMNAME=»public» #Комьюнити сервера (серверов)
FILENAME=»cpu.rrd» #суффикс файла
CONFIG=»/usr/local/etc/rrdconf/cpu.conf»
#OIDs
#ssCpuRawUser .1.3.6.1.4.1.2021.11.50.0
#ssCpuRawNice .1.3.6.1.4.1.2021.11.51.0
#ssCpuRawSystem .1.3.6.1.4.1.2021.11.52.0
#ssCpuRawIdle .1.3.6.1.4.1.2021.11.53.0
#ssCpuRawKernel .1.3.6.1.4.1.2021.11.55.0
#ssCpuRawInterrupt .1.3.6.1.4.1.2021.11.56.0
OID=».1.3.6.1.4.1.2021.11.50.0 \
.1.3.6.1.4.1.2021.11.51.0 \
.1.3.6.1.4.1.2021.11.52.0 \
.1.3.6.1.4.1.2021.11.53.0 \
.1.3.6.1.4.1.2021.11.55.0 \
.1.3.6.1.4.1.2021.11.56.0″
for i in `cat $CONFIG | grep -v «^#»`
do
HOST=$i
if [ ! -e "$RRDDIR/$HOST-$FILENAME" ]; then
[ -e "$RRDDIR" ] || mkdir «$RRDDIR»
$RRDCMD create «$RRDDIR/$HOST-$FILENAME» -s 60\
DS:user:COUNTER:360:0:U\
DS:nice:COUNTER:360:0:U\
DS:sys:COUNTER:360:0:U\
DS:idle:COUNTER:360:0:U\
DS:kernel:COUNTER:360:0:U\
DS:interrupt:COUNTER:360:0:U\
RRA:AVERAGE:0.5:1:1440\
RRA:AVERAGE:0.5:5:1440\
RRA:AVERAGE:0.5:30:1440\
RRA:AVERAGE:0.5:120:1440\
RRA:AVERAGE:0.5:720:1440\
RRA:MAX:0.5:1:1440\
RRA:MAX:0.5:5:1440\
RRA:MAX:0.5:30:1440\
RRA:MAX:0.5:120:1440\
RRA:MAX:0.5:720:1440
fi
STRING=`$CMD -c $COMNAME $HOST $OID | awk ‘{printf «:»$1}’`
if [ -w "$RRDDIR/$HOST-$FILENAME" ]; then
$RRDCMD update $RRDDIR/$HOST-$FILENAME N$STRING
else
echo $HOST-$FILENAME is not writable
fi
done
—- END makerrdcpu.sh —-

IP адреса или имена хостов с которых нужно собирать статистику храняться в файле определяемом перменной CONFIG
Пример файла конфигурации:

—- START cpu.conf —
192.168.0.1
mail.maindomain.ru
fw
—- END cpu.conf —

Скрипт создает в папке определенной переменной RRDDIR файл базы для каждого хоста.
Мя файла формируется из IP/Имени хоста полученного из файла конфигурации и суффикса заданного переменной FILENAME
Для нашего примера в папке /usr/local/rrd будут созданы файлы:
192.168.0.1-cpu.rrd
mail.maindomain.ru-cpu.rrd
fw-cpu.rrd
Скрипт нужно запускать cron-ом раз в минуту.
Для этого добавляем в cron строку

*/1 * * * * /usr/local/etc/rc.d/makerrdcpu.sh

Вывод информации.
Для вывода информации используется perl-скрипт cpu.cgi
В переменной $rrddir необходимо указать путь к вашим базам. Значение переменной $rrddir должно совпадать со значением переменной RRDDIR из скрипта сбора статистики.
Для вывода надписай используется ttf шрифт /usr/lib/fonts/arial.ttf

—- START cpu.cgi —-
#!/usr/local/bin/perl -w
use RRDs;
use CGI qw(:standard);
use Math::Round qw(:all);
$rrddir=»/usr/local/rrd»;
my (@DEF, @FETCH_DEF, @PLOT, @options);
my $statfmt = «%.1lf%%»;
$|=1;
print header(‘image/gif’);
$database = param(‘DS’);
push (@FETCH_DEF, «$rrddir/$database»,
«AVERAGE», «-s», param(‘start’));
push(@DEF, «DEF:CP_USER=$rrddir/$database:user:AVERAGE»);
push(@DEF, «DEF:CP_NICE=$rrddir/$database:nice:AVERAGE»);
push(@DEF, «DEF:CP_SYS=$rrddir/$database:sys:AVERAGE»);
push(@DEF, «DEF:CP_IDLE=$rrddir/$database:idle:AVERAGE»);
push(@DEF, «DEF:CP_INTER=$rrddir/$database:interrupt:AVERAGE»);
push(@DEF, «CDEF:SUM=CP_USER,CP_NICE,+,CP_SYS,+,CP_IDLE,+,CP_INTER,+»);
push(@DEF, «CDEF:USER=CP_USER,100,*,SUM,/»);
push(@DEF, «CDEF:NICE=CP_NICE,100,*,SUM,/»);
push(@DEF, «CDEF:SYS=CP_SYS,100,*,SUM,/»);
push(@DEF, «CDEF:IDLE=CP_IDLE,100,*,SUM,/»);
push(@DEF, «CDEF:INTER=CP_INTER,100,*,SUM,/»);
push(@DEF, «CDEF:TUSE=USER,SYS,+,NICE,+,INTER,+»);
push(@PLOT,
«COMMENT:Legend «,
«AREA:TUSE#DE48EC»,
«AREA:SYS#EA644A»,
«AREA:USER#54EC48″,
«AREA:INTER#7648EC»,
«LINE1:USER#24BC14:User «,
«LINE1:NICE#CC7016:Nice «,
«LINE1:SYS#CC3118:System «,
«LINE1:INTER#4D18E4:Interrupt «,
«LINE1:TUSE#B415C7:Total»,
‘COMMENT:\n’);
push(@PLOT,
«GPRINT:USER:LAST:Now ${statfmt} user «,
«GPRINT:NICE:LAST:${statfmt} nice «,
«GPRINT:SYS:LAST:${statfmt} sys «,
«GPRINT:INTER:LAST:${statfmt} inter «,
«GPRINT:TUSE:LAST:${statfmt} total «,
«GPRINT:IDLE:LAST:${statfmt} idle «,
‘COMMENT:\n’);
push(@PLOT,
«GPRINT:USER:AVERAGE:Average ${statfmt} user «,
«GPRINT:NICE:AVERAGE:${statfmt} nice «,
«GPRINT:SYS:AVERAGE:${statfmt} sys «,
«GPRINT:INTER:AVERAGE:${statfmt} inter»,
«GPRINT:TUSE:AVERAGE:${statfmt} total «,
«GPRINT:IDLE:AVERAGE:${statfmt} idle»,
‘COMMENT:\n’);
push(@PLOT,
«GPRINT:USER:MAX:Max ${statfmt} user»,
«GPRINT:NICE:MAX:${statfmt} nice «,
«GPRINT:SYS:MAX:${statfmt} sys «,
«GPRINT:INTER:MAX:${statfmt} inter «,
«GPRINT:TUSE:MAX:${statfmt} total «,
«GPRINT:IDLE:MAX:${statfmt} idle «,
‘COMMENT:\n’);
foreach $opt (‘start’,'title’) {
if (param($opt)) {
push(@options, «–${opt}», param($opt));
}
}

push(@options, «–width»,»450″,»–height»,»240″);
push(@options, «–vertical-label»,»percents»);
push(@options, «–lower-limit»,»1″);
push(@options, «–upper-limit»,»100″);
push(@options, «–font»,»DEFAULT:8:/usr/lib/fonts/arial.ttf»);
RRDs::graph(‘-’,@options,@DEF,@PLOT);
exit 0;
—- END cpu.cgi —-

Вызов скрипта осуществляется с передачей ему в качестве параметров:
DS – имя базы данных
title – заголовок графика
start – начальная позиция времени по оси Х (смещение относительно опорного времени)
* в одно смещение можно конкатенировать несколько единиц – 1h30m;
* можно использовать несколько смещений – -6h+15min;
* знак (+ или -)
* число
* единица измерения (years, months, weeks, days, hours, minutes, seconds). Можно сокращать вплоть до одной буквы. Чтобы понять, что означает буква m – минуты или месяца программе приходится читать мысли

Напрмр при запросе:
cpu.cgi?DS= mail.maindomain.ru-cpu.rrd&title=6%20hour%20graph&start=-6h
Будет выведен график из базы mail.maindomain.ru-cpu.rrd с заголовком 6 hour graph за 6 частов.
Что каким цветом показывается, понятно из легенды под графиком.
Легенда содержит три строки с данными.
1. Last – последнее (текущее) значение.
2. Average – среднее значение за показанный на графике период
3. Max – максимальное значение за показанный период.

Рисунок 1. График использования CPU.