| apache2 :: pagekit. Apache2 :: PageKitÀº mod_perl, xml ¹× html :: ÅÛÇø´À» »ç¿ëÇÏ´Â MVCC À¥ ÇÁ·¹ÀÓ ¿öÅ©ÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
apache2 :: pagekit. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~borisz/Apache2-PageKit-2.14_14/lib/Apache2/PageKit.pm
apache2 :: pagekit. ű×
apache2 :: pagekit. ¼³¸í
apache2 :: pagekit mod_perl, xml ¹× html :: ÅÛÇø´À» »ç¿ëÇÏ´Â MVCC À¥ ÇÁ·¹ÀÓ ¿öÅ©ÀÔ´Ï´Ù. apache2 :: pagekit mod_perl, xml ¹× html :: template.synopsisin httpd.conf setHandler Perl-script / pagekit / files perlsetvar pkit_server ½ºÄÉÀÌÆà perlHandler + apache2 :: pagekit -> ½ÃÀÛ ( '/ path / to / pagekit / files', '½ºÅ×ÀÌ¡'); myPagekit / common.pm ÆÐÅ°Áö MyPageKit :: ÀϹÝ; ±âº» 'apache2 :: pagekit :: model'À» »ç¿ëÇϽʽÿÀ. SUB PKIT_DBI_CONNECT {DBI-> CONNECT ( "dbi : mysql : db", "»ç¿ëÀÚ", "passwd"); } Sub PKIT_SESSION_SETUP {MY $ MODEL = SHIFT; ³» $ dbh = $ model-> dbh; ¸®ÅÏ {session_lock_class => 'mysql', session_store_class => 'mysql', session_args => {handle => $ dbh, lockhandle => $ dbh,},}; } Sub PKIT_AUTH_CREDILE {MY ($ ¸ðµ¨) = @_; #ÀÌ ¿¹¿¡¼ ·Î±×ÀÎ ¹× passwd´Â ÀÚ°Ý Áõ¸í ÇʵåÀÇ À̸§ÀÔ´Ï´Ù $ login = $ model-> ÀÔ·Â ( '·Î±×ÀÎ'); MY $ PASSWD = $ MODEL-> ÀÔ·Â ( 'PASSWD'); # ¼¼¼Ç Å° ¸¸µé±â # your your your ......... $ ses_key¸¦ ¹ÝȯÇÕ´Ï´Ù. } sub pkit_auth_session_key {my ($ model, $ ses_key) = @_; # $ SES_KEY°¡ À¯È¿ÇÑÁö È®ÀÎÇϽʽÿÀ. $ user_id #¿¡¼ »ç¿ëÀÚ ID¸¦ ¹ÝȯÇϽʽÿÀ ......... $ OK¸¦ ¹ÝȯÇմϱî? $ user_id : undef; } PageKitÀº HTML :: Template ¹× XMLÀ» »ç¿ëÇÏ¿© ÄÚµå, µðÀÚÀÎ ¹× ³»¿ëÀ» ºÐ¸®ÇÏ´Â mod_perl ±â¹Ý ÀÀ¿ë ÇÁ·Î±×·¥ ÇÁ·¹ÀÓ ¿öÅ©ÀÔ´Ï´Ù. ¼¼¼Ç °ü¸®, ÀÎÁõ, ¾ç½Ä À¯È¿¼º °Ë»ç, °øµ¿ ºê·£µù ¹× ÄÁÅÙÃ÷ °ü¸® ½Ã½ºÅÛÀ» Æ÷ÇÔÇÕ´Ï´Ù. ¸ñÇ¥´Â À¥ ÇÁ·Î±×·¡¹ÖÀÇ ¸ðµç ÀϹÝÀûÀÎ ¹®Á¦¸¦ ÇØ°áÇÏ°í µ¿Àû À¥ »çÀÌÆ®ÀÇ »ý¼º ¹× À¯Áö °ü¸®¸¦ À§ÇØ ½Å¼ÓÇÏ°í ½±°í Áñ°Å¿î ½Ã°£À» ÀÛ¼ºÇÏ´Â °ÍÀÔ´Ï´Ù. Apache2 :: PageKit :: Model¿¡¼ »ó¼Ó¹ÞÀº MyPageKit :: CommonÀ̶ó´Â ¸ðµâÀ» ÀÛ¼ºÇؾßÇÏ¸ç »çÀÌÆ® Àüü¿¡¼ °øÅëµÈ ¸Þ¼Òµå¸¦ Á¦°øÇÕ´Ï´Ù. ¿¹¸¦ µé¾î ÀÎÁõÀ» Áö¿øÇÏ·Á¸é µÎ °¡Áö ¸Þ¼Òµå¸¦ Æ÷ÇÔÇؾßÇÕ´Ï´Ù. PKIT_AUTH_CREDENTILE ¹× PKIT_AUTH_SESSION_KEY.REQUIERMENTS : ¡¤ PERL ¿ä±¸ »çÇ× : ¡¤ Perl.
apache2 :: pagekit. °ü·Ã ¼ÒÇÁÆ®¿þ¾î