¾È³çÇϼ¼¿ä.
cgi´Â ÀüÇô ¾ÈÇغôµ¥..
ȸ»ç¿¡¼ À¯Áöº¸¼ö¸¦ ÇÏ´øÁß Á» ¿À·¡Àü¿¡ ¸¸µé¾îÁø cgi ȨÆäÀÌÁö¿¡ ¹®Á¦°¡ ¹ß»ýÇß½À´Ï´Ù.
±×·¡¼ ºÎ·ªºÎ·ª °¡ÀÔÇÏ°í Áú¹®µå¸®·Á°í ÇÕ´Ï´Ù.
±¸Ã¼ÀûÀÎ Áõ»óÀ» ¸»¾¸µå¸®ÀÚ¸é..
open.cgi ¶ó´Â ÆäÀÌÁö¿¡
<Form action=db_put6.cgi method=post>
<Áß·«>
<input type=submit value="ÅÛÇø´À» ÀúÀåÇÕ´Ï´Ù!" class="bodytext" style="height:19px;background:;border:1 solid #787878;cursor: hand"></td></tr></table>
</FORM>
ÀÌ·¸½À´Ï´Ù.
submit ¹öÆ°À» ´©¸£¸é db_put6.cgi°¡ ¿¸®´Â°¡ º¾´Ï´Ù.
±×·±µ¥ °á°ú´Â 500 Internal Server Error °¡ ¹ß»ýÇϴ±º¿ä.
¾Æ·¡¿¡ db_put6.cgiÀÇ ¼Ò½º¸¦ °ø°³ÇÕ´Ï´Ù.
---------------------------------------------------------------------
#!/usr/bin/perl
do "cgi-lib.pl";
&ReadParse;
$ADMIN_PASSWORD=$in{'ADMIN_PASSWORD'};
$DB=$in{'DB'};
dbmopen(%item,"./data/$DB/.config",0777);
foreach $key (keys %in) {
if (($key ne "HEAD") && ($key ne "TAIL")) { $item{"$key"} = $in{"$key"}; }
}
dbmclose(%item);
open(FILE,">./data/$DB/.open");
print FILE $in{'OPEN'};
close(FILE);
print "Location: open.cgi?DB=config&PASSWORD=$ADMIN_PASSWORD \n\n";
-----------------------------------------------------------------------------
±×·³ ´äº¯ ±â´Ù¸®°Ú½À´Ï´Ù.
ps. cgi´Â mysql À̳ª oracle °°Àº db°¡ µû·Î ÀÖ´Â°Ô ¾Æ´Ñ°¡ º¾´Ï´Ù. ±×³É ÇϳªÀÇ ÆÄÀÏ·Î µÇ¾î ÀÖ´õ¶ó±¸¿ä.¤¾¤¾