PCSV を弾く処理

ezweb の PCSV は何故か端末 ID をもらうことが出来ないのでいっそのこと全て弾くという大胆な処理を行うようなコード。 正直入れるかどうかでまだ決まっていないので、暫定的にここにメモります。

  1. Index: test/img0ch/3/Img0ch/Filter/IP.pm
  2. ===================================================================
  3. --- test/img0ch/3/Img0ch/Filter/IP.pm (revision 1901)
  4. +++ test/img0ch/3/Img0ch/Filter/IP.pm (working copy)
  5. @@ -35,6 +35,17 @@
  6. sub write_ok {
  7. my ( $iFIP, $ip ) = @_;
  8. +
  9. + # PCSV を一斉に弾く処理
  10. + my @pcsv_ip = (
  11. + '222.15.68.192/26', '59.135.39.128/27',
  12. + '118.152.214.160/27', '118.152.214.128/27',
  13. + '222.1.136.96/27', '222.1.136.64/27',
  14. + '59.128.128.0/20',
  15. + );
  16. + defined $Net::CIDR::Lite::VERSION or require Net::CIDR::Lite;
  17. + Net::CIDR::Lite->new(@pcsv_ip)->find($ip) and return 0;
  18. +
  19. my $iRepos = $iFIP->{_rs};
  20. my $bbs = $iFIP->{_bbs};
  21. my ( $i1, $i2, $i3, $i4 ) = split '\.', $ip;

img0ch 以外の 2ch 互換掲示板を作るスクリプト

  • http://0ch.mine.nu img0ch はここからフォークしました
  • http://mewlog.sakura.ne.jp/scripts/ 2ch互換スクリプト] 様々なスクリプト (流出スクリプト、17氏スクリプト、Global Note Script) が保管されています
  • http://cradle.s34.xrea.com/maybe/ <= ここを2ch専用ブラウザで登録して閲覧してみれば lv3 スクリプトが再配布されているサイトが見つかります。ただし、現在もスクリプトが配布されているかは不明