freeradius2

Ответить
Nikishkin Alex
Сообщения: 34
Зарегистрирован: Вт дек 30, 2008 9:56 pm
Откуда: Vinnitsa

freeradius2

Сообщение Nikishkin Alex »

Собственно радиус в принципе стартует только вот сыпет такие сообщения
* Starting FreeRADIUS daemon freeradius Subroutine main::log_print redefined at /usr/share/perl/5.10/Exporter.pm line 67.
at /var/www/abills/libexec/rauth.pl line 30
require /var/www/abills/libexec/rauth.pl called at /usr/abills/libexec/rlm_perl.pl line 30
Use of uninitialized value in concatenation (.) or string at /var/www/abills/libexec/../Abills/mysql/Log.pm line 159.

Может че подправить ?
Будь проще и к тебе потянутся люди

Nikishkin Alex
Сообщения: 34
Зарегистрирован: Вт дек 30, 2008 9:56 pm
Откуда: Vinnitsa

Re: freeradius2

Сообщение Nikishkin Alex »

Нашел аналогичный топик viewtopic.php?f=2&t=4802&hilit=log&start=285 , короткий ответ автора - "обновите config.pl" . Для тупых можно ? Что там обновлять то ?
Будь проще и к тебе потянутся люди

Nikishkin Alex
Сообщения: 34
Зарегистрирован: Вт дек 30, 2008 9:56 pm
Откуда: Vinnitsa

Re: freeradius2

Сообщение Nikishkin Alex »

После обновления до с 0.53 до 0.54 запись в таблицу errors_log также прекратилась . Копание в файле /abills/Abills/mysql/Log.pm обнаружились некоторые отличия . Версия 0.53
#**********************************************************
# Make log records
# log_print($self)
#**********************************************************
sub log_print {
my ($self, $LOG_TYPE, $USER_NAME, $MESSAGE, $attr) = @_;
my $Nas = $attr->{NAS} || undef;

my $action = $attr->{'ACTION'} || $self->{ACTION} || '' ;

if ($CONF->{debugmods} =~ /$LOG_TYPE/) {
if ($CONF->{ERROR2DB}) {
$self->log_add({LOG_TYPE => $log_levels{$LOG_TYPE},
ACTION => $action,
USER_NAME=> $USER_NAME || '-',
MESSAGE => "$MESSAGE",
NAS_ID => $Nas->{NAS_ID}
});
}
else {
use POSIX qw(strftime);
my $DATE = strftime "%Y-%m-%d", localtime(time);
my $TIME = strftime "%H:%M:%S", localtime(time);
my $nas = (defined($Nas->{NAS_ID})) ? "NAS: $Nas->{NAS_ID} ($Nas->{NAS_IP}) " : '';

if(open(FILE, ">>$CONF->{LOGFILE}")) {
print FILE "$DATE $TIME $LOG_TYPE: $action [$USER_NAME] $nas$MESSAGE\n";
close(FILE);
}
else {
print "Can't open file '$CONF->{LOGFILE}' $!\n";
}
}

if ($self->{PRINT} || $attr->{PRINT}) {
use POSIX qw(strftime);
my $DATE = strftime "%Y-%m-%d", localtime(time);
my $TIME = strftime "%H:%M:%S", localtime(time);
my $nas = (defined($Nas->{NAS_ID})) ? "NAS: $Nas->{NAS_ID} ($Nas->{NAS_IP}) " : '';
print "$DATE $TIME $LOG_TYPE: $action [$USER_NAME] $nas$MESSAGE\n";
}
}
};

Ну и в версии 0.54

sub log_print {
my ($self, $LOG_TYPE, $USER_NAME, $MESSAGE, $attr) = @_;
my $Nas = $attr->{NAS} || undef;

my $action = $attr->{'ACTION'} || $self->{ACTION} || '';
if ($self->{LOG_FILE}) {
$attr->{LOG_FILE}=$self->{LOG_FILE};
}

if ($self->{debugmods}) {
$CONF->{debugmods}=$self->{debugmods};
}

if (!$CONF->{debugmods} || $CONF->{debugmods} =~ /$LOG_TYPE/) {
if ($CONF->{ERROR2DB} && !$attr->{LOG_FILE}) {
$self->log_add(
{
LOG_TYPE => $log_levels{$LOG_TYPE},
ACTION => $action,
USER_NAME => $USER_NAME || '-',
MESSAGE => "$MESSAGE",
NAS_ID => $Nas->{NAS_ID}
}
);
}
else {
use POSIX qw(strftime);
my $DATE = strftime "%Y-%m-%d", localtime(time);
my $TIME = strftime "%H:%M:%S", localtime(time);
my $nas = (defined($Nas->{NAS_ID})) ? "NAS: $Nas->{NAS_ID} ($Nas->{NAS_IP}) " : '';
my $logfile = ($attr->{LOG_FILE}) ? $attr->{LOG_FILE} : $CONF->{LOGFILE};
if (open(FILE, ">>$logfile")) {

print FILE "$DATE $TIME $LOG_TYPE: $action [$USER_NAME] $nas$MESSAGE\n";
close(FILE);
}
else {
print "Can't open file '$logfile' $!\n";
}
}

if ($self->{PRINT} || $attr->{PRINT}) {
use POSIX qw(strftime);
my $DATE = strftime "%Y-%m-%d", localtime(time);
my $TIME = strftime "%H:%M:%S", localtime(time);
my $nas = (defined($Nas->{NAS_ID})) ? "NAS: $Nas->{NAS_ID} ($Nas->{NAS_IP}) " : '';
print "$DATE $TIME $LOG_TYPE: $action [$USER_NAME] $nas$MESSAGE\n";
}
}
}
Может кто то знает варианты решения этого косяка ?
Будь проще и к тебе потянутся люди

~AsmodeuS~
Site Admin
Сообщения: 5746
Зарегистрирован: Пт янв 28, 2005 3:11 pm
Контактная информация:

Re: freeradius2

Сообщение ~AsmodeuS~ »

уберите из конфига функцию log_print

Ответить