¥á¥¤¥×¥ë¥¹¥È¡¼¥ê¡¼¤Ï¥¿¥Ó¥È¤«¤é¤Þ¤¿¥®¥ë¥ÉÆþ¤ì¤Æ¤â¤é¤Ã¤¿¤«¤é¤¤¤¤¤È¤·¤Æ¡¢
·Ç¼¨ÈÄ¥µ¥¤¥È¡Êhttp://ainy.info/¡Ë¤Î¤Û¤¦¤â¤¬¤ó¤Ð¤ë¤ª¡°¡°¡¨
toshinari¥¹¥¯¥ê¥×¥È¤Ï£É£Ð¤¬Êݸ¤µ¤ì¤Ê¤¤¤è¤¦¤Ê¤ó¤Ç
£É£Ð¤¬Êݸ¤µ¤ì¤ë¤è¤¦¤Ë²þ¤¤·¤Æ¤ß¤Þ¤·¤¿¡£
bbs.cgi¤Ë
sub getIP {
return $ENV{'REMOTE_ADDR'};
}
¤ÇIP¤òÊݸ¤¹¤ë¤è¤¦¤Ë¤·¤Æ¡¢
¤µ¤¹¤¬¤Ëdat¥Õ¥¡¥¤¥ë¤Ë£É£ÐÊݴɤ·¤¿¤éï¤Ç¤â¤ß¤ì¤ë¾õÂ֤ˤʤäƤ·¤Þ¤Ã¤Æ¥Þ¥º¥¤¤ó¤Ç
open(FH,">../$in{'bbs'}/log/$time.cgi");
print FH "$in{'FROM'}<>$in{'mail'}<>$date<>$in{'MESSAGE'}<>$in{'subject'}<>$ipaddr\n";
close(FH);
¤Çlog¥Õ¥©¥ë¥À¤Ëcgi¥Õ¥¡¥¤¥ë¤ÇÊݸ¤µ¤ì¤ë¤è¤¦¤Ë¤·¤Æ¤ß¤¿¡£
¤Ç¡¢¤³¤ì¤À¤ÈÀì¥Ö¥é¤Ç¤Ï½ñ¤¹þ¤á¤Ê¤¯¤Ê¤Ã¤Á¤ã¤¦¤ó¤Ç
open(FH,">../$in{'bbs'}/dat/$time.dat");
print FH "$in{'FROM'}<>$in{'mail'}<>$date<>$in{'MESSAGE'}<>$in{'subject'}<>\n";
close(FH);
¤Çdat¥Õ¥¡¥¤¥ë¤Ë¤ÏIP¤¬½ñ¤¹þ¤Þ¤ì¤Ê¤¤¤è¤¦¤Ë¤·¤¿¡£
¤³¤ì¤Ç¤È¤ê¤¢¤¨¤º¹Ó¤é¤·Âкö¤Ï¤Ç¤¤ë¤À¤í¤¦¡£