1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
|
<?php
rcs_id('$Id: SpamBlocklist.php,v 1.1 2005/10/29 08:21:58 rurban Exp $');
/* Copyright (C) 2005 Reini Urban
*
* This file is part of PhpWiki.
*
* PhpWiki is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* PhpWiki is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with PhpWiki; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*
*/
/**
* See http://www.surbl.org/
*
* Perform a name lookup (A) for any link tld against multi.surbl.org and bl.spamcop.net,
* like: domainundertest.com.multi.surbl.org
* or 40.30.20.10.multi.surbl.org (for http://10.20.30.40/)
* This is the same, but a bit lighter than PEAR::Net_DNSBL_SURBL
*/
/*
* Strip domain prefixes so that either the last two name parts are returned,
* or if it's a known tld (like "co.uk") the last three.
*/
function stripDomainPrefixes($host) {
static $twoleveltlds = array();
$host_elements = explode('.', $host);
while (count($host_elements) > 3) {
array_shift($host_elements);
}
$host_3_elements = implode('.', $host_elements);
if (count($host_elements) > 2) {
array_shift($host_elements);
}
$host_2_elements = implode('.', $host_elements);
if (empty($twoleveltlds)) {
$data = @file(dirname(__FILE__)."/../cfg/two-level-tlds");
$twoleveltlds = $data ? array_flip($data) : array();
}
if (array_key_exists($host_2_elements, $twoleveltlds))
//IS_IN_2LEVEL: we want the last three names
$host = $host_3_elements;
else
// IS_NOT_2LEVEL: we want the last two names
$host = $host_2_elements;
return $host;
}
function IsBlackListed($uri) {
static $blacklists = array("multi.surbl.org", "bl.spamcop.net");
/* "sbl-xbl.spamhaus.net" */
static $whitelist = array();
if (empty($whitelist)) { // list of domains
$data = @file(dirname(__FILE__)."/../cfg/whitelist");
$whitelist = $data ? array_flip($data) : array();
}
$parsed_uri = parse_url($uri);
if (!empty($parsed_uri['host']))
$host = $parsed_uri['host'];
else
$host = $parsed_uri['path'];
if (array_key_exists($host, $whitelist))
return 0;
if (preg_match("/^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/", $host)) {
$host = implode('.', array_reverse(explode('.', $host)));
$revip = 1;
} else {
$revip = 0;
}
foreach ($blacklists as $bl) {
if (!$revip and $bl == "multi.surbl.org") {
$host = stripDomainPrefixes($host); // strip domain prefixes
if (array_key_exists($host, $whitelist))
return 0;
} elseif (!$revip) {
// convert to IP addr and revert it.
$host = implode('.', array_reverse(explode('.', gethostbyname($host))));
}
//echo "($host.$bl)";
$res = gethostbyname($host . "." . $bl);
if (preg_match("/^\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/", $res))
return array($bl, $res, $host);
}
return 0;
}
/*
if (defined('SPAMBLOCKLIST_TEST') and SPAMBLOCKLIST_TEST) {
BlackListDebug("10.20.30.40");
BlackListDebug("spammer.org");
BlackListDebug("www.ricoruca.com");
BlackListDebug("ricoruca.com");
BlackListDebug("soft-sky.org");
BlackListDebug("lovers.lv");
BlackListDebug("wumort.net");
BlackListDebug("bibleinayear.org");
BlackListDebug("p50927464.dip.t-dialin.net");
}
function BlackListDebug($host) {
$res = IsBlackListed($host);
echo sprintf("%12s", $host), "\tis";
if ($res)
echo " listed at $res[0] - $res[1]\n";
else
echo " not blacklisted.\n";
}
*/
// $Log: SpamBlocklist.php,v $
// Revision 1.1 2005/10/29 08:21:58 rurban
// ENABLE_SPAMBLOCKLIST:
// Check for links to blocked external tld domains in new edits, against
// multi.surbl.org and bl.spamcop.net.
//
// Local Variables:
// mode: php
// tab-width: 8
// c-basic-offset: 4
// c-hanging-comment-ender-p: nil
// indent-tabs-mode: nil
// End:
?>
|
