¼Ò½º¸¦ Çϳª ¼Õ º¸°í Àִµ¥ °è¼Ó ¾È µÇ¾î¼ ÀÌ·¸°Ô ±ÛÀ» ¿Ã¸³´Ï´Ù.. À̱ÛÀ»
º¸½Ã´Â ºÐµéÁß ¾Ë°í °è½ÅºÐµéÀÌ ÀÖ´Ù¸é Àú¿¡°Ô Á» °¡¸£ÃÄÁÖ¼¼¿ä...
¹«¾ùÀÌ ¹®Á¦ÀÎÁö ..¼Ò½º´Â ¹Ø¿¡ ÀÖÀ¸´Ï º¸½Ã°í °¡¸£ÃÄÁÖ¼¼¿ä..
¹ØÀÇ ¼Ò½º´Â ¾ÆÀ̵ð¿Í Æнº¿öµå¸¦ ÀÔ·ÂÇØ È¸¿øÁ¤º¸ ¼öÁ¤ÇÏ´Â °ÍÀε¥ Á¦°¡ »ç¿ëÀÚ
·Î±×ÀÎÀ¸·Î ¼öÁ¤ÁßÀ̰ŵç¿ä..¾ÆÀ̵ð´Â Àß ÀνÄÀ» Çϴµ¥ Æнº¿öµå´Â Á¦´ë·Î
ÀÔ·ÂÀ» Çصµ À߸ø ÀÔ·ÂÇß´Ù´Â ¸Þ¼¼Áö¸¦ ÀÚ²Ù º¸³»´Ï...
ºÎµð Àú¿¡°Ô Å« °¡¸£Ä§À» ÁÖ¼¼¿ä..
±×·³ »õÇØ º¹ ¸¹ÀÌ ¹ÞÀ¸¼¼¿ä..
#!/usr/local/bin/perl
#--------------------------------Start
Prog----------------------------------------
print "Content-type: text/html
";
require "./config.pl";
&getdate;
#---------------------------------------------------------------------------
-------
if ($ENV{
REQUEST_METHOD
} eq
GET
) {
@pairs = split(/&/, $ENV{
QUERY_STRING
});
}
elsif ($ENV{
REQUEST_METHOD
} eq
POST
) {
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])/pack("C", hex($1))/eg;
### "&pip;" Filtering
$value =~ s/&pip;/|/g;
$FORM{$name} = $value; }
$FORM{
message
} =~ s/<([^>]&pip;
)*>//g;
$FORM{
name
} =~ s/ /_/g;
$FORM{
name
} =~
s/.&pip;,&pip;:&pip;;&pip;&pip;<&pip;>&pip;"&pip;^&pip;$&pip;@&pip;{&pip;}&pip;]&pip;~&pip;`&pip;[&pip;\%&pip;?&pip;*/_/g;
#---------------------------------------------------------------------------
-------
if ($FORM{
user_login
} ne ""){&user_login;}
if ($FORM{
user_reg_modify
} ne ""){&user_reg_modify;}
&head;
print <