¿ÀÁ³à ÀÔ´Ï´Ù...
Áö±ßÁö±ßÇÏ°Ô ¿Ã¶ó¿À´Â ±¤°í¡¤µµ¹è±ÛÀº °Ô½ÃÆÇÀ» °¡¸®Áö ¾Ê½À´Ï´Ù. Ȳ¾ßÀÇ ¹«¹ýÀÚ °°½À´Ï´Ù.
À̹ø¿¡´Â ¹æ¸í·ÏÀ¸·Î ¸¹ÀÌ ¾²´Â ¼¼Æȹæ¸í·Ï 3.0À» ±âÁØÀ¸·Î µµ¹è±ÛÀ» ¸·¾Æº¸°Ú½À´Ï´Ù.
ÀÌ·± ±¤°í¹°ÀÇ ´ëºÎºÐÀÌ °Ô½ÃÆÇ ÀÚµ¿µî·Ï±â¸¦ »ç¿ëÇؼ Çѹø¿¡ ¼ö¸¸°Ç¾¿ ½î¾Æ¿Ã¸®°í ÀÖ½À´Ï´Ù.
¼¼Æȹæ¸í·Ï 3.0¿¡´Â ÀÌ·¸°Ô µµ¹èµÇ´Â °Ô½Ã¹°À» ¸·´Â ±â´ÉÀÌ Æ÷ÇÔµÇÁö ¾ÊÀº °Í °°½À´Ï´Ù.
µµ¹è¡¤±¤°í±Û ¸·À» ¼ö ÀÖ´Â ¹æ¹ýÀº ¿©·¯°¡Áö°¡ ÀÖ°ÚÀ¸³ª... ¿¹Àü¿¡ »ç¿ëÇÏ´ø ÄíÅ°¸¦ »ç¿ëÇؼ ¸·´Â ¹æ¹ýÀ» ¿©±â¼µµ »ç¿ëÇÏ°Ú½À´Ï´Ù.
°Ô½ÃÆǺ°·Î Àû¿ëµÇ´Â µµ¹è¡¤±¤°í±ÛÀ» ¸·À» ¼ö ÀÖ´Â ¹æ¹ýµéÀ» °è¼Ó ¸ðÀ¸·Á°í ÇÕ´Ï´Ù. ÁÁÀº ¹æ¹ýÀ̳ª ¿ÀÁîÀÇ ±Û ³»¿ë Áß ¿À·ù°¡ ¹ß°ßµÇ¸é ¸ÞÀÏ Áֽʽÿä.
=============== ÄíŰüũ ¹æ¹ý(¼¼Æȹæ¸í·Ï 3.0) ===================== ¡Ü spguest.cgi <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
sub display{ my(@page_list, $start); &get_date; #µµ¹èüũ print "Set-Cookie: US=\"ad_no\"; expires=Sunday, 31-Dec-$nyear 12:12:12 GMT;\r\n"; #µµ¹èüũ(ÇÑÁÙ·Î ¾¸) if((-e "$main_dir/idx/$page.cgi") && ($FORM{'category'} eq "")){
sub write{ my(@idx, @temp, @gul, $num, $num_data, $pass, $name, $mail, $home, $html, $autolink, $br_val, $subject, $comments, $open_val, $mod_date, $ans, $wdate); if(($FORM{'name'} eq "") || ($FORM{'subject'} eq "") || ($FORM{'comments'} eq "")){ &err("blank"); } &w_deny_user_ck; unless(($FORM{'mail'} eq "") || ($FORM{'mail'} =~ /.*\@.*\..*/)){ &err("mail"); } $ans = $FORM{'ans'}; &read_cookie; #µµ¹èüũ if($ad_no eq "") { &err("ad_no_write"); } #µµ¹èüũ if(($FORM{'reply'} ne "ok") && ($FORM{'modify'} ne "ok")){
sub read_cookie{ if($ENV{'HTTP_COOKIE'}) { my @cookies = split(/; /,$ENV{'HTTP_COOKIE'}); foreach(@cookies) { ($name,$value) = split(/=/,$_); $COOKIE{$name} = $value; } if($COOKIE{'US'}) { $ad_no = $COOKIE{'US'} }; #µµ¹èüũ } }
sub err{ my($result, $msg); $result = $_[0]; if($result eq "id"){ $msg = "spguest.cgi?id=test °°Àº Çü½ÄÀ¸·Î ¸¸µé¾î ÁÖ¼¼¿ä... ^^"; } elsif($result eq "blank"){ $msg = "À̸§, Á¦¸ñ, ³»¿ëÀº ¹Ýµå½Ã ä¿ö¾ß ÇÕ´Ï´Ù."; } elsif($result eq "mail"){ $msg = "À̸ÞÀÏ ÁÖ¼Ò°¡ À߸øµÇ¾ú³×¿ä... ^^"; } elsif($result eq "admin"){ $msg = "°ü¸®ÀÚ ºñ¹Ð¹øÈ£°¡ À߸øµÇ¾ú½À´Ï´Ù."; } elsif($result eq "same_pwd"){ $msg = "¼³Á¤ÇϽŠºñ¹Ð¹øÈ£°¡ ÀÏÄ¡ÇÏÁö ¾Ê½À´Ï´Ù."; } elsif($result eq "not_owner"){ $msg = "ºñºô¹øÈ£°¡ Ʋ¸³´Ï´Ù. ´Ù½ÃÇѹø È®ÀÎÇØ º¸¼¼¿ä."; } elsif($result eq "keyword"){ $msg = "°Ë»ö Å°¿öµå¸¦ ÀÔ·ÂÇØ ÁÖ¼¼¿ä."; } elsif($result eq "ad_no_write"){ #µµ¹èüũ $msg = "°Ô½ÃÆÇ ÀÚµ¿µî·Ï±â »ç¿ëÇÏÁö ¾Ê³ª¿ä?"; #µµ¹èüũ } #µµ¹èüũ else{ $msg = "¿¹±âÄ¡ ¸øÇÑ ¿À·ùÀÔ´Ï´Ù. "; } &head;
spguest.cgi ³»¿ë Áß ÆĶõ±ÛÀÚ ºÎºÐÀ» ÇØ´çÀ§Ä¡¿¡ Ãß°¡ÇÏ½Ã¸é µË´Ï´Ù. Ãß°¡ ³»¿ë Áß ad_no ¿Ü ad_no_write µÎ ´Ü¾î´Â ¦À» ¸ÂÃç ´Ù¸¥ º¯¼ö¸íÀ¸·Î ¹Ù²Ù¼Åµµ µË´Ï´Ù. ¼öÁ¤ ÀÛ¾÷ Àü¿¡ ¿øº»ÆÄÀÏÀ» Çϳª º¸°üÇص״ٰ¡, ¼öÁ¤½Ã ¹®Á¦°¡ »ý±â¸é ¿øº»ÆÄÀÏÀ» »ç¿ëÇϽñ⠹ٶø´Ï´Ù.
ÀÚ·áÃâó : http://mrs-oz.com/garden/index_cgi.html
|