toshinari.netCGI‰ü‘¢ƒXƒŒ�@in ƒSƒ~” 
ù��« ù‡1- ùˆ—— ù‰” ù‚20
1:–¼–³‚µ‚̃p�[‘¬–¯
2007/02/03(“y) 04:59:19.07 ID:bvdDK7co
toshinari.net
www.toshinari.net

–{‰Æ‰ü‘¢”Â
cgi.toshinari.net


2:–¼–³‚µ‚̃p�[‘¬–¯
2007/02/03(“y) 05:14:01.99 ID:bvdDK7co
145 –¼‘O�F�rŠª�—’†‚Ì�l �š[] “Š�e“ú�F2007/02/02(‹à) 00:20:57.91 ID:???
>>141

#‚¨‚Ý‚­‚¶
if($in{'FROM'} =~ /\!omikuji/) {
ˆÈ‰º—ª AAS



3:–¼–³‚µ‚̃p�[‘¬–¯
2007/02/03(“y) 14:45:04.90 ID:WB53oaY0
sub get_time{
my($wtime,$now,$msec,$sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst,$date);
($wtime,$now,$msec,$sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
#�¬�”“_ˆÈ‰º‚ÌŽžŠÔ‚ðŽæ“¾
use Time::HiRes;
ˆÈ‰º—ª AAS



4:–¼–³‚µ‚̃p�[‘¬–¯
2007/02/04(“ú) 01:14:34.50 ID:ccg0BFs0
‰^—p�î•ñ‚É—§‚Ä‚Ä�rŠª‚­‚ñ‚É‹³‚¦‚Ä‚à‚炤‚Á‚Ă̂ª
Žè‚ÁŽæ‚è‘�‚©‚Á‚½‹C‚ª‚·‚邳�B

ƒXƒŒƒbƒhƒ€�[ƒo�[‚©‰^—p�î•ñ‚É—§‚Ä’¼‚·‚©‚µ‚½‚ç‚Ç�[‚¾‚낤�A


5:–¼–³‚µ‚̃p�[‘¬–¯
2007/02/04(“ú) 02:02:26.57 ID:ccg0BFs0
�@�@�@�@#IP‹K�§
$host = $ENV{'REMOTE_HOST'};
$addr = $ENV{'REMOTE_ADDR'};
if ($host eq '' || $host eq $addr) {$host = gethostbyaddr(pack('C4',split(/\./,$addr)),2) || $addr;}
if($host =~ /123\.456\.789\.123/){
ˆÈ‰º—ª AAS



6:–¼–³‚µ‚̃p�[‘¬–¯
2007/02/05(ŒŽ) 01:55:40.90 ID:NxNpIzk0
$host = $ENV{'REMOTE_HOST'};
$addr = $ENV{'REMOTE_ADDR'};
if ($host eq '' || $host eq $addr) {$host = gethostbyaddr(pack('C4',split(/\./,$addr)),2) || $addr;}
if($host =~ /IP1|IP2|IP3|/){
error("‹K�§‚³‚ê‚Ä‚¢‚Ü‚·");
ˆÈ‰º—ª AAS



7:–¼–³‚µ‚̃p�[‘¬–¯
2007/02/05(ŒŽ) 17:34:56.45 ID:5LWetZIo
‚»‚Ì•û–@‚¾‚Æ•s•Ö‚ÈŠóƒKƒX


8:–¼–³‚µ‚̃p�[‘¬–¯
2007/02/05(ŒŽ) 23:49:23.41 ID:8IR4Wxs0

$host = $ENV{'REMOTE_HOST'};
$addr = $ENV{'REMOTE_ADDR'};
if ($host eq '' || $host eq $addr) {$host = gethostbyaddr(pack('C4',split(/\./,$addr)),2) || $addr;}
if($host =~ /123.456.789/){
ˆÈ‰º—ª AAS



20Res/7.33 KB
�ª[8] ‘O[4] ŽŸ[6] �‘[5] ”Â[3] 1-[1] l20




VIPƒT�[ƒrƒX‘�’z’†�I
Œg‘Ñ‚¤p‚낾|Œ„ŠÔ‚¤p‚낾
Powered By VIPservice