billd не вышибает юзеров
billd не вышибает юзеров
с отрицательным или нулевым балансом.
abills current cvs от 03092007, mpd 4.2.2. С веба hangup работает.
abills current cvs от 03092007, mpd 4.2.2. С веба hangup работает.
Баг найден: жесткая привязка к названию бандла в nas.pl
#*******************************************************************
# HANGUP MPD
# hangup_mpd4($SERVER, $PORT)
#*******************************************************************
sub hangup_mpd4 {
my ($NAS, $PORT, $attr) = @_;
my $ctl_port = "pptp$PORT";
У меня x. Бандлы могут называться произвольно. Да и вообще, пользуем l2tp. Казалось бы, при чем тут pptp?
#*******************************************************************
# HANGUP MPD
# hangup_mpd4($SERVER, $PORT)
#*******************************************************************
sub hangup_mpd4 {
my ($NAS, $PORT, $attr) = @_;
my $ctl_port = "pptp$PORT";
У меня x. Бандлы могут называться произвольно. Да и вообще, пользуем l2tp. Казалось бы, при чем тут pptp?
-
- Site Admin
- Сообщения: 5746
- Зарегистрирован: Пт янв 28, 2005 3:11 pm
- Контактная информация:
billd error
My version is: 0.36
hangup pri deposit 0 a ne pri -10 primerna !!!
Please open the file and edit line 234:/usr/abills/libexec/billd
if ( ($Billing->{PAYMENT_TYPE}==0) && ($line->[14] + $line->[15] < $self->{SUM}) ) {
change to:
if ( ($Billing->{PAYMENT_TYPE}==0) && ($line->[14] + $line->[15] <= $self->{SUM}) ) {
hangup pri deposit 0 a ne pri -10 primerna !!!
Please open the file and edit line 234:/usr/abills/libexec/billd
if ( ($Billing->{PAYMENT_TYPE}==0) && ($line->[14] + $line->[15] < $self->{SUM}) ) {
change to:
if ( ($Billing->{PAYMENT_TYPE}==0) && ($line->[14] + $line->[15] <= $self->{SUM}) ) {
my $ret = hangup(\%NAS, "$nas_port_id", "$line->[0]", { ACCT_SESSION_IS => $acct_session_id,
если \%NAS поменять на mpd4, то:
скрипт отрабатывает и даже выдает кого он типа сбросил: "Hanguped Login:.... " и т.д. Причем правильно. именно того юзверя что надо. но на самом деле никого не сбрасывает. уважаемый автор - ХЕЛП ПЛИЗ. Куда порыть? Пробовал в nas.pl поковыряться. но он почему то мне не хочет обрабатывать "print". Пробовал повстявлять, чтобы глянуть какие переменные передаются. Там я так понял есть процедура hangup_mpd. Но в ней "print $переменная" ничего не выдает на консоль. В общем еще раз ХЕЛП.
если \%NAS поменять на mpd4, то:
скрипт отрабатывает и даже выдает кого он типа сбросил: "Hanguped Login:.... " и т.д. Причем правильно. именно того юзверя что надо. но на самом деле никого не сбрасывает. уважаемый автор - ХЕЛП ПЛИЗ. Куда порыть? Пробовал в nas.pl поковыряться. но он почему то мне не хочет обрабатывать "print". Пробовал повстявлять, чтобы глянуть какие переменные передаются. Там я так понял есть процедура hangup_mpd. Но в ней "print $переменная" ничего не выдает на консоль. В общем еще раз ХЕЛП.
-
- Site Admin
- Сообщения: 5746
- Зарегистрирован: Пт янв 28, 2005 3:11 pm
- Контактная информация:
ок. попробуем. сразу встречный вопрос. при включенном вот таком дебаге, строка в abills.log при _удачном_ входе должна изменить свой вид? я имею в виду добавится еще какие-то параметры???? и еще - при стандартных параметрах при отработке billd в лог вообще ничего не попадало
вопрос еще такой. я тестирую billd на отрубление таким образом - захожу тестовым юзером с положительным балансом, потом снимаю у нео со счета деньги, чтобы у него стал "-" и запускаю billd. это правильно?
вопрос еще такой. я тестирую billd на отрубление таким образом - захожу тестовым юзером с положительным балансом, потом снимаю у нео со счета деньги, чтобы у него стал "-" и запускаю billd. это правильно?
-
- Site Admin
- Сообщения: 5746
- Зарегистрирован: Пт янв 28, 2005 3:11 pm
- Контактная информация:
вот abills.log:
2007-09-05 17:50:01 LOG_DEBUG: Connected to 127.0.0.1:5005
2007-09-05 17:50:01 LOG_DEBUG: Get: "Multi-link PPP for FreeBSD, by Archie L. Cobbs.
"
Length: 49
2007-09-05 17:50:01 LOG_DEBUG: Wait for: ''
2007-09-05 17:50:01 LOG_DEBUG: Get: "Based on iij-ppp, by Toshiharu OHNO.
яыяэяыяэUsername: "
Length: 62
2007-09-05 17:50:01 LOG_DEBUG: Wait for: 'Username: '
2007-09-05 17:50:01 LOG_DEBUG: Send: admin
2007-09-05 17:50:01 LOG_DEBUG: Get: "admin"
Length: 4
2007-09-05 17:50:01 LOG_DEBUG: Wait for: 'Password: '
2007-09-05 17:50:01 LOG_DEBUG: Connected to 127.0.0.1:5005
2007-09-05 17:50:01 LOG_DEBUG: Get: "Multi-link PPP for FreeBSD, by Archie L. Cobbs.
"
Length: 49
2007-09-05 17:50:01 LOG_DEBUG: Wait for: ''
2007-09-05 17:50:01 LOG_DEBUG: Get: "Based on iij-ppp, by Toshiharu OHNO.
яыяэяыяэUsername: "
Length: 62
2007-09-05 17:50:01 LOG_DEBUG: Wait for: 'Username: '
2007-09-05 17:50:01 LOG_DEBUG: Send: admin
2007-09-05 17:50:01 LOG_DEBUG: Get: "admin"
Length: 4
2007-09-05 17:50:01 LOG_DEBUG: Wait for: 'Password: '
Аналогичная ситуация!
Строка line 234:
С веба hangup работает.
ABillS 0.37b + exppp
ЧТо делать ?
Код: Выделить всё
Output from command /usr/abills/libexec/billd -all ..
Use of uninitialized value in addition (+) at /usr/abills/libexec/billd line 234.
Use of uninitialized value in addition (+) at /usr/abills/libexec/billd line 234.
Use of uninitialized value in addition (+) at /usr/abills/libexec/billd line 234.
Код: Выделить всё
if ( ($Billing->{PAYMENT_TYPE}==0) && ($line->[14] + $line->[15] <= $self->{SUM}) ) {
ABillS 0.37b + exppp
ЧТо делать ?
-
- Site Admin
- Сообщения: 5746
- Зарегистрирован: Пт янв 28, 2005 3:11 pm
- Контактная информация: