Apache :: PageKit.

Apache :: PageKitÀº mod_perl, xml ¹× html :: ÅÛÇø´À» »ç¿ëÇÏ´Â MVCC À¥ ÇÁ·¹ÀÓ ¿öÅ©ÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

Apache :: PageKit. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • T.J. Mather
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • 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. °ü·Ã ¼ÒÇÁÆ®¿þ¾î

ÀζóÀÎ - API.

ÀζóÀÎ API´Â ÇÁ·Î±×·¡¹Ö ¾ð¾î¸¦ inline.pmÀ» »ç¿ëÇÏ¿© Perl¿¡ ¹ÙÀεùÇÏ´Â ¹æ¹ýÀ» °¡¸£ÃÄÁÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. ...

220

´Ù¿î·Îµå