¿ÀÁ³à ÀÔ´Ï´Ù...
Áö±ßÁö±ßÇÏ°Ô ¿Ã¶ó¿À´Â ±¤°í¡¤µµ¹è±ÛÀº °Ô½ÃÆÇÀ» °¡¸®Áö ¾Ê½À´Ï´Ù. Ȳ¾ßÀÇ ¹«¹ýÀÚ °°½À´Ï´Ù.
À̹ø¿¡´Â ¹æ¸í·ÏÀ¸·Î ¸¹ÀÌ ¾²´Â ¼¼Æȹæ¸í·Ï 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