function saveTabPreParserAction()
{
@($id = DevblocksPlatform::importGPC($_POST['id'], 'integer', 0));
@($name = DevblocksPlatform::importGPC($_POST['name'], 'string', ''));
@($is_sticky = DevblocksPlatform::importGPC($_POST['is_sticky'], 'integer', 0));
@($rules = DevblocksPlatform::importGPC($_POST['rules'], 'array', array()));
@($do = DevblocksPlatform::importGPC($_POST['do'], 'array', array()));
if (DEMO_MODE) {
DevblocksPlatform::setHttpResponse(new DevblocksHttpResponse(array('config', 'preparser')));
return;
}
$criterion = array();
$actions = array();
// Custom fields
$custom_fields = DAO_CustomField::getAll();
// Criteria extensions
$filter_criteria_exts = DevblocksPlatform::getExtensions('cerberusweb.mail_filter.criteria', false);
// Criteria
if (is_array($rules)) {
foreach ($rules as $rule) {
$rule = DevblocksPlatform::strAlphaNumDash($rule);
@($value = DevblocksPlatform::importGPC($_POST['value_' . $rule], 'string', ''));
// [JAS]: Allow empty $value (null/blank checking)
$criteria = array('value' => $value);
// Any special rule handling
switch ($rule) {
case 'dayofweek':
// days
$days = DevblocksPlatform::importGPC($_REQUEST['value_dayofweek'], 'array', array());
if (in_array(0, $days)) {
$criteria['sun'] = 'Sunday';
}
if (in_array(1, $days)) {
$criteria['mon'] = 'Monday';
}
if (in_array(2, $days)) {
$criteria['tue'] = 'Tuesday';
}
if (in_array(3, $days)) {
$criteria['wed'] = 'Wednesday';
}
if (in_array(4, $days)) {
$criteria['thu'] = 'Thursday';
}
if (in_array(5, $days)) {
$criteria['fri'] = 'Friday';
}
if (in_array(6, $days)) {
$criteria['sat'] = 'Saturday';
}
unset($criteria['value']);
break;
case 'timeofday':
$from = DevblocksPlatform::importGPC($_REQUEST['timeofday_from'], 'string', '');
$to = DevblocksPlatform::importGPC($_REQUEST['timeofday_to'], 'string', '');
$criteria['from'] = $from;
$criteria['to'] = $to;
unset($criteria['value']);
break;
case 'type':
break;
case 'from':
break;
case 'tocc':
break;
case 'header1':
case 'header2':
case 'header3':
case 'header4':
case 'header5':
if (null != @($header = DevblocksPlatform::importGPC($_POST[$rule], 'string', null))) {
$criteria['header'] = strtolower($header);
}
break;
case 'body':
break;
case 'body_encoding':
break;
case 'attachment':
break;
default:
// ignore invalids
// Custom fields
if ("cf_" == substr($rule, 0, 3)) {
$field_id = intval(substr($rule, 3));
if (!isset($custom_fields[$field_id])) {
continue;
}
// [TODO] Operators
switch ($custom_fields[$field_id]->type) {
case 'S':
// string
// string
case 'T':
// clob
// clob
case 'U':
// URL
$oper = DevblocksPlatform::importGPC($_REQUEST['value_cf_' . $field_id . '_oper'], 'string', 'regexp');
$criteria['oper'] = $oper;
break;
case 'D':
// dropdown
// dropdown
case 'M':
// multi-dropdown
// multi-dropdown
case 'X':
// multi-checkbox
// multi-checkbox
case 'W':
// worker
$in_array = DevblocksPlatform::importGPC($_REQUEST['value_cf_' . $field_id], 'array', array());
$out_array = array();
// Hash key on the option for quick lookup later
if (is_array($in_array)) {
foreach ($in_array as $k => $v) {
$out_array[$v] = $v;
}
}
$criteria['value'] = $out_array;
break;
case 'E':
// date
$from = DevblocksPlatform::importGPC($_REQUEST['value_cf_' . $field_id . '_from'], 'string', '0');
$to = DevblocksPlatform::importGPC($_REQUEST['value_cf_' . $field_id . '_to'], 'string', 'now');
$criteria['from'] = $from;
$criteria['to'] = $to;
unset($criteria['value']);
break;
case 'N':
// number
$oper = DevblocksPlatform::importGPC($_REQUEST['value_cf_' . $field_id . '_oper'], 'string', '=');
$criteria['oper'] = $oper;
$criteria['value'] = intval($value);
break;
case 'C':
// checkbox
$criteria['value'] = intval($value);
break;
}
} elseif (isset($filter_criteria_exts[$rule])) {
// Extensions
// Save custom criteria properties
try {
$crit_ext = $filter_criteria_exts[$rule]->createInstance();
/* @var $crit_ext Extension_MailFilterCriteria */
$criteria = $crit_ext->saveConfig();
} catch (Exception $e) {
// print_r($e);
}
} else {
continue;
}
break;
}
$criterion[$rule] = $criteria;
}
}
// Actions
$filter_action_exts = DevblocksPlatform::getExtensions('cerberusweb.mail_filter.action', false);
if (is_array($do)) {
foreach ($do as $act) {
$action = array();
switch ($act) {
case 'stop':
if (null != @($do_stop = DevblocksPlatform::importGPC($_POST['do_stop'], 'string', null))) {
$act = $do_stop;
switch ($do_stop) {
case 'nothing':
$action = array();
break;
case 'blackhole':
$action = array();
break;
case 'redirect':
if (null != @($to = DevblocksPlatform::importGPC($_POST['do_redirect'], 'string', null))) {
$action = array('to' => $to);
}
break;
case 'bounce':
if (null != @($msg = DevblocksPlatform::importGPC($_POST['do_bounce'], 'string', null))) {
$action = array('message' => $msg);
}
break;
}
}
break;
default:
// ignore invalids
// Check action plugins
if (isset($filter_action_exts[$act])) {
// Save custom action properties
try {
$action_ext = $filter_action_exts[$act]->createInstance();
$action = $action_ext->saveConfig();
} catch (Exception $e) {
// print_r($e);
}
} else {
continue;
}
break;
}
$actions[$act] = $action;
}
}
if (!empty($criterion)) {
if (empty($id)) {
$fields = array(DAO_PreParseRule::NAME => $name, DAO_PreParseRule::CRITERIA_SER => serialize($criterion), DAO_PreParseRule::ACTIONS_SER => serialize($actions), DAO_PreParseRule::POS => 0, DAO_PreParseRule::IS_STICKY => intval($is_sticky));
$id = DAO_PreParseRule::create($fields);
} else {
$fields = array(DAO_PreParseRule::NAME => $name, DAO_PreParseRule::CRITERIA_SER => serialize($criterion), DAO_PreParseRule::ACTIONS_SER => serialize($actions), DAO_PreParseRule::IS_STICKY => intval($is_sticky));
DAO_PreParseRule::update($id, $fields);
}
}
DevblocksPlatform::setHttpResponse(new DevblocksHttpResponse(array('config', 'preparser')));
}
/**
* Returns a Model_PreParserRule on a match, or NULL
*
* @param boolean $is_new
* @param string $from
* @param string $to
* @param CerberusParserMessage $message
* @return Model_PreParserRule[]
*/
static function getMatches(CerberusParserMessage $message)
{
$filters = DAO_PreParseRule::getAll();
$headers = $message->headers;
// New or reply?
$is_new = isset($message->headers['in-reply-to']) || isset($message->headers['references']) ? false : true;
// From address
$fromInst = CerberusParser::getAddressFromHeaders($headers);
// Stackable
$matches = array();
// Custom fields
$custom_fields = DAO_CustomField::getAll();
// Criteria extensions
$filter_criteria_exts = DevblocksPlatform::getExtensions('cerberusweb.mail_filter.criteria', false);
// Lazy load when needed on criteria basis
$address_field_values = null;
$org_field_values = null;
// check filters
if (is_array($filters)) {
foreach ($filters as $filter) {
$passed = 0;
// check criteria
foreach ($filter->criteria as $rule_key => $rule) {
@($value = $rule['value']);
switch ($rule_key) {
case 'dayofweek':
$current_day = strftime('%w');
// $current_day = 1;
// Forced to English abbrevs as indexes
$days = array('sun', 'mon', 'tue', 'wed', 'thu', 'fri', 'sat');
// Is the current day enabled?
if (isset($rule[$days[$current_day]])) {
$passed++;
}
break;
case 'timeofday':
$current_hour = strftime('%H');
$current_min = strftime('%M');
// $current_hour = 17;
// $current_min = 5;
if (null != ($from_time = @$rule['from'])) {
list($from_hour, $from_min) = explode(':', $from_time);
}
if (null != ($to_time = @$rule['to'])) {
if (list($to_hour, $to_min) = explode(':', $to_time)) {
}
}
// Do we need to wrap around to the next day's hours?
if ($from_hour > $to_hour) {
// yes
$to_hour += 24;
// add 24 hrs to the destination (1am = 25th hour)
}
// Are we in the right 24 hourly range?
if ((int) $current_hour >= $from_hour && (int) $current_hour <= $to_hour) {
// If we're in the first hour, are we minutes early?
if ($current_hour == $from_hour && (int) $current_min < $from_min) {
break;
}
// If we're in the last hour, are we minutes late?
if ($current_hour == $to_hour && (int) $current_min > $to_min) {
break;
}
$passed++;
}
break;
case 'type':
if ($is_new && 0 == strcasecmp($value, 'new') || !$is_new && 0 == strcasecmp($value, 'reply')) {
$passed++;
}
break;
case 'from':
$regexp_from = DevblocksPlatform::strToRegExp($value);
if (preg_match($regexp_from, $fromInst->email)) {
$passed++;
}
break;
case 'tocc':
$tocc = array();
$destinations = DevblocksPlatform::parseCsvString($value);
// Build a list of To/Cc addresses on this message
@($to_list = imap_rfc822_parse_adrlist($headers['to'], 'localhost'));
@($cc_list = imap_rfc822_parse_adrlist($headers['cc'], 'localhost'));
if (is_array($to_list)) {
foreach ($to_list as $addy) {
$tocc[] = $addy->mailbox . '@' . $addy->host;
}
}
if (is_array($cc_list)) {
foreach ($cc_list as $addy) {
$tocc[] = $addy->mailbox . '@' . $addy->host;
}
}
$dest_flag = false;
// bail out when true
if (is_array($destinations) && is_array($tocc)) {
foreach ($destinations as $dest) {
if ($dest_flag) {
break;
}
$regexp_dest = DevblocksPlatform::strToRegExp($dest);
foreach ($tocc as $addy) {
if (@preg_match($regexp_dest, $addy)) {
$passed++;
$dest_flag = false;
break;
}
}
}
}
break;
case 'header1':
case 'header2':
case 'header3':
case 'header4':
case 'header5':
$header = strtolower($rule['header']);
if (empty($value)) {
// we're checking for null/blanks
if (!isset($headers[$header]) || empty($headers[$header])) {
$passed++;
}
} elseif (isset($headers[$header]) && !empty($headers[$header])) {
$regexp_header = DevblocksPlatform::strToRegExp($value);
// handle arrays like Received: and (broken)Content-Type headers (farking spammers)
if (is_array($headers[$header])) {
foreach ($headers[$header] as $array_header) {
if (preg_match($regexp_header, str_replace(array("\r", "\n"), ' ', $array_header))) {
$passed++;
break;
}
}
} else {
// Flatten CRLF
if (preg_match($regexp_header, str_replace(array("\r", "\n"), ' ', $headers[$header]))) {
$passed++;
}
}
}
break;
case 'body':
// Line-by-line body scanning (sed-like)
$lines = preg_split("/[\r\n]/", $message->body);
if (is_array($lines)) {
foreach ($lines as $line) {
if (@preg_match($value, $line)) {
$passed++;
break;
}
}
}
break;
case 'body_encoding':
$regexp_bodyenc = DevblocksPlatform::strToRegExp($value);
if (preg_match($regexp_bodyenc, $message->body_encoding)) {
$passed++;
}
break;
case 'attachment':
$regexp_file = DevblocksPlatform::strToRegExp($value);
// check the files in the raw message
foreach ($message->files as $file_name => $file) {
/* @var $file ParserFile */
if (preg_match($regexp_file, $file_name)) {
$passed++;
break;
}
}
break;
default:
// ignore invalids
// Custom Fields
if (0 == strcasecmp('cf_', substr($rule_key, 0, 3))) {
$field_id = substr($rule_key, 3);
// Make sure it exists
if (null == @($field = $custom_fields[$field_id])) {
continue;
}
// Lazy values loader
$field_values = array();
switch ($field->source_extension) {
case ChCustomFieldSource_Address::ID:
if (null == $address_field_values) {
$address_field_values = array_shift(DAO_CustomFieldValue::getValuesBySourceIds(ChCustomFieldSource_Address::ID, $fromInst->id));
}
$field_values =& $address_field_values;
break;
case ChCustomFieldSource_Org::ID:
if (null == $org_field_values) {
$org_field_values = array_shift(DAO_CustomFieldValue::getValuesBySourceIds(ChCustomFieldSource_Org::ID, $fromInst->contact_org_id));
}
$field_values =& $org_field_values;
break;
}
// Type sensitive value comparisons
// [TODO] Operators
// [TODO] Highly redundant
switch ($field->type) {
case 'S':
// string
// string
case 'T':
// clob
// clob
case 'U':
// URL
$field_val = isset($field_values[$field_id]) ? $field_values[$field_id] : '';
$oper = isset($rule['oper']) ? $rule['oper'] : "=";
if ($oper == "=" && @preg_match(DevblocksPlatform::strToRegExp($value, true), $field_val)) {
$passed++;
} elseif ($oper == "!=" && @(!preg_match(DevblocksPlatform::strToRegExp($value, true), $field_val))) {
$passed++;
}
break;
case 'N':
// number
if (!isset($field_values[$field_id])) {
break;
}
$field_val = isset($field_values[$field_id]) ? $field_values[$field_id] : 0;
$oper = isset($rule['oper']) ? $rule['oper'] : "=";
if ($oper == "=" && intval($field_val) == intval($value)) {
$passed++;
} elseif ($oper == "!=" && intval($field_val) != intval($value)) {
$passed++;
} elseif ($oper == ">" && intval($field_val) > intval($value)) {
$passed++;
} elseif ($oper == "<" && intval($field_val) < intval($value)) {
$passed++;
}
break;
case 'E':
// date
$field_val = isset($field_values[$field_id]) ? intval($field_values[$field_id]) : 0;
$from = isset($rule['from']) ? $rule['from'] : "0";
$to = isset($rule['to']) ? $rule['to'] : "now";
if (intval(@strtotime($from)) <= $field_val && intval(@strtotime($to)) >= $field_val) {
$passed++;
}
break;
case 'C':
// checkbox
$field_val = isset($field_values[$field_id]) ? $field_values[$field_id] : 0;
if (intval($value) == intval($field_val)) {
$passed++;
}
break;
case 'D':
// dropdown
// dropdown
case 'M':
// multi-picklist
// multi-picklist
case 'X':
// multi-checkbox
// multi-checkbox
case 'W':
// worker
$field_val = isset($field_values[$field_id]) ? $field_values[$field_id] : array();
if (!is_array($value)) {
$value = array($value);
}
if (is_array($field_val)) {
// if multiple things set
foreach ($field_val as $v) {
// loop through possible
if (isset($value[$v])) {
// is any possible set?
$passed++;
break;
}
}
} else {
// single
if (isset($value[$field_val])) {
// is our set field in possibles?
$passed++;
break;
}
}
break;
}
} elseif (isset($filter_criteria_exts[$rule_key])) {
// criteria extensions
try {
$crit_ext = $filter_criteria_exts[$rule_key]->createInstance();
if ($crit_ext->matches($filter, $message)) {
$passed++;
break;
}
} catch (Exception $e) {
// Oops!
//print_r($e);
}
}
break;
}
}
// If our rule matched every criteria, stop and return the filter
if ($passed == count($filter->criteria)) {
DAO_PreParseRule::increment($filter->id);
// ++ the times we've matched
$matches[] = $filter;
// Check our actions and see if we should bail out early
if (isset($filter->actions) && !empty($filter->actions)) {
foreach ($filter->actions as $action_key => $action) {
switch ($action_key) {
case 'nothing':
case 'blackhole':
case 'redirect':
case 'bounce':
return $matches;
break;
}
}
}
}
}
}
return $matches;
}
/**
* Returns a Model_PreParserRule on a match, or NULL
*
* @param boolean $is_new
* @param string $from
* @param string $to
* @param CerberusParserMessage $message
* @return Model_PreParserRule
*/
private static function _checkPreParseRules($is_new, $from, $group_id, CerberusParserMessage $message)
{
$filters = DAO_PreParseRule::getAll();
$headers = $message->headers;
// check filters
if (is_array($filters)) {
foreach ($filters as $filter) {
$passed = 0;
// check criteria
foreach ($filter->criteria as $rule_key => $rule) {
@($value = $rule['value']);
switch ($rule_key) {
case 'type':
if ($is_new && 0 == strcasecmp($value, 'new') || !$is_new && 0 == strcasecmp($value, 'reply')) {
$passed++;
}
break;
case 'from':
$regexp_from = DevblocksPlatform::strToRegExp($value);
if (preg_match($regexp_from, $from)) {
$passed++;
}
break;
case 'to':
if (intval($group_id) == intval($value)) {
$passed++;
}
break;
case 'header1':
case 'header2':
case 'header3':
case 'header4':
case 'header5':
$header = strtolower($rule['header']);
if (empty($value)) {
// we're checking for null/blanks
if (!isset($headers[$header]) || empty($headers[$header])) {
$passed++;
}
} elseif (isset($headers[$header]) && !empty($headers[$header])) {
$regexp_header = DevblocksPlatform::strToRegExp($value);
// handle arrays like Received: and (broken)Content-Type headers (farking spammers)
if (is_array($headers[$header])) {
foreach ($headers[$header] as $array_header) {
if (preg_match($regexp_header, str_replace(array("\r", "\n"), ' ', $array_header))) {
$passed++;
break;
}
}
} else {
// Flatten CRLF
if (preg_match($regexp_header, str_replace(array("\r", "\n"), ' ', $headers[$header]))) {
$passed++;
}
}
}
break;
case 'body':
$regexp_body = DevblocksPlatform::strToRegExp($value);
// Flatten CRLF
if (preg_match($regexp_body, str_replace(array("\r", "\n"), ' ', $message->body))) {
$passed++;
}
break;
case 'body_encoding':
$regexp_bodyenc = DevblocksPlatform::strToRegExp($value);
if (preg_match($regexp_bodyenc, $message->body_encoding)) {
$passed++;
}
break;
case 'attachment':
$regexp_file = DevblocksPlatform::strToRegExp($value);
// check the files in the raw message
foreach ($message->files as $file_name => $file) {
/* @var $file ParserFile */
if (preg_match($regexp_file, $file_name)) {
$passed++;
break;
}
}
break;
default:
// ignore invalids
continue;
break;
}
}
// If our rule matched every criteria, stop and return the filter
if ($passed == count($filter->criteria)) {
DAO_PreParseRule::increment($filter->id);
// ++ the times we've matched
return $filter;
}
}
}
return NULL;
}
function saveTabPreParserAction()
{
@($id = DevblocksPlatform::importGPC($_POST['id'], 'integer', 0));
@($name = DevblocksPlatform::importGPC($_POST['name'], 'string', ''));
@($is_sticky = DevblocksPlatform::importGPC($_POST['is_sticky'], 'integer', 0));
@($rules = DevblocksPlatform::importGPC($_POST['rules'], 'array', array()));
@($do = DevblocksPlatform::importGPC($_POST['do'], 'array', array()));
if (DEMO_MODE) {
DevblocksPlatform::setHttpResponse(new DevblocksHttpResponse(array('config', 'preparser')));
return;
}
$criterion = array();
$actions = array();
// Criteria
if (is_array($rules)) {
foreach ($rules as $rule) {
$rule = DevblocksPlatform::strAlphaNumDash($rule);
@($value = DevblocksPlatform::importGPC($_POST['value_' . $rule], 'string', ''));
// [JAS]: Allow empty $value (null/blank checking)
$criteria = array('value' => $value);
// Any special rule handling
switch ($rule) {
case 'dayofweek':
// days
$days = DevblocksPlatform::importGPC($_REQUEST['value_dayofweek'], 'array', array());
if (in_array(0, $days)) {
$criteria['sun'] = 'Sunday';
}
if (in_array(1, $days)) {
$criteria['mon'] = 'Monday';
}
if (in_array(2, $days)) {
$criteria['tue'] = 'Tuesday';
}
if (in_array(3, $days)) {
$criteria['wed'] = 'Wednesday';
}
if (in_array(4, $days)) {
$criteria['thu'] = 'Thursday';
}
if (in_array(5, $days)) {
$criteria['fri'] = 'Friday';
}
if (in_array(6, $days)) {
$criteria['sat'] = 'Saturday';
}
unset($criteria['value']);
break;
case 'timeofday':
$from = DevblocksPlatform::importGPC($_REQUEST['timeofday_from'], 'string', '');
$to = DevblocksPlatform::importGPC($_REQUEST['timeofday_to'], 'string', '');
$criteria['from'] = $from;
$criteria['to'] = $to;
unset($criteria['value']);
break;
case 'type':
break;
case 'from':
break;
case 'tocc':
break;
case 'header1':
case 'header2':
case 'header3':
case 'header4':
case 'header5':
if (null != @($header = DevblocksPlatform::importGPC($_POST[$rule], 'string', null))) {
$criteria['header'] = strtolower($header);
}
break;
case 'body':
break;
case 'body_encoding':
break;
case 'attachment':
break;
default:
// ignore invalids
continue;
break;
}
$criterion[$rule] = $criteria;
}
}
// Actions
if (is_array($do)) {
foreach ($do as $act) {
$action = array();
switch ($act) {
case 'blackhole':
$action = array();
break;
case 'redirect':
if (null != @($to = DevblocksPlatform::importGPC($_POST['do_redirect'], 'string', null))) {
$action = array('to' => $to);
}
break;
case 'bounce':
if (null != @($msg = DevblocksPlatform::importGPC($_POST['do_bounce'], 'string', null))) {
$action = array('message' => $msg);
}
break;
default:
// ignore invalids
continue;
break;
}
$actions[$act] = $action;
}
}
if (!empty($criterion) && !empty($actions)) {
if (empty($id)) {
$fields = array(DAO_PreParseRule::NAME => $name, DAO_PreParseRule::CRITERIA_SER => serialize($criterion), DAO_PreParseRule::ACTIONS_SER => serialize($actions), DAO_PreParseRule::POS => 0, DAO_PreParseRule::IS_STICKY => intval($is_sticky));
$id = DAO_PreParseRule::create($fields);
} else {
$fields = array(DAO_PreParseRule::NAME => $name, DAO_PreParseRule::CRITERIA_SER => serialize($criterion), DAO_PreParseRule::ACTIONS_SER => serialize($actions), DAO_PreParseRule::IS_STICKY => intval($is_sticky));
DAO_PreParseRule::update($id, $fields);
}
}
DevblocksPlatform::setHttpResponse(new DevblocksHttpResponse(array('config', 'preparser')));
}
/**
* Returns a Model_PreParserRule on a match, or NULL
*
* @param boolean $is_new
* @param string $from
* @param string $to
* @param CerberusParserMessage $message
* @return Model_PreParserRule
*/
static function getMatches($is_new, $from, CerberusParserMessage $message)
{
$filters = DAO_PreParseRule::getAll();
$headers = $message->headers;
// [TODO] Handle stackable
// check filters
if (is_array($filters)) {
foreach ($filters as $filter) {
$passed = 0;
// check criteria
foreach ($filter->criteria as $rule_key => $rule) {
@($value = $rule['value']);
switch ($rule_key) {
case 'dayofweek':
$current_day = strftime('%w');
// $current_day = 1;
// Forced to English abbrevs as indexes
$days = array('sun', 'mon', 'tue', 'wed', 'thu', 'fri', 'sat');
// Is the current day enabled?
if (isset($crit[$days[$current_day]])) {
$passed++;
}
break;
case 'timeofday':
$current_hour = strftime('%H');
$current_min = strftime('%M');
// $current_hour = 17;
// $current_min = 5;
if (null != ($from_time = @$crit['from'])) {
list($from_hour, $from_min) = split(':', $from_time);
}
if (null != ($to_time = @$crit['to'])) {
if (list($to_hour, $to_min) = split(':', $to_time)) {
}
}
// Do we need to wrap around to the next day's hours?
if ($from_hour > $to_hour) {
// yes
$to_hour += 24;
// add 24 hrs to the destination (1am = 25th hour)
}
// Are we in the right 24 hourly range?
if ((int) $current_hour >= $from_hour && (int) $current_hour <= $to_hour) {
// If we're in the first hour, are we minutes early?
if ($current_hour == $from_hour && (int) $current_min < $from_min) {
break;
}
// If we're in the last hour, are we minutes late?
if ($current_hour == $to_hour && (int) $current_min > $to_min) {
break;
}
$passed++;
}
break;
case 'type':
if ($is_new && 0 == strcasecmp($value, 'new') || !$is_new && 0 == strcasecmp($value, 'reply')) {
$passed++;
}
break;
case 'from':
$regexp_from = DevblocksPlatform::strToRegExp($value);
if (preg_match($regexp_from, $from)) {
$passed++;
}
break;
case 'tocc':
$destinations = DevblocksPlatform::parseCsvString($value);
// Build a list of To/Cc addresses on this message
@($to_list = imap_rfc822_parse_adrlist($headers['to'], 'localhost'));
@($cc_list = imap_rfc822_parse_adrlist($headers['cc'], 'localhost'));
if (is_array($to_list)) {
foreach ($to_list as $addy) {
$tocc[] = $addy->mailbox . '@' . $addy->host;
}
}
if (is_array($cc_list)) {
foreach ($cc_list as $addy) {
$tocc[] = $addy->mailbox . '@' . $addy->host;
}
}
$dest_flag = false;
// bail out when true
if (is_array($destinations) && is_array($tocc)) {
foreach ($destinations as $dest) {
if ($dest_flag) {
break;
}
$regexp_dest = DevblocksPlatform::strToRegExp($dest);
foreach ($tocc as $addy) {
if (@preg_match($regexp_dest, $addy)) {
$passed++;
$dest_flag = false;
break;
}
}
}
}
break;
case 'header1':
case 'header2':
case 'header3':
case 'header4':
case 'header5':
$header = strtolower($rule['header']);
if (empty($value)) {
// we're checking for null/blanks
if (!isset($headers[$header]) || empty($headers[$header])) {
$passed++;
}
} elseif (isset($headers[$header]) && !empty($headers[$header])) {
$regexp_header = DevblocksPlatform::strToRegExp($value);
// handle arrays like Received: and (broken)Content-Type headers (farking spammers)
if (is_array($headers[$header])) {
foreach ($headers[$header] as $array_header) {
if (preg_match($regexp_header, str_replace(array("\r", "\n"), ' ', $array_header))) {
$passed++;
break;
}
}
} else {
// Flatten CRLF
if (preg_match($regexp_header, str_replace(array("\r", "\n"), ' ', $headers[$header]))) {
$passed++;
}
}
}
break;
case 'body':
// Line-by-line body scanning (sed-like)
$lines = split("[\r\n]", $message->body);
if (is_array($lines)) {
foreach ($lines as $line) {
if (@preg_match($value, $line)) {
$passed++;
break;
}
}
}
break;
case 'body_encoding':
$regexp_bodyenc = DevblocksPlatform::strToRegExp($value);
if (preg_match($regexp_bodyenc, $message->body_encoding)) {
$passed++;
}
break;
case 'attachment':
$regexp_file = DevblocksPlatform::strToRegExp($value);
// check the files in the raw message
foreach ($message->files as $file_name => $file) {
/* @var $file ParserFile */
if (preg_match($regexp_file, $file_name)) {
$passed++;
break;
}
}
break;
default:
// ignore invalids
continue;
break;
}
}
// If our rule matched every criteria, stop and return the filter
if ($passed == count($filter->criteria)) {
DAO_PreParseRule::increment($filter->id);
// ++ the times we've matched
return $filter;
}
}
}
return NULL;
}
function saveTabPreParserAction()
{
@($id = DevblocksPlatform::importGPC($_POST['id'], 'integer', 0));
@($name = DevblocksPlatform::importGPC($_POST['name'], 'string', ''));
@($rules = DevblocksPlatform::importGPC($_POST['rules'], 'array', array()));
@($do = DevblocksPlatform::importGPC($_POST['do'], 'array', array()));
if (DEMO_MODE) {
DevblocksPlatform::setHttpResponse(new DevblocksHttpResponse(array('config', 'preparser')));
return;
}
$criterion = array();
$actions = array();
// Criteria
if (is_array($rules)) {
foreach ($rules as $rule) {
$rule = DevblocksPlatform::strAlphaNumDash($rule);
@($value = DevblocksPlatform::importGPC($_POST['value_' . $rule], 'string', ''));
// [JAS]: Allow empty $value (null/blank checking)
$criteria = array('value' => $value);
// Any special rule handling
switch ($rule) {
case 'type':
break;
case 'from':
break;
case 'to':
break;
case 'header1':
case 'header2':
case 'header3':
case 'header4':
case 'header5':
if (null != @($header = DevblocksPlatform::importGPC($_POST[$rule], 'string', null))) {
$criteria['header'] = strtolower($header);
}
break;
case 'body':
break;
case 'body_encoding':
break;
case 'attachment':
break;
default:
// ignore invalids
continue;
break;
}
$criterion[$rule] = $criteria;
}
}
// Actions
if (is_array($do)) {
foreach ($do as $act) {
$action = array();
switch ($act) {
case 'blackhole':
$action = array();
break;
case 'redirect':
if (null != @($to = DevblocksPlatform::importGPC($_POST['do_redirect'], 'string', null))) {
$action = array('to' => $to);
}
break;
case 'bounce':
if (null != @($msg = DevblocksPlatform::importGPC($_POST['do_bounce'], 'string', null))) {
$action = array('message' => $msg);
}
break;
default:
// ignore invalids
continue;
break;
}
$actions[$act] = $action;
}
}
if (!empty($criterion) && !empty($actions)) {
if (empty($id)) {
$fields = array(DAO_PreParseRule::NAME => $name, DAO_PreParseRule::CRITERIA_SER => serialize($criterion), DAO_PreParseRule::ACTIONS_SER => serialize($actions), DAO_PreParseRule::POS => 0);
$id = DAO_PreParseRule::create($fields);
} else {
$fields = array(DAO_PreParseRule::NAME => $name, DAO_PreParseRule::CRITERIA_SER => serialize($criterion), DAO_PreParseRule::ACTIONS_SER => serialize($actions));
DAO_PreParseRule::update($id, $fields);
}
}
DevblocksPlatform::setHttpResponse(new DevblocksHttpResponse(array('config', 'preparser')));
}
