| RADIUS :: Packet. RADIUS :: PacketÀº RADIUS ÆÐŶ¿¡ ´ëÇÑ °´Ã¼ ÁöÇâ PERL ÀÎÅÍÆäÀ̽ºÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
RADIUS :: Packet. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Christopher Masto
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~chrmasto/RADIUS-1.0/RADIUS/Dictionary.pm
RADIUS :: Packet. ű×
RADIUS :: Packet. ¼³¸í
RADIUS :: PacketÀº RADIUS ÆÐŶ¿¡ ´ëÇÑ °´Ã¼ ÁöÇâ Perl ÀÎÅÍÆäÀ̽ºÀÔ´Ï´Ù. RADIUS :: PacketÀº RADIUS ÆÐŶ¿¡ ´ëÇÑ °´Ã¼ ÁöÇâ PERL ÀÎÅÍÆäÀ̽ºÀÔ´Ï´Ù .SNOPSIS »ç¿ë RADIUS :: Packet; RADIUS :: Dictionary¸¦ »ç¿ëÇϽʽÿÀ. MY $ D = »õ·Î¿î RADIUS :: »çÀü "/ etc / radius / dictionary"; MY $ P = NEW RADIUS :: PACKET $ D, $ DATA; $ p-> ´ýÇÁ; if ($ p-> attr ( 'user-name'eq "lwall") {³» $ resp = new radius :: packet $ d; $ resp-> set_code ( '¾×¼¼½º - ¼ö¶ô'); $ resp-> set_identifier ( $ p-> ½Äº°ÀÚ); $ resp-> set_authenticator ($ p-> ÀÎÁõ ÀÚ); $ resp-> set_attr ( 'reply-message') = "welcome, larry! rn"; my $ respdat = auth_resp ($ resp- > ÆÑ, "mysecret"); ... RADIUS (RFC2138) ´Ù¾çÇÑ °ª°ú ¼Ó¼ºÀ» Æ÷ÇÔÇÏ´Â ¹ÙÀ̳ʸ® ÆÐŶ Çü½ÄÀ» ÁöÁ¤ÇÕ´Ï´Ù. RADIUS :: PacketÀº RADIUS ÆÐŶÀ» Perl µ¥ÀÌÅÍ ±¸Á¶·Î ÀüȯÇÏ°í ±× ¹Ý´ë·Î versa.radius :: ÆÐŶÀº ³×Æ®¿öÅ©¿¡¼ RADIUS ÆÐŶÀ» ¾ò´Â ±â´ÉÀ» Á¦°øÇÏÁö ¾Ê½À´Ï´Ù. °£´ÜÇÑ ³×Æ®¿öÅ© RADIUS ¼¹ö´ÂÀÌ ¹®¼ÀÇ ³¡¿¡ÀÖ´Â ¿¹Á¦·Î Á¦°øµË´Ï´Ù. ¶ÇÇÑ RADIUS :: SERVER ¸ðµâÀº ÀÎÅÍÆäÀ̽º¸¦ ´Ü¼øÈÇÏ´Â °³¹ß ÁßÀÔ´Ï´Ù. ¿ä±¸ »çÇ× : ¿ä±¸ »çÇ× : ¡¤ Perl.
RADIUS :: Packet. °ü·Ã ¼ÒÇÁÆ®¿þ¾î