OpenDev Watchdog

opendev
watchdog

#41

Вот скриптец на перле, который ребутит систему без всяких ватчдогов, если не может пропинговать роутер 192.168.1.1 (у кого то будет 192.168.0.1).
Записываем его в /etc/init.d/имя файла.
Например /etc/init.d/Reboot.pl
Не забываем chmod +x Reboot.pl
Добавляем его в автозагрузку выполнив команду
update-rc.d Reboot.pl defaults
И ребутим ферму, что бы он подхватился, в терминале пишем reboot

#!/usr/bin/perl
### BEGIN INIT INFO
# Provides: MyScript
# Required-Start: $all
# Required-Stop: $all
# Default-Start: 2 3 4 5
#Default-Stop: 0 1 6
# Short-Description: …
# Description: …
### END INIT INFO

use Net::Ping;

while(1){
sleep 600

my $p = Net::Ping->new();

unless ($p->ping('192.168.1.1')) {

print `reboot`;

}

$p->close();
}