Authen :: Simple :: Radius.

Authen :: Simple :: Radius´Â Perl¿¡¼­ °£´ÜÇÑ ¹Ý°æ ÀÎÁõÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

Authen :: Simple :: Radius. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Christian Hansen
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~mramberg/Catalyst-Engine-Server-0.02/lib/Catalyst/Engine/Server.pm

Authen :: Simple :: Radius. ű×


Authen :: Simple :: Radius. ¼³¸í

Authen :: Simple :: Radius´Â PerlÀÇ °£´ÜÇÑ ¹Ý°æ ÀÎÁõÀÔ´Ï´Ù. Authen :: Simple :: Radius´Â Perl.synopsis¿¡¼­ °£´ÜÇÑ ¹Ý°æ ÀÎÁõÀÔ´Ï´Ù. Authen :: Simple :: Radius; MY $ RADIUS = Authen :: Simple :: Radius-> New (host => 'radius.company.com', secret => 'secret'); if ($ radius-> ÀÎÁõ ($ username, $ password) # ¶Ç´Â mod_perl authen handler perlmodule authen :: simple :: apache perlmodule authen :: simple :: radius perlsetvar authensimpleradius_host "radius.company. COM "PerlsetVar authensimpleradius_pdc"ºñ¹Ð "<À§Ä¡ º¸È£/> PerlauthenHandler Authen :: Simple :: Radius AuthType ±âº» Authname"º¸È£ ¿µ¿ª "ÀÌ ¸Þ¼­µå´Â Çؽà ¸Å°³ º¯¼ö¸¦ °¡Á®¿É´Ï´Ù. ´ÙÀ½ ¿É¼ÇÀÌ À¯È¿ÇÕ´Ï´Ù. È£½ºÆ® ¿¬°á È£½ºÆ®, È£½ºÆ® À̸§ ¶Ç´Â IP ÁÖ¼Ò°¡ µÉ ¼ö ÀÖ½À´Ï´Ù. ±âº»°ªÀº localhostÀÔ´Ï´Ù. host => 'ldap.company.com'È£½ºÆ® => '10.0.0.1'PORT ¿¬°á Æ÷Æ®, ±âº»°ªÀº 1812. Æ÷Æ® => 1645TIMEOUT ¿¬°á ½Ã°£ ÃÊ°ú, ±âº»°ªÀº 10ÀÔ´Ï´Ù. TIMEOUT => 20SECRET °øÀ¯ ºñ¹Ð. ÇʼöÀÇ. secret => 'mysecret'log µð¹ö±×, Á¤º¸, ¿À·ù ¹× °æ°í¸¦ Áö¿øÇÏ´Â ¸ðµç °³Ã¼ÀÔ´Ï´Ù. log => log :: log4perl-> get_logger ( 'authen :: simple :: radius') ÀÎÁõ ($ username, $ password)Àº ¼º°ø½Ã true¿Í ½ÇÆнà false¸¦ ¹ÝȯÇÕ´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.


Authen :: Simple :: Radius. °ü·Ã ¼ÒÇÁÆ®¿þ¾î