Re: Микротик + абиллс
Добавлено: Пн ноя 22, 2010 3:02 am
опять потыкал палкой и всё стало гуд
Подробней о палке расскажи...gekz писал(а):опять потыкал палкой и всё стало гуд
Так как в модуле ./libexec/racct.pl при загрузке модуля ему глубоко фиолетово что у тебя еще и mpd в биллинге как сервер доступа заведен.43351 ?? I 0:00.00 /bin/sh /usr/abills/libexec/ext_acct//mikrotik_mshaper.sh 2 127.0.0.1 2 mpd5 rke-sheldo 10.10.10.136
Код: Выделить всё
# Make accounting with external programs
if (-d $conf{extern_acct_dir}) {
opendir DIR, $conf{extern_acct_dir} or die "Can't open dir '$conf{extern_acct_dir}' $!\n";
my @contents = grep !/^\.\.?$/ , readdir DIR;
closedir DIR;
if ($#contents > -1) {
my $res = "";
foreach my $file (@contents) {
if (-x "$conf{extern_acct_dir}/$file" && -f "$conf{extern_acct_dir}/$file") {
# ACCT_STATUS IP_ADDRESS NAS_PORT
$res = `$conf{extern_acct_dir}/$file $acct_status_type $RAD->{NAS_IP_ADDRESS} $RAD->{NAS_PORT} $nas->{NAS_TYPE} $RAD->{USER_NAME} $RAD->{FRAMED_IP_ADDRESS}`;
log_print('LOG_DEBUG', "External accounting program '$conf{extern_acct_dir}' / '$file' pairs '$res'");
}
}
if (defined($res)) {
my @pairs = split(/ /, $res);
foreach my $pair (@pairs) {
my ($side, $value) = split(/=/, $pair);
$RAD->{$side} = "$value";
}
}
}
}
Код: Выделить всё
if ($nas->{NAS_TYPE} eq 'mikrotik') {
покажи что в итоге получилосьСоответственно перед этим всем делом поставил у себя такую проверку:
Код: Выделить всё
if ($nas->{NAS_TYPE} eq 'mikrotik') {
if (-d $conf{extern_acct_dir}) {
opendir DIR, $conf{extern_acct_dir} or die "Can't open dir '$conf{extern_acct_dir}' $!\n";
my @contents = grep !/^\.\.?$/ , readdir DIR;
closedir DIR;
if ($#contents > -1) {
my $res = "";
foreach my $file (@contents) {
if (-x "$conf{extern_acct_dir}/$file" && -f "$conf{extern_acct_dir}/$file") {
# ACCT_STATUS IP_ADDRESS NAS_PORT
$res = `$conf{extern_acct_dir}/$file $acct_status_type $RAD->{NAS_IP_ADDRESS} $RAD->{NAS_PORT} $nas->{NAS_TYPE} $RAD->{USER_NAME} $RAD->{FRAMED_IP_ADDRESS}`;
log_print('LOG_DEBUG', "External accounting program '$conf{extern_acct_dir}' / '$file' pairs '$res'");
}
}
if (defined($res)) {
my @pairs = split(/ /, $res);
foreach my $pair (@pairs) {
my ($side, $value) = split(/=/, $pair);
$RAD->{$side} = "$value";
}
}
}
}
}
гудdemonisius писал(а):да, именно, теперь только для нас типом mikrotik будут выполняться скрипты в папке /ext_acc.
блинdemonisius писал(а):не открылся word чего-то
расказывай :3gekz писал(а):вчера устраивали краш тесты для микротика
очень много нашли косяков
кому интересно, могу рассказать
щас как часы
просто интересно?namake писал(а): расказывай :3
Имеющиеся проблемы устранили. Интересно, с чем ещё можем столкнуться при увеличении нагрузки.gekz писал(а):просто интересно?
или есть сложности?