| Demoguestbook. DemoguestBookÀº CGI :: ÈÞ´ë¿ë ¸Þ¸ðÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
Demoguestbook. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Darren R. Duncan
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~duncand/CGI-Portable-0.51/lib/CGI/Portable/AppMultiScreen.pm
Demoguestbook. ű×
Demoguestbook. ¼³¸í
DemoguestBookÀº ¹«Á¦ÇÑ Áú¹®ÀÌÀÖ´Â ¿ÏÀüÇÑ °Ô½ºÆ® ºÏÀ» ±¸ÇöÇÏ´Â CGI :: ÈÞ´ë¿ëÀÇ µ¥¸ðÀÔ´Ï´Ù. DemogueStbookÀº À¥ »çÀÌÆ® ¼ÒÀ¯ÀÚ¿¡°Ô Á¦ÃâÀ» ÀüÀÚ ¸ÞÀÏ·Î Á¦ÃâÇÏ´Â ¹«Á¦ÇÑ Áú¹®ÀÌÀÖ´Â ¿ÏÀüÇÑ °Ô½ºÆ® ºÏÀ» ±¸ÇöÇÏ´Â CGI :: ÈÞ´ë¿ë ÈÞ´ë¿ë µ¥¸ðÀÔ´Ï´Ù. °æ°í¸¦ »ç¿ëÇϽʽÿÀ. CGI :: ÈÞ´ë¿ëÀÌ ÇÊ¿äÇÕ´Ï´Ù. MY $ GLOBALS = CGI :: Portable-> New (); CWD¸¦ »ç¿ëÇϽʽÿÀ; $ globals-> file_path_root (cwd ()); # ÇöÀç ÀÛ¾÷ Dir $ globals-> file_path_delimiter ($ ^ o = ~ / mac / i? ":": $ ^ o = ~ / win / i? "\": "/")·Î ±âº»°ªÀ¸·Î ¼³Á¤ÇϽʽÿÀ. CGI :: Portable :: AdapterCGI°¡ ÇÊ¿äÇÕ´Ï´Ù. MY $ IO = CGI :: Portable :: AdapterCGI-> new (); $ io-> fetch_user_input ($ globals); $ globals-> default_application_title ( 'µ¥¸ð °Ô½ºÆ® ºÏ'); $ globals-> default_maintainer_name ( 'Tony Simons'); $ globals-> default_maintainer_email_address ( 'tony@aardvark.net'); my % config = (fn_messages => 'greastbook_messages.txt', °£´ÜÇÑ º¼´õ Çü½ÄÀÇ # ÆÄÀÏ); $ globals-> current_user_path_level (1); $ globals-> set_prefs (% config); $ globals-> call_component ( 'demoguestbook'); $ io-> send_user_output ($ globals); 1; ¿©±â¿¡ Á¤ÀÇ µÈ »ç¿ëÀÚ Á¤ÀÇ Áú¹®À» »ç¿ëÇϽʽÿÀ = (fn_messages => goestbook_messages.txt ', # file simple boulder format custom_fd => 1, field_defn => , ¶óº§ = > ,}, {Visible_title => "´ç½ÅÀº ´©±¸¸¦ »ç¶ûÇϽʴϱî?", type => 'textfield', name => 'name',}, {visible_title => "ÁÁ¾ÆÇÏ´Â »ö±òÀº ¹«¾ùÀԴϱî? ? ", type => 'popup_menu', name => '»ö»ó', '°ª'=> ,},] Á¤ÀÇ µÈ Áú¹®À» »ç¿ëÇϽʽÿÀ. perl ÆÄÀÏ ÆÄÀÏ my % config = (fn_messages => 'bexbook_messages.txt', simple boulder Çü½ÄÀÇ # ÆÄÀÏ custom_fd => 1, field_defn => 'greendbook_questions.txt', # do perl ref); »ç¿ëÀÚ Á¤ÀÇ ques »ç¿ë °£´ÜÇÑ º¼´õ ÆÄÀÏ¿¡ Á¤ÀÇ µÈ ³»¿ë % config = (fn_messages => goestbook_messages.txt ', simply boulder Çü½ÄÀÇ # ÆÄÀÏ custom_fd => 1, field_defn =>'goestbook_questions.txt ', °£´ÜÇÑ º¼´õ Çü½ÄÀÇ # ÆÄÀÏ fd_in_seqf => 1 ); »ç¿ëÀÚ °æ·Î¿¡¼ ¸ðµå°¡ ÁöÁ¤µÇÁö ¾ÊÀº °æ¿ì ±âº»°ª ÀÎ My % config = (fn_messages => goestbook_messages.txt ', sign_by_default => 1, sign_by_default => 1, sign_messages => 1, sign_mable_default => 1) Ç¥½Ã = (fn_messages => 'goestbook_messages.txt', msg_list_show_email => 1,); À̸ÞÀÏÀÇ ÁÖÁ¦¸¦ »ç¿ëÀÚ Á¤ÀÇÇϽʽÿÀ. % config = (fn_messages => goestbook_messages.txt ', email_subj =>'¹æ¹®ÀÚ°¡ ¸Þ½ÃÁö¸¦ ³²°å½À´Ï´Ù. ' WebPage Intro Text »ç¿ëÀÚ Á¤ÀÇ My % config = (fn_messages => 'greadbook_messages.txt', msg_new_title => '¸Þ½ÃÁö ³²±â', »õ ¸Þ½ÃÁöÀÇ # »ç¿ëÀÚ Á¤ÀÇ Á¦¸ñ msg_new_head =>
»àÇÏ´Â ÈÄ ¸Þ½ÃÁö¸¦ ³²°ÜÁÖ¼¼¿ä. ¿ì¸®°¡ °ÅÁþ¸» ŽÁö±â°¡ ¼³Á¤µÇ°í °ÅÁþ ´äº¯ÀÌ ½ºÆÔÀ¸·Î ÃæÁ· µÉ ¼ö ÀÖÀ¸¹Ç·Î °¡´ÉÇÑ ÇÑ Ãæ½ÇÇÏ°í Áø½ÇÇÏ°Ô Áú¹®¿¡ ´äÇϽʽÿÀ.
__endquote msg_list_title => 'ÀÌÀü ¹Ý»ç', # msg_list_head¸¦ ÀÐÀ» ¶§ # »ç¿ëÀÚ Á¤ÀÇ Á¦¸ñ =>
ÀÌÀü ¹æ¹®ÀÚ°¡ ¾´ ¸Þ½ÃÁö´Â ´ÙÀ½°ú °°½À´Ï´Ù. Àá½Ã ¸Ó¹°·¯¼ ¼±ÇϽɿ¡ ´ã±×½Ê½Ã¿À. ´ç½ÅÀÌ ÀÐÁö ¾Ê´Â °ÍÀ» °áÄÚ ¾ËÁö ¸øÇÕ´Ï´Ù.
__endquote); ¿ä±¸ »çÇ× : ¡¤ Perl. ¡¤ FCNTL. ¡¤ ±âÈ£ ¡¤ NET :: SMTP 2.15 (ÀÌÀü ¹öÀüÀÌ ÀÛµ¿ ÇÒ ¼ö ÀÖÀ½) ¡¤ CGI :: ÈÞ´ë¿ë 0.50. ¡¤ CGI :: Portable :: Appstatic 0.50. ¡¤ CGI :: Multivaluedhash 1.09. ¡¤ HTML :: FormTemplate 2.021.
Demoguestbook. °ü·Ã ¼ÒÇÁÆ®¿þ¾î