<?php
-
/* vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4: */
+// +----------------------------------------------------------------------+
+// | PEAR::Net_DNSBL |
+// +----------------------------------------------------------------------+
+// | Copyright (c) 2004 Sebastian Nohn <sebastian@nohn.net> |
+// +----------------------------------------------------------------------+
+// | This source file is subject to version 3.0 of the PHP license, |
+// | that is bundled with this package in the file LICENSE, and is |
+// | available through the world-wide-web at the following url: |
+// | http://www.php.net/license/3_0.txt. |
+// | If you did not receive a copy of the PHP license and are unable to |
+// | obtain it through the world-wide-web, please send a note to |
+// | license@php.net so we can mail you a copy immediately. |
+// +----------------------------------------------------------------------+
+// | Authors: Sebastian Nohn <sebastian@nohn.net> |
+// +----------------------------------------------------------------------+
+//
+// $Id: DNSBL.php,v 1.4 2004/12/02 14:23:51 nohn Exp $
/**
* PEAR::Net_DNSBL
* This class acts as interface to generic Realtime Blocking Lists
* (RBL)
*
- * PHP versions 4 and 5
- *
- * LICENSE: This source file is subject to version 3.01 of the PHP license
- * that is available through the world-wide-web at the following URI:
- * http://www.php.net/license/3_01.txt. If you did not receive a copy of
- * the PHP License and are unable to obtain it through the web, please
- * send a note to license@php.net so we can mail you a copy immediately.
- *
- * Net_DNSBL looks up an supplied host if it's listed in 1-n supplied
+ * Net_RBL looks up an supplied host if it's listed in 1-n supplied
* Blacklists
*
- * @category Net
- * @package DNSBL
- * @author Sebastian Nohn <sebastian@nohn.net>
- * @author Ammar Ibrahim <fixxme@fixme.com>
- * @copyright 2004-2007 Sebastian Nohn <sebastian@nohn.net>
- * @license http://www.php.net/license/3_01.txt PHP License 3.01
- * @version CVS: $Id: DNSBL.php,v 1.4 2006/12/25 10:40:59 nohn Exp $
- * @link http://pear.php.net/package/Net_DNSBL
- * @see Net_DNS
- * @since File available since Release 1.0.0
+ * @author Sebastian Nohn <sebastian@nohn.net>
+ * @package Net_DNSBL
+ * @license http://www.php.net/license/3_0.txt
+ * @version 0.5.3
*/
-
-require_once 'Net/CheckIP.php';
-require_once 'Net/DNS.php';
+require_once dirname(__FILE__) . '/CheckIP.php';
class Net_DNSBL {
* @var array
* @access protected
*/
- var $blacklists = array('sbl-xbl.spamhaus.org',
+ var $blacklists = array('sbl-xbl.spamhaus.net',
'bl.spamcop.net');
- /**
- * Array of Results
- *
- * @var array
- * @access protected
- */
- var $results = array();
-
/**
* Set the blacklist to a desired blacklist.
*
return $this->blacklists;
}
- /**
- * Returns Blacklist and Reply from the Blacklist, a host is listed in.
- *
- * @param string Host to check
- * @access public
- * @return array result. $result['dnsbl'] contains DNSBL,
- * $result['record'] contains returned DNS record.
- */
- function getDetails($host)
- {
- if (isset($this->results[$host]['dnsbl'])) {
- return $this->results[$host];
- } else {
- return false;
- }
- } // function
-
- /**
- * Returns Blacklist, host is listed in.
- *
- * @param string Host to check
- * @access public
- * @return bl, a host is listed in or false
- */
- function getListingBl($host)
- {
- if (isset($this->results[$host]['dnsbl'])) {
- return $this->results[$host]['dnsbl'];
- } else {
- return false;
- }
- } // function
-
- /**
- * Returns result, when a host is listed.
- *
- * @param string Host to check
- * @access public
- * @return bl, a host is listed in or false
- */
- function getListingRecord($host)
- {
- if (isset($this->results[$host]['record'])) {
- return $this->results[$host]['record'];
- } else {
- return false;
- }
- } // function
-
- /**
- * Returns TXT-Records, when a host is listed.
- *
- * @param string Host to check
- * @access public
- * @return array TXT-Records for this host
- */
- function getTxt($host)
- {
- if (isset($this->results[$host]['txt'])) {
- return $this->results[$host]['txt'];
- } else {
- return false;
- }
- } // function
-
/**
* Checks if the supplied Host is listed in one or more of the
* RBLs.
*/
function isListed($host)
{
+
$isListed = false;
- $resolver = new Net_DNS_Resolver;
-
+
foreach ($this->blacklists as $blacklist) {
- $response = $resolver->query($this->getHostForLookup($host, $blacklist));
- if ($response) {
+ $result = gethostbyname($this->getHostForLookup($host, $blacklist));
+ if ($result != $this->getHostForLookup($host, $blacklist)) {
$isListed = true;
- $this->results[$host]['dnsbl'] = $blacklist;
- $this->results[$host]['record'] = $response->answer[0]->address;
- $response_txt = $resolver->query($this->getHostForLookup($host, $blacklist), 'TXT');
- foreach ($response_txt->answer as $txt) {
- $this->results[$host]['txt'][] = $txt->text[0];
- }
+
//if the Host was listed we don't need to check other RBLs,
break;
{
// Currently only works for v4 addresses.
if (!Net_CheckIP::check_ip($host)) {
- $resolver = new Net_DNS_Resolver;
- $response = $resolver->query($host);
- $ip = $response->answer[0]->address;
+ $ip = gethostbyname($host);
} else {
$ip = $host;
}
--- /dev/null
+- Replace:
+SURBL.php
+require_once 'Cache/Lite.php';
+require_once dirname(__FILE__) . '/../../Cache/Lite.php';
+
+require_once 'HTTP/Request.php';
+require_once dirname(__FILE__) . '/../../HTTP/Request.php';
+
+require_once 'Net/CheckIP.php';
+require_once dirname(__FILE__) . '/../CheckIP.php';
+
+require_once 'Net/DNSBL.php';
+require_once dirname(__FILE__) . '/../DNSBL.php';
\ No newline at end of file
--- /dev/null
+<?php
+/* vim: set expandtab tabstop=4 shiftwidth=4 softtabstop=4: */
+// +----------------------------------------------------------------------+
+// | PEAR::Net_DNSBL_SURBL |
+// +----------------------------------------------------------------------+
+// | Copyright (c) 2004 Sebastian Nohn <sebastian@nohn.net> |
+// +----------------------------------------------------------------------+
+// | This source file is subject to version 3.0 of the PHP license, |
+// | that is bundled with this package in the file LICENSE, and is |
+// | available through the world-wide-web at the following url: |
+// | http://www.php.net/license/3_0.txt. |
+// | If you did not receive a copy of the PHP license and are unable to |
+// | obtain it through the world-wide-web, please send a note to |
+// | license@php.net so we can mail you a copy immediately. |
+// +----------------------------------------------------------------------+
+// | Authors: Sebastian Nohn <sebastian@nohn.net> |
+// +----------------------------------------------------------------------+
+//
+// $Id: SURBL.php,v 1.4 2004/12/02 14:23:51 nohn Exp $
+
+/**
+ * PEAR::Net_DNSBL_SURBL
+ *
+ * This class acts as interface to the SURBL - Spam URI Realtime Blocklists.
+ *
+ * Services_SURBL looks up an supplied URI if it's listed in a
+ * Spam URI Realtime Blocklists.
+ *
+ * @author Sebastian Nohn <sebastian@nohn.net>
+ * @package Net_DNSBL
+ * @license http://www.php.net/license/3_0.txt
+ * @version 0.5.4
+ */
+require_once dirname(__FILE__) . '/../../Cache/Lite.php';
+require_once dirname(__FILE__) . '/../../HTTP/Request.php';
+require_once dirname(__FILE__) . '/../CheckIP.php';
+require_once dirname(__FILE__) . '/../DNSBL.php';
+
+class Net_DNSBL_SURBL extends Net_DNSBL {
+
+ /**
+ * Array of blacklists.
+ *
+ * Must have one or more elements.
+ *
+ * @var string[]
+ * @access protected
+ */
+ var $blacklists = array('multi.surbl.org');
+
+ /**
+ * File containing whitelisted hosts.
+ *
+ * There are some whitelisted hosts (co.uk for example). This
+ * requires the package to not ask the domain name but the host
+ * name (spammer.co.uk instead of co.uk).
+ *
+ * @var string
+ * @see $twoLevelCcTld
+ * @access protected
+ */
+ var $doubleCcTldFile = 'http://spamcheck.freeapp.net/two-level-tlds';
+
+ /**
+ * Array of whitelisted hosts.
+ *
+ * @var array
+ * @see $twoLevelCcTldFile
+ * @access private
+ */
+ var $twoLevelCcTld = array();
+
+ /**
+ * Check if the last two parts of the FQDN are whitelisted.
+ *
+ * @param string Host to check if it is whitelisted
+ * @access protected
+ * @return boolean True if the host is whitelisted
+ */
+ function isDoubleCcTld($fqdn)
+ {
+ // 30 Days should be way enough
+ $options = array(
+ 'lifeTime' => '2592000',
+ 'automaticSerialization' => true
+ );
+ $id = md5($this->doubleCcTldFile);
+
+ $cache = new Cache_Lite($options);
+ if ($data = $cache->get($id)) {
+ // Cache hit
+ } else {
+ // Cache miss
+ $http = &new HTTP_Request($this->doubleCcTldFile);
+ if (!PEAR::isError($http->sendRequest())) {
+ $data = $http->getResponseBody();
+ }
+ $data = explode("\n", $data);
+ $data = array_flip($data);
+ $cache->save($data, $id);
+ } // if
+ if (array_key_exists($fqdn, $data)) {
+ return true;
+ } else {
+ return false;
+ } // if
+ } // function
+
+ /**
+ * Get Hostname to ask for.
+ *
+ * Performs the following steps:
+ *
+ * (1) Extract the hostname from the given URI
+ * (2) Check if the "hostname" is an ip
+ * (3a) IS_IP Reverse the IP (1.2.3.4 -> 4.3.2.1)
+ * (3b) IS_FQDN Check if is in "CC-2-level-TLD"
+ * (3b1) IS_IN_2LEVEL: we want the last three names
+ * (3b2) IS_NOT_2LEVEL: we want the last two names
+ * (4) return the FQDN to query.
+ *
+ * @param string URL to check.
+ * @access protected
+ * @return string Host to lookup
+ */
+ function getHostForLookup($uri, $blacklist)
+ {
+ $host = '';
+ // (1) Extract the hostname from the given URI
+ $parsed_uri = parse_url($uri);
+ $host = $parsed_uri['host'];
+ // (2) Check if the "hostname" is an ip
+ if (Net_CheckIP::check_ip($host)) {
+ // (3a) IS_IP Reverse the IP (1.2.3.4 -> 4.3.2.1)
+ $host = $this->reverseIp($host);
+ } else {
+ $host_elements = explode('.', $host);
+ while (count($host_elements) > 3) {
+ array_shift($host_elements);
+ } // while
+ $host_3_elements = implode('.', $host_elements);
+
+ $host_elements = explode('.', $host);
+ while (count($host_elements) > 2) {
+ array_shift($host_elements);
+ } // while
+ $host_2_elements = implode('.', $host_elements);
+
+ // (3b) IS_FQDN Check if is in "CC-2-level-TLD"
+ if ($this->isDoubleCcTld($host_2_elements)) {
+ // (3b1) IS_IN_2LEVEL: we want the last three names
+ $host = $host_3_elements;
+ } else {
+ // (3b2) IS_NOT_2LEVEL: we want the last two names
+ $host = $host_2_elements;
+ } // if
+ } // if
+ // (4) return the FQDN to query
+ $host .= '.'.$blacklist;
+ return $host;
+ } // function
+
+} // class
+?>
\ No newline at end of file
projects / s9y.git / commitdiff