Страница 1 из 1
Не вешает трубку.
Добавлено: Ср май 07, 2008 6:14 am
fedor
Добрый день.
Есть проблемка со срабатыванием hangup и zap.
Притом что всё настроено правильно.. При обращение телнетом к порту 30000 вижу отработку сервиса, а при нажатие кнопок в вэб интерфэйсе не проходит даже обращения к данному порту.
xinetd запущен в дебаг режиме и обращений не видно. Не могу понять в чём может быть проблема.
Система : Linux+pptpd+mysql+radius+Abill 0.36b
Abills 0.36b - стоит умышленно. Надо чтоб завелось на этой версии.
Добавлено: Ср май 07, 2008 7:07 am
Tiger
В ветке по Linux была такая
темка
Добавлено: Ср май 07, 2008 7:56 am
fedor
да тема действительно похожа. Но даже после всех манипуляций описаных в той темет эффекта не получил.
Добавлено: Ср май 07, 2008 9:01 am
fedor
А где можно в коде псмотреть что происходит при нажатии кнопок в вэбе?
Может в той версии что у меня где-то ошибка в коде? Ибо есть сервак с чуть более старой версией ,там всё работает.
Добавлено: Ср май 07, 2008 10:47 am
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;.
}.