Отваливаеться perl скрипт, в чем проблема?

[tomparty]

Всем здрасте, запускаю скрипт, он работает все как надо, через день сматрю, а его нет в процессах, снова запускаю и так уже 5 раз(
Помогите, в чем дело, скрипт очень важный для меня(проверяет живой ли тунель ssh между серваками)

Вот сам скрипт, но дело думаю не внем

Код: [Выделить]

#!/usr/bin/perl
use Net::XMPP;
use Net::Ping::External qw(ping);

my $iping='10.1.200.2';                 # IP to ping
my $user='mutagen';                             # Jabber user
my $server='xmpp.ru';           # Jabber server
my $pass='xxxxxx123';                   # Pass to jabber
my $to='xxxxx@jabme.de';          # Message reciever jabber
my $interv=60;                  # Interval between messages to jabber when no ping
my $sleep=60;                           # Ping intervals
my $message='Tunnel down';              # Message to send

my $lastm=0;sub note{if(time()-$lastm>$interv){my $con=new Net::XMPP::Client();$con->Connect(hostname=>$server);
$con->AuthSend(username=>$user,password=>$pass,resource=>"ALARM!");my $msg=new Net::XMPP::Message();
$msg->SetMessage(to=>$to,from=>"$user\@$server",body=>$message);$con->Send($msg);$con->Disconnect();$lastm=time()}}
while(1){ping(host=>$iping)||&note;sleep $sleep}



[tomparty]

Неужели ни кто ничего не подскажет? в каком направлении копать?

[tomparty]

Пожалуйста ктонибудь ответьте!! Падает скрипт и все, запускаеться все ок, а через какое то времся процеса нету

[Olej]

Падает скрипт и все, запускаеться все ок, а через какое то времся процеса нету

Ну так запустите всё то же (а собственно только while цикл) в терминале и наблюдайте: как долго выполняется, через сколько отваливается, с какими кодами возврата (можете вставить) отваливается и т.д.

[tomparty]

Падает скрипт и все, запускаеться все ок, а через какое то времся процеса нету

Ну так запустите всё то же (а собственно только while цикл) в терминале и наблюдайте: как долго выполняется, через сколько отваливается, с какими кодами возврата (можете вставить) отваливается и т.д.

Объясните пожалуйста поподробнее что сделать?

[Olej]

Объясните пожалуйста поподробнее что сделать?

Запустить построчно ваш скрипт, выполнять его в отдельном терминале, и показать сюда результат .. через час, через 2, через 24 ...