Perlコーディング初心者質問スレ Part 49
■ このスレッドは過去ログ倉庫に格納されています
0632nobodyさん
2006/06/19(月) 17:15:39ID:5NRkvew2昨日みたいに2ちゃんが落ちるとCGIが止まってしまいますよね?
落ちてる時の回避方法ありますでしょうか。。。
sub checkProxyList{
my $RADDR = $ENV{'REMOTE_ADDR'};
$RADDR =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/;
my $query_addr = "$4.$3.$2.$1.niku.2ch.net";
my $addr = join('.', unpack('C*', gethostbyname($query_addr)));
if ($addr eq '127.0.0.2'){print_error("PROXY ERROR")}
}
■ このスレッドは過去ログ倉庫に格納されています