ぜろちゃんねるスクリプトを改造するスレ Part2

283 ：◆windyaking ：2010/09/09(木) 23:30:32 ID:U+MTa27+0

必要だろうし正直に書こう。
これから示す行数とかファイル名は純正のtest070124です。
きちんと動くかどうかは保証の限りではありません(^_^;)

test/module/vara.pl l.316-317辺り IsRegulation の
> $vUser->Load($oSYS);
> $check = $vUser->Check($host);
を
> $vUser->Load($oSYS);
> $check = $vUser->Check($oSYS, $host);
に置換

次に
test/module/faramir.pl l.191-192辺り Check
> my $this = shift;
> my ($host) = @_;
を
> my $this = shift;
> my ($sys, $host) = @_;
に置換

さらに同ファイル l.195-197
> foreach (@{$this->{'USER'}}){
>  if ($host =~ /$_/){
>   $flag = 1;
を
> foreach (@{$this->{'USER'}}){
>  if ($host =~ /$_/){
>   $flag = 1;
>   $sys->Set('HITS', $_);
に置換

test/info/errmsg.cgi l.32
> 601<>規制ユーザ<>書き込みホストは現在規制されています。PROXY抜くか管理者に相談してね。
を
> 601<>規制ユーザ<>アクセス規制中です！！({!HITS!})
に置換

多分これでできるはず。
エラーメッセージはお好みで
> 601<>規制ユーザ<>アクセス規制中です！！({!HITS!})<br><a h‎r‎ef="h‎ttp://yakin.38-ch.net/windyakin/">ここ</a>で告知されています。
みたいにするのもいいかもね。

以上解説終わり