Authen :: Pam.PERL ÀÎÅÍÆäÀ̽º PAM ¶óÀ̺귯¸® | |
Áö±Ý ´Ù¿î·Îµå |
Authen :: Pam. ¼øÀ§ ¹× ¿ä¾à
±¤°í
- ƯÇã:
- Perl Artistic License
- °¡°Ý:
- FREE
- °Ô½ÃÀÚ À̸§:
- Nikolay Pelov
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~nikip/
Authen :: Pam. ű×
Authen :: Pam. ¼³¸í
PAM ¶óÀ̺귯¸®¿¡ ´ëÇÑ Perl ÀÎÅÍÆäÀ̽º Authen :: PAMÀº PAM ¶óÀ̺귯¸®¿¡ Perl ÀÎÅÍÆäÀ̽º¸¦ Á¦°øÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. Ç¥ÁØ PAM ÀÎÅÍÆäÀ̽º¿ÍÀÇ À¯ÀÏÇÑ Â÷ÀÌÁ¡Àº Ãß°¡ ÄÁÅؽºÆ® ¸Å°³ º¯¼ö°¡ÀÖ´Â PAM_CONV ±¸Á¶Ã¼¸¦ Àü´ÞÇÏ´Â ´ë½Å PERL·Î ÀÛ¼ºµÈ ´ëÈ ÇÔ¼ö¿¡ ´ëÇÑ ÁÖ¼Ò¸¦ Á¦°øÇؾßÇÕ´Ï´Ù (¾Æ·¡ ÂüÁ¶). PAM_STARTÀÇ $ »ç¿ëÀÚ °ªÀ¸·Î Undef ¶Ç´Â 2 Àμö ¹öÀü »ç¿ë. µÎ °³ÀÇ 3 Àμö ¹öÀüÀÇ pam_startÀÇ 3 Àμö ¹öÀü¿¡¼ ±âº» ´ëÈ ±â´ÉÀÌ »ç¿ëµË´Ï´Ù (authen :: pam :: paam_default_conv). $ Ç÷¡±× Àμö´Â pam_setcred¸¦ Á¦¿ÜÇÏ°í »ç¿ëÇÏ´Â ¸ðµç ÇÔ¼ö¿¡ ´ëÇØ ¼±ÅÃÀûÀÔ´Ï´Ù. $ pam_status Àμö´Â pam_end ÇÔ¼ö¿¡µµ ¼±Åà »çÇ×ÀÔ´Ï´Ù. ÀÌ µÎ °³ÀÇ Àμö´Â ¸ðµÎ 0À¸·Î ¼³Á¤µË´Ï´Ù. PAM ¶óÀ̺귯¸®ÀÇ ÀϺΠ»ó¼öÀÇ À̸§ÀÌ ½Ã°£ µ¿¾È º¯°æµÇ¾ú½À´Ï´Ù. ÀÌ ¸ðµâÀÌ PAM ¶óÀ̺귯¸® (¿¹ : PAM_FAIL_DELAY)ÀÇ ÀϺθ¦ Ãß°¡·Î Áö¿øÇÏ´Â °æ¿ì,ÀÌ ¸ðµâÀÌ ÀϺθ¦ Áö¿øÇÏ´Â °æ¿ì, ÁÖ¾îÁø »ó¼öÀÇ ¾Ë·ÁÁø À̸§ Áß Çϳª¸¦ »ç¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù. ±×·¸Áö ¾ÊÀ¸¸é ÇØ´ç HAS_PAM_XXX »ó¼ö°¡ °ª 1À» °®½À´Ï´Ù. ¿À·¡µÈ PAM ¶óÀ̺귯¸®¿ÍÀÇ È£È¯¼ºÀ» ¹ÝȯÇÕ´Ï´Ù. PAM ¶óÀ̺귯¸®°¡ ȯ°æ º¯¼ö¸¦ ó¸®ÇϱâÀ§ÇÑ ±â´É (PAM_PUTENV, PAM_GETENV, PAM_GETENVLIST)À» ¼öÇàÇÏ´Â ±â´ÉÀÌÀÖ´Â °æ¿ì »ó¼ö has_PAM_ENV_FUNCTIONS°¡ ¿Ï·áµÇ¾ú½À´Ï´Ù. Synopsis »ç¿ë authen :: pam; $ res = pam_start ($ service_name, $ pamh); $ res = pam_start ($ service_name, $ »ç¿ëÀÚ, $ pamh); $ res = pam_start ($ service_name, $ user, \ my_conv_func, $ pamh); $ res = pam_end ($ pamh, $ pam_status); $ res = pam_authenticate ($ pamh, $ Ç÷¡±×); $ res = pam_setcred ($ pamh, $ Ç÷¡±×); $ res = pam_acct_mgmt ($ pAMH, $ Ç÷¡±×); $ res = pam_open_session ($ pamh, $ Ç÷¡±×); $ res = pam_close_session ($ pamh, $ Ç÷¡±×); $ res = pam_chauthtok ($ pamh, $ Ç÷¡±×); $ error_str = pam_strerror ($ pamh, $ errnum); $ res = pam_set_item ($ pAMH, $ item_type, $ Ç׸ñ); $ res = pam_get_item ($ pAMH, $ item_type, $ Ç׸ñ); if (has_pam_env_functions ()) {$ res = pam_putenv ($ pAMH, $ name_value); $ val = pam_getenv ($ pamh, $ name); % env = pam_getenvlist ($ pamh); } (has_pam_fail_delay ()) {$ res = pam_fail_delay ($ pamh, $ musec_delay); $ res = pam_set_item ($ pAMH, pam_fail_delay (), \ my_fail_delay_func); } ¿ä±¸ »çÇ× : ¡¤ Perl.
Authen :: Pam. °ü·Ã ¼ÒÇÁÆ®¿þ¾î