#!/usr/bin/perl
###########################################################################
# ¹æ¸í·Ï(1)
# ÀÔ·Â µ¥ÀÌÅ͸¦ È®ÀÎÇÑ´Ù.
&read_parse;
# µ¥ÀÌÅÍ°¡ ÀԷµÇÁö ¾ÊÀ¸¸é ¿¡·¯È­¸éÀ» º¸ÀδÙ.
if((!$FORM{'username'}) || (!$FORM{'comment'})) {
print "Content-Type: text/html\n\n';
print <<_START__;

ÀԷ¿¡·¯!!

À̸§°ú ³»¿ëÀ» ±â·ÏÇؾ߸¸ µî·ÏÀÌ µË´Ï´Ù.

---

ÀÔ·ÂÆäÀÌÁö·Î

_START__
exit;
}
else {
# guest.htmÀ» ¿­¾î¼­ ³¡ºÎºÐ¿¡ ÀÔ·Â µ¥ÀÌÅ͸¦ ±â·ÏÇÑ´Ù.
open(FILE, ">>/pungjusa.or.kr/~kkchlove/guest/guest.htm");
print FILE "¼º¸í: $FORM{'username'}
\n";
print FILE "E-MAIL: $FORM{'email'}
\n";
print FILE "³»¿ë:
\n";
print FILE "

: $FORM{'comment'}

\n";
print FILE "

---

\n";
close(FILE);
# ÀÔ·Â ¿Ï·á È­¸éÀ» º¸¿©ÁØ´Ù.
print "Content-Type: text/html\n\n";
print "\n";
print "\n";
print "

±Û µî·Ï ¼º°ø!!

\n";
print "¼º¸í: $FORM{'username'}
\n";
print "E-MAIL: $FORM{'email'}
\n";
print "³»¿ë

$FORM{'comment'}

\n";
print "

---

print "\n";
exit;
}
###################################################
# ¼­ºê·çƾ ÇÁ·Î±×·¥
# ÀÔ·ÂÅ×ÀÌÅÍ Ã³¸®
sub read_parse {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs){
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9]) /park("C", hex($1)) /eg;
$FORM{$name} = $value;
}
}
ÀÌ°Ô ±× ¼Ò½ºÀε¥ ¸Ó°¡ À߸ø µÇ¾ú´ÂÁö ¸ð¸£°Ú½À´Ï´Ù.. ±×¸®°í ´äº¯ °¨»çÇÕ´Ï´Ù.