<?php
/*
 * User-friendly interface to SIEVE server-side mail filtering.
 * Plugin for Squirrelmail 1.4+
 *
 * Copyright (c) 2002-2004 Alexandros Vellis <avel@users.sourceforge.net>
 *
 * Licensed under the GNU GPL. For full terms see the file COPYING that came
 * with the Squirrelmail distribution.
 *
 * $Id: spamrulefunctions.php,v 1.2 2004/01/26 14:46:50 avel Exp $
 *
 * @package avelsieve
 */

/**
 * Functions that have to do with SpamRule Functionality
 */

/**
 * Ask LDAP Server's Sendmail configuration for configured RBLs.
 *
 * @global array $ldapserver Squirrelmail's ldap server configuration
 * @return RBLs structure, or false if no such configuration present. Structure
 * looks like this:
 * Array(
 *   [0] => Array
 *       (
 *           [host] => relays.ordb.org
 *           [name] => Open Relay DataBase
 *           [serverweight] => 50
 *       )
 */
function avelsieve_askldapforrbls() {

	global $ldap_server;

	foreach($ldap_server as $ldapno=>$info) {
		if(isset($info['mtarblspamfilter'])) {
			$mtarblspamfilter = $info['mtarblspamfilter'];
			$ls = $ldapno;
			break;
		}
	}
		
	if(!isset($mtarblspamfilter)) {
		return false;
	}

	if(!($ldap = ldap_connect($ldap_server[$ls]['host']))) {
		print "Could not connect to LDAP!";
		return false;
	}

	ldap_set_option($ldap, LDAP_OPT_PROTOCOL_VERSION, 3); 

	if(isset($ldap_server[$ls]['binddn'])) {
		$bind_result = ldap_bind($ldap, $ldap_server[$ls]['binddn'], $ldap_server[$ls]['bindpw']);
		if (!$bind_result) {
			print "Error while binding to LDAP server";
			return false;
		}
	}
		
	if (!($search_result = ldap_search($ldap, $ldap_server[$ls]['mtarblspambase'],
		$ldap_server[$ls]['mtarblspamfilter']))) {
		print "Failed to search for SPAM RBLs.";
		return false;
	}

	$info = ldap_get_entries($ldap, $search_result);

	$spamrbls = array();
	
	for($j=0; $j<$info['count']; $j++) {

	if(isset($info[$j]['sendmailmtaclassname']) &&
	   $info[$j]['sendmailmtaclassname'][0] == 'SpamRBLs') {

		unset ($spamrule_tests);
		$spamrule_tests = array();

		$spamrule_temp = array();
		for($i=0; $i<$info[$j]['sendmailmtaclassvalue']['count']; $i++) {
			$spamrule_temp[] =  $info[$j]['sendmailmtaclassvalue'][$i];
		}
		$spamrule_temp = str_replace('<', '', $spamrule_temp);
		$spamrule_temp = str_replace('>', '', $spamrule_temp);
		
		$temp=array();
		for($i=0; $i<sizeof($spamrule_temp); $i++) {
			$temp[$i] = explode('@', $spamrule_temp[$i]);
		}
		$temp2 = array();
		for($i=0; $i<sizeof($temp); $i++) {
			$temp2[$i] = explode(':', $temp[$i][0]);
		}
		for($i=0; $i<sizeof($temp); $i++) {
			$spamrbls[$i]['host'] = $temp[$i][1];
			$spamrbls[$i]['name'] = $temp2[$i][0];
			$spamrbls[$i]['test'] = str_replace(' ', '.', $temp2[$i][0]);
			$spamrbls[$i]['serverweight'] = $temp2[$i][1];
		}
		
		/* TODO: Replace explode() with one smart regexp */
	}
	}

	for($j=0; $j<$info['count']; $j++) {
	if(isset($info[$j]['sendmailmtaclassname']) &&
	   $info[$j]['sendmailmtaclassname'][0] == 'SpamForged') {

		$no = sizeof($spamrbls);
		$spamrbls[$no]['name'] = _("Test for Forged Header");
		$spamrbls[$no]['test'] = 'FORGED';
		$spamrbls[$no]['serverweight'] = $info[$j]['sendmailmtaclassvalue'][0];
	}
	}
	
	return($spamrbls);
}

?>