function ExecuteEvents()
{
$err_mess = "<br>Class: CEvent<br>File: ".__FILE__."<br>Function: CheckEvents<br>Line: ";
global $DB, $CACHE_MANAGER;
if(defined("FX_FORK_AGENTS_AND_EVENTS_FUNCTION"))
{
if(CMain::ForkActions(array("CEvent", "ExecuteEvents")))
return "";
}
}
function ExecuteEvents()
{
$err_mess = "<br>Class: CEvent<br>File: " . __FILE__ . "<br>Function: CheckEvents<br>Line: ";
global $DB, $CACHE_MANAGER;
if (defined("BX_FORK_AGENTS_AND_EVENTS_FUNCTION")) {
if (CMain::ForkActions(array("CEvent", "ExecuteEvents"))) {
return "";
}
}
$uniq = COption::GetOptionString("main", "server_uniq_id", "");
if (strlen($uniq) <= 0) {
$uniq = md5(uniqid(rand(), true));
COption::SetOptionString("main", "server_uniq_id", $uniq);
}
$bulk = intval(COption::GetOptionString("main", "mail_event_bulk", 5));
if ($bulk <= 0) {
$bulk = 5;
}
$strSql = "SELECT 'x' " . "FROM b_event " . "WHERE SUCCESS_EXEC='N' " . "LIMIT 1";
$db_result_event = $DB->Query($strSql);
if ($db_result_event->Fetch()) {
$db_lock = $DB->Query("SELECT GET_LOCK('" . $uniq . "_event', 0) as L");
$ar_lock = $db_lock->Fetch();
if ($ar_lock["L"] == "0") {
return "";
}
} else {
if (CACHED_b_event !== false) {
$CACHE_MANAGER->Set("events", true);
}
return "";
}
$strSql = "\n\t\t\tSELECT ID, C_FIELDS, EVENT_NAME, MESSAGE_ID, LID, DATE_FORMAT(DATE_INSERT, '%d.%m.%Y %H:%i:%s') as DATE_INSERT, DUPLICATE\n\t\t\tFROM b_event\n\t\t\tWHERE SUCCESS_EXEC='N'\n\t\t\tORDER BY ID\n\t\t\tLIMIT " . $bulk;
$rsMails = $DB->Query($strSql);
while ($arMail = $rsMails->Fetch()) {
$flag = CEvent::HandleEvent($arMail);
/*
'0' - нет шаблонов (не нужно было ничего отправл¤ть)
'Y' - все отправлены
'F' - все не смогли быть отправлены
'P' - частично отправлены
*/
$strSql = "\n\t\t\t\tUPDATE b_event SET\n\t\t\t\t\tDATE_EXEC = now(),\n\t\t\t\t\tSUCCESS_EXEC = '{$flag}'\n\t\t\t\tWHERE\n\t\t\t\t\tID = " . $arMail["ID"];
$DB->Query($strSql, false, $err_mess . __LINE__);
}
$DB->Query("SELECT RELEASE_LOCK('" . $uniq . "_event')");
}
public static function ExecuteAgents($str_crontab)
{
global $DB, $CACHE_MANAGER, $pPERIOD;
if (defined("BX_FORK_AGENTS_AND_EVENTS_FUNCTION")) {
if (CMain::ForkActions(array("CAgent", "ExecuteAgents"), array($str_crontab))) {
return "";
}
}
$saved_time = 0;
$cache_id = "agents" . $str_crontab;
if (CACHED_b_agent !== false && $CACHE_MANAGER->Read(CACHED_b_agent, $cache_id, "agents")) {
$saved_time = $CACHE_MANAGER->Get($cache_id);
if (time() < $saved_time) {
return "";
}
}
$uniq = CMain::GetServerUniqID();
$strSql = "\n\t\t\tSELECT 'x'\n\t\t\tFROM b_agent\n\t\t\tWHERE\n\t\t\t\tACTIVE = 'Y'\n\t\t\t\tAND NEXT_EXEC <= now()\n\t\t\t\tAND (DATE_CHECK IS NULL OR DATE_CHECK <= now())\n\t\t\t\t" . $str_crontab . "\n\t\t\tLIMIT 1\n\t\t";
$db_result_agents = $DB->Query($strSql);
if ($db_result_agents->Fetch()) {
$db_lock = $DB->Query("SELECT GET_LOCK('" . $uniq . "_agent', 0) as L");
$ar_lock = $db_lock->Fetch();
if ($ar_lock["L"] == "0") {
return "";
}
} else {
if (CACHED_b_agent !== false) {
$rs = $DB->Query("SELECT UNIX_TIMESTAMP(MIN(NEXT_EXEC))-UNIX_TIMESTAMP(NOW()) DATE_DIFF FROM b_agent WHERE ACTIVE='Y' " . $str_crontab . "");
$ar = $rs->Fetch();
if (!$ar || $ar["DATE_DIFF"] < 0) {
$date_diff = 0;
} elseif ($ar["DATE_DIFF"] > CACHED_b_agent) {
$date_diff = CACHED_b_agent;
} else {
$date_diff = $ar["DATE_DIFF"];
}
if ($saved_time > 0) {
$CACHE_MANAGER->Clean($cache_id, "agents");
$CACHE_MANAGER->Read(CACHED_b_agent, $cache_id, "agents");
}
$CACHE_MANAGER->Set($cache_id, intval(time() + $date_diff));
}
return "";
}
$strSql = "SELECT ID, NAME, AGENT_INTERVAL, IS_PERIOD, MODULE_ID " . "FROM b_agent " . "WHERE ACTIVE='Y' " . "\tAND NEXT_EXEC<=now() " . "\tAND (DATE_CHECK IS NULL OR DATE_CHECK<=now()) " . $str_crontab . " ORDER BY RUNNING ASC, SORT desc";
$db_result_agents = $DB->Query($strSql);
$ids = '';
$agents_array = array();
while ($db_result_agents_array = $db_result_agents->Fetch()) {
$agents_array[] = $db_result_agents_array;
$ids .= ($ids != '' ? ', ' : '') . $db_result_agents_array["ID"];
}
if ($ids != '') {
$strSql = "UPDATE b_agent SET DATE_CHECK=DATE_ADD(IF(DATE_CHECK IS NULL, now(), DATE_CHECK), INTERVAL 600 SECOND) WHERE ID IN (" . $ids . ")";
$DB->Query($strSql);
}
$DB->Query("SELECT RELEASE_LOCK('" . $uniq . "_agent')");
$logFunction = defined("BX_AGENTS_LOG_FUNCTION") && function_exists(BX_AGENTS_LOG_FUNCTION) ? BX_AGENTS_LOG_FUNCTION : false;
for ($i = 0, $n = count($agents_array); $i < $n; $i++) {
$arAgent = $agents_array[$i];
if ($logFunction) {
$logFunction($arAgent, "start");
}
@set_time_limit(0);
ignore_user_abort(true);
if (strlen($arAgent["MODULE_ID"]) > 0 && $arAgent["MODULE_ID"] != "main") {
if (!CModule::IncludeModule($arAgent["MODULE_ID"])) {
continue;
}
}
//update the agent to the running state - if it fails it'll go to the end of the list on the next try
$DB->Query("UPDATE b_agent SET RUNNING='Y' WHERE ID=" . $arAgent["ID"]);
//these vars can be assigned within agent code
$pPERIOD = $arAgent["AGENT_INTERVAL"];
CTimeZone::Disable();
global $USER;
unset($USER);
$eval_result = "";
$e = eval("\$eval_result=" . $arAgent["NAME"]);
unset($USER);
CTimeZone::Enable();
if ($logFunction) {
$logFunction($arAgent, "finish", $eval_result, $e);
}
if ($e === false) {
continue;
} elseif (strlen($eval_result) <= 0) {
$strSql = "DELETE FROM b_agent WHERE ID=" . $arAgent["ID"];
} else {
$strSql = "\n\t\t\t\t\tUPDATE b_agent SET\n\t\t\t\t\t\tNAME='" . $DB->ForSQL($eval_result, 2000) . "',\n\t\t\t\t\t\tLAST_EXEC=now(),\n\t\t\t\t\t\tNEXT_EXEC=DATE_ADD(" . ($arAgent["IS_PERIOD"] == "Y" ? "NEXT_EXEC" : "now()") . ", INTERVAL " . $pPERIOD . " SECOND),\n\t\t\t\t\t\tDATE_CHECK=NULL,\n\t\t\t\t\t\tRUNNING='N'\n\t\t\t\t\tWHERE ID=" . $arAgent["ID"];
}
$DB->Query($strSql);
}
return null;
}
* @global CDatabase $DB
*/
define("START_EXEC_EPILOG_AFTER_1", microtime());
$GLOBALS["BX_STATE"] = "EA";
global $USER, $APPLICATION, $DB;
foreach (GetModuleEvents("main", "OnEpilog", true) as $arEvent) {
ExecuteModuleEventEx($arEvent);
}
$r = $APPLICATION->EndBufferContentMan();
$main_exec_time = round(getmicrotime() - START_EXEC_TIME, 4);
echo $r;
$arAllEvents = GetModuleEvents("main", "OnAfterEpilog", true);
define("START_EXEC_EVENTS_1", microtime());
$GLOBALS["BX_STATE"] = "EV";
CMain::EpilogActions();
define("START_EXEC_EVENTS_2", microtime());
$GLOBALS["BX_STATE"] = "EA";
foreach ($arAllEvents as $arEvent) {
ExecuteModuleEventEx($arEvent);
}
if (!IsModuleInstalled("compression") && !defined("ADMIN_AJAX_MODE") && $_REQUEST["mode"] != 'excel') {
$bShowTime = $_SESSION["SESS_SHOW_TIME_EXEC"] == 'Y';
$bShowStat = $DB->ShowSqlStat && $USER->CanDoOperation('edit_php');
$bShowCacheStat = \Bitrix\Main\Data\Cache::getShowCacheStat() && ($canEditPHP || $_SESSION["SHOW_CACHE_STAT"] == "Y");
if ($bShowTime || $bShowStat || $bShowCacheStat) {
include_once $_SERVER["DOCUMENT_ROOT"] . "/bitrix/modules/main/interface/debug_info.php";
}
}
$DB->Disconnect();
CMain::ForkActions();
/**
* @return string
* @throws \Bitrix\Main\ArgumentException
* @throws \Bitrix\Main\ArgumentNullException
* @throws \Bitrix\Main\ArgumentTypeException
*/
public static function executeEvents()
{
$manage_cache = \Bitrix\Main\Application::getInstance()->getManagedCache();
if (defined("BX_FORK_AGENTS_AND_EVENTS_FUNCTION")) {
if (\CMain::ForkActions(array("CEvent", "ExecuteEvents"))) {
return "";
}
}
$bulk = intval(Config\Option::get("main", "mail_event_bulk", 5));
if ($bulk <= 0) {
$bulk = 5;
}
$connection = \Bitrix\Main\Application::getConnection();
if ($connection instanceof \Bitrix\Main\DB\MysqlCommonConnection) {
$uniq = Config\Option::get("main", "server_uniq_id", "");
if (strlen($uniq) <= 0) {
$uniq = md5(uniqid(rand(), true));
Config\Option::set("main", "server_uniq_id", $uniq);
}
$strSql = "SELECT 'x' FROM b_event WHERE SUCCESS_EXEC='N' LIMIT 1";
$resultEventDb = $connection->query($strSql);
if ($resultEventDb->fetch()) {
$lockDb = $connection->query("SELECT GET_LOCK('" . $uniq . "_event', 0) as L");
$arLock = $lockDb->fetch();
if ($arLock["L"] == "0") {
return "";
}
} else {
if (CACHED_b_event !== false) {
$manage_cache->set("events", true);
}
return "";
}
$strSql = "\n\t\t\t\tSELECT ID, C_FIELDS, EVENT_NAME, MESSAGE_ID, LID, DATE_FORMAT(DATE_INSERT, '%d.%m.%Y %H:%i:%s') as DATE_INSERT, DUPLICATE\n\t\t\t\tFROM b_event\n\t\t\t\tWHERE SUCCESS_EXEC='N'\n\t\t\t\tORDER BY ID\n\t\t\t\tLIMIT " . $bulk;
$rsMails = $connection->query($strSql);
} elseif ($connection instanceof \Bitrix\Main\DB\MssqlConnection) {
$connection->startTransaction();
$connection->query("SET LOCK_TIMEOUT 0");
\CTimeZone::Disable();
$strSql = "\n\t\t\t\tSELECT TOP " . $bulk . "\n\t\t\t\t\tID,\n\t\t\t\t\tC_FIELDS,\n\t\t\t\t\tEVENT_NAME,\n\t\t\t\t\tMESSAGE_ID,\n\t\t\t\t\tLID,\n\t\t\t\t\t" . $connection->getSqlHelper()->getDateToCharFunction("DATE_INSERT") . " as DATE_INSERT,\n\t\t\t\t\tDUPLICATE\n\t\t\t\tFROM b_event\n\t\t\t\tWITH (TABLOCKX)\n\t\t\t\tWHERE SUCCESS_EXEC = 'N'\n\t\t\t\tORDER BY ID\n\t\t\t\t";
$rsMails = $connection->query($strSql);
\CTimeZone::Enable();
} elseif ($connection instanceof \Bitrix\Main\DB\OracleConnection) {
$connection->startTransaction();
$strSql = "\n\t\t\t\tSELECT /*+RULE*/ E.ID, E.C_FIELDS, E.EVENT_NAME, E.MESSAGE_ID, E.LID,\n\t\t\t\t\tTO_CHAR(E.DATE_INSERT, 'DD.MM.YYYY HH24:MI:SS') as DATE_INSERT, DUPLICATE\n\t\t\t\tFROM b_event E\n\t\t\t\tWHERE E.SUCCESS_EXEC='N'\n\t\t\t\tORDER BY E.ID\n\t\t\t\tFOR UPDATE NOWAIT\n\t\t\t\t";
$rsMails = $connection->query($strSql);
}
if ($rsMails) {
$arCallableModificator = array();
$cnt = 0;
foreach (EventTable::getFetchModificatorsForFieldsField() as $callableModificator) {
if (is_callable($callableModificator)) {
$arCallableModificator[] = $callableModificator;
}
}
while ($arMail = $rsMails->fetch()) {
foreach ($arCallableModificator as $callableModificator) {
$arMail['C_FIELDS'] = call_user_func_array($callableModificator, array($arMail['C_FIELDS']));
}
$arFiles = array();
$fileListDb = EventAttachmentTable::getList(array('select' => array('FILE_ID'), 'filter' => array('EVENT_ID' => $arMail["ID"])));
while ($file = $fileListDb->fetch()) {
$arFiles[] = $file['FILE_ID'];
}
$arMail['FILE'] = $arFiles;
if (!is_array($arMail['C_FIELDS'])) {
$arMail['C_FIELDS'] = array();
}
$flag = Event::handleEvent($arMail);
EventTable::update($arMail["ID"], array('SUCCESS_EXEC' => $flag, 'DATE_EXEC' => new Type\DateTime()));
$cnt++;
if ($cnt >= $bulk) {
break;
}
}
}
if ($connection instanceof \Bitrix\Main\DB\MysqlCommonConnection) {
$connection->query("SELECT RELEASE_LOCK('" . $uniq . "_event')");
} elseif ($connection instanceof \Bitrix\Main\DB\MssqlConnection) {
$connection->query("SET LOCK_TIMEOUT -1");
$connection->commitTransaction();
} elseif ($connection instanceof \Bitrix\Main\DB\OracleConnection) {
$connection->commitTransaction();
}
if ($cnt === 0 && CACHED_b_event !== false) {
$manage_cache->set("events", true);
}
}
public static function ExecuteAgents($str_crontab)
{
global $DB, $CACHE_MANAGER;
if (defined("BX_FORK_AGENTS_AND_EVENTS_FUNCTION")) {
if (CMain::ForkActions(array("CAgent", "ExecuteAgents"), array($str_crontab))) {
return "";
}
}
$saved_time = 0;
$cache_id = "agents" . $str_crontab;
if (CACHED_b_agent !== false && $CACHE_MANAGER->Read(CACHED_b_agent, $cache_id, "agents")) {
$saved_time = $CACHE_MANAGER->Get($cache_id);
if (time() < $saved_time) {
return "";
}
}
$uniq = COption::GetOptionString("main", "server_uniq_id", "");
if (strlen($uniq) <= 0) {
$uniq = md5(uniqid(rand(), true));
COption::SetOptionString("main", "server_uniq_id", $uniq);
}
$strSql = "\n\t\t\tSELECT 'x'\n\t\t\tFROM b_agent\n\t\t\tWHERE\n\t\t\t\tACTIVE = 'Y'\n\t\t\t\tAND NEXT_EXEC <= now()\n\t\t\t\tAND (DATE_CHECK IS NULL OR DATE_CHECK <= now())\n\t\t\t\t" . $str_crontab . "\n\t\t\tLIMIT 1\n\t\t";
$db_result_agents = $DB->Query($strSql);
if ($db_result_agents->Fetch()) {
$db_lock = $DB->Query("SELECT GET_LOCK('" . $uniq . "_agent', 0) as L");
$ar_lock = $db_lock->Fetch();
if ($ar_lock["L"] == "0") {
return "";
}
} else {
if (CACHED_b_agent !== false) {
$rs = $DB->Query("SELECT UNIX_TIMESTAMP(MIN(NEXT_EXEC))-UNIX_TIMESTAMP(NOW()) DATE_DIFF FROM b_agent WHERE ACTIVE='Y' " . $str_crontab . "");
$ar = $rs->Fetch();
if (!$ar || $ar["DATE_DIFF"] < 0) {
$date_diff = 0;
} elseif ($ar["DATE_DIFF"] > CACHED_b_agent) {
$date_diff = CACHED_b_agent;
} else {
$date_diff = $ar["DATE_DIFF"];
}
if ($saved_time > 0) {
$CACHE_MANAGER->Clean($cache_id, "agents");
$CACHE_MANAGER->Read(CACHED_b_agent, $cache_id, "agents");
}
$CACHE_MANAGER->Set($cache_id, intval(time() + $date_diff));
}
return "";
}
$strSql = "SELECT ID, NAME, AGENT_INTERVAL, IS_PERIOD, MODULE_ID " . "FROM b_agent " . "WHERE ACTIVE='Y' " . "\tAND NEXT_EXEC<=now() " . "\tAND (DATE_CHECK IS NULL OR DATE_CHECK<=now()) " . $str_crontab . " ORDER BY SORT desc";
$db_result_agents = $DB->Query($strSql);
$i = 0;
$ids = '';
$agents_array = array();
while ($db_result_agents_array = $db_result_agents->Fetch()) {
if ($i == 0) {
@set_time_limit(0);
ignore_user_abort(true);
$i = 1;
}
$agents_array[] = $db_result_agents_array;
$ids .= ($ids != '' ? ', ' : '') . $db_result_agents_array["ID"];
}
if ($ids != '') {
$strSql = "UPDATE b_agent SET DATE_CHECK=DATE_ADD(IF(DATE_CHECK IS NULL, now(), DATE_CHECK), INTERVAL 600 SECOND) WHERE ID IN (" . $ids . ")";
$DB->Query($strSql);
}
$DB->Query("SELECT RELEASE_LOCK('" . $uniq . "_agent')");
for ($i = 0, $n = count($agents_array); $i < $n; $i++) {
$arAgent = $agents_array[$i];
@set_time_limit(0);
if (strlen($arAgent["MODULE_ID"]) > 0 && $arAgent["MODULE_ID"] != "main") {
if (!CModule::IncludeModule($arAgent["MODULE_ID"])) {
continue;
}
}
//these vars can be assigned within agent code
$pPERIOD = $arAgent["AGENT_INTERVAL"];
CTimeZone::Disable();
global $USER;
unset($USER);
$eval_result = "";
eval("\$eval_result=" . $arAgent["NAME"]);
unset($USER);
CTimeZone::Enable();
if (strlen($eval_result) <= 0) {
$strSql = "DELETE FROM b_agent WHERE ID=" . $arAgent["ID"];
} else {
if ($arAgent["IS_PERIOD"] == "Y") {
$strSql = "UPDATE b_agent SET NAME='" . $DB->ForSQL($eval_result, 2000) . "', LAST_EXEC=now(), NEXT_EXEC=DATE_ADD(NEXT_EXEC, INTERVAL " . $pPERIOD . " SECOND), DATE_CHECK=NULL WHERE ID=" . $arAgent["ID"];
} else {
$strSql = "UPDATE b_agent SET NAME='" . $DB->ForSQL($eval_result, 2000) . "', LAST_EXEC=now(), NEXT_EXEC=DATE_ADD(now(), INTERVAL " . $pPERIOD . " SECOND), DATE_CHECK=NULL WHERE ID=" . $arAgent["ID"];
}
}
$DB->Query($strSql);
}
return null;
}
function LocalRedirect($url, $skip_security_check = false, $status = "302 Found")
{
/** @global CMain $APPLICATION */
global $APPLICATION;
/** @global CDatabase $DB */
global $DB;
/*if(defined("DEMO") && DEMO=="Y" && (!defined("SITEEXPIREDATE") || !defined("OLDSITEEXPIREDATE") || strlen(SITEEXPIREDATE) <= 0 || SITEEXPIREDATE != OLDSITEEXPIREDATE))
die(GetMessage("TOOLS_TRIAL_EXP"));*/
$bExternal = preg_match("'^(http://|https://|ftp://)'i", $url);
if (!$bExternal && strpos($url, "/") !== 0) {
$url = $APPLICATION->GetCurDir() . $url;
}
//doubtful
$url = str_replace("&", "&", $url);
// http response splitting defence
$url = str_replace(array("\r", "\n"), "", $url);
if (!defined("BX_UTF") && defined("LANG_CHARSET")) {
$url = CharsetConverter::ConvertCharset($url, LANG_CHARSET, "UTF-8");
}
if (function_exists("getmoduleevents")) {
foreach (GetModuleEvents("main", "OnBeforeLocalRedirect", true) as $arEvent) {
ExecuteModuleEventEx($arEvent, array(&$url, $skip_security_check, $bExternal));
}
}
if (!$bExternal) {
//store cookies for next hit (see CMain::GetSpreadCookieHTML())
$APPLICATION->StoreCookies();
$host = $_SERVER['HTTP_HOST'];
if ($_SERVER['SERVER_PORT'] != 80 && $_SERVER['SERVER_PORT'] != 443 && $_SERVER['SERVER_PORT'] > 0 && strpos($_SERVER['HTTP_HOST'], ":") === false) {
$host .= ":" . $_SERVER['SERVER_PORT'];
}
$protocol = CMain::IsHTTPS() ? "https" : "http";
$url = $protocol . "://" . $host . $url;
}
CHTTP::SetStatus($status);
header("Location: " . $url);
if (function_exists("getmoduleevents")) {
foreach (GetModuleEvents("main", "OnLocalRedirect", true) as $arEvent) {
ExecuteModuleEventEx($arEvent);
}
}
$_SESSION["BX_REDIRECT_TIME"] = time();
CMain::ForkActions();
exit;
}
