Проблемы со скриптом

Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
Ответить
Проблемы со скриптом
Помогите пожалуйста. Нужно сделать мониторинг 80 порта через Nagios, есть такой скрипт

#!/usr/bin/perl -w
use Net::Telnet;
use strict;
my $c1 = Net::Telnet->new(Timeout=>60);
my $connect = $c1->open(Host=>'ya.ru',Port=>'80');
#print  $connect;

if ( $connect == "1") {
   print "0";
   exit 0;
} else {
   print "2";
   exit 2;
}

Ну он не срабатывает,может быть кто нибудь что подскажет. Заранее спасибо
Страницы: 1
Ответить
Форма ответов
 
Текст сообщения*
:) ;) :D 8) :( :| :cry: :evil: :o :oops: :{} :?: :!: :idea:
Защита от автоматических сообщений. Введите символы, изображенные на этой картинке в поле ввода &quote;Код подтверждения&quote;.