| Authen :: Simple :: SMB. Authen :: Simple :: SMB´Â PerlÀÇ °£´ÜÇÑ SMB ÀÎÁõÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
Authen :: Simple :: SMB. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Christian Hansen
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~mramberg/Catalyst-Engine-Server-0.02/lib/Catalyst/Engine/Server.pm
Authen :: Simple :: SMB. ű×
Authen :: Simple :: SMB. ¼³¸í
Authen :: Simple :: SMB´Â PerlÀÇ °£´ÜÇÑ SMB ÀÎÁõÀÔ´Ï´Ù. Authen :: Simple :: SMB´Â Perl.Synopsis¿¡¼ °£´ÜÇÑ SMB ÀÎÁõÀ» »ç¿ëÇÕ´Ï´Ù. Authen :: Simple :: SMB; MY $ SMB = Authen :: Simple :: SMB-> New (domain => 'domain', pdc => 'pdc'); if ($ smb-> ÀÎÁõ ($ smb-> ÀÎÁõ ($ username, $ password) # ¶Ç´Â mod_perl authen handler perlmodule authen :: simple :: apache perlmodule authen :: simple :: smb perlsetvar authensimplesmb_domain "µµ¸ÞÀÎ"perlsetvar authensimplesmb_pdc "PDC"<À§Ä¡ º¸È£/> PerlauthenHandler Authen :: Simple :: SMB AuthType ±âº» Authname "º¸È£ ¿µ¿ª"À¯È¿ÇÑ »ç¿ëÀÚ°¡ ÇÊ¿äÇÕ´Ï´Ù. ¹æ¹ýÀÌ ¸Þ¼µå´Â Çؽà ¸Å°³ º¯¼ö¸¦ °¡Á®¿É´Ï´Ù. ´ÙÀ½ ¿É¼ÇÀÌ À¯È¿ÇÕ´Ï´Ù. µµ¸ÞÀÎ µµ¸ÞÀÎÀÌ ÀÎÁõ ÇÒ ¼ö ÀÖ½À´Ï´Ù. ÇʼöÀÇ. domain => 'ntdomain'PDC ±âº» µµ¸ÞÀÎ ÄÁÆ®·Ñ·¯. ÇʼöÀÇ. PDC => 'PDC'BDC ¹é¾÷ µµ¸ÞÀÎ ÄÁÆ®·Ñ·¯. bdc => 'bdc'log µð¹ö±×, Á¤º¸, ¿À·ù ¹× °æ°í¸¦ Áö¿øÇÏ´Â ¸ðµç °´Ã¼. log => log :: log4perl-> get_logger ( 'authen :: simple :: smb') ÀÎÁõ ($ username, $ password)Àº ½ÇÆнà ¼º°ø½Ã true¸¦ ¹ÝȯÇÏ°í ½ÇÆÐÇÑ °æ¿ì false¸¦ ¹ÝȯÇÕ´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.
Authen :: Simple :: SMB. °ü·Ã ¼ÒÇÁÆ®¿þ¾î