PageRenderTime 27ms CodeModel.GetById 19ms RepoModel.GetById 0ms app.codeStats 0ms

/spam_filter.php

https://github.com/stealthinu/pukiwiki_spam_filter
PHP | 1000 lines | 646 code | 151 blank | 203 comment | 124 complexity | 91f4e1608736f50e10e5a39efbde4598 MD5 | raw file
    

  1. <?php
    2. 

  2. 

  3. /*
    4. 

  4.  * spam_filter.php
    5. 

  5.  *
    6. 

  6.  * Based on akismet_filter.php version 1.2
    7. 

  7.  *  author Akio KONUMA konuma@ark-web.jp
    8. 

  8.  *  link http://www.ark-web.jp/sandbox/wiki/190.html
    9. 

  9.  *
    10. 

  10.  * @authoer SATOH Kiyoshi (satoh at hakuba dot jp)
    11. 

  11.  * @link http://miasa.info/index.php?%C8%FE%CB%E3Wiki%A4%C7%A5%B7%A5%B9%A5%C6%A5%E0%C5%AA%A4%CB%BD%A4%C0%B5%A4%B7%A4%C6%A4%A4%A4%EB%C5%C0
    12. 

  12.  * @version 0.8.0
    13. 

  13.  * @license GPL v2 or (at your option) any later version
    14. 

  14.  */
    15. 

  15. 

  16. //// pukiwiki.ini.php�ʤɤdzƥ��ѥ��ե��륿�����Ѥȥե��륿���λ����򤹤�
    17. 

  17. // �������Ƥ�̿̾��§������
    18. 

  18. // SPAM_FILTER_****_PLUGIN_NAME -> �����å��оݤȤ����ץ饰����̾�������޶��ڤ�
    19. 

  19. // SPAM_FILTER_****_REG         -> �ޥå�����������ɽ��
    20. 

  20. // SPAM_FILTER_****_URLREG      -> URL�����̤��뤿��������ɽ��
    21. 

  21. // SPAM_FILTER_****_WHITEREG    -> �ޥå����ʤ��Ƥ褤URL�ۥ磻�ȥꥹ��
    22. 

  22. 

  23. //// ���ѥ���Ƚ�Ǥ������������ꤹ��
    24. 

  24. // ���ꤵ�줿�Ƽ凉�ѥ��ե��륿�������̤ä���FALSE
    25. 

  25. // �ڤ��ե��륿�������˳ݤ���false positive�β�ǽ�����������Τ�ʣ�������dzݤ���
    26. 

  26. // ��SPAM_FILTER_COND ������
    27. 

  27. // ��UserAgent��libwww����HTML��ź�եե����롢</a>�����������롢�Ѹ��Τߤ�URL��3�İʾ塢URL��NS�Υ֥��å��ꥹ��
    28. 

  28. //define('SPAM_FILTER_COND', '#useragent() or #filename() or #atag() or (#onlyeng() and #urlnum()) or #urlnsbl()');
    29. 

  29. // ���嵭�����˥ץ饹���Ѹ��ΤߤΤȤ���URL�������Ȥ�����Akismet������
    30. 

  30. //define('SPAM_FILTER_COND', '#useragent() or #filename() or #atag() or (#onlyeng() and #urlnum()) or #urlnsbl() or (#onlyeng() and #url() and #akismet())');
    31. 

  31. // ���ǥե����ȤǤϥե��륿�ʤ�
    32. 

  32. define('SPAM_FILTER_COND', '');
    33. 

  33. 

  34. //// CAPTCHA�ǤΥ����å��򤹤����������ꤹ��
    35. 

  35. // ���ǥե����ȤǤϥե��륿�ʤ�
    36. 

  36. define('SPAM_FILTER_CAPTCHA_COND', '');
    37. 

  37. 

  38. //// �ƥե��륿���̤������Ǥ�������
    39. 

  39. // URL�ǤΥޥå��Ǽ��ɥᥤ���ʤɤ�̵�뤹�٤�URL
    40. 

  40. define('SPAM_FILTER_WHITEREG', '/example\.(com|net|jp)/i');
    41. 

  41. // URL�����Ф����ݤ�����ɽ��
    42. 

  42. define('SPAM_FILTER_URLREG', '/(?:(?:https?|ftp|news):\/\/)[\w\/\@\$()!?&%#:;.,~\'=*+-]+/i');
    43. 

  43. 

  44. //// urlnsbl �ʤɤǻȤ���NS�μ����򤹤� dns_get_ns ������
    45. 

  45. // NS�����������̤򤢤����٥����å��夷�Ƥ���
    46. 

  46. define('SPAM_FILTER_DNSGETNS_CACHE_FILE', 'dns_get_ns.cache');
    47. 

  47. // �����å��夷�Ƥ�������
    48. 

  48. define('SPAM_FILTER_DNSGETNS_CACHE_DAY', 30);
    49. 

  49. // nslookup ���ޥ��ɤؤΥѥ� - PHP4�ξ����ʤɤ�ɬ�פȤʤ����礬����
    50. 

  50. define('SPAM_FILTER_NSLOOKUP_PATH', '/usr/bin/nslookup');
    51. 

  51. 

  52. //// ipcountry �ʤɤǻȤ���IP�����񥳡��ɤ��������� get_country_code ������
    53. 

  53. // IP���ɥ쥹�Ӥȹ������ν񤫤줿�ե�����̾
    54. 

  54. define('SPAM_FILTER_IPCOUNTRY_FILE', 'delegated-apnic-latest');
    55. 

  55. 

  56. //// ngreg     - ���Ƥ�����ɽ���ե��륿
    57. 

  57. // �����������ǵ��Ĥ��ʤ����Ƥ�����ɽ��
    58. 

  58. define('SPAM_FILTER_NGREG_REG', '');
    59. 

  59. define('SPAM_FILTER_NGREG_PLUGIN_NAME', 'edit,comment,pcomment,article,bugtrack');
    60. 

  60. 

  61. //// url       - ���Ƥ�URL�äݤ����Τ��ޤޤ��Ƥ��뤫�����å�
    62. 

  62. define('SPAM_FILTER_URL_REG', '/https?:/i');
    63. 

  63. define('SPAM_FILTER_URL_PLUGIN_NAME', 'edit,comment,pcomment,article,bugtrack');
    64. 

  64. 

  65. //// atag      - ���Ƥ�</A>��[/URL]�Τ褦�ʥ��󥫡��������ޤޤ��Ƥ��뤫�����å�
    66. 

  66. define('SPAM_FILTER_ATAG_REG', '/<\/a>|\[\/url\]/i');
    67. 

  67. define('SPAM_FILTER_ATAG_PLUGIN_NAME', 'edit,comment,pcomment,article,bugtrack');
    68. 

  68. 

  69. //// onlyeng   - ���Ƥ�Ⱦ�ѱѿ��Τ�(���ܸ줬���äƤ��ʤ�)�������å�
    70. 

  70. define('SPAM_FILTER_ONLYENG_REG', '/\A[!-~\n ]+\Z/');
    71. 

  71. define('SPAM_FILTER_ONLYENG_PLUGIN_NAME', 'edit,comment,pcomment,article,bugtrack');
    72. 

  72. 

  73. //// urlnum    - ���Ƥ˴ޤޤ��Ƥ���URL�����İʾ夫�����å�
    74. 

  74. define('SPAM_FILTER_URLNUM_NUM', '3');
    75. 

  75. define('SPAM_FILTER_URLNUM_WHITEREG', SPAM_FILTER_WHITEREG);
    76. 

  76. define('SPAM_FILTER_URLNUM_URLREG', SPAM_FILTER_URLREG);
    77. 

  77. define('SPAM_FILTER_URLNUM_PLUGIN_NAME', 'edit,comment,pcomment,article,bugtrack');
    78. 

  78. 

  79. //// ipunknown - ���饤�����Ȥ�IP���հ����Ǥ��뤫�����å�
    80. 

  80. define('SPAM_FILTER_IPUNKNOWN_PLUGIN_NAME', 'edit,comment,pcomment,article,attach,bugtrack');
    81. 

  81. 

  82. //// ips25r    - ���饤�����Ȥ�IP��ưŪIP�äݤ�(S25R�˥ޥå�����)�������å�
    83. 

  83. // S25R������ɽ��
    84. 

  84. define('SPAM_FILTER_IPS25R_REG', '/(^[^\.]*[0-9][^0-9\.]+[0-9])|(^[^\.]*[0-9]{5})|(^([^\.]+\.)?[0-9][^\.]*\.[^\.]+\..+\.[a-z])|(^[^\.]*[0-9]\.[^\.]*[0-9]-[0-9])|(^[^\.]*[0-9]\.[^\.]*[0-9]\.[^\.]+\..+\.)|(^(dhcp|dialup|ppp|adsl)[^\.]*[0-9])|\.(internetdsl|adsl|sdi)\.tpnet\.pl$/');
    85. 

  85. define('SPAM_FILTER_IPS25R_PLUGIN_NAME', 'tb');
    86. 

  86. 

  87. //// ipbl      - ���饤�����Ȥ�IP���ۥ���̾�ˤ����ե��륿
    88. 

  88. // ���Ĥ��ʤ�IP���ۥ���̾������ɽ��
    89. 

  89. define('SPAM_FILTER_IPBL_REG', '');
    90. 

  90. define('SPAM_FILTER_IPBL_PLUGIN_NAME', 'edit,comment,pcomment,article,attach,bugtrack');
    91. 

  91. // �ۥ���̾�����Ĥ������ʤ��ä��Ȥ��ˤ����ݤ������� TRUE
    92. 

  92. define('SPAM_FILTER_IPBL_UNKNOWN', FALSE);
    93. 

  93. 

  94. //// ipdnsbl   - ���饤�����Ȥ�IP��DNSBL�ǥ����å�
    95. 

  95. define('SPAM_FILTER_IPDNSBL_DNS', 'niku.2ch.net,bsb.spamlookup.net,bl.spamcop.net,all.rbl.jp');
    96. 

  96. define('SPAM_FILTER_IPDNSBL_PLUGIN_NAME', 'edit,comment,pcomment,article,attach,bugtrack');
    97. 

  97. 

  98. //// ipcountry - ���饤�����Ȥ�IP�ι��������å�
    99. 

  99. // �ޥå��������������ꤹ������ɽ��
    100. 

  100. define('SPAM_FILTER_IPCOUNTRY_REG', '/(CN|KR|UA)/');
    101. 

  101. define('SPAM_FILTER_IPCOUNTRY_PLUGIN_NAME', 'edit,comment,pcomment,article,attach,bugtrack');
    102. 

  102. 

  103. //// uaunknown - HTTP_USER_AGENT������(pukiwiki.ini.php��$agents�ǻ���)�������å�
    104. 

  104. define('SPAM_FILTER_UAUNKNOWN_PLUGIN_NAME', 'edit,comment,pcomment,article,attach,bugtrack');
    105. 

  105. 

  106. //// useragent - HTTP_USER_AGENT�ˤ����ե��륿
    107. 

  107. // ���Ĥ��ʤ�HTTP_USER_AGENT������ɽ��
    108. 

  108. define('SPAM_FILTER_USERAGENT_REG', '/WWW-Mechanize|libwww/i');
    109. 

  109. define('SPAM_FILTER_USERAGENT_PLUGIN_NAME', 'edit,comment,pcomment,article,attach,bugtrack');
    110. 

  110. 

  111. //// acceptlanguage - HTTP_ACCEPT_LANGUAGE�ˤ����ե��륿
    112. 

  112. // ���Ĥ��ʤ�HTTP_ACCEPT_LANGUAGE������ɽ��
    113. 

  113. define('SPAM_FILTER_ACCEPTLANGUAGE_REG', '/cn|ru/i');
    114. 

  114. define('SPAM_FILTER_ACCEPTLANGUAGE_PLUGIN_NAME', 'edit,comment,pcomment,article,attach,bugtrack');
    115. 

  115. 

  116. //// filename  - ���åץ����ɥե�����̾�ˤ����ե��륿
    117. 

  117. // ���åץ����ɤ����Ĥ��ʤ��ե�����̾������ɽ��
    118. 

  118. define('SPAM_FILTER_FILENAME_REG', '/\.html$|\.htm$/i');
    119. 

  119. define('SPAM_FILTER_FILENAME_PLUGIN_NAME', 'attach');
    120. 

  120. 

  121. //// formname  - ¸�ߤ��ʤ��Ϥ��Υե��������Ƥ����뤫�����å�
    122. 

  122. // ¸�ߤ��ʤ��Ϥ��Υե�����̾�λ��ꡢ�����޶��ڤ�
    123. 

  123. define('SPAM_FILTER_FORMNAME_NAME', 'url,email');
    124. 

  124. define('SPAM_FILTER_FORMNAME_PLUGIN_NAME', 'edit,comment,pcomment,article,bugtrack');
    125. 

  125. 

  126. //// urlbl     - URL���֥��å��ꥹ�Ȥ����äƤ��뤫��ǧ
    127. 

  127. // URL�Υ֥��å��ꥹ�� �ۥ���̾�Ǥ�IP�Ǥ���
    128. 

  128. // ��wikiwiki.jp�Υ֥��å��ꥹ�Ȥ򻲹�
    129. 

  129. // ��http://wikiwiki.jp/?%A5%D5%A5%A3%A5%EB%A5%BF%A5%EA%A5%F3%A5%B0%A5%C9%A5%E1%A5%A4%A5%F3%B5%DA%A4%D3%A5%A2%A5%C9%A5%EC%A5%B9
    130. 

  130. define('SPAM_FILTER_URLBL_REG', '/(0451\.net|1\.sa3\.cn|1102213\.com|1234\.hao88cook\.com|1234564898\.h162\.1stxy\.cn|123lineage\.com|136136\.net|16isp\.com|17aa\.com|17tc\.com|18dmm\.com|18dmm\.com|18girl-av\.com|19800602\.com|1boo\.net|1gangmu\.com|1stxy\.cn|1stxy\.net|216\.168\.128\.126|2chjp\.com|453787\.com|500bb\.com|53dns\.com|56jb\.com|59\.36\.96\.140|5xuan\.com|60\.169\.0\.66|60\.171\.45\.134|66\.98\.212\.108|666\.lyzh\.com|6789\.hao88cook\.com|77276\.com|78xian\.com|84878679\.free\.psnic\.cn|853520\.com|8ycn\.com|92\.av366\.com|a\.2007ip\.com|a\.xiazaizhan\.cn|aaa-livedoor\.net|acyberhome\.com|adfka\.com|adult\.zu1\.ru|ahatena\.com|ahwlqy\.com|anemony\.info|angel\.hao88cook\.com|anyboard\.net|areaseo\.com|asdsdgh-jp\.com|askbigtits\.com|aspasp\.h162\.1stxy\.cn|aurasoul-visjp\.com|auto-mouse\.com|auto-mouse\.jp|avl\.lu|avtw1068\.com|baidu\.chinacainiao\.org|baidulink\.com|bailishidai\.com|bbs-qrcode\.com|bbs\.coocbbs\.com|bestinop\.org|beyondgame\.jsphome\.com|bibi520\.com|bibi520\.h20\.1stxy\.cn|bizcn\.com|blog-livedoor\.net|blogplaync\.com|bluell\.cn|blusystem\.com|bosja\.com|cash\.searchbot\.php|cashette\.com|casino\.online|cc\.wzxqy\.com|cetname\.com|cgimembera\.org|cglc\.org|chengzhibing\.com|china-beijing-cpa\.com|chinacainiao\.org|chinacu\.net|chnvip\.net|chouxiaoya\.org|city689\.com|cityhokkai\.com|cn7135\.cn|cnidc\.cn|conecojp\.net|coocbbs\.com|cool\.47555\.com|coolroge\.199\.53dns\.com|cpanel\.php|cyd\.org\.uk|d\.77276\.com|dcun\.cn|dfsm\.jino-net\.ru|dietnavi\.com|din-or\.com|dj5566\.org|djkkk66990\.com|dl\.gov\.cn|do\.77276\.com|down\.136136\.net|down\.eastrun\.net|down123\.net|dtg-gamania\.com|ee28\.cn|efnm\.w170\.bizcn\.com|emarealtor\.com|ff11-info\.com|ffxiforums\.net|fhy\.net|filthyloaded\.com|fizkult\.org|fly\.leryi\.com|fofje\.info|forumup\.us|forumup\.us|ftplin\.com|fxfqiao\.com|gamaniaech\.com|game-click\.com|game-fc2blog\.com|game-mmobbs\.com|game-oekakibbs\.com|game\.16isp\.com|game4enjoy\.net|game62chjp\.net|gamecent\.com|gameloto\.com|games-nifty\.com|gameslin\.net|gamesragnaroklink\.net|gamesroro\.com|gamet1\.com|gameurdr\.com|gameyoou\.com|gamshondamain\.net|ganecity\.com|gangnu\.com|gemnnammobbs\.com|gendama\.jp|geocitygame\.com|geocitylinks\.com|getamped-garm\.com|ggmm52\.com|ghostsoft\.info|girl-o\.com|gogogoo\.com|good1688\.com|goodclup\.com|google\.cn\.mmhk\.cn|grandchasse\.com|gsisdokf\.net|guoxuecn\.com|gwlz\.cn|hao88cook\.com|hao88cook\.xinwen365\.net|haveip\.com|heixiou\.com|hinokihome\.com\.tw|homepage3-nifty\.com|honda168\.net|hosetaibei\.com|hoyoo\.net|hyap98\.com|i5460\.net|i5460\.net|ic-huanao\.com|iframedollars\.biz|ii688\.com|itgozone\.com|ixbt\.com|izmena\.org|j4sb\.com|japan\.k15\.cn|japan213\.com|japangame1\.com|jdnx\.movie721\.cn|jinluandian\.com|joyjc\.com|joynu\.com|jp\.hao88cook\.com|jpgame666\.com|jpgamer\.net|jpgamermt\.com|jplin\.com|jplineage\.com|jplingood\.com|jplinux\.com|jplove888\.com|jpplay\.net|jpragnarokonline\.com|jprmthome\.com|js1988\.com|jsphome\.com|jswork\.jp|jtunes\.com|jtunes\.com|junkmetal\.info|junkmetal\.info|k15\.cn|kaihatu\.com|kanikuli\.net|kaukoo\.com|kele88\.com|kiev\.ua|kingbaba\.cc|kingrou\.w177\.west263\.cn|kingshi\.net|kingtt\.com|kmqe\.com|kortwpk\.com|korunowish\.com|kotonohax\.com|kulike\.com|kuronowish\.net|kyoukk\.com|la-ringtones\.com|lastlineage\.com|lele\.0451\.net|lin2-jp\.com|linainfo\.net|linbbs\.com|lindeliang-36248700\.15\.cnidc\.cn|lineagalink\.com|lineage-info\.com|lineage\.1102213\.com|lineage\.japan213\.com|lineage1bbs\.com|lineage2-ol\.com|lineage2\.japan213\.com|lineage2006\.com|lineage321\.com|lineagecojp\.com|lineagefirst\.com|lineageink\.com|lineagejp-game\.com|lineagejp-game\.com|lineagejp\.com|lineagekin\.com|lineagett\.com|lineinfo-jp\.com|linenew\.com|lingage\.com|lingamesjp\.com|linjp\.net|linkcetou\.com|linrmb\.com|linsssgame\.com|livedoor1\.com|lliinnss\.com|lovejpjp\.com|lovejptt\.com|lovetw\.webnow\.biz|lyadsl\.com|lyftp\.com|lyzh\.com|macauca\.org\.mo|mail\.8u8y\.com|maplestorfy\.com|micro36\.com|mm\.7mao\.com|mmhk\.cn|mogui\.k15\.cn|moguidage\.h81\.1stxy\.net|mojeforum\.net|monforum\.com|movie1945\.com|mumu\.8ycn\.com|nakosi\.com|navseh\.com|netgamelivedoor\.com|nobunaga\.1102213\.com|nothing-wiki\.com|okinawa\.usmc-mccs\.org|okwit\.com|omakase-net\.com|oulianyong\.com|pagead2\.googlesyndication\.com\.mmhk\.cn|pangzigame\.com|phpnet\.us|planetalanismorissette\.info|playerturbo\.com|playncsoft\.net|playsese\.com|plusintedia\.com|pointlink\.jp|potohihi\.com|ptxk\.com|puma163\.com|qbbd\.com|qianwanip\.cn|qiucong\.com|qq\.ee28\.cn|qq756\.com|quicktopic\.com|rabota\.inetbiznesman\.ru|ragnarok-bbs\.com|ragnarok-game\.com|ragnarok-sara\.com|ragnaroklink\.com|ragnarokonlina\.com|ragnarokonline1\.com|ragnarox\.mobi|rarbrc\.com|rb\.17aa\.com|rbtt1\.com|realitsen\.info|rik\.tag-host\.com|riro\.bibi520\.com|rit1\.bibi520\.com|rit2\.bibi520\.com|rmt-lineagecanopus\.com|rmt-navip\.com|rmt-ranloki\.com|rmt-trade\.com|ro-bot\.net|rogamesline\.com|rokonline-jp\.com|rootg\.org|roprice\.com|rormb\.com|s57\.cn|s678\.cn|scandius\.com|sepgon\.com|setsoul\.org|seun\.ru|seun\.ru|sf\.sf325\.com|shakiranudeworld\.info|shoopivdoor\.com|shoopivdoor\.w19\.cdnhost\.cn|skkustp\.itgozone\.com|skoro\.us|skybeisha\.com|slower-qth\.com|slower-qth\.com|stats\.dl\.gov\.cn|suniuqing\.com|suzukl668\.com|taiwanioke\.com|tankhaoz\.com|tbihome\.org|tesekl\.kmip\.net|thewildrose\.net|thtml\.com|tigermain\.w148\.bizcn\.com|tooplogui\.com|toyshop\.com\.tw|trade-land\.net|trans2424\.com|ttbbss123\.com|tulang1\.com|twabout\.com|twb1og\.net|twganwwko\.com|twguoyong\.com|twmsn-ga\.com|twsunkom\.com|twtaipei\.org|ubtop\.com|usmc-mccs\.org|vegas-webspace\.com|w666\.cn|watcheimpress\.com|watchsite\.nm\.ru|web\.77276\.com|webnow\.biz|wenyuan\.com\.cn|west263\.cn|wikiwiKi-game\.com|woowoo\.com\.cn|wowsquare\.com|wulgame\.com|www2\.cw988\.cn|xiaoshuowang\.com\.cn|xintao-01\.woowoo\.com\.cn|xinwen365\.net|xpills\.info|xulao\.com|xx\.wzxqy\.com|xx20062\.kele88\.com|xxlin\.com|xz\.llliao\.com|xzqx88\.com|yahoo-gamebbs\.com|yahoo\.chinacainiao\.org|yangjicook\.com|yingzhiyuan\.com|yohoojp\.com|youshini\.com|youtnwaht\.tw\.cn|youxigg\.com|yujinmp\.com|ywdgigkb-jp\.com|yzlin\.com|zaprosov\.com|zhangweijp\.com|zhangweijp\.w100\.okwit\.com|zhangwenbin-tian1\.14\.cnidc\.cn|zixinzhu\.cn|zn360\.com|zoo-sex\.com\.ua|ok8vs\.com|blog-ekndesign\.com|gamesmusic-realcgi\.net|homepage-nifty\.com|jpxpie6-7net\.com|irisdti-jp\.com|plusd-itmedia\.com|runbal-fc2web\.com|jklomo-jp\.com|d-jamesinfo\.com|deco030-cscblog\.com|ie6xp\.com|gomeodc\.com|vviccd520\.com|ipqwe\.com|mumy8\.com|okvs8\.com|p5ip\.com|plmq\.com|y8ne\.com|yyc8\.com|cityblog-fc2web\.com|extd-web\.com|gamegohi\.com|a-hatena\.com|ragnarok-search\.com|23styles\.com|ezbbsy\.com|livedoor-game\.com|m-phage\.com|yy14-kakiko\.com|lian-game\.com|ezbbs\.com|dentsu\.itgo\.com)/i');
    131. 

  131. define('SPAM_FILTER_URLBL_WHITEREG', SPAM_FILTER_WHITEREG);
    132. 

  132. define('SPAM_FILTER_URLBL_URLREG', SPAM_FILTER_URLREG);
    133. 

  133. define('SPAM_FILTER_URLBL_PLUGIN_NAME', 'edit,comment,pcomment,article');
    134. 

  134. // IP�����Ĥ������ʤ��ä��Ȥ��ˤ����ݤ������� TRUE
    135. 

  135. define('SPAM_FILTER_URLBL_UNKNOWN', FALSE);
    136. 

  136. 

  137. //// urlcountry  - URL�Υ����ФΤ������������å�
    138. 

  138. // �ޥå��������������ꤹ������ɽ��
    139. 

  139. define('SPAM_FILTER_URLCOUNTRY_REG', '/(CN|KR|UA)/');
    140. 

  140. define('SPAM_FILTER_URLCOUNTRY_WHITEREG', SPAM_FILTER_WHITEREG);
    141. 

  141. define('SPAM_FILTER_URLCOUNTRY_URLREG', SPAM_FILTER_URLREG);
    142. 

  142. define('SPAM_FILTER_URLCOUNTRY_PLUGIN_NAME', 'edit,comment,pcomment,article');
    143. 

  143. 

  144. //// urldnsbl  - URL��DNSBL�����äƤ��뤫��ǧ
    145. 

  145. // DNSBL�Υꥹ��
    146. 

  146. define('SPAM_FILTER_URLDNSBL_DNS', 'url.rbl.jp,rbl.bulkfeeds.jp,multi.surbl.org,list.uribl.com,bsb.spamlookup.net');
    147. 

  147. define('SPAM_FILTER_URLDNSBL_WHITEREG', SPAM_FILTER_WHITEREG);
    148. 

  148. define('SPAM_FILTER_URLDNSBL_URLREG', SPAM_FILTER_URLREG);
    149. 

  149. define('SPAM_FILTER_URLDNSBL_PLUGIN_NAME', 'edit,comment,pcomment,article');
    150. 

  150. 

  151. //// urlnsbl   - URL��NS���֥��å��ꥹ�Ȥ����äƤ��뤫��ǧ
    152. 

  152. // URL��NS�Υ֥��å��ꥹ�� �ۥ���̾�Ǥ�IP�Ǥ���
    153. 

  153. // ��wikiwiki.jp�Υ֥��å��ꥹ�Ȥ򻲹�
    154. 

  154. // ��http://wikiwiki.jp/?%A5%D5%A5%A3%A5%EB%A5%BF%A5%EA%A5%F3%A5%B0%A5%C9%A5%E1%A5%A4%A5%F3%B5%DA%A4%D3%A5%A2%A5%C9%A5%EC%A5%B9
    155. 

  155. define('SPAM_FILTER_URLNSBL_REG', '/(\.dnsfamily\.com|\.xinnet\.cn|\.xinnetdns\.com|\.bigwww\.com|\.4everdns\.com|\.myhostadmin\.net|\.dns\.com\.cn|\.hichina\.com|\.cnmsn\.net|\.focusdns\.com|\.cdncenter\.com|\.cnkuai\.cn|\.cnkuai\.com|\.cnolnic\.com|\.dnspod\.net|\.mywebserv\.com|216\.195\.58\.5[0-9])/i');
    156. 

  156. define('SPAM_FILTER_URLNSBL_WHITEREG', SPAM_FILTER_WHITEREG);
    157. 

  157. define('SPAM_FILTER_URLNSBL_URLREG', SPAM_FILTER_URLREG);
    158. 

  158. define('SPAM_FILTER_URLNSBL_PLUGIN_NAME', 'edit,comment,pcomment,article');
    159. 

  159. // NS�����Ĥ������ʤ��ä��Ȥ��ˤ����ݤ������� TRUE
    160. 

  160. define('SPAM_FILTER_URLNSBL_NSUNKNOWN', FALSE);
    161. 

  161. 

  162. //// urlnscountry - URL��NS�ι��������å�
    163. 

  163. // �ޥå��������������ꤹ������ɽ��
    164. 

  164. define('SPAM_FILTER_URLNSCOUNTRY_REG', '/(CN|KR|UA)/');
    165. 

  165. define('SPAM_FILTER_URLNSCOUNTRY_WHITEREG', SPAM_FILTER_WHITEREG);
    166. 

  166. define('SPAM_FILTER_URLNSCOUNTRY_URLREG', SPAM_FILTER_URLREG);
    167. 

  167. define('SPAM_FILTER_URLNSCOUNTRY_PLUGIN_NAME', 'edit,comment,pcomment,article');
    168. 

  168. // NS�����Ĥ������ʤ��ä��Ȥ��ˤ����ݤ������� TRUE
    169. 

  169. define('SPAM_FILTER_URLNSCOUNTRY_NSUNKNOWN', FALSE);
    170. 

  170. 

  171. //// akismet   - Akismet �ˤ����ե��륿
    172. 

  172. // ���ѥ������å����ˤ�̵�뤹��Post�ǡ����������޶��ڤ�
    173. 

  173. define('SPAM_FILTER_AKISMET_IGNORE_KEY', 'digest');
    174. 

  174. // Akismet�Ǽ������롣API����
    175. 

  175. define('SPAM_FILTER_AKISMET_API_KEY', '');
    176. 

  176. define('SPAM_FILTER_AKISMET_PLUGIN_NAME', 'edit,comment,tracker,article');
    177. 

  177. 

  178. //// reCAPTCHA ������
    179. 

  179. define('SPAM_FILTER_RECAPTCHA_PUBLICKEY', '');
    180. 

  180. define('SPAM_FILTER_RECAPTCHA_PRIVATEKEY', '');
    181. 

  181. 

  182. 

  183. define('SPAM_FILTER_IS_WINDOWS', (strtoupper(substr(PHP_OS, 0, 3)) === 'WIN'));
    184. 

  184. 

  185. //// ���ѥ��ե��륿����
    186. 

  186. // plugin.php �����ƤФ���
    187. 

  187. function spam_filter($plugin)
    188. 

  188. {
    189. 

  189.     $spamfilter = new SpamFilter($_POST, $plugin);
    190. 

  190. 

  191.     // CAPTCHA�Ǥ�ǧ�ڤ��̤äƤ������礽�Τޤ��̤�
    192. 

  192.     if ($spamfilter->captcha_check()) return;
    193. 

  193. 

  194.     // ���ݾ����˹��äƤ������硢CAPTCHA�Ǥ�ǧ�ڤ��餻����λ
    195. 

  195.     if ($spamfilter->is_spam())
    196. 

  196.         die_message( "Spam check failed. Plugin:". $spamfilter->plugin_name ." Match:". $spamfilter->message ."<br>\n" );
    197. 

  197. 

  198.     // CAPTCHA���������˹��äƤ������硢CAPTCHA��ɽ��
    199. 

  199.     if ($spamfilter->is_spam(SPAM_FILTER_CAPTCHA_COND))
    200. 

  200.         $spamfilter->captcha_show();
    201. 

  201. }
    202. 

  202. 

  203. 

  204. //// ���ѥ��ե��륿���饹
    205. 

  205. // �ե��륿�Ѥ�û���ؿ�̾��̾�����֤������ʤ����᥯�饹�ǤޤȤ᤿����
    206. 

  206. class SpamFilter
    207. 

  207. {
    208. 

  208.     // �ƥ��ѥ��ե��륿�ǻ��Ȥ����ǡ���
    209. 

  209.     var $post_data;   // ���Ƥ��줿����
    210. 

  210.     var $plugin_name; // �ƤӽФ��줿�ץ饰����̾
    211. 

  211.     var $message;     // ���顼�����Ѥ˥ޥå����������ʤɤ��ɵ����Ƥ���
    212. 

  212.     var $dns_get_ns_cache; // dns_get_ns�Υ����å�����
    213. 

  213. 

  214.     function SpamFilter($post, $plugin)
    215. 

  215.     {
    216. 

  216.         $this->post_data = $post;
    217. 

  217.         $this->plugin_name = $plugin;
    218. 

  218.         $this->message = '';
    219. 

  219.     }
    220. 

  220. 

  221.     // SPAM_FILTER_COND �ǻ��ꤵ�줿���ѥ��ե��륿���ݤ���
    222. 

  222.     function is_spam($cond = SPAM_FILTER_COND)
    223. 

  223.     {
    224. 

  224.         // read �ȡ�edit �� preview �ΤȤ��ϥ����å��ݤ��ʤ�
    225. 

  225.         global $vars;
    226. 

  226.         if ($this->plugin_name == 'read' ||
    227. 

  227.             $this->plugin_name == 'edit' && isset($vars['preview'])) return FALSE;
    228. 

  228.         // bugtrack �λ��� summary �� body �� msg �Ȥ��ƥ����å�����
    229. 

  229.         if ($this->plugin_name == 'bugtrack')
    230. 

  230.             $this->post_data['msg'] = $this->post_data['summary'] . $this->post_data['body'];
    231. 

  231.         // �ե��륿�����λ��꤬�ʤ����Ф��Τޤ��֤�
    232. 

  232.         if (preg_match('/^\s*$/', $cond)) return FALSE;
    233. 

  233. 

  234.         // �ޥå������������񤭽Ф��Хåե��򥯥ꥢ
    235. 

  235.         $this->message = '';
    236. 

  236.         // �ե��륿�������������Ƥ��������å��ݤ���
    237. 

  237.         $cond = preg_replace('/#/', '$this->', $cond);
    238. 

  238.         $cond = 'return('. $cond .');';
    239. 

  239.         return eval( $cond );
    240. 

  240.     }
    241. 

  241. 

  242.     function check_plugin($pluginnames)
    243. 

  243.     {
    244. 

  244.         $plugin_names = explode(",", $pluginnames);
    245. 

  245.         return in_array($this->plugin_name, $plugin_names);
    246. 

  246.     }
    247. 

  247. 

  248.     // ���Ƥ�����ɽ�������å�
    249. 

  249.     function ngreg($reg = SPAM_FILTER_NGREG_REG,
    250. 

  250.                    $pluginnames = SPAM_FILTER_NGREG_PLUGIN_NAME)
    251. 

  251.     {
    252. 

  252.         if (!$this->check_plugin($pluginnames)) return FALSE;
    253. 

  253. 

  254.         if (preg_match($reg, $this->post_data['msg'])) {
    255. 

  255.             $this->message .= 'ngreg ';
    256. 

  256.             return TRUE;
    257. 

  257.         }
    258. 

  258. 

  259.         return FALSE;
    260. 

  260.     }
    261. 

  261. 

  262.     // ���ƤΤ�URL���ޤޤ��Ƥ��뤫�����å�
    263. 

  263.     function url($reg = SPAM_FILTER_URL_REG,
    264. 

  264.                  $pluginnames = SPAM_FILTER_URL_PLUGIN_NAME)
    265. 

  265.     {
    266. 

  266.         if (!$this->check_plugin($pluginnames)) return FALSE;
    267. 

  267. 

  268.         if (preg_match($reg, $this->post_data['msg'])) {
    269. 

  269.             $this->message .= 'url ';
    270. 

  270.             return TRUE;
    271. 

  271.         }
    272. 

  272. 

  273.         return FALSE;
    274. 

  274.     }
    275. 

  275. 

  276.     // ���Ƥ�</A>��[/URL]�Τ褦�ʥ��󥫡��������ޤޤ��Ƥ��뤫�����å�
    277. 

  277.     function atag($reg = SPAM_FILTER_ATAG_REG,
    278. 

  278.                   $pluginnames = SPAM_FILTER_ATAG_PLUGIN_NAME)
    279. 

  279.     {
    280. 

  280.         if (!$this->check_plugin($pluginnames)) return FALSE;
    281. 

  281. 

  282.         if (preg_match($reg, $this->post_data['msg'])) {
    283. 

  283.             $this->message .= 'atag ';
    284. 

  284.             return TRUE;
    285. 

  285.         }
    286. 

  286. 

  287.         return FALSE;
    288. 

  288.     }
    289. 

  289. 

  290.     // ���Ƥ�Ⱦ�ѱѿ��Τ�(���ܸ줬���äƤ��ʤ�)�������å�
    291. 

  291.     function onlyeng($reg = SPAM_FILTER_ONLYENG_REG,
    292. 

  292.                      $pluginnames = SPAM_FILTER_ONLYENG_PLUGIN_NAME)
    293. 

  293.     {
    294. 

  294.         if (!$this->check_plugin($pluginnames)) return FALSE;
    295. 

  295. 

  296.         if (preg_match($reg, $this->post_data['msg'])) {
    297. 

  297.             $this->message .= 'onlyeng ';
    298. 

  298.             return TRUE;
    299. 

  299.         }
    300. 

  300. 

  301.         return FALSE;
    302. 

  302.     }
    303. 

  303. 

  304.     // ���Ƥ˴ޤޤ��Ƥ���URL�����İʾ夫�����å�
    305. 

  305.     function urlnum($num = SPAM_FILTER_URLNUM_NUM,
    306. 

  306.                     $whitereg = SPAM_FILTER_URLNUM_WHITEREG,
    307. 

  307.                     $urlreg = SPAM_FILTER_URLNUM_URLREG,
    308. 

  308.                     $pluginnames = SPAM_FILTER_URLNUM_PLUGIN_NAME)
    309. 

  309.     {
    310. 

  310.         //        die_message("in urlnum plugin_name". $this->plugin_name);
    311. 

  311.         if (!$this->check_plugin($pluginnames)) return FALSE;
    312. 

  312. 

  313.         // ��������URL������
    314. 

  314.         preg_match_all($urlreg, $this->post_data['msg'], $urls);
    315. 

  315.         foreach ($urls[0] as $url) {
    316. 

  316.             // �ۥ���̾���ۥ磻�ȥꥹ�Ȥˤ���������̵�뤷�Ƽ���URL�Υ����å���
    317. 

  317.             if (preg_match($whitereg, $url)) continue;
    318. 

  318. 

  319.             // �ۥ磻�ȥꥹ�Ȥ˥ޥå����ʤ��ä��Ȥ��ϥ������ȥ��å�
    320. 

  320.             $link_count ++;
    321. 

  321.         }
    322. 

  322.         if ($link_count >= $num) {
    323. 

  323.             $this->message .= 'urlnum ';
    324. 

  324.             return TRUE;
    325. 

  325.         }
    326. 

  326. 

  327.         return FALSE;
    328. 

  328.     }
    329. 

  329. 

  330.     // ���饤�����Ȥ�IP���հ����Ǥ��뤫�����å�
    331. 

  331.     function ipunknown($pluginnames = SPAM_FILTER_IPUNKNOWN_PLUGIN_NAME)
    332. 

  332.     {
    333. 

  333.         if (!$this->check_plugin($pluginnames)) return FALSE;
    334. 

  334. 

  335.         // IP�����ꤵ���Ƥ��ʤ�������Ĵ�٤����ʤ��Τ��̤�
    336. 

  336.         if (empty($_SERVER['REMOTE_ADDR'])) return FALSE;
    337. 

  337. 

  338.         $hostname = gethostbyaddr($_SERVER['REMOTE_ADDR']);
    339. 

  339.         if (empty($hostname)) {
    340. 

  340.             $this->message .= 'ipunknown ';
    341. 

  341.             return TRUE;
    342. 

  342.         }
    343. 

  343. 

  344.         return FALSE;
    345. 

  345.     }
    346. 

  346. 

  347.     // ���饤�����Ȥ�IP��ưŪIP�äݤ�(S25R�˥ޥå�����)�������å�
    348. 

  348.     function ips25r($reg = SPAM_FILTER_IPS25R_REG,
    349. 

  349.                     $pluginnames = SPAM_FILTER_IPS25R_PLUGIN_NAME)
    350. 

  350.     {
    351. 

  351.         if (!$this->check_plugin($pluginnames)) return FALSE;
    352. 

  352. 

  353.         // IP�����ꤵ���Ƥ��ʤ�������Ĵ�٤����ʤ��Τ��̤�
    354. 

  354.         if (empty($_SERVER['REMOTE_ADDR'])) return FALSE;
    355. 

  355. 

  356.         $hostname = gethostbyaddr($_SERVER['REMOTE_ADDR']);
    357. 

  357.         if (empty($hostname) || preg_match($reg, $hostname)) {
    358. 

  358.             $this->message .= 'ips25r ';
    359. 

  359.             return TRUE;
    360. 

  360.         }
    361. 

  361. 

  362.         return FALSE;
    363. 

  363.     }
    364. 

  364. 

  365.     // ���饤�����Ȥ�IP�Υ����å�
    366. 

  366.     function ipbl($reg = SPAM_FILTER_IPBL_REG,
    367. 

  367.                   $pluginnames = SPAM_FILTER_IPBL_PLUGIN_NAME)
    368. 

  368.     {
    369. 

  369.         if (!$this->check_plugin($pluginnames)) return FALSE;
    370. 

  370. 

  371.         // IP�����ꤵ���Ƥ��ʤ�������Ĵ�٤����ʤ��Τ��̤�
    372. 

  372.         if (empty($_SERVER['REMOTE_ADDR'])) return FALSE;
    373. 

  373. 

  374.         $hostname = gethostbyaddr($_SERVER['REMOTE_ADDR']);
    375. 

  375.         if (preg_match($reg, $_SERVER['REMOTE_ADDR']) ||
    376. 

  376.             preg_match($reg, $hostname)) {
    377. 

  377.             $this->message .= 'ipbl ';
    378. 

  378.             return TRUE;
    379. 

  379.         }
    380. 

  380.         if (SPAM_FILTER_IPBL_UNKNOWN && empty($hostname)) {
    381. 

  381.             $this->message .= 'ipbl(unknown) ';
    382. 

  382.             return TRUE;
    383. 

  383.         }
    384. 

  384. 

  385.         return FALSE;
    386. 

  386.     }
    387. 

  387. 

  388.     // ���饤�����Ȥ�IP��DNSBL�ǥ����å�
    389. 

  389.     function ipdnsbl($dnss = SPAM_FILTER_IPDNSBL_DNS,
    390. 

  390.                      $pluginnames = SPAM_FILTER_IPDNSBL_PLUGIN_NAME)
    391. 

  391.     {
    392. 

  392.         if (!$this->check_plugin($pluginnames)) return FALSE;
    393. 

  393. 

  394.         // IP�����ꤵ���Ƥ��ʤ�������Ĵ�٤����ʤ��Τ��̤�
    395. 

  395.         if (empty($_SERVER['REMOTE_ADDR'])) return FALSE;
    396. 

  396. 

  397.         $dns_hosts = explode(",", $dnss);
    398. 

  398.         $ip = $_SERVER['REMOTE_ADDR'];
    399. 

  399.         $revip = implode('.', array_reverse(explode('.', $ip)));
    400. 

  400. 

  401.         foreach ($dns_hosts as $dns) {
    402. 

  402.             $lookup = $revip . '.' . $dns;
    403. 

  403.             $result = gethostbyname($lookup);
    404. 

  404.             if ($result != $lookup) {
    405. 

  405.                 $this->message .= 'ipdnsbl ';
    406. 

  406.                 return TRUE;
    407. 

  407.             }
    408. 

  408.         }
    409. 

  409. 

  410.         return FALSE;
    411. 

  411.     }
    412. 

  412. 

  413.     // ���饤�����Ȥ�IP�ι��������å�
    414. 

  414.     function ipcountry($reg = SPAM_FILTER_IPCOUNTRY_REG,
    415. 

  415.                        $pluginnames = SPAM_FILTER_IPCOUNTRY_PLUGIN_NAME)
    416. 

  416.     {
    417. 

  417.         if (!$this->check_plugin($pluginnames)) return FALSE;
    418. 

  418. 

  419.         // IP�����ꤵ���Ƥ��ʤ�������Ĵ�٤����ʤ��Τ��̤�
    420. 

  420.         if (empty($_SERVER['REMOTE_ADDR'])) return FALSE;
    421. 

  421. 

  422.         $country = $this->get_country_code( $_SERVER['REMOTE_ADDR'] );
    423. 

  423.         if (preg_match($reg, $country)) {
    424. 

  424.             $this->message .= 'ipcountry ';
    425. 

  425.             return TRUE;
    426. 

  426.         }
    427. 

  427. 

  428.         return FALSE;
    429. 

  429.     }
    430. 

  430. 

  431.     // HTTP_USER_AGENT������(pukiwiki.ini.php��$agents�ǻ���)�������å�
    432. 

  432.     function uaunknown($pluginnames = SPAM_FILTER_UAUNKNOWN_PLUGIN_NAME)
    433. 

  433.     {
    434. 

  434.         global $agents;
    435. 

  435. 

  436.         if (!$this->check_plugin($pluginnames)) return FALSE;
    437. 

  437. 

  438.         // UserAgent�ͤ����ꤵ���Ƥ��ʤ������ϵ���
    439. 

  439.         if (empty($_SERVER['HTTP_USER_AGENT'])) {
    440. 

  440.             $this->message .= 'uaunknown(empty) ';
    441. 

  441.             return TRUE;
    442. 

  442.         }
    443. 

  443. 

  444.         // $agents�κǸ��ˤ���default�����ʳ��ȥޥå�������
    445. 

  445.         $agents_temp = $agents;
    446. 

  446.         array_pop( $agents_temp );
    447. 

  447.         foreach ($agents_temp as $agent) {
    448. 

  448.             // �ɤ줫��UA�ȥޥå������������ʤ�
    449. 

  449.             if (preg_match($agent['pattern'], $_SERVER['HTTP_USER_AGENT'])) return FALSE;
    450. 

  450.         }
    451. 

  451.         // �ɤ�UA�Ȥ��ޥå����ʤ��ä�
    452. 

  452.         $this->message .= 'uaunknown ';
    453. 

  453.         return TRUE;
    454. 

  454.     }
    455. 

  455. 

  456.     // HTTP_USER_AGENT�Υ����å�
    457. 

  457.     // �����Ѥˤ� HTTP_USER_AGENT ���ä��ʤ��褦 init.php �إѥå���ɬ�פ���
    458. 

  458.     function useragent($reg = SPAM_FILTER_USERAGENT_REG,
    459. 

  459.                        $pluginnames = SPAM_FILTER_USERAGENT_PLUGIN_NAME)
    460. 

  460.     {
    461. 

  461.         if (!$this->check_plugin($pluginnames)) return FALSE;
    462. 

  462. 

  463.         // UserAgent�ͤ����ꤵ���Ƥ��ʤ������ϵ���
    464. 

  464.         if (empty($_SERVER['HTTP_USER_AGENT'])) {
    465. 

  465.             $this->message .= 'uaunknown(empty) ';
    466. 

  466.             return TRUE;
    467. 

  467.         }
    468. 

  468. 

  469.         if (preg_match($reg, $_SERVER['HTTP_USER_AGENT'])) {
    470. 

  470.             $this->message .= 'useragent ';
    471. 

  471.             return TRUE;
    472. 

  472.         }
    473. 

  473. 

  474.         return FALSE;
    475. 

  475.     }
    476. 

  476. 

  477.     // HTTP_ACCEPT_LANGUAGE�Υ����å�
    478. 

  478.     function acceptlanguage($reg = SPAM_FILTER_ACCEPTLANGUAGE_REG,
    479. 

  479.                             $pluginnames = SPAM_FILTER_ACCEPTLANGUAGE_PLUGIN_NAME)
    480. 

  480.     {
    481. 

  481.         if (!$this->check_plugin($pluginnames)) return FALSE;
    482. 

  482. 

  483.         // AcceptLanguage�ͤ����ꤵ���Ƥ��ʤ������ϵ���
    484. 

  484.         if (empty($_SERVER['HTTP_ACCEPT_LANGUAGE'])) {
    485. 

  485.             $this->message .= 'alunknown(empty) ';
    486. 

  486.             return TRUE;
    487. 

  487.         }
    488. 

  488. 

  489.         if (preg_match($reg, $_SERVER['HTTP_ACCEPT_LANGUAGE'])) {
    490. 

  490.             $this->message .= 'acceptlanguage ';
    491. 

  491.             return TRUE;
    492. 

  492.         }
    493. 

  493. 

  494.         return FALSE;
    495. 

  495.     }
    496. 

  496. 

  497.     // ���åץ����ɥե�����̾�ˤ����ե��륿
    498. 

  498.     function filename($reg = SPAM_FILTER_FILENAME_REG,
    499. 

  499.                       $pluginnames = SPAM_FILTER_FILENAME_PLUGIN_NAME)
    500. 

  500.     {
    501. 

  501.         if (!$this->check_plugin($pluginnames)) return FALSE;
    502. 

  502. 

  503.         if (isset($_FILES['attach_file'])) {
    504. 

  504.             $file = $_FILES['attach_file'];
    505. 

  505.             if (preg_match($reg, $file['name'])) {
    506. 

  506.                 $this->message .= 'filename ';
    507. 

  507.                 return TRUE;
    508. 

  508.             }
    509. 

  509.         }
    510. 

  510. 

  511.         return FALSE;
    512. 

  512.     }
    513. 

  513. 

  514.     // ¸�ߤ��ʤ��Ϥ��Υե��������Ƥ����뤫�����å�
    515. 

  515.     function formname($formnames = SPAM_FILTER_FORMNAME_NAME,
    516. 

  516.                       $pluginnames = SPAM_FILTER_FORMNAME_PLUGIN_NAME)
    517. 

  517.     {
    518. 

  518.         if (!$this->check_plugin($pluginnames)) return FALSE;
    519. 

  519. 

  520.         // ���ꤵ�줿̾���Υե����������Ƥ��ʤˤ����뤫��ǧ
    521. 

  521.         $form_names = explode(",", $formnames);
    522. 

  522.         foreach ($form_names as $name) {
    523. 

  523.             if (!empty($this->post_data["$name"])) {
    524. 

  524.                 $this->message .= 'formname ';
    525. 

  525.                 return TRUE;
    526. 

  526.             }
    527. 

  527.         }
    528. 

  528. 

  529.         return FALSE;
    530. 

  530.     }
    531. 

  531. 

  532.     // URL���֥��å��ꥹ�Ȥ����äƤ��뤫��ǧ
    533. 

  533.     function urlbl($reg = SPAM_FILTER_URLBL_REG,
    534. 

  534.                    $whitereg = SPAM_FILTER_URLBL_WHITEREG,
    535. 

  535.                    $urlreg = SPAM_FILTER_URLBL_URLREG,
    536. 

  536.                    $pluginnames = SPAM_FILTER_URLBL_PLUGIN_NAME)
    537. 

  537.     {
    538. 

  538.         if (!$this->check_plugin($pluginnames)) return FALSE;
    539. 

  539. 

  540.         // ��������URL������
    541. 

  541.         preg_match_all($urlreg, $this->post_data['msg'], $urls);
    542. 

  542.         foreach ($urls[0] as $url) {
    543. 

  543.             // URL�Υۥ���̾�����ɥᥤ��������
    544. 

  544.             $url_array = parse_url($url);
    545. 

  545.             $hostname = $url_array['host'];
    546. 

  546. 

  547.             // �ۥ���̾���ۥ磻�ȥꥹ�Ȥˤ���������̵�뤷�Ƽ���URL�Υ����å���
    548. 

  548.             if (preg_match($whitereg, $hostname)) continue;
    549. 

  549. 

  550.             // �ۥ���̾���֥��å��ꥹ�ȤȾȤ餷���碌
    551. 

  551.             if (preg_match($reg, $hostname)) {
    552. 

  552.                 $this->message .= 'urlbl(name) ';
    553. 

  553.                 return TRUE;
    554. 

  554.             }
    555. 

  555.             // �ۥ���̾��IP���֥��å��ꥹ�ȤȾȤ餷���碌
    556. 

  556.             if ($iplist = gethostbynamel($hostname)) {
    557. 

  557.                 foreach ($iplist as $ip) {
    558. 

  558.                     if (preg_match($reg, $ip)) {
    559. 

  559.                         $this->message .= 'urlbl(ip) ';
    560. 

  560.                         return TRUE;
    561. 

  561.                     }
    562. 

  562.                 }
    563. 

  563.             }
    564. 

  564.             else {
    565. 

  565.                 // IP�����Ĥ������ʤ��ä��Ȥ��ˤ����ݤ�������
    566. 

  566.                 if (SPAM_FILTER_URLBL_UNKNOWN) {
    567. 

  567.                     $this->message .= 'urlbl(unknown) ';
    568. 

  568.                     return TRUE;
    569. 

  569.                 }
    570. 

  570.             }
    571. 

  571.         }
    572. 

  572. 

  573.         return FALSE;
    574. 

  574.     }
    575. 

  575. 

  576.     // URL�Υ����ФΤ������������å�
    577. 

  577.     function urlcountry($reg = SPAM_FILTER_URLCOUNTRY_REG,
    578. 

  578.                         $whitereg = SPAM_FILTER_URLCOUNTRY_WHITEREG,
    579. 

  579.                         $urlreg = SPAM_FILTER_URLCOUNTRY_URLREG,
    580. 

  580.                         $pluginnames = SPAM_FILTER_URLCOUNTRY_PLUGIN_NAME)
    581. 

  581.     {
    582. 

  582.         if (!$this->check_plugin($pluginnames)) return FALSE;
    583. 

  583. 

  584.         // ��������URL������
    585. 

  585.         preg_match_all($urlreg, $this->post_data['msg'], $urls);
    586. 

  586.         foreach ($urls[0] as $url) {
    587. 

  587.             // URL�Υۥ���̾������
    588. 

  588.             $url_array = parse_url($url);
    589. 

  589.             $hostname = $url_array['host'];
    590. 

  590. 

  591.             // �ۥ���̾���ۥ磻�ȥꥹ�Ȥˤ���������̵�뤷�Ƽ���URL�Υ����å���
    592. 

  592.             if (preg_match($whitereg, $hostname)) continue;
    593. 

  593. 

  594.             // �ۥ���̾��IP���֥��å��ꥹ�ȤȾȤ餷���碌
    595. 

  595.             if ($iplist = gethostbynamel($hostname)) {
    596. 

  596.                 foreach ($iplist as $ip) {
    597. 

  597.                     $country = $this->get_country_code( $ip );
    598. 

  598.                     //$tmpmes .= $hostname . ' ' . $ip . ' ' . $country . ', ';
    599. 

  599.                     if (preg_match($reg, $country)) {
    600. 

  600.                         $this->message .= 'urlcountry ';
    601. 

  601.                         return TRUE;
    602. 

  602.                     }
    603. 

  603.                 }
    604. 

  604.             }
    605. 

  605.             else {
    606. 

  606.                 // IP�����Ĥ������ʤ��ä��Ȥ��ˤ����ݤ�������
    607. 

  607.                 if (SPAM_FILTER_URLCOUNTRY_UNKNOWN) {
    608. 

  608.                     $this->message .= 'urlcountry(unknown) ';
    609. 

  609.                     return TRUE;
    610. 

  610.                 }
    611. 

  611.             }
    612. 

  612.         }
    613. 

  613. 

  614.         //        die_message( "mes: $tmpmes" );
    615. 

  615. 

  616.         return FALSE;
    617. 

  617.     }
    618. 

  618. 

  619.     // URL��DNSBL�����äƤ��뤫��ǧ
    620. 

  620.     function urldnsbl($dnss = SPAM_FILTER_URLDNSBL_DNS,
    621. 

  621.                       $whitereg = SPAM_FILTER_URLDNSBL_WHITEREG,
    622. 

  622.                       $urlreg = SPAM_FILTER_URLDNSBL_URLREG,
    623. 

  623.                       $pluginnames = SPAM_FILTER_URLDNSBL_PLUGIN_NAME)
    624. 

  624.     {
    625. 

  625.         if (!$this->check_plugin($pluginnames)) return FALSE;
    626. 

  626. 

  627.         $dns_hosts = explode(",", $dnss);
    628. 

  628. 

  629.         // ��������URL������
    630. 

  630.         preg_match_all($urlreg, $this->post_data['msg'], $urls);
    631. 

  631.         foreach ($urls[0] as $url) {
    632. 

  632.             // �ۥ���̾���ۥ磻�ȥꥹ�Ȥˤ���������̵�뤷�Ƽ���URL�Υ����å���
    633. 

  633.             if (preg_match($whitereg, $url)) continue;
    634. 

  634. 

  635.             // URL�Υۥ���̾�����ɥᥤ��������
    636. 

  636.             $url_array = parse_url($url);
    637. 

  637.             $hostname = $url_array['host'];
    638. 

  638.             // �ɤ�����DNSBL����Ͽ�����Ƥ���
    639. 

  639.             foreach ($dns_hosts as $dns) {
    640. 

  640.                 $lookup = $hostname . '.' . $dns;
    641. 

  641.                 $result = gethostbyname($lookup);
    642. 

  642.                 if ($result != $lookup) {
    643. 

  643.                     $this->message .= 'urldnsbl ';
    644. 

  644.                     return TRUE;
    645. 

  645.                 }
    646. 

  646.             }
    647. 

  647.         }
    648. 

  648. 

  649.         return FALSE;
    650. 

  650.     }
    651. 

  651. 

  652.     // URL��NS���֥��å��ꥹ�Ȥ����äƤ��뤫��ǧ
    653. 

  653.     function urlnsbl($reg = SPAM_FILTER_URLNSBL_REG,
    654. 

  654.                      $whitereg = SPAM_FILTER_URLNSBL_WHITEREG,
    655. 

  655.                      $urlreg = SPAM_FILTER_URLNSBL_URLREG,
    656. 

  656.                      $pluginnames = SPAM_FILTER_URLNSBL_PLUGIN_NAME)
    657. 

  657.     {
    658. 

  658.         if (!$this->check_plugin($pluginnames)) return FALSE;
    659. 

  659. 

  660.         // ��������URL������
    661. 

  661.         preg_match_all($urlreg, $this->post_data['msg'], $urls);
    662. 

  662.         foreach ($urls[0] as $url) {
    663. 

  663.             // URL�Υۥ���̾������
    664. 

  664.             $url_array = parse_url($url);
    665. 

  665.             $hostname = $url_array['host'];
    666. 

  666. 

  667.             // �ۥ���̾���ۥ磻�ȥꥹ�Ȥˤ���������̵�뤷�Ƽ���URL�Υ����å���
    668. 

  668.             if (preg_match($whitereg, $hostname)) continue;
    669. 

  669. 

  670.             // �ɥᥤ����NS������
    671. 

  671.             if ($this->dns_get_ns($hostname, $nslist)) {
    672. 

  672.                 // �ɥᥤ����NS�������줿��NS�֥��å��ꥹ�ȤȾȤ餷���碌
    673. 

  673.                 foreach ($nslist as $ns) {
    674. 

  674.                     if (preg_match($reg, $ns)) {
    675. 

  675.                         $this->message .= 'urlnsbl(name) ';
    676. 

  676.                         return TRUE;
    677. 

  677.                     }
    678. 

  678.                     // NS��IP���֥��å��ꥹ�ȤȾȤ餷���碌
    679. 

  679.                     if ($iplist = gethostbynamel($ns)) {
    680. 

  680.                         foreach ($iplist as $ip) {
    681. 

  681.                             if (preg_match($reg, $ip)) {
    682. 

  682.                                 $this->message .= 'urlnsbl(ip) ';
    683. 

  683.                                 return TRUE;
    684. 

  684.                             }
    685. 

  685.                         }
    686. 

  686.                     }
    687. 

  687.                 }
    688. 

  688.             }
    689. 

  689.             else {
    690. 

  690.                 // NS���������ʤ��ä�
    691. 

  691.                 if (SPAM_FILTER_URLNSBL_NSUNKNOWN) {
    692. 

  692.                     $this->message .= 'urlnsbl(unknown) ';
    693. 

  693.                     return TRUE;
    694. 

  694.                 }
    695. 

  695.             }
    696. 

  696.         }
    697. 

  697. 

  698.         return FALSE;
    699. 

  699.     }
    700. 

  700. 

  701.     // URL��NS�ι��������å�
    702. 

  702.     function urlnscountry($reg = SPAM_FILTER_URLNSCOUNTRY_REG,
    703. 

  703.                           $whitereg = SPAM_FILTER_URLNSCOUNTRY_WHITEREG,
    704. 

  704.                           $urlreg = SPAM_FILTER_URLNSCOUNTRY_URLREG,
    705. 

  705.                           $pluginnames = SPAM_FILTER_URLNSCOUNTRY_PLUGIN_NAME)
    706. 

  706.     {
    707. 

  707.         if (!$this->check_plugin($pluginnames)) return FALSE;
    708. 

  708. 

  709.         // ��������URL������
    710. 

  710.         preg_match_all($urlreg, $this->post_data['msg'], $urls);
    711. 

  711.         foreach ($urls[0] as $url) {
    712. 

  712.             // URL�Υۥ���̾������
    713. 

  713.             $url_array = parse_url($url);
    714. 

  714.             $hostname = $url_array['host'];
    715. 

  715. 

  716.             // �ۥ���̾���ۥ磻�ȥꥹ�Ȥˤ���������̵�뤷�Ƽ���URL�Υ����å���
    717. 

  717.             if (preg_match($whitereg, $hostname)) continue;
    718. 

  718. 

  719.             // �ɥᥤ����NS������
    720. 

  720.             if ($this->dns_get_ns($hostname, $nslist)) {
    721. 

  721.                 // �ɥᥤ����NS�������줿�餽�ι���Ĵ�٤ơ��񥳡��ɤȾȤ餷���碌
    722. 

  722.                 foreach ($nslist as $ns) {
    723. 

  723.                     $country = $this->get_country_code( gethostbyname($ns) );
    724. 

  724.                     if (preg_match($reg, $country)) {
    725. 

  725.                         $this->message .= 'urlnscountry ';
    726. 

  726.                         return TRUE;
    727. 

  727.                     }
    728. 

  728.                 }
    729. 

  729.             }
    730. 

  730.             else {
    731. 

  731.                 // NS���������ʤ��ä�
    732. 

  732.                 if (SPAM_FILTER_URLNSBL_NSUNKNOWN) {
    733. 

  733.                     $this->message .= 'urlnscountry(unknown) ';
    734. 

  734.                     return TRUE;
    735. 

  735.                 }
    736. 

  736.             }
    737. 

  737.         }
    738. 

  738. 

  739.         return FALSE;
    740. 

  740.     }
    741. 

  741. 

  742.     // Akismet �ˤ��������å�
    743. 

  743.     function akismet($pluginnames = SPAM_FILTER_AKISMET_PLUGIN_NAME)
    744. 

  744.     {
    745. 

  745.         // ������http://note.sonots.com/?PukiWiki%2Fakismet.inc.php���ͤ˽�������
    746. 

  746. 

  747.         if (!$this->check_plugin($pluginnames)) return FALSE;
    748. 

  748. 

  749.         // akismet���饹���ɤ߹���
    750. 

  750.         require_once 'akismet.class.php';
    751. 

  751. 

  752.         // Post�ǡ�����Ϣ�뤹�롣
    753. 

  753.         $ignore_post_keys = explode(",", SPAM_FILTER_AKISMET_IGNORE_KEY);
    754. 

  754.         foreach ($this->post_data as $key => $val) {
    755. 

  755.             // ignore_post_keys�����ꤵ���Ƥ���Post�ǡ�����Akismet�������ʤ�
    756. 

  756.             if (!in_array($key, $ignore_post_keys)) {
    757. 

  757.                 $body = $body . $val;
    758. 

  758.             }
    759. 

  759.         }
    760. 

  760. 

  761.         // Akismet�����������ǡ�������������
    762. 

  762.         $comment = array();
    763. 

  763.         $comment['author']    = '';
    764. 

  764.         $comment['email']     = '';
    765. 

  765.         $comment['website']   = '';
    766. 

  766.         $comment['permalink'] = '';
    767. 

  767.         $comment['body'] = $body;
    768. 

  768. 

  769.         $akismet = new Akismet(URL, SPAM_FILTER_AKISMET_API_KEY, $comment);
    770. 

  770. 

  771.         if ($akismet->isSpam() == '1') {
    772. 

  772.             $this->message .= 'akismet ';
    773. 

  773.             return TRUE;
    774. 

  774.         }
    775. 

  775. 

  776.         return FALSE;
    777. 

  777.     }
    778. 

  778. 

  779.     // CAPTCHA�Ǥ����Ϥ����äƤ��뤫�����å�
    780. 

  780.     function captcha_check()
    781. 

  781.     {
    782. 

  782.         // reCAPTCHA �ǤΥ����å�
    783. 

  783.         if ($_POST["recaptcha_response_field"]) {
    784. 

  784.             $resp = recaptcha_check_answer (SPAM_FILTER_RECAPTCHA_PRIVATEKEY,
    785. 

  785.                                             $_SERVER["REMOTE_ADDR"],
    786. 

  786.                                             $_POST["recaptcha_challenge_field"],
    787. 

  787.                                             $_POST["recaptcha_response_field"]);
    788. 

  788. 

  789.             if ($resp->is_valid) return TRUE;
    790. 

  790.         }
    791. 

  791. 

  792.         return FALSE;
    793. 

  793.     }
    794. 

  794. 

  795.     // CAPTCHA�Ǥ����Ϥ�������
    796. 

  796.     function captcha_show()
    797. 

  797.     {
    798. 

  798.         // reCAPTCHA �Ǥ�CAPTCHA��ɽ��
    799. 

  799.         global $vars;
    800. 

  800. 

  801.         $page = $vars['page'];
    802. 

  802.         $form .= "<form action='' method='post'>\n";
    803. 

  803.         $form .= "�������Ĥ�ñ�������Ϥ��Ƥ���������\n";
    804. 

  804.         $form .= recaptcha_get_html(SPAM_FILTER_RECAPTCHA_PUBLICKEY);
    805. 

  805.         foreach ($_POST as $key => $val) {
    806. 

  806.             if ($key == 'recaptcha_response_field' or
    807. 

  807.                 $key == 'recaptcha_challenge_field') continue;
    808. 

  808.             $form .= ' <input type="hidden" name="' . $key . '" value="' . htmlspecialchars($val) . '" />' . "\n";
    809. 

  809.         }
    810. 

  810.         $form .= ' <input type="hidden" name="page" value="' . htmlspecialchars($page) . '" />' . "\n";
    811. 

  811.         $form .= ' <input type="submit" name="" value="ǧ��" /><br />' . "\n";
    812. 

  812.         $form .= '</form>' . "\n";
    813. 

  813.         die_message( "Spam check failed. Plugin:". $this->plugin_name ." Match:". $this->message ."<br>\n". $form );
    814. 

  814.     }
    815. 

  815. 

  816.     // get DNS server for Windows XP SP2, Vista SP1
    817. 

  817.     function getDNSServer()
    818. 

  818.     {
    819. 

  819.         @exec('ipconfig /all', $ipconfig);
    820. 

  820.         //print_a($ipconfig, 'label:nameserver');
    821. 

  821.         foreach ($ipconfig as $line) {
    822. 

  822.             if (preg_match('/\s*DNS .+:\s+([\d\.]+)$/', $line, $nameservers)) {
    823. 

  823.                 $nameserver = $nameservers[1];
    824. 

  824.             }
    825. 

  825.         }
    826. 

  826.         if (empty($nameserver)) {
    827. 

  827.             die_message('Can not lookup your DNS server');
    828. 

  828.         }
    829. 

  829.         //print_a($nameserver, 'label:nameserver');
    830. 

  830.         return $nameserver;
    831. 

  831.     }
    832. 

  832.     
    833. 

  833.     //// �ۥ���̾����NS���������������Ѵؿ�
    834. 

  834.     // hostname�Υɥᥤ����NS���ꥹ��($ns_array)���֤�
    835. 

  835.     // �������ʤ��ä������ϴؿ����֤��ͤ�FALSE
    836. 

  836.     // ��PHP4�ξ��硢nslookup ���ޥ��ɤ��Ȥ���ɬ�פ���
    837. 

  837.     function dns_get_ns( $hostname, &$ns_array )
    838. 

  838.     {
    839. 

  839.         // �������֤��Ȥ����򥯥ꥢ���Ƥ���
    840. 

  840.         if (!empty($ns_array)) while (array_pop($ns_array));
    841. 

  841. 

  842.         // �ޤ������å��夬�ʤ����а������������̤Υ����å����ե��������ɤ߹���
    843. 

  843.         if (empty($this->dns_get_ns_cache)) {
    844. 

  844.             $fp = fopen(DATA_HOME . SPAM_FILTER_DNSGETNS_CACHE_FILE, "a+")
    845. 

  845.                 or die_message('Cannot read dns_get_ns cache file: '. SPAM_FILTER_DNSGETNS_CACHE_FILE ."\n");
    846. 

  846.             flock($fp, LOCK_SH);
    847. 

  847.             while ($csv = fgetcsv($fp, 1000, ",")) {
    848. 

  848.                 $host = array_shift($csv);
    849. 

  849.                 $time = $csv[0];
    850. 

  850.                 if ($time + SPAM_FILTER_DNSGETNS_CACHE_DAY*24*60*60 < time())
    851. 

  851.                     continue; // �Ť����������ϼΤƤ�
    852. 

  852.                 $this->dns_get_ns_cache["$host"] = $csv;
    853. 

  853.             }
    854. 

  854.             flock($fp, LOCK_UN);
    855. 

  855.             fclose($fp);
    856. 

  856.         }
    857. 

  857. 

  858.         // �����å����η��̤����äƤ��ʤ餽���������̤��������֤�
    859. 

  859.         $cache = $this->dns_get_ns_cache["$hostname"];
    860. 

  860.         if(!empty($cache)) {
    861. 

  861.             $time = array_shift($cache);
    862. 

  862.             foreach($cache as $ns) {
    863. 

  863.                 $ns_array[] = $ns;
    864. 

  864.             }
    865. 

  865.             return TRUE;
    866. 

  866.         }
    867. 

  867. 

  868.         // �ۥ���̾���夫�����ĤŤĸ��餷��NS�����������ޤǻ
    869. 

  869.         // ��: www.subdomain.example.com��subdomain.example.com��example.com
    870. 

  870.         $domain_array = explode(".", $hostname);
    871. 

  871.         $ns_found = FALSE;
    872. 

  872.         do {
    873. 

  873.             $domain = implode(".", $domain_array);
    874. 

  874. 

  875.             // �Ķ��ǻȤ������ʤ˹��碌�ƥɥᥤ����NS������
    876. 

  876.             if (function_exists('dns_get_record')) {
    877. 

  877.                 // �����ؿ� dns_get_record �Ȥ�������
    878. 

  878.                 $lookup = dns_get_record($domain, DNS_NS);
    879. 

  879.                 if (!empty($lookup)) {
    880. 

  880.                     foreach ($lookup as $record) {
    881. 

  881.                         $ns_array[] = $record['target'];
    882. 

  882.                     }
    883. 

  883.                     $ns_found = TRUE;
    884. 

  884.                 }
    885. 

  885.             }
    886. 

  886.             else if (include_once('Net/DNS.php')) {
    887. 

  887.                 // PEAR��DNS���饹���Ȥ�������
    888. 

  888.                 $resolver = new Net_DNS_Resolver();
    889. 

  889.                 if (SPAM_FILTER_IS_WINDOWS) $resolver->nameservers[0] = $this->getDNSServer();
    890. 

  890.                 $response = $resolver->query($domain, 'NS');
    891. 

  891.                 if ($response) {
    892. 

  892.                     foreach ($response->answer as $rr) {
    893. 

  893.                         if ($rr->type == "NS") {
    894. 

  894.                             $ns_array[] = $rr->nsdname;
    895. 

  895.                         }
    896. 

  896.                         else if ($rr->type == "CNAME") {
    897. 

  897.                             // CNAME�����Ƥ��Ȥ��ϡ����ä����Ƶ��ǰ���
    898. 

  898.                             $this->dns_get_ns($rr->rdatastr(), $ns_array);
    899. 

  899.                         }
    900. 

  900.                     }
    901. 

  901.                     $ns_found = TRUE;
    902. 

  902.                 }
    903. 

  903.             }
    904. 

  904.             else {
    905. 

  905.                 // PEAR���Ȥ��ʤ����硢�������ޥ���nslookup�ˤ���NS������
    906. 

  906.                 is_executable(SPAM_FILTER_NSLOOKUP_PATH)
    907. 

  907.                     or die_message("Cannot execute nslookup. see NSLOOKUP_PATH setting.\n");
    908. 

  908.                 @exec(SPAM_FILTER_NSLOOKUP_PATH . " -type=ns " . $domain, $lookup);
    909. 

  909.                 foreach ($lookup as $line) {
    910. 

  910.                     if( preg_match('/\s*nameserver\s*=\s*(\S+)$/', $line, $ns) ||
    911. 

  911.                         preg_match('/\s*origin\s*=\s*(\S+)$/', $line, $ns) ||
    912. 

  912.                         preg_match('/\s*primary name server\s*=\s*(\S+)$/', $line, $ns) ) {
    913. 

  913.                         $ns_array[] = $ns[1];
    914. 

  914.                         $ns_found = TRUE;
    915. 

  915.                     }
    916. 

  916.                 }
    917. 

  917.             }
    918. 

  918.         } while (!$ns_found && array_shift($domain_array) != NULL);
    919. 

  919. 

  920.         // NS�������Ƥ����顢���̤򥭥��å�������������¸
    921. 

  921.         if ($ns_found) {
    922. 

  922.             // ���̤򥭥��å�������Ͽ
    923. 

  923.             $cache = $ns_array;
    924. 

  924.             array_unshift($cache, time()); // ���������֤��ݻ�
    925. 

  925.             $this->dns_get_ns_cache["$hostname"] = $cache;
    926. 

  926. 

  927.             // �����å������ե���������¸
    928. 

  928.             $fp = fopen(DATA_HOME . SPAM_FILTER_DNSGETNS_CACHE_FILE, "w")
    929. 

  929.                 or die_message("Cannot write dns_get_ns cache file: ". SPAM_FILTER_DNSGETNS_CACHE_FILE ."\n");
    930. 

  930.             flock($fp, LOCK_EX);
    931. 

  931.             foreach ($this->dns_get_ns_cache as $host=>$cachedata) {
    932. 

  932.                 $csv = $host;
    933. 

  933.                 foreach ($cachedata as $data) {
    934. 

  934.                     $csv .= ",". $data;
    935. 

  935.                 }
    936. 

  936.                 $csv .= "\n";
    937. 

  937.                 fputs($fp, $csv);
    938. 

  938.             }
    939. 

  939.             flock($fp, LOCK_UN);
    940. 

  940.             fclose($fp);
    941. 

  941.         }
    942. 

  942. 

  943.         return $ns_found;
    944. 

  944.     }
    945. 

  945. 

  946.     //// IP���ɥ쥹�����񥳡��ɤ��������������Ѵؿ�
    947. 

  947.     // IP���ɥ쥹("10.1.2.3"�ߤ�����ʸ����)����JP�Ȥ��ι񥳡��ɤ��֤�
    948. 

  948.     // �������ʤ��ä�������empty('')���֤�
    949. 

  949.     // ��APNIC��IP���ꥢ�ȹ����б������ɥե����뤬ɬ��
    950. 

  950.     // �������ꥫ��IP�ϥꥹ�Ȥ�̵����
    951. 

  951.     function get_country_code( $ip_string )
    952. 

  952.     {
    953. 

  953.         // �ޤ���IP�ꥹ�Ȥ��ɤ��Ǥʤ����Хե��������ɤ߹����ǥ����å��夹��
    954. 

  954.         if (empty($this->get_country_code_cache)) {
    955. 

  955.             $fp = fopen( DATA_HOME . SPAM_FILTER_IPCOUNTRY_FILE, "r")
    956. 

  956.                 or die_message('Cannot read country file: ' . SPAM_FILTER_IPCOUNTRY_FILE . "\n");
    957. 

  957.             while ($csv = fgetcsv($fp, 1000, "|")) {
    958. 

  958.                 // IPv4�����б�
    959. 

  959.                 if ($csv[2] === "ipv4") {
    960. 

  960.                     $country = $csv[1];
    961. 

  961.                     $ipstring = $csv[3];
    962. 

  962.                     $ipranges = explode(".", $ipstring);
    963. 

  963.                     $iprange = ip2long($ipstring);
    964. 

  964.                     $mask = 256*256*256*256 - $csv[4];
    965. 

  965.                     $data = new country_data;
    966. 

  966.                     $data->country = $country;
    967. 

  967.                     $data->iprange = $iprange;
    968. 

  968.                     $data->mask = $mask;
    969. 

  969.                     // Class A���ޤ���������̵���Τǥȥåפ�256��ʬ�䤷���ݻ�
    970. 

  970.                     $this->get_country_code_cache["$ipranges[0]"][] = $data;
    971. 

  971.                 }
    972. 

  972.             }
    973. 

  973.             fclose($fp);
    974. 

  974.         }
    975. 

  975. 

  976.         $ip = ip2long($ip_string);
    977. 

  977.         $ranges = explode(".", $ip_string);
    978. 

  978. 

  979.         $country_code = '';
    980. 

  980.         foreach ($this->get_country_code_cache["$ranges[0]"] as $data) {
    981. 

  981.             if ( $data->iprange == ($ip & $data->mask) ) {
    982. 

  982.                 $country_code = $data->country;
    983. 

  983.                 break;
    984. 

  984.             }
    985. 

  985.         }
    986. 

  986. 

  987.         return $country_code;
    988. 

  988.     }
    989. 

  989. 

  990. }
    991. 

  991. 

  992. // get_country_code ���ݻ����Ƥ����ǡ�����¤
    993. 

  993. class country_data
    994. 

  994. {
    995. 

  995.     var $country;
    996. 

  996.     var $iprange;
    997. 

  997.     var $mask;
    998. 

  998. }
    999. 

  999. 

  1000. ?>
    1001. 

  1001.