VPF::Падает демон на Perl - Форум программистов

dreamerfkn

Дата 25.1.2012, 19:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 25.1.2012

Репутация: нет
Всего: нет

Здравствуйте!
ОС FreeBSD.
имеется демон написанный на перл..
с одной стороны слушает сокет типа UNIX(файл /tmp/mysock2) с другой стороны держит постоянное подключение к cisco маршрутизатору.
через сокет подключаются клиенты и дают команды на циску.
в случае пропадания телнета по таймауту - демон его восстанавливает..
какое-то время демон висит и работает правильно, но в какой-то момент при получении команды от клиента - просто падает.. подскажите отчего такое может быть и где копнуть?

Код


#!/usr/bin/perl -w
#use strict;
use IO::Socket;
use Net::Telnet::Cisco;
if ( ` ps afx | awk '/[0-9]+ server_telnetd/ {print $1;}'`) {

   # чтобы не запустить еще один экземрляр.
      print "Usage: service exec-daemon {start|stop}\n exit...\n ";
      exit;

 }
 $0 = "server_telnetd"; # даем имя процессу , для красоты
my $basedir="/home/admin/socket/";
sub coderef{
    local $err=@_[0];
    print "\n Error\n";
    print $err;
    if($err=~m/read error/ || $err=~/write error/){
        if($ip eq $cisco1_ip){
            $t1->open($cisco1_ip);
            $t1->login($cisco_user,$cisco_pass);
            @lines=$t1->cmd("configure terminal");
            @lines=$t1->cmd($comm);
            print @lines;
        }
        if($ip eq $cisco2_ip){
            $t2->open($cisco2_ip);
            $t2->login($cisco_user,$cisco_pass);
            @lines=$t2->cmd("configure terminal");
            @lines=$t1->cmd($comm);
            print @lines;
        }
    }
    print "\n End of error\n";
    print "comm=$comm;ip=$ip\n";
}
local $t1 = Net::Telnet::Cisco->new(Timeout => "0",Input_log=>$basedir."ind.log",Output_log=>$basedir."outd.log",Errmode => sub {&coderef});
local $t2 = Net::Telnet::Cisco->new(Timeout => "0",Input_log=>$basedir."in2d.log",Output_log=>$basedir."out2d.log",Errmode => sub {&coderef});
$cisco1_ip="192.168.1.1";
$cisco2_ip="192.168.1.2";
$cisco_user = "user";
$cisco_pass = "pass";
$t1->open($cisco1_ip);
$t1->login($cisco_user,$cisco_pass);
$t2->open($cisco2_ip);
$t2->login($cisco_user,$cisco_pass);
unlink "/tmp/mysock2";
my $server=IO::Socket::UNIX->new(Local => "/tmp/mysock2", Type => SOCK_STREAM, Listen => 5) or die $@;
$server->autoflush(1);
my @lines;
while(my $client=$server->accept()){
  my $data= <$client>;
  print $data, $/;
  local($ip,$com)=$data=~m/(\d+\.\d+\.\d+\.\d+);(.+)$/;
  @coms=split(/;/,$com);
  print @coms;
  if($ip eq $cisco1_ip){
  if(!$t1){
    print("reconnect t1\n");
    $t1->open($cisco1_ip);
    $t1->login($cisco_user,$cisco_pass);
  }
  foreach $comm(@coms){
  @lines=$t1->cmd($comm);
  print @lines;}
  }
  if($ip eq $cisco2_ip){
  if(!$t2){
    print("reconnect t2\n");
    $t2->open($cisco2_ip);
    $t2->login($cisco_user,$cisco_pass);
  }
   foreach $comm(@coms){
    @lines=$t2->cmd($comm);
    print @lines;}
  }
 }
 close($server);
$t1->close();
$t2->close();

arto

Дата 26.1.2012, 10:02 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 1
Всего: 40

проверяйте возвраты из функций, ищите, в каком месте падает

Pfailed

Дата 26.1.2012, 13:15 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 933
Регистрация: 19.7.2009

Репутация: 2
Всего: 39

Можно предположить что в одном из модулей вызывается die/croak на какую-то непредвиденную ситуацию. Сделайте перехват die и запишите сообщение об ошибке в лог:

Код


$SIG{__DIE__} = sub {
   unless ($^S) { # we are not inside eval
    ....
        print LOG @_;
        close LOG;
        die @_;
   }
};

Еще можно предположить что приходит сингнал PIPE, если один из модулей не очень аккуратно обрабатывает ошибки записи в сокет. Его тоже можно перехватить:

Код


$SIG{PIPE} = sub {
       ....
       print LOG "Process received SIGPIPE";
       close LOG;
       die;
};

--------------------

I'm on CPAN
I'm on github

dreamerfkn

Дата 29.1.2012, 10:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 25.1.2012

Репутация: нет
Всего: нет

Цитата(Pfailed @ 26.1.2012, 13:15)

Код


$SIG{__DIE__} = sub {
   unless ($^S) { # we are not inside eval
    ....
        print LOG @_;
        close LOG;
        die @_;
   }
};

Код


$SIG{PIPE} = sub {
       ....
       print LOG "Process received SIGPIPE";
       close LOG;
       die;
};

Да перехватил, действительно приходит сигнал PIPE причем от модуля Net::Telnet::Cisco.
Подскажите пожалуйста как это обойти..

Pfailed

Дата 29.1.2012, 11:06 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 933
Регистрация: 19.7.2009

Репутация: 2
Всего: 39

Цитата(dreamerfkn @ 29.1.2012, 10:30

)

Подскажите пожалуйста как это обойти..

Самым правильным было бы исправить эту ошибку в модуле.
Как быстрое решение, возможно, подойдет игнорирование этого сигнала

Код


$SIG{PIPE} = 'IGNORE';

--------------------

I'm on CPAN
I'm on github

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Системное программирование \| Следующая тема »