Freebsd 10 + Nagios + ARPING
Добавлено: 2016-02-15 21:43:55
Добрый вечер. Вот нашел такую статью http://www.skleroznik.in.ua/2013/10/07/ ... d-freebsd/
Все сделал, но не работает скрипт, возможно был написан под старую версию перла или еще что-то... Выдает:
Сам скрипт:
Или есть возможность другой реализации? Гугл молчит....
Все сделал, но не работает скрипт, возможно был написан под старую версию перла или еще что-то... Выдает:
Код: Выделить всё
root@gw-pos:/usr/local/libexec/nagios # ./check_arping -H 10.0.1.2 -I re0 -T 30
syntax error at ./check_arping line 8, near ">"
syntax error at ./check_arping line 8, near "1) "
syntax error at ./check_arping line 11, near "}"
syntax error at ./check_arping line 18, near ">"
syntax error at ./check_arping line 21, near "}"
syntax error at ./check_arping line 25, near "}"
Execution of ./check_arping aborted due to compilation errors.
Код: Выделить всё
#! /usr/local/bin/perl
$ip =$ARGV[1];
$iface =$ARGV[3];
$timeout =$ARGV[5]*1000;
$cmd = "/usr/local/sbin/arping -i $iface -w $timeout -c 4 $ip";
@res = `$cmd`;
foreach $str (@res) {
if (index($str,'packets')>-1) {
$more = $str;
}
}
$more =~ /.*\s(\d+)%.*/;
$percent = $1;
if ($percent == 0) {
$status = "OK";
$code = 0;
}
if ($percent > 25) {
$status = "WARNING";
$code = 1;
}
if ($percent == 100) {
$status = "CRITICAL";
$code = 2;
}
print "ARPING $status - |$more";
exit $code;
__END__
слепая копипаста, замени