Не вешает трубку.

[fedor]

Добрый день.
Есть проблемка со срабатыванием hangup и zap.
Притом что всё настроено правильно.. При обращение телнетом к порту 30000 вижу отработку сервиса, а при нажатие кнопок в вэб интерфэйсе не проходит даже обращения к данному порту.

xinetd запущен в дебаг режиме и обращений не видно. Не могу понять в чём может быть проблема.

Система : Linux+pptpd+mysql+radius+Abill 0.36b
Abills 0.36b - стоит умышленно. Надо чтоб завелось на этой версии.

[Tiger]

В ветке по Linux была такая темка

[fedor]

да тема действительно похожа. Но даже после всех манипуляций описаных в той темет эффекта не получил.

[fedor]

А где можно в коде псмотреть что происходит при нажатии кнопок в вэбе?
Может в той версии что у меня где-то ошибка в коде? Ибо есть сервак с чуть более старой версией ,там всё работает.

[ran]

А где можно в коде псмотреть что происходит при нажатии кнопок в вэбе?

Abills/nas.pl строка ~ 787

Код: Выделить всё

#*******************************************************************. 
# HANGUP pppd. 
# hangup_pppd($SERVER, $PORT). 
# add next string to  /etc/sudoers:. 
#. 
# apache   ALL = NOPASSWD: /usr/abills/misc/pppd_kill. 
#. 
#*******************************************************************. 
sub hangup_pppd {.
 my ($NAS, $id, $attr) = @_;.
 my $IP =  $attr->{FRAMED_IP_ADDRESS} ;.
 my $result =  '';
.
 if ($NAS->{NAS_MNG_IP_PORT} =~ /:/) {
   my ($ip, $mng_port)=split(/:/, $NAS->{NAS_MNG_IP_PORT}, 2);<>
   use IO::Socket;

   my $remote = IO::Socket::INET -> new(Proto    => "tcp",.
                                        PeerAddr => "$ip",
                                        PeerPort => $mng_port.
                                        )
    or die "cannot connect to rmstats port at $ip:$mng_port $!\n";

   print $remote "$IP\n";
   $result =  <$remote> ;
  }
 else {
   $result = system ("/usr/bin/sudo /usr/abills/misc/pppd_kill $IP");.
  }
  
  
 return $result;.
}.