¾È³çÇϼ¼¿ä. ÇØÇÇ CGI À¥¸¶½ºÅÍ À±¿µ¿õÀÔ´Ï´Ù
ICQ¶ó´Â °Íµµ ÇÑ ¹æ¹ýÀÌ µÉ¼ö Àְڳ׿ä.
ICQ´Â I seek you ÀÇ Àǹ̷ΠÀ¥»ó¿¡¼ icq¸¦ ÀÌ¿ëÇÏ´Â »ç¶÷ÀÌ Á¢¼ÓÀ» Çß³ª
¾ÈÇß³ª ¾Ë¾Æº¼¼ö ÀÖ°í ¶ÇÇÑ Ã¤Æõµ °¡´ÉÇÑ ÇÁ·Î±×·¥ÀÔ´Ï´Ù.
Á¦ »ý°¢¿£ ´ÔÀÌ ¿äûÇϽô ±â´ÉÀº ±×¸® º¹ÀâÇÏÁö ¾Ê´Â
¾Æ´Ï ¹«Áö °£´ÜÇÑ ÇÁ·Î±×·¥Àεí ÇÕ´Ï´Ù.
¿©±â¼ ±×³É Â¥ ¹ö¸®µµ·Ï ÇÏÁÒ ^^;
Á¦°¡ ¼¹ö¿¡ Å×½ºÆ®ÇÒ ½Ã°£ÀÌ ¾øÀ¸´Ï±î ¿À·ù°¡ ÀÖ´õ¶óµµ ³Ñ ¹Ì¿öÇÏÁö ¸¶¼¼¿ä.
¿ì¼± µÎ°³ÀÇ ÆÄÀÏÀÌ ÇÊ¿äÇϰڳ׿ä.
¹æ¼ÛÁßÀÎÁö ¾Æ´ÑÁö ¼±ÅÃÇÒ¼ö ÀÖ´Â html ÆÄÀÏ°ú ±×³ðÀÇ Á¤º¸¸¦ ¹Þ¾Æ ÆÄÀÏ·Î
ÀúÀåÀ» ÇÏ°í Ãâ·ÂÇÏ´Â CGIÀÔ´Ï´Ù.
ÀÌ cgi´Â ssi¸¦ ÀÌ¿ëÇؼ ȨÆäÀÌÁö¿¡ ºÙÀÌ½Ã¸é µË´Ï´Ù.
ssi¿¡ °üÇÑ Á¤º¸´Â °Ë»öÀ» ÅëÇؼ º¸½Ã¸é ssi°¡ ¹«¾ùÀÎÁö ¾Æ½Ç°Ì´Ï´Ù.
(cgi¸¦ html³»¿¡ »ðÀÔÇÏ´Â ¹æ¹ýÀÌÁÒ.)
html ÆÄÀÏÀÔ´Ï´Ù.
<html>
<form action=onair.cgi method=post>
<select name=stats>
<option value="¹æ¼ÛÁß">¹æ¼ÛÁß</option>
<option value="¹æ¼ÛÁغñÁß">¹æ¼ÛÁغñÁß</option>
</select>
<input type=submit value="Àü¼Û">
</form>
</html>
onair.cgi ÆÄÀÏÀÇ ³»¿ëÀÔ´Ï´Ù.
#!/usr/bin/perl
unless ($ENV{CONTENT_LENGTH} eq "") {
read(STDIN, $buffer, $ENV{CONTENT_LENGTH});
}
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($kname, $value) = split(/=/, $pair);
$value =~ tr/ / /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$$kname = $value;
}
open (A,">stats.txt");
print A "$stats";
close A;
open (B,"stats.txt");
while (<B>){
$read_stats = $_;
}
close B;
print "content-type:text/html
";
print "Áö±Ý ÀÎÅÍ³Ý ¹æ¼Û±¹¿¡¼´Â $read_stats ÀÔ´Ï´Ù.";
#####################################################
¿ä±îÁöÀÔ´Ï´Ù.
Æ۹̼ÇÀ» CGI´Â 755·Î ÁÖ½Ã¸é µÇ±¸¿ä.
¾Æ¸¶µµ htmlÀ» ½ÇÇàÇϸé stats.txt¶õ ÆÄÀÏÀÌ »ý±é´Ï´Ù.
±×°Ç ¹æ¼ÛÀÇ »óŸ¦ ´ãÀº Á¤º¸±¸¿ä.
¹æ¼Û½ÃÀÛÇϽñâ Àü¿¡ Çѹø ´·¯Áֽðí (¹æ¼ÛÁß)
¹æ¼Û ³¡³ª±¸³ª¼ Çѹø ´·¯ÁÖ¼¼¿ä (¹æ¼ÛÁغñÁß)
¹®±¸´Â ¹Ù²Ù¾îµµ µË´Ï´Ù. (html ÆÄÀÏ¿¡¼¿ä.)
±×·³ ÁÁÀº ÇÏ·çµÇ¼¼¿ä.
µµ¿òÀÌ µÇ¼Ì±æ ...
|