| Apache :: PageKit. Apache :: PageKitÀº mod_perl, xml ¹× html :: ÅÛÇø´À» »ç¿ëÇÏ´Â MVCC À¥ ÇÁ·¹ÀÓ ¿öÅ©ÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
Apache :: PageKit. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~borisz/Apache2-PageKit-2.14_14/lib/Apache2/PageKit.pm
Apache :: PageKit. ű×
Apache :: PageKit. ¼³¸í
Apache :: PageKitÀº mod_perl, XML ¹× HTML :: ÅÛÇø´À» »ç¿ëÇÏ´Â MVCC À¥ ÇÁ·¹ÀÓ ¿öÅ©ÀÔ´Ï´Ù. apache :: pagekit mod_perl, xml ¹× html :: template.synopsisin httpd.conf setHandler perl-script / pagekit / files perlsetvar pkit_server ½ºÅ©¸³Æ® perlhandler + apache :: pagekit apache apache :: PageKit-> ½ÃÀÛ ( '/ path / to / pagekit / files', '½ºÅ×ÀÌ¡'); myPageKit / Common.pm ÆÐÅ°Áö MyPageKit :: ÀϹÝ; ±âº» 'Apache :: 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; } ¿ä±¸ »çÇ× : ¡¤ Perl ¿ä±¸ »çÇ× : ¡¤ Perl.
Apache :: PageKit. °ü·Ã ¼ÒÇÁÆ®¿þ¾î