CGI :: ¼¼¼Ç :: ȸ¿ø

CGI :: ¼¼¼ÇÀ» ±â¹ÝÀ¸·ÎÇÏ´Â ¸®¼Ò½º º¸È£ÀÚ
Áö±Ý ´Ù¿î·Îµå

CGI :: ¼¼¼Ç :: ȸ¿ø ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Ron Savage
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~rsavage/

CGI :: ¼¼¼Ç :: ȸ¿ø ű×


CGI :: ¼¼¼Ç :: ȸ¿ø ¼³¸í

CGI :: SessionÀ» ±â¹ÝÀ¸·ÎÇÏ´Â ¸®¼Ò½º º¸È£ÀÚ synopsiscgi :: session :: Membersarea´Â CGI :: ÀÀ¿ë ÇÁ·Î±×·¥¿¡¼­ ÆÄ»ý µÈ ¸ðµâ¿¡¼­ »ç¿ëÇÒ ÇÊ¿ä°¡¾ø´Â Perl ¸ðµâÀÌÁö¸¸,ÀÌ ½Ã³ñ½Ã½º´Â ½ÇÁ¦·Î ´ç½ÅÀÌÇÏ·Á°íÇÏ´Â °ÍÀ¸·Î °¡Á¤ÇÕ´Ï´Ù. CGI :: ÀÀ¿ë ÇÁ·Î±×·¥À» »ç¿ëÇϽʽÿÀ. CGI :: Session :: ȸ¿ø; dbix :: admin :: databaseModel; @isa = qw / cgi :: ÀÀ¿ë ÇÁ·Î±×·¥ /; ÇÏÀ§ ¼³Á¤ {My ($ self) = @_; ... $ self-> param (database => '); $ self-> param (Guardian => '); $ self-> param (profile => '); $ self-> mode_param (setup_mode); } # ¼³Ä¡ ³¡. SUB SETUP_MODE {... $ self-> param (guardian => cgi :: session :: membersarea -> new (username => 'root', password => pass), query => $ self -> query () ,))); $ self-> param (profile => $ self-> param ( 'Guardian') -> init ()); if ($ self -> param ( 'profile)) {$ self-> param (database => dbix :: admin :: databaseModel -> new (dsn => $ self-> param ('my_dsn '), username = > $$ ÇÁ·ÎÇÊ { 'username'}, password => $$ ÇÁ·ÎÆÄÀÏ { 'password'},)); $ self-> param ( 'database') -> param (profile => $ self-> param ( 'profile))); }} # sub setup_modeÀÇ ³¡. ¿ä±¸ »çÇ× : ¡¤ Perl.


CGI :: ¼¼¼Ç :: ȸ¿ø °ü·Ã ¼ÒÇÁÆ®¿þ¾î