Å´½ºº¸µå¿¡¼­´Â ¾Æ·¡¿Í °°ÀÌ ´Ù¸¥ ÆäÀÌÁö¿¡ ÀÎÁõÀ» °É¾î¼­ ȸ¿ø¸¸ÀÌ
±×ÆäÀÌÁö¸¦ º¼¼öÀÖ°Ô Çϴµ¥¿ä..
Å×Å©³ëÆ®¿¡¼­ µµ ¾Æ·¡¿Í °°Àº ¹æ¹ýÀ¸·Î ÀÎÁõ°É¼öÀÖ´ÂÁö...
¾Æ½Ã´Â ºÐÁ» ²À ´äº¯ºÎŹµå¸³´Ï´Ù.
-------------------------------------------------------------------------
#!/usr/bin/perl

  if($ENV{'HTTP_COOKIE'}) {
      @cookies = split(/; /,$ENV{'HTTP_COOKIE'});
      foreach(@cookies) {
        ($name,$value) = split(/=/,$_);
        $COOKIE{$name} = $value;
      }
  }

  unless ( -e "./Å´½ºº¸µå°æ·Î/members/memberfile/$COOKIE{'MEMBER_ID'}.cgi" && $COOKIE{'MEMBER_ID'} )
  {
    $msg = "·Î±×ÀÎÇÏ¼Å¾ß ÀÌ¿ëÇÏ½Ç ¼ö ÀÖ½À´Ï´Ù."; ALERT();
  }


print "CONTENT-TYPE:TEXT/HTML\n\n";
print <<__USER_HTMLCODE__;

<!-- ¿©±â¼­ ºÎÅÍ ÀÓÀÇ·Î ÀÛ¼ºÇϽŠhtmlÄڵ带 ±×´ë·Î ÀÔ·ÂÇØ ÁÝ´Ï´Ù.. -->
¿©±â¿¡ ÀÛ¼ºÇÏ´Â HTMLÄڵ带 ÀÔ·Â
<!-- ¿©±â±îÁö ÀÔ´Ï´Ù.. ----------------------------------------------->

__USER_HTMLCODE__


sub ALERT
{
  print "CONTENT-TYPE:TEXT/HTML\n\n";
  print "<script>
  window.alert('$msg');
  history.go(-1);
  </script>";
exit;
}

exit;