Показать исходный текстСсылки сюдаНаверх [Пример]подмены маски в radreply Найти: sub authorize { print $sock "auth\n"; $answer=<$sock>; print $sock serialize(\%RAD_REQUEST); $answer=<$sock>; print $sock serialize(\%RAD_REPLY); $answer=<$sock>; print $sock serialize(\%RAD_CHECK); $answer=<$sock>; if ($answer eq "reject\n") { return RLM_MODULE_REJECT; } $answer=<$sock>; %RAD_REPLY=%{unserialize($answer)}; if ($RAD_REPLY{'Packet-Type'} eq "Access-Accept") { if ($RAD_REPLY{'Framed-IP-Netmask'} eq "255.255.255.255") { $RAD_REPLY{'Framed-IP-Netmask'} = "255.255.255.0"; } } $answer=<$sock>; %RAD_CHECK=%{unserialize($answer)}; return RLM_MODULE_OK; } Заменить на: if ($RAD_REPLY{'Packet-Type'} eq "Access-Accept") { if ($RAD_REPLY{'Framed-IP-Netmask'} eq "255.255.255.255") { $RAD_REPLY{'Framed-IP-Netmask'} = "255.255.255.0"; } } sysadmin/radpreply.txt Последние изменения: 2020/04/17 16:13 — admin