ezweb の PCSV は何故か端末 ID をもらうことが出来ないのでいっそのこと全て弾くという大胆な処理を行うようなコード。 正直入れるかどうかでまだ決まっていないので、暫定的にここにメモります。
Index: test/img0ch/3/Img0ch/Filter/IP.pm
===================================================================
--- test/img0ch/3/Img0ch/Filter/IP.pm (revision 1901)
+++ test/img0ch/3/Img0ch/Filter/IP.pm (working copy)
@@ -35,6 +35,17 @@
sub write_ok {
my ( $iFIP, $ip ) = @_;
+
+ # PCSV を一斉に弾く処理
+ my @pcsv_ip = (
+ '222.15.68.192/26', '59.135.39.128/27',
+ '118.152.214.160/27', '118.152.214.128/27',
+ '222.1.136.96/27', '222.1.136.64/27',
+ '59.128.128.0/20',
+ );
+ defined $Net::CIDR::Lite::VERSION or require Net::CIDR::Lite;
+ Net::CIDR::Lite->new(@pcsv_ip)->find($ip) and return 0;
+
my $iRepos = $iFIP->{_rs};
my $bbs = $iFIP->{_bbs};
my ( $i1, $i2, $i3, $i4 ) = split '\.', $ip;