07/07/18 23:59:58 ClVmwVC4
### 規制処理をしている箇所の最後に挿入
if ( $ENV{'SERVER_NAME'} =~ /bbspink/ ) {
require 'pink_kisei.pl';
&pink_kisei($GB);
}
### pink_kisei.pl
use strict 'vars';
sub pink_kisei {
my $GB = $_[0];
# ★●はスルー（添え字と値は何ー？）
if ( $GB->{'★●'} ) { return 0; }
# BBSPINK用リファレンス変数をグローバルで宣言
# staticなローカル変数って無いんだっけ・・・？
use vars qw($PINK);
# 最初なら色々読み込み
unless ( defined $PINK ){
$PINK = {};
# 規制リストとか（例）
$PINK->{'kisei'} = [];
open(KISEI, 'kisei.txt');
@{$PINK->{'kisei'}} = <KISEI>;
chomp @{$PINK->{'kisei'}};
close KISEI;
# 独自規制リストの分だけ同様に繰り返す
}
# 規制処理
# リスト内を単純に探す
if ( grep(/^$GB->{'端末番号とか'}/, @{$PINK->{'kisei'}}) ) {
&DispError2($GB, "ＥＲＲＯＲ！", "ＥＲＲＯＲ：エラーです！！($GB->{'端末番号とか'})");
}
# リスト側の正規表現でマッチング
foreach ( @{$PINK->{'kisei'}} ) {
next if /^#/;
# 例えばIPアドレスで
if ( $ENV{'REMOTE_ADDR'} =~ /$_/ ) {
&DispError2($GB, "ＥＲＲＯＲ！", "ＥＲＲＯＲ：エラーです！！($_)");
}
}
# 何も無し
return 0;
}
1;