| httpd :: realmmanager. httpd :: RealmManager´Â HTTPD Server º¸¾È ¿µ¿ªÀ» °ü¸®ÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
httpd :: realmmanager. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Lincoln Stein
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~lds/Crypt-CBC-2.29/CBC.pm
httpd :: realmmanager. ű×
httpd :: realmmanager. ¼³¸í
httpd :: RealmManager´Â HTTPD Server º¸¾È ¿µ¿ªÀ» °ü¸®ÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. httpd :: RealmManager´Â HTTPD Server Security Realms.Synopsis¸¦ °ü¸®ÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. httpd :: RealmManager¸¦ »ç¿ëÇÕ´Ï´Ù. # µ¥ÀÌÅͺ£À̽º¸¦ ¿¾îÁÝ´Ï´Ù (httpd :: realm :: connect ()) $ database = httpd :: realmmanager-> open (-config_file => / home / httpd / conf / realms.conf ', -realm = > 'ȸ¿ø', ±â·Ï °¡´É => 1); # ¸ñ·Ï ÇÔ¼ö @users = $ database-> users (); @groups = $ database-> groups (); # »ç¿ëÀÚ ¹× ±×·ì¿¡ ´ëÇÑ Á¤º¸ : @group = $ database-> group (-user => 'lincoln')ÀÌÀÖ´Â °æ¿ì "¸µÄÁÀÇ ±×·ìÀÌ @groupn"ÀÔ´Ï´Ù. "LincolnÀÌ $ Database-> match_group (-user => 'lincoln', - group => '°¡ÀÔÀÚ'ÀÎ °æ¿ì"LincolnÀÌ °¡ÀÔ "ÀÔ´Ï´Ù. $ Pass = $ database-> passwd (-user => incoln ')¸¦ ÀμâÇÏ´Â °æ¿ì "LincolnÀÇ ¾ÏÈ£°¡ $ Passn"ÀÔ´Ï´Ù. $ database-> match_passwd (-user => 'lincoln', -password => 'xyzzy')¸¦ Á¦¿ÜÇÏ°í "ħÀÔÀÚ Alert.n"À» ÀμâÇϽʽÿÀ. $ Lincoln_Info = $ Database-> get_fields (-user => 'lincoln'); "LincolnÀÇ Àüü À̸§Àº $ Lincoln_Info -> {name} n"ÀÔ´Ï´Ù. @members = $ database-> ¸â¹ö (-group => 'subsibibers'ÀÎ °æ¿ì "°¡ÀÔÀÚ°¡ @ member.n"ÀÎ °æ¿ì Àμâ Àμâ # µ¥ÀÌÅͺ£À̽º ¾÷µ¥ÀÌÆ®°¡ "Ãß°¡ µÈ FRED.N"ÀÎ¼â µÈ °æ¿ì $ DATABASE-> set_passwd (-user => 'fred', -password => 'sssh!', -fields => {name => 'Fred Smith', Nationality => 'ÇÁ¶û½º ±¹¹Î'}); $ database-> set_group (-user => 'fred', -group => ¸¦ ÀÔ·ÂÇϸé "vips'n"À» '±¸µ¶ÀÚ'¹× 'vips'n'À¸·Î ÀμâÇϽʽÿÀ. $ Database-> set_Fields (-user => 'fred', -fields => {nationality => 'german'})¸¦ ÀμâÇϽʽÿÀ. PRINT "FRED°¡ GOOR.N"À̸é $ DATABASE-> delete_user (-user => fred '); PRINT "VIP GROUPÀº ÇöÀç GOOR.N"ÀÔ´Ï´Ù. $ DATABASE-> DELETE_GROUP (-GROUP => 'VIPS'); "UH OH. ¿À·ù°¡ ¹ß»ýÇß½À´Ï´Ù :", $ database-> errstr, "n"À̸é $ database-> errstr; ¿ä±¸ »çÇ× : ¡¤ Perl.
httpd :: realmmanager. °ü·Ã ¼ÒÇÁÆ®¿þ¾î