https://www.m-200.com/base/index.php?action=history&feed=atom&title=%D0%9F%D0%BE%D0%B4%D0%BA%D0%BB%D1%8E%D1%87%D0%B5%D0%BD%D0%B8%D0%B5_%D0%BA_FREERADIUS._%D0%A7%D0%B0%D1%81%D1%82%D1%8C_3 2026-05-16T06:28:25Z История изменений этой страницы в вики MediaWiki 1.19.20 https://www.m-200.com/base/index.php?title=%D0%9F%D0%BE%D0%B4%D0%BA%D0%BB%D1%8E%D1%87%D0%B5%D0%BD%D0%B8%D0%B5_%D0%BA_FREERADIUS._%D0%A7%D0%B0%D1%81%D1%82%D1%8C_3&diff=135&oldid=prev 2014-12-03T07:37:34Z

<p>Новая страница: «&lt;div style=&quot;font-size:90%; clear: right; border-right: #aaaaaa 1px solid; padding-right: 1ex; border-top: #aaaaaa 1px solid; padding-left: 1ex; float: right; padd…»</p> <p><b>Новая страница</b></p><div>&lt;div style=&quot;font-size:90%; clear: right; border-right: #aaaaaa 1px solid; padding-right: 1ex; border-top: #aaaaaa 1px solid; padding-left: 1ex; float: right; padding-bottom: 1ex; margin: 1ex 0px 1ex 1ex; border-left: #aaaaaa 1px solid; width: 250px; padding-top: 1ex; border-bottom: #aaaaaa 1px solid; background-color: #fcfcfc&quot;&gt;<br /> *[[Подключение к FREERADIUS. Часть 1]]<br /> **''Насторойка М-200''<br /> *[[Подключение к FREERADIUS. Часть 2]]<br /> **''Насторойка FREERADIUS''<br /> *[[Подключение к FREERADIUS. Часть 3]]<br /> **''Авторизация''<br /> *[[Подключение к FREERADIUS. Часть 4]]<br /> **''Маршрутизация''<br /> &lt;/div&gt;<br /> <br /> {{ПравГлавМеню}}<br /> <br /> ===Для того, чтобы использовать встроенный perl необходимо:===<br /> <br /> 1. В файле modules/perl раскомментировать строку 'func_authorize = authorize'.<br /> <br /> 2. В файле radiusd.conf добавить:<br /> <br /> authorize {<br /> preprocess<br /> files<br /> perl<br /> }<br /> <br /> 3. В файле users убрать пользователя 904 и сделать ACCEPT правилом по умолчанию:<br /> <br /> DEFAULT Auth-Type = accept<br /> Fall-Through = yes<br /> <br /> 4. Перезапускаем freeradius. У меня на этом этапе сервер ни в какую не хотел есть Data::Dumper. Пришлось выкинуть - пока он вроде не нужен.<br /> <br /> <br /> ===Настройка обработчика===<br /> <br /> К меня по умолчанию используется файл example.pl (см. modules/perl). Это просто заготовка, которую я слегка подправлю.<br /> <br /> 1. Используем sub authorize.<br /> <br /> 2. Для передачи атрибутов используются два хэша - RAD_REQUEST и RAD_REPLY. Соответственно запрос и ответ.<br /> <br /> 3. Функция может возвращать RLM_MODULE_OK или RLM_MODULE_REJECT.<br /> <br /> <br /> И так, немного перла и получаем:<br /> <br /> sub authorize {<br /> if ($RAD_REQUEST{'User-Name'} == '904') {<br /> $RAD_REPLY{'h323-credit-time'} = &quot;h323-credit-time=1000&quot;;<br /> return RLM_MODULE_OK;<br /> }<br /> return RLM_MODULE_REJECT;<br /> }<br /> <br /> Вот так наверное лучше:<br /> <br /> sub authorize {<br /> if ($RAD_REQUEST{'Calling-Station-Id'} == '904') {<br /> $RAD_REPLY{'h323-credit-time'} = &quot;h323-credit-time=1000&quot;;<br /> return RLM_MODULE_OK;<br /> }<br /> return RLM_MODULE_REJECT;<br /> }<br /> <br /> ===Тестовый звонок===<br /> <br /> SEIZ EXT&lt;SIP&gt;(904)$<br /> CALL EXT&lt;SIP&gt;(904)$:6157 -&gt; CallAuth_in(770:4)$:6195 [904,407]<br /> SEIZ CallAuth_out(1538:4)$<br /> CALL CallAuth_out(1538:4)$:6196 -&gt; INT_IP(769/14)$:6132 [904,407]<br /> <br /> <br /> Вызов прошел.<br /> <br /> А вот, что говорит сам freeradius:<br /> <br /> rad_recv: Access-Request packet from host 127.0.0.1 port 55593, id=134, length=113<br /> Service-Type = Login-User<br /> h323-conf-id = &quot;h323-conf-id=1364990370-919873&quot;<br /> User-Name = &quot;904&quot;<br /> Calling-Station-Id = &quot;904&quot;<br /> h323-gw-id = &quot;h323-gw-id=904&quot;<br /> Called-Station-Id = &quot;407&quot;<br /> NAS-Port = 0<br /> NAS-IP-Address = 127.0.0.1<br /> +- entering group authorize {...}<br /> ++[preprocess] returns ok<br /> [files] users: Matched entry DEFAULT at line 20<br /> ++[files] returns ok<br /> rlm_perl: Added pair h323-gw-id = h323-gw-id=904<br /> rlm_perl: Added pair Service-Type = Login-User<br /> rlm_perl: Added pair Called-Station-Id = 407<br /> rlm_perl: Added pair Calling-Station-Id = 904<br /> rlm_perl: Added pair User-Name = 904<br /> rlm_perl: Added pair h323-conf-id = h323-conf-id=1364990370-919873<br /> rlm_perl: Added pair NAS-Port = 0<br /> rlm_perl: Added pair NAS-IP-Address = 127.0.0.1<br /> rlm_perl: Added pair h323-credit-time = h323-credit-time=1000<br /> rlm_perl: Added pair Auth-Type = Accept<br /> ++[perl] returns ok<br /> Found Auth-Type = Accept<br /> Auth-Type = Accept, accepting the user<br /> Login OK: [904/&lt;via Auth-Type = Accept&gt;] (from client m-200 port 0 cli 904)<br /> +- entering group post-auth {...}<br /> ++[exec] returns noop<br /> Sending Access-Accept of id 134 to 127.0.0.1 port 55593<br /> h323-credit-time = &quot;h323-credit-time=1000&quot;<br /> Finished request 7.<br /> Going to the next request<br /> Waking up in 4.9 seconds.<br /> Cleaning up request 7 ID 134 with timestamp +2712<br /> Ready to process requests.<br /> <br /> <br /> Видно, как подключается perl обработчик.<br /> <br /> <br /> ===Резюме===<br /> <br /> Используя возможности PERL, вполне возможно построить систему любой сложности. Так же интересным может быть модуль RLM_MYSQL - взаимодействие с mysql сервером. Но об этом в другой раз. <br /> <br /> <br /> В [[Подключение к FREERADIUS. Часть 4|четвертой части]] речь пойдет собственно о маршрутизации.<br /> <br /> <br /> <br /> [[Категория:RADIUS]]<br /> [[Категория:Уголок ДР]]<br /> __NOTOC__</div>

Pax