email_filter.inc

来自「eGroupWare is a multi-user, web-based gr」· INC 代码 · 共 33 行

<?php
/***************************************************************************
* copyright            : (C) 2001-2003 Advanced Internet Designs Inc.
* email                : [e-mail]
* $Id: email_filter.inc,v 1.2 2003/12/18 15:46:40 iliaa Exp $
*
* This program 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.
***************************************************************************/

function email_cache_rebuild()
{
	$data = '';
	$c = uq('SELECT email_block_opt, string FROM '.$GLOBALS['DBHOST_TBL_PREFIX'].'email_block');
	while ($r = db_rowarr($c)) {
		$r[1] = addcslashes($r[1], '\'/\\');
		if ($r[0] != 'SIMPLE') {
			$data .= '\'/'.$r[1].'/\' => '.$r[0].',';
		} else {
			$data .= '\''.$r[1].'\' => '.$r[0].',';
		}
	}
	if ($data) {
		$data = substr($data, 0, -1);
	}

	$fp = fopen($GLOBALS['FORUM_SETTINGS_PATH'] . 'email_filter_cache', 'w');
	fwrite($fp, '<?php $GLOBALS[\'__FUD_EMAIL_FILTER__\'] = array(' . $data . '); ?>');
	fclose($fp);
}
?>