Подключил perl модуль пользуюсь скриптом wingman'a... не могу понять в чем может быть дело.... ведь в логах адрес есть, а в перл скрипт не передает
Логин передается без проблем
Код: Выделить всё
Sending Access-Accept of id 77 to 127.0.0.1 port 40974
Framed-Pool = "dialup_pool"
Framed-IP-Address = 172.18.6.6
Framed-IP-Netmask = 255.255.255.0
Finished request 1.
Going to the next request
Waking up in 4.9 seconds.
rad_recv: Accounting-Request packet from host 127.0.0.1 port 40974, id=78, length=63
Acct-Status-Type = Start
User-Name = "dhcp_user1"
Acct-Session-Id = "00:11:95:fc:3d:c2"
NAS-Port = 1019
Код: Выделить всё
здесь в скрипте прописано(print $RAD_REQUEST{'Famed-IP-Address'}
IP -
uname - dhcp_user1
00:11:95:fc:3d:c2
725
270
105
105
66
Код: Выделить всё
print $RAD_REQUEST{'Framed-IP-Address'}."\n";
# Тут проверяется, не из диапазона ли реальных внешников выдан IP
if($RAD_REQUEST{'Acct-Status-Type'} eq 'Start' && not($RAD_REQUEST{'Framed-IP-Address'} =~ m/1.2.3.[0-9]+/i))
{
my $fip = $RAD_REQUEST{'Framed-IP-Address'};
my $uname = $RAD_REQUEST{'SQL-User-Name'};
my $sessid = $RAD_REQUEST{'Acct-Session-Id'};
print "IP -".$fip."\n";
print "uname - ".$uname."\n";
print $sessid."\n";