CMailMessage::MarkAsSpam($ID, true);
break;
case "mark_as_notspam":
CMailMessage::MarkAsSpam($ID, false);
break;
case "mark_as_read":
CMailMessage::Update($ID, array("NEW_MESSAGE" => "N"));
break;
case "mark_as_unread":
CMailMessage::Update($ID, array("NEW_MESSAGE" => "Y"));
break;
case "delete":
CMailMessage::Delete($ID);
break;
case "refilter":
CMailFilter::FilterMessage($ID, "M", $filter_id);
break;
}
}
}
$rsData = CMailMessage::GetList(array($by => $order), $arFilter);
$rsData = new CAdminResult($rsData, $sTableID);
$rsData->NavStart(50);
$lAdmin->NavText($rsData->GetNavPrint(GetMessage("MAIL_MSG_ADM_NAVIGATION")));
$arHeaders = array();
$arHeaders[] = array("id" => "SUBJECT", "content" => GetMessage("MAIL_MSG_ADM_SUBJECT"), "default" => true, "sort" => "subject");
$arHeaders[] = array("id" => "FIELD_FROM", "content" => GetMessage("MAIL_MSG_ADM_FROM"), "default" => true, "sort" => "field_from");
$arHeaders[] = array("id" => "FIELD_REPLY_TO", "content" => GetMessage("MAIL_MSG_ADM_REPLY_TO"), "sort" => "field_reply_to");
$arHeaders[] = array("id" => "FIELD_CC", "content" => GetMessage("MAIL_MSG_ADM_CC"), "sort" => "field_cc");
$arHeaders[] = array("id" => "FIELD_BCC", "content" => GetMessage("MAIL_MSG_ADM_BCC"), "sort" => "field_bcc");
$arHeaders[] = array("id" => "FIELD_DATE", "content" => GetMessage("MAIL_MSG_ADM_DATE"), "default" => true, "sort" => "field_date");
if($_REQUEST["MARK_AS_SPAM"]=="Y")
{
CMailMessage::MarkAsSpam($ID, true, $dbr_arr);
}
elseif($_REQUEST["MARK_AS_NOT_SPAM"]=="Y")
{
CMailMessage::MarkAsSpam($ID, false, $dbr_arr);
}
elseif(($_REQUEST["MARK_SPAM"]=="Y" || $_REQUEST["MARK_SPAM"]=="N"))
{
CMailMessage::MarkAsSpam($ID, $_REQUEST["MARK_SPAM"]=="Y", $dbr_arr);
}
if(strlen($_REQUEST["MANUAL_FILTER"])>0)
{
CMailFilter::FilterMessage($ID, "M", ($_REQUEST["MANUAL_FILTER"]>0?$_REQUEST["MANUAL_FILTER"]:false));
}
if($_REQUEST["DELETE_MESSAGE"]=="Y")
{
CMailMessage::Delete($ID);
$_REQUEST["save"] == "Y";
}
}
if(strlen($_REQUEST["apply"])>0)
LocalRedirect($APPLICATION->GetCurPage()."?lang=".LANG."&ID=".$ID."#tb");
elseif(strlen($_REQUEST["next"])>0 || strlen($_REQUEST["prev"])>0)
{
$md5Path = md5("/bitrix/admin/mail_message_admin.php");
$FILTER = $_SESSION["SESS_ADMIN"][$md5Path];
function AddMessage($mailbox_id, $message, $charset)
{
global $DB;
// replace all /n -> /r/n
//$message = str_replace("\r\n", "\n", $message);
//$message = str_replace("\n", "\r\n", $message);
$header_pos = strpos($message, "\r\n\r\n");
// spliting message to header and body
$message_header = substr($message, 0, $header_pos);
$message_body = substr($message, $header_pos + 4);
$message_body_html = false;
// parsing header and convert
$arMessageParts = array();
$obHeader = CMailMessage::ParseHeader($message_header, $charset);
if ($obHeader->IsMultipart()) {
//echo 'obHeader="<pre>';print_r($obHeader);echo '/obHeader</pre>';
$arMessagePartsTmp = preg_split("/" . preg_quote("--" . $obHeader->GetBoundary(), "/") . "(--|\r\n)/s", $message_body);
$message_body = "";
for ($i = 0; $i < count($arMessagePartsTmp); $i++) {
if (strlen($arMessagePartsTmp[$i]) <= 0) {
continue;
}
$message_part = $arMessagePartsTmp[$i];
if (substr($message_part, 0, 2) == "\r\n") {
$message_part = "\r\n" . $message_part;
}
$p = strpos($message_part, "\r\n\r\n");
$message_part_header = substr($message_part, 0, $p);
if (strlen(trim($message_part_header)) <= 0 && count($arMessagePartsTmp) > 1) {
continue;
}
$message_part_body = substr($message_part, $p + 4);
if (strlen(trim($message_part_body)) <= 0) {
continue;
}
$obMPHeader = CMailMessage::ParseHeader($message_part_header, $charset);
if (strtolower($obHeader->MultipartType()) == "alternative" && $obMPHeader->IsMultipart()) {
continue;
}
if (strtolower($obMPHeader->MultipartType()) == "alternative" && $obMPHeader->IsMultipart()) {
$arMessagePartsRelTmp = preg_split("/" . preg_quote("--" . $obMPHeader->GetBoundary(), "/") . "(--|\r\n)/s", $message_part_body);
$bFound = false;
$obMPHeaderHTML = false;
for ($j = 0; $j < count($arMessagePartsRelTmp); $j++) {
if (strlen(trim($arMessagePartsRelTmp[$j])) <= 0) {
continue;
}
$p = strpos($arMessagePartsRelTmp[$j], "\r\n\r\n");
$message_part_rel_header = substr($arMessagePartsRelTmp[$j], 0, $p);
$message_part_rel_body = substr($arMessagePartsRelTmp[$j], $p + 4);
$obMPRelHeader = CMailMessage::ParseHeader($message_part_rel_header, $charset);
$rel_content_type = strtolower($obMPRelHeader->content_type);
if ($rel_content_type == "text/plain") {
$bFound = true;
$obMPHeader = $obMPRelHeader;
$message_part_body = $message_part_rel_body;
break;
} elseif ($rel_content_type == "text/html" && !is_object($obMPHeaderHTML)) {
$obMPHeaderHTML = $obMPRelHeader;
$message_part_body_html = $message_part_rel_body;
}
}
// for($j=0; $j<count($arMessagePartsRelTmp); $j++)
if (!$bFound && is_object($obMPHeaderHTML)) {
$obMPHeader = $obMPHeaderHTML;
$message_part_body = HTMLToTxt($message_part_body_html);
$bFound = true;
}
}
// if(strtolower($obMPHeader->MultipartType() ...
$content_type = strtolower($obMPHeader->content_type);
//print_r($obMPHeader);
$encoding = strtolower($obMPHeader->GetHeader("CONTENT-TRANSFER-ENCODING"));
if ($encoding == "base64") {
$message_part_body = base64_decode($message_part_body);
} elseif ($encoding == "quoted-printable") {
$message_part_body = quoted_printable_decode($message_part_body);
} elseif ($encoding == "x-uue") {
$message_part_body = CMailUtil::uue_decode($message_part_body);
}
//?
$msg_charset = $obMPHeader->charset;
$filename = $obMPHeader->filename;
if ((strpos($content_type, "plain") !== false || strpos($content_type, "html") !== false || strpos($content_type, "text") !== false) && strpos($content_type, "x-vcard") === false) {
$message_part_body_converted = CMailUtil::ConvertCharset($message_part_body, $msg_charset, $charset);
} else {
$message_part_body_converted = $message_part_body;
}
$arMessageParts[] = array("CONTENT-TYPE" => $content_type, "CONTENT-ID" => $obMPHeader->content_id, "CHARSET" => $charset, "BODY" => $message_part_body_converted, "FILENAME" => $filename);
}
//for($i=0; $i<count($arMessagePartsTmp); $i++)
for ($i = 0; $i < count($arMessageParts); $i++) {
if (strlen($arMessageParts[$i]["FILENAME"]) <= 0 && strpos(strtolower($arMessageParts[$i]["CONTENT-TYPE"]), "text/") === 0) {
if (strtolower($arMessageParts[$i]["CONTENT-TYPE"]) == "text/html") {
$message_body_html = $arMessageParts[$i]["BODY"];
$message_body = HTMLToTxt($arMessageParts[$i]["BODY"]);
} else {
$message_body = $arMessageParts[$i]["BODY"];
}
unset($arMessageParts[$i]);
break;
}
}
//print_r($arMessageParts);
} else {
$encoding = strtolower($obHeader->GetHeader("CONTENT-TRANSFER-ENCODING"));
if ($encoding == "base64") {
$message_body = base64_decode($message_body);
} elseif ($encoding == "quoted-printable") {
$message_body = quoted_printable_decode($message_body);
} elseif ($encoding == "x-uue") {
$message_body = CMailUtil::uue_decode($message_body);
}
//?
$message_body = CMailUtil::ConvertCharset($message_body, $obHeader->charset, $charset);
if (strtolower($obHeader->content_type) == "text/html") {
$message_body_html = $message_body;
$message_body = HTMLToTxt($message_body);
}
}
//if($obHeader->IsMultipart())
$arFields = array("MAILBOX_ID" => $mailbox_id, "HEADER" => $obHeader->strHeader, "FIELD_DATE_ORIGINAL" => $obHeader->GetHeader("DATE"), "NEW_MESSAGE" => "Y", "FIELD_FROM" => $obHeader->GetHeader("FROM"), "FIELD_REPLY_TO" => $obHeader->GetHeader("REPLY-TO"), "FIELD_TO" => $obHeader->GetHeader("TO"), "FIELD_CC" => $obHeader->GetHeader("CC"), "FIELD_BCC" => ($obHeader->GetHeader('X-Original-Rcpt-to') != '' ? $obHeader->GetHeader('X-Original-Rcpt-to') . ($obHeader->GetHeader("BCC") != '' ? ', ' : '') : '') . $obHeader->GetHeader("BCC"), "MSG_ID" => trim($obHeader->GetHeader("MESSAGE-ID"), " <>"), "IN_REPLY_TO" => trim($obHeader->GetHeader("IN-REPLY-TO"), " <>"), "FIELD_PRIORITY" => IntVal($obHeader->GetHeader("X-PRIORITY")), "MESSAGE_SIZE" => strlen($message), "SUBJECT" => $obHeader->GetHeader("SUBJECT"), "BODY" => RTrim($message_body));
//print_r($arMessageParts); print_r($arFields); die();
if (COption::GetOptionString("mail", "save_src", B_MAIL_SAVE_SRC) == "Y") {
$arFields["FULL_TEXT"] = $message;
}
if ($message_body_html !== false) {
$arFields["FOR_SPAM_TEST"] = $obHeader->strHeader . " " . $message_body_html;
} else {
$arFields["FOR_SPAM_TEST"] = $obHeader->strHeader . " " . $message_body;
}
$arFields["SPAM"] = "?";
if (COption::GetOptionString("mail", "spam_check", B_MAIL_CHECK_SPAM) == "Y") {
$arSpam = CMailFilter::GetSpamRating($arFields["FOR_SPAM_TEST"]);
$arFields["SPAM_RATING"] = $arSpam["RATING"];
$arFields["SPAM_WORDS"] = $arSpam["WORDS"];
$arFields["SPAM_LAST_RESULT"] = "Y";
}
if (CMailUtil::IsSizeAllowed(strlen(implode(",", $arFields)))) {
$MESSAGE_ID = CMailMessage::Add($arFields);
CMailLog::AddMessage(array("MAILBOX_ID" => $mailbox_id, "MESSAGE_ID" => $MESSAGE_ID, "STATUS_GOOD" => "Y", "LOG_TYPE" => "NEW_MESSAGE", "MESSAGE" => $arFields["SUBJECT"] . " (" . $arFields["MESSAGE_SIZE"] . ") " . (COption::GetOptionString("mail", "spam_check", B_MAIL_CHECK_SPAM) == "Y" ? "[" . Round($arFields["SPAM_RATING"], 3) . "]" : "")));
if (COption::GetOptionString("mail", "save_attachments", B_MAIL_SAVE_ATTACHMENTS) == "Y") {
$n = 0;
foreach ($arMessageParts as $part) {
$arField = array("MESSAGE_ID" => $MESSAGE_ID, "FILE_NAME" => $part["FILENAME"], "CONTENT_TYPE" => $part["CONTENT-TYPE"], "FILE_DATA" => $part["BODY"], "CONTENT_ID" => $part["CONTENT-ID"]);
CMailMessage::AddAttachment($arField);
}
// foreach($arMessageParts as $part)
}
CMailFilter::FilterMessage($MESSAGE_ID, "R");
return $MESSAGE_ID;
} else {
CMailLog::AddMessage(array("MAILBOX_ID" => $mailbox_id, "STATUS_GOOD" => "N", "LOG_TYPE" => "NEW_MESSAGE", "MESSAGE" => "Big message size, check mysql max_allow_packet."));
}
}
