¾È³çÇϼ¼¿©.... Àú´Â ÄÚ³Ý À¯Àú·Î.... Á¦°¡ Áö±Ý CGI¸¦ °øºÎ Çϰŵ¢¿ä........ ¿¾ÂÈ÷ ¸Þ¸ðÀåÀ¸·Î CGI ´Ü¼øÇѰŠ¥¼¸® WS_FTP ·Î CGI ÆÄÀÏ ¿Ã¸°´ÙÀ½ Æ۹̼ÇÀ» 777·Î ¹Ù²ãÁÖ°í..... ¹ö±× Å×½ºÆà ÇÑ´Ù°í perl test.cgi <-(¿Ã¸° ÆÄÀÏ À̸§ÀÓ´Ù.) À̶ó°í ¼¿ ¿¡¼ Ä¡¸é Illegal character 15 (carriage return) at test.cgi line 2. (Maybe you didn t strip carriage returns after a network transfer?) À̶ó°í¸¸ ³ª¿É´Ï´Ù... ºê¶ó¿ìÁ®·Î µé¾î°¡µµ 500 Server Error ¶ó°í ³ª¿À°ø ±×·¡¼ µý Àü¹®°¡°¡ ¸¸µç °Ô½ÃÆÇ CGI ¸¦ perl ezboard.cgi ¶ó°í ¾²¸é ¾Æ¹« ÀÌ»ó ¾øÀÌ È¸éÀÌ ¶å´Ï´Ù.. --; Èæ.. µµ´ëü ¸ð°¡ À߸ø µÈ°ÇÁö¿ä... ¾Æ·¡ Á¦°¡ ¸¸µç ½î¾« ³Ö½À´Ï´Ù.... ¾îµð°¡ ¹®Á¦ ÀÎÁö ¾Ë·Á ÁÖ¼¼¿±.. ¾Æ¾Æ.. ³Ê¹« Èûµé´Ù... µµ´ëü Ç®¸®Áö°¡ ¾Ê¾Ó..... #!/usr/bin/perl if ($ENV{ REQUEST_METHOD } eq "GET") { $FORM_DATA = $ENV{ QUERY_STRING }; } else { $LENGTH = $ENV{ CONTENT_LENGTH }; if ($LENGTH > "32768") { die "major network spam,stopped"; } while ($LENGTH--) { if ($C eq "=" &pip;&pip; $C eq "&") { $START = "0"; }else{ $START ; } if ($START <= "8192") { $FORM_DATA = $C; } } } foreach (split(/&/,$FORM_DATA)) { ($NAME,$VALUE) = split(/=/,$_); $NAME =~ s/ //g; $NAME =~ s/%([0-9&pip;A-F]{2})/pack(C,hex($1))/eg; $VALUE =~ s/ //g; $VALUE =~ s/%([0-9&pip;A-F]{2})/pack(C,hex($1))/eg; $MYDATA{$NAME} = $VALUE; } print "Content-type: text/html
"; print ""; print "<html> "; print "<head><title>ÇÏÇÏ</title> "; print "</head> "; print "<body> "; print "$MYDATA{ q1 } "; print "</body> "; print "</html> ";
|