private function updateStatisticModule($mid)
{
if (\CModule::IncludeModule("statistic")) {
$F_EVENT1 = $this->forum["EVENT1"];
$F_EVENT2 = $this->forum["EVENT2"];
$F_EVENT3 = $this->forum["EVENT3"];
if (empty($F_EVENT3)) {
$site = (array) \CForumNew::GetSites($this->forum["ID"]);
$F_EVENT3 = \CForumNew::PreparePath2Message(array_key_exists(SITE_ID, $site) ? $site[SITE_ID] : reset($site), array("FORUM_ID" => $this->forum["ID"], "TOPIC_ID" => $this->topic["ID"], "MESSAGE_ID" => $mid));
}
\CStatistics::Set_Event($F_EVENT1, $F_EVENT2, $F_EVENT3);
}
}
function ForumAddMessage($MESSAGE_TYPE, $FID, $TID, $MID, $arFieldsG, &$strErrorMessage, &$strOKMessage, $iFileSize = false, $captcha_word = "", $captcha_sid = 0, $captcha_code = "")
{
global $USER, $DB, $APPLICATION;
$APPLICATION->ResetException();
$aMsg = array();
$bUpdateTopic = False;
$bAddEditNote = $MESSAGE_TYPE == "EDIT";
$arParams = array("PERMISSION" => false);
$arUserGroups = $USER->GetUserGroupArray();
// ************ External Permission *********************************
if (!empty($arFieldsG["PERMISSION_EXTERNAL"])) {
$arParams["PERMISSION"] = CForumNew::GetUserPermission($FID, $arUserGroups);
$arParams["PERMISSION"] = $arParams["PERMISSION"] < "Q" ? $arFieldsG["PERMISSION_EXTERNAL"] : $arParams["PERMISSION"];
unset($arFieldsG["PERMISSION_EXTERNAL"]);
} elseif (!empty($arFieldsG["SONET_PERMS"])) {
$arParams["PERMISSION"] = CForumNew::GetUserPermission($FID, $arUserGroups);
if ($arParams["PERMISSION"] < "Q") {
if ($arFieldsG["SONET_PERMS"]["bCanFull"] === true) {
$arParams["PERMISSION"] = "Y";
} elseif ($arFieldsG["SONET_PERMS"]["bCanNew"] === true) {
$arParams["PERMISSION"] = "M";
} elseif ($arFieldsG["SONET_PERMS"]["bCanWrite"] === true) {
$arParams["PERMISSION"] = "I";
} else {
$arParams["PERMISSION"] = "A";
}
}
unset($arFieldsG["SONET_PERMS"]);
}
$DB->StartTransaction();
if (!in_array($MESSAGE_TYPE, array("NEW", "EDIT", "REPLY"))) {
$aMsg[] = array("id" => "MESSAGE_TYPE", "text" => GetMessage("ADDMES_NO_TYPE") . ".");
}
$MID = intval($MID);
$TID = intval($TID);
$FID = intval($FID);
$arFieldsG["EDIT_ADD_REASON"] = $arFieldsG["EDIT_ADD_REASON"] == "Y" ? "Y" : "N";
if ($MID > 0) {
$arMessage = CForumMessage::GetByID($MID, array("FILTER" => "N"));
if ($arMessage) {
$TID = IntVal($arMessage["TOPIC_ID"]);
$FID = IntVal($arMessage["FORUM_ID"]);
}
}
$arTopic = array();
if ($TID > 0) {
$arTopic = CForumTopic::GetByID($TID);
if ($arTopic) {
$FID = IntVal($arTopic["FORUM_ID"]);
}
}
$arForum = CForumNew::GetByID($FID);
//************************* Input params **************************************************************************
if ($MESSAGE_TYPE == "NEW" && !CForumTopic::CanUserAddTopic($FID, $arUserGroups, $USER->GetID(), $arForum, $arParams["PERMISSION"])) {
$aMsg[] = array("id" => "PERMISSION", "text" => GetMessage("ADDMESS_NO_PERMS2NEW") . ".");
} elseif ($MESSAGE_TYPE == "EDIT" && !CForumMessage::CanUserUpdateMessage($MID, $arUserGroups, $USER->GetID(), $arParams["PERMISSION"])) {
$aMsg[] = array("id" => "PERMISSION", "text" => GetMessage("ADDMESS_NO_PERMS2EDIT") . ".");
} elseif ($MESSAGE_TYPE == "REPLY" && !CForumMessage::CanUserAddMessage($TID, $arUserGroups, $USER->GetID(), $arParams["PERMISSION"])) {
$aMsg[] = array("id" => "PERMISSION", "text" => GetMessage("ADDMESS_NO_PERMS2REPLY") . ".");
}
if ($MESSAGE_TYPE == "NEW" || $MESSAGE_TYPE == "EDIT" && array_intersect_key($arFieldsG, array("TITLE" => "", "DESCRIPTION" => "", "ICON" => "", "TAGS" => "", "OWNER_ID" => "", "SOCNET_GROUP_ID" => "")) && CForumTopic::CanUserUpdateTopic($TID, $arUserGroups, $USER->GetID(), $arParams["PERMISSION"])) {
$bUpdateTopic = True;
}
if ($MESSAGE_TYPE == "EDIT" && (ForumCurrUserPermissions($FID, $arParams) > "Q" && $arFieldsG["EDIT_ADD_REASON"] == "N")) {
$bAddEditNote = false;
}
//*************************!CAPTCHA********************************************************************************
if (!$USER->IsAuthorized() && $arForum["USE_CAPTCHA"] == "Y") {
include_once $_SERVER["DOCUMENT_ROOT"] . "/bitrix/modules/main/classes/general/captcha.php";
$cpt = new CCaptcha();
if (strlen($captcha_code) > 0) {
$captchaPass = COption::GetOptionString("main", "captcha_password", "");
if (!$cpt->CheckCodeCrypt($captcha_word, $captcha_code, $captchaPass)) {
$aMsg[] = array("id" => "CAPTCHA", "text" => GetMessage("FORUM_POSTM_CAPTCHA") . ".");
}
} else {
if (!$cpt->CheckCode($captcha_word, $captcha_sid)) {
$aMsg[] = array("id" => "CAPTCHA", "text" => GetMessage("FORUM_POSTM_CAPTCHA") . ".");
}
}
}
//*************************!CAPTCHA********************************************************************************
$arFieldsG["POST_MESSAGE"] = trim($arFieldsG["POST_MESSAGE"]);
if (empty($arFieldsG["POST_MESSAGE"])) {
$aMsg[] = array("id" => "POST_MESSAGE", "text" => GetMessage("ADDMESS_INPUT_MESSAGE") . ".");
}
if ($bUpdateTopic && is_set($arFieldsG, "TITLE")) {
$arFieldsG["TITLE"] = trim($arFieldsG["TITLE"]);
if (empty($arFieldsG["TITLE"])) {
$aMsg[] = array("id" => "TITLE", "text" => GetMessage("ADDMESS_INPUT_TITLE") . ".");
}
}
//*************************!QUOTA**********************************************************************************
/* if (empty($aMsg))
{
$quota = new CDiskQuota();
if ($MESSAGE_TYPE=="EDIT")
{
if (!$quota->checkDiskQuota(strLen($arFieldsG["POST_MESSAGE"]) - strLen($arMessage["POST_MESSAGE"])))
{
if (!$quota->LAST_ERROR)
$aMsg[] = array("id" => "QUOTA", "text" => GetMessage("MAIN_QUOTA_BAD")."( ".COption::GetOptionInt("main", "disk_space")." ).");
else
$aMsg[] = array("id" => "QUOTA", "text" => $quota->LAST_ERROR);
}
}
elseif (!$quota->checkDiskQuota($arFieldsG["POST_MESSAGE"]))
{
if (!$quota->LAST_ERROR)
$aMsg[] = array("id" => "QUOTA", "text" => GetMessage("MAIN_QUOTA_BAD")."( ".COption::GetOptionInt("main", "disk_space")." ).");
else
$aMsg[] = array("id" => "QUOTA", "text" => $quota->LAST_ERROR);
}
}*/
//*************************!QUOTA**********************************************************************************
if (empty($aMsg)) {
// *************************!ATTACH_IMG*****************************************************************************
if (is_set($arFieldsG, "ATTACH_IMG") && empty($arFieldsG["ATTACH_IMG"]["name"]) && empty($arFieldsG["ATTACH_IMG"]["del"])) {
unset($arFieldsG["ATTACH_IMG"]);
}
if (is_set($arFieldsG, "ATTACH_IMG")) {
$arFieldsG["ATTACH_IMG"]["FILE_ID"] = $arMessage["ATTACH_IMG"];
$arFieldsG["FILES"] = array($arFieldsG["ATTACH_IMG"]);
}
unset($arFieldsG["ATTACH_IMG"]);
if (!empty($arFieldsG["FILES"]) && is_array($arFieldsG["FILES"])) {
foreach ($arFieldsG["FILES"] as $key => $val) {
if (intVal($val["FILE_ID"]) > 0) {
$arFieldsG["FILES"][$key]["del"] = $val["del"] == "Y" ? "Y" : "";
}
}
$res = array("FORUM_ID" => $arForum["ID"], "TOPIC_ID" => 0, "MESSAGE_ID" => 0, "USER_ID" => $USER->GetID());
if (!in_array($arForum["ALLOW_UPLOAD"], array("Y", "F", "A"))) {
unset($arFieldsG["FILES"]);
} elseif (!CForumFiles::CheckFields($arFieldsG["FILES"], $res, "NOT_CHECK_DB")) {
if ($ex = $APPLICATION->GetException()) {
$aMsg[] = array("id" => "FILE", "text" => $ex->GetString());
} else {
$aMsg[] = array("id" => "FILE", "text" => "File upload error.");
}
}
}
}
//*************************/ATTACH_IMG*****************************************************************************
if (empty($aMsg) && ($MESSAGE_TYPE == "NEW" || $MESSAGE_TYPE == "REPLY")) {
$AUTHOR_ID = IntVal($USER->GetParam("USER_ID"));
if ($USER->IsAuthorized()) {
$res = CForumUser::GetByUSER_ID($USER->GetID());
$bSHOW_NAME = !empty($res) ? $res["SHOW_NAME"] == "Y" : true;
$arFieldsG["AUTHOR_NAME"] = $bSHOW_NAME ? trim($USER->GetFullName()) : "";
$arFieldsG["AUTHOR_NAME"] = !empty($arFieldsG["AUTHOR_NAME"]) ? $arFieldsG["AUTHOR_NAME"] : $USER->GetLogin();
}
if (empty($arFieldsG["AUTHOR_NAME"])) {
$aMsg[] = array("id" => "AUTHOR_NAME", "text" => GetMessage("ADDMESS_INPUT_AUTHOR") . ".");
}
} elseif (empty($aMsg) && $MESSAGE_TYPE == "EDIT") {
$AUTHOR_ID = IntVal($arMessage["AUTHOR_ID"]);
if (is_set($arFieldsG, "AUTHOR_NAME") && empty($arFieldsG["AUTHOR_NAME"])) {
if ($AUTHOR_ID <= 0) {
$aMsg[] = array("id" => "AUTHOR_NAME", "text" => GetMessage("ADDMESS_INPUT_AUTHOR") . ".");
} else {
$res = CForumUser::GetByUSER_ID($AUTHOR_ID);
$bSHOW_NAME = !empty($res) ? $res["SHOW_NAME"] == "Y" : true;
if ($USER->GetID() == $AUTHOR_ID) {
$arFieldsG["AUTHOR_NAME"] = $bSHOW_NAME ? trim($USER->GetFullName()) : "";
$arFieldsG["AUTHOR_NAME"] = !empty($arFieldsG["AUTHOR_NAME"]) ? $arFieldsG["AUTHOR_NAME"] : $USER->GetLogin();
} else {
$res = CForumUser::GetByUSER_IDEx($AUTHOR_ID);
if ($res) {
$arFieldsG["AUTHOR_NAME"] = trim($bSHOW_NAME ? $res["NAME"] . " " . $res["LAST_NAME"] : "");
$arFieldsG["AUTHOR_NAME"] = !empty($arFieldsG["AUTHOR_NAME"]) ? $arFieldsG["AUTHOR_NAME"] : $res["LOGIN"];
} else {
unset($arFieldsG["AUTHOR_NAME"]);
}
}
}
}
if ($USER->IsAuthorized()) {
$res = CForumUser::GetByUSER_ID($USER->GetID());
$bSHOW_NAME = !empty($res) ? $res["SHOW_NAME"] == "Y" : true;
$arFieldsG["EDITOR_NAME"] = $bSHOW_NAME ? trim($USER->GetFullName()) : "";
$arFieldsG["EDITOR_NAME"] = !empty($arFieldsG["EDITOR_NAME"]) ? $arFieldsG["EDITOR_NAME"] : $USER->GetLogin();
}
if ($bAddEditNote && empty($arFieldsG["EDITOR_NAME"])) {
$aMsg[] = array("id" => "EDITOR_NAME", "text" => GetMessage("ADDMESS_INPUT_EDITOR") . ".");
}
}
//*************************/Input params ***************************************************************************
//************************* Actions ********************************************************************************
//************************* Add/edit topic *************************************************************************
if (empty($aMsg)) {
// The longest step by time. Actualization of topic, user and forum statistic info (~0.7-0.8 sec)
if ($MESSAGE_TYPE == "EDIT" && ($arMessage["APPROVED"] == "Y" || $arMessage["APPROVED"] == "N")) {
$arFieldsG["APPROVED"] = $arMessage["APPROVED"];
} elseif (!empty($arTopic) && $arTopic["APPROVED"] != "Y") {
$arFieldsG["APPROVED"] = "N";
} else {
$arFieldsG["APPROVED"] = $arForum["MODERATION"] == "Y" ? "N" : "Y";
if (ForumCurrUserPermissions($FID, $arParams) >= "Q") {
$arFieldsG["APPROVED"] = "Y";
}
}
if ($bUpdateTopic) {
$arFields = array();
foreach (array("TITLE", "TITLE_SEO", "DESCRIPTION", "ICON", "TAGS") as $key) {
if (is_set($arFieldsG, $key)) {
$arFields[$key] = $arFieldsG[$key];
}
}
if ($MESSAGE_TYPE == "NEW") {
$arFields["FORUM_ID"] = $FID;
$arFields["USER_START_ID"] = $AUTHOR_ID;
$arFields["USER_START_NAME"] = $arFieldsG["AUTHOR_NAME"];
$arFields["LAST_POSTER_NAME"] = $arFieldsG["AUTHOR_NAME"];
$arFields["APPROVED"] = $arFieldsG["APPROVED"];
$arFields["OWNER_ID"] = $arFieldsG["OWNER_ID"];
$arFields["SOCNET_GROUP_ID"] = $arFieldsG["SOCNET_GROUP_ID"];
if (is_set($arFieldsG, "TOPIC_XML_ID")) {
$arFields["XML_ID"] = $arFieldsG["TOPIC_XML_ID"];
}
$TID = CForumTopic::Add($arFields);
if (IntVal($TID) <= 0) {
$aMsg[] = array("id" => "TOPIC_ID", "text" => GetMessage("ADDMESS_ERROR_ADD_TOPIC") . ".");
}
} else {
if (is_set($arFieldsG, "AUTHOR_NAME")) {
if ($arTopic["LAST_MESSAGE_ID"] == $MID && $arMessage["LAST_POSTER_NAME"] != $arFieldsG["AUTHOR_NAME"]) {
$arFields["LAST_POSTER_NAME"] = $arFieldsG["AUTHOR_NAME"];
}
if ($arTopic["ABS_LAST_MESSAGE_ID"] == $MID && $arMessage["ABS_LAST_POSTER_NAME"] != $arFieldsG["AUTHOR_NAME"]) {
$arFields["ABS_LAST_POSTER_NAME"] = $arFieldsG["AUTHOR_NAME"];
}
if ($arTopic["USER_START_NAME"] == $arMessage["USER_START_NAME"] && $arTopic["USER_START_NAME"] != $arFieldsG["AUTHOR_NAME"]) {
$arFields["USER_START_NAME"] = $arFieldsG["AUTHOR_NAME"];
}
}
if (!empty($arFields)) {
$TID1 = CForumTopic::Update($TID, $arFields);
if (intval($TID1) <= 0) {
$aMsg[] = array("id" => "TOPIC_ID", "text" => GetMessage("ADDMESS_ERROR_EDIT_TOPIC") . ".");
} else {
foreach ($arFields as $key => $val) {
if ($arFields[$key] != $arTopic[$key]) {
$res_log[$key] = $arFields[$key];
$res_log["before" . $key] = $arTopic[$key];
}
}
if (!empty($res_log)) {
$arTopic = CForumTopic::GetByID($TID);
$res_log['FORUM_ID'] = $arTopic['FORUM_ID'];
CForumEventLog::Log("topic", "edit", $TID, serialize($res_log));
}
}
if (is_set($arFieldsG, "AUTHOR_NAME") && $arForum["LAST_MESSAGE_ID"] == $MID && $arForum["LAST_POSTER_NAME"] != $arFieldsG["AUTHOR_NAME"]) {
$arFieldsForum = array("LAST_POSTER_NAME" => $arFieldsG["AUTHOR_NAME"]);
if ($arForum["ABS_LAST_MESSAGE_ID"] == $MID) {
$arFieldsForum["LAST_POSTER_NAME"] = $arFieldsG["AUTHOR_NAME"];
}
CForumNew::Update($arForum["ID"], $arFieldsForum);
}
}
}
}
}
//*************************/Add/edit topic *************************************************************************
//************************* Add/edit message ***********************************************************************
if (empty($aMsg)) {
$arFields = array("POST_MESSAGE" => $arFieldsG["POST_MESSAGE"], "USE_SMILES" => $arFieldsG["USE_SMILES"] == "Y" ? "Y" : "N", "APPROVED" => $arFieldsG["APPROVED"]);
if (is_set($arFieldsG, "ATTACH_IMG")) {
$arFields["ATTACH_IMG"] = $arFieldsG["ATTACH_IMG"];
} elseif (is_set($arFieldsG, "FILES")) {
$arFields["FILES"] = $arFieldsG["FILES"];
}
if (is_set($arFieldsG, "PARAM1")) {
$arFields["PARAM1"] = $arFieldsG["PARAM1"];
}
if (is_set($arFieldsG, "PARAM2")) {
$arFields["PARAM2"] = $arFieldsG["PARAM2"];
}
/* elseif ($MESSAGE_TYPE != "NEW")
{
$db_res = CForumMessage::GetList(array(), array("TOPIC_ID" => $TID, "NEW_TOPIC" => "Y"));
if ($db_res && $res = $db_res->Fetch())
$res["PARAM2"] = $res["PARAM2"];
}*/
$GLOBALS["USER_FIELD_MANAGER"]->EditFormAddFields("FORUM_MESSAGE", $arFields);
if ($MESSAGE_TYPE == "NEW" || $MESSAGE_TYPE == "REPLY") {
$arFields["AUTHOR_NAME"] = $arFieldsG["AUTHOR_NAME"];
$arFields["AUTHOR_EMAIL"] = $arFieldsG["AUTHOR_EMAIL"];
$arFields["AUTHOR_ID"] = $AUTHOR_ID;
$arFields["FORUM_ID"] = $FID;
$arFields["TOPIC_ID"] = $TID;
$AUTHOR_IP = ForumGetRealIP();
$AUTHOR_IP_tmp = $AUTHOR_IP;
$AUTHOR_REAL_IP = $_SERVER['REMOTE_ADDR'];
if (COption::GetOptionString("forum", "FORUM_GETHOSTBYADDR", "N") == "Y") {
$AUTHOR_IP = @gethostbyaddr($AUTHOR_IP);
$AUTHOR_REAL_IP = $AUTHOR_IP_tmp == $AUTHOR_REAL_IP ? $AUTHOR_IP : @gethostbyaddr($AUTHOR_REAL_IP);
}
$arFields["AUTHOR_IP"] = $AUTHOR_IP !== False ? $AUTHOR_IP : "<no address>";
$arFields["AUTHOR_REAL_IP"] = $AUTHOR_REAL_IP !== False ? $AUTHOR_REAL_IP : "<no address>";
$arFields["NEW_TOPIC"] = $MESSAGE_TYPE == "NEW" ? "Y" : "N";
$arFields["GUEST_ID"] = $_SESSION["SESS_GUEST_ID"];
$MID = CForumMessage::Add($arFields, false);
if (intVal($MID) <= 0) {
$str = $APPLICATION->GetException();
if ($str && $str->GetString()) {
$aMsg[] = array("id" => "MESSAGE_ID", "text" => $str->GetString());
} else {
$aMsg[] = array("id" => "MESSAGE_ID", "text" => GetMessage("ADDMESS_ERROR_ADD_MESSAGE") . ".");
}
if ($MESSAGE_TYPE == "NEW") {
CForumTopic::Delete($TID);
$TID = 0;
}
}
} else {
if (empty($AUTHOR_ID)) {
if (is_set($arFieldsG, "AUTHOR_NAME")) {
$arFields["AUTHOR_NAME"] = $arFieldsG["AUTHOR_NAME"];
}
if (is_set($arFieldsG, "AUTHOR_EMAIL")) {
$arFields["AUTHOR_EMAIL"] = $arFieldsG["AUTHOR_EMAIL"];
}
}
if ($bAddEditNote) {
$arFields["EDITOR_NAME"] = $arFieldsG["EDITOR_NAME"];
$arFields["EDITOR_EMAIL"] = $arFieldsG["EDITOR_EMAIL"];
$arFields["EDIT_REASON"] = $arFieldsG["EDIT_REASON"];
$arFields["EDIT_DATE"] = "";
if ($GLOBALS["USER"]->IsAuthorized()) {
$arFields["EDITOR_ID"] = $GLOBALS["USER"]->GetID();
}
}
$MID1 = CForumMessage::Update($MID, $arFields);
if (IntVal($MID1) <= 0) {
$ex = $GLOBALS['APPLICATION']->GetException();
if ($ex) {
$aMsg[] = array("id" => "MESSAGE_ID", "text" => $ex->GetString());
} else {
$aMsg[] = array("id" => "MESSAGE_ID", "text" => GetMessage("ADDMESS_ERROR_EDIT_MESSAGE") . ".");
}
} elseif ($AUTHOR_ID == $GLOBALS["USER"]->GetId() && COption::GetOptionString("forum", "LOGS", "Q") < "U") {
} else {
$res_log = array();
foreach ($arFields as $key => $val) {
if ($arFields[$key] != $arMessage[$key]) {
if ($key == "FILES" || $key == "ATTACH_IMG") {
$res_log[$key] = GetMessage("F_ATTACH_IS_MODIFIED");
continue;
}
$res_log["BeforeMessage"] = $arMessage[$key];
$res_log["AfterMessage"] = $arFields[$key];
}
}
if (!empty($res_log)) {
$arMessage = CForumMessage::GetByID($MID);
$TID = $arMessage['TOPIC_ID'];
$res_log['FORUM_ID'] = $arMessage['FORUM_ID'];
$arTopic = CForumTopic::GetByID($TID);
$res_log['TITLE'] = $arTopic['TITLE'];
$res_log['TOPIC_ID'] = $TID;
$res_log = serialize($res_log);
CForumEventLog::Log("message", "edit", $MID, $res_log);
}
}
}
}
//*************************/Add/edit message ***********************************************************************
if (empty($aMsg)) {
$DB->Commit();
} else {
$DB->Rollback();
}
if (empty($aMsg) && CModule::IncludeModule("statistic")) {
$F_EVENT1 = $arForum["EVENT1"];
$F_EVENT2 = $arForum["EVENT2"];
$F_EVENT3 = $arForum["EVENT3"];
if (empty($F_EVENT3)) {
$arForumSite_tmp = CForumNew::GetSites($FID);
if (defined("ADMIN_SECTION") && ADMIN_SECTION === true) {
$arForumSiteCode_tmp = array_keys($arForumSite_tmp);
$F_EVENT3 = CForumNew::PreparePath2Message(empty($arForumSite_tmp[$arForumSiteCode_tmp[0]]) ? '' : $arForumSite_tmp[$arForumSiteCode_tmp[0]], array("FORUM_ID" => $FID, "TOPIC_ID" => $TID, "MESSAGE_ID" => $MID));
} else {
$F_EVENT3 = CForumNew::PreparePath2Message(empty($arForumSite_tmp[SITE_ID]) ? '' : $arForumSite_tmp[SITE_ID], array("FORUM_ID" => $FID, "TOPIC_ID" => $TID, "MESSAGE_ID" => $MID));
}
}
CStatistics::Set_Event($F_EVENT1, $F_EVENT2, $F_EVENT3);
}
if (empty($aMsg)) {
$arNote = array();
if ($MESSAGE_TYPE == "NEW" || $MESSAGE_TYPE == "REPLY") {
CForumMessage::SendMailMessage($MID, array(), false, "NEW_FORUM_MESSAGE");
$arNote = array("id" => $MESSAGE_TYPE, "text" => GetMessage("ADDMESS_SUCCESS_ADD") . ". \n");
} else {
CForumMessage::SendMailMessage($MID, array(), false, "EDIT_FORUM_MESSAGE");
$arNote = array("id" => "EDIT", "text" => GetMessage("ADDMESS_SUCCESS_EDIT") . ". \n");
}
if ($arFieldsG["APPROVED"] != "Y") {
$arNote["id"] .= "_NOT_APPROVED";
$arNote["text"] .= GetMessage("ADDMESS_AFTER_MODERATE") . ". \n";
}
if (is_array($strOKMessage)) {
$strOKMessage[] = $arNote;
} else {
$strOKMessage .= $arNote["text"];
}
return $MID;
}
$e = new CAdminException($aMsg);
$strErrorMessage = $e->GetString();
return false;
}
function ReallyKeep()
{
global $USER, $APPLICATION, $STOP_SAVE_STATISTIC, $STOP_MESSAGE, $STOP_REDIRECT_URL, $STOP, $STOP_LIST_ID, $STOP_MESSAGE_LID;
$DB = CDatabase::GetModuleConnection('statistic');
$SITE_ID = "";
if (defined("ADMIN_SECTION") && ADMIN_SECTION === true) {
$sql_site = "null";
} elseif (defined("SITE_ID")) {
$sql_site = "'" . $DB->ForSql(SITE_ID, 2) . "'";
$SITE_ID = SITE_ID;
} else {
$sql_site = "null";
}
$ADV_NA = COption::GetOptionString("statistic", "ADV_NA");
__SetReferer("referer1", "REFERER1_SYN");
__SetReferer("referer2", "REFERER2_SYN");
__SetReferer("referer3", "REFERER3_SYN");
$SAVE_HITS = COption::GetOptionString("statistic", "SAVE_HITS") == "N" ? "N" : "Y";
$SAVE_VISITS = COption::GetOptionString("statistic", "SAVE_VISITS") == "N" ? "N" : "Y";
$SAVE_REFERERS = COption::GetOptionString("statistic", "SAVE_REFERERS") == "N" ? "N" : "Y";
$SAVE_PATH_DATA = COption::GetOptionString("statistic", "SAVE_PATH_DATA") == "N" ? "N" : "Y";
$stmp = time();
$hour = date("G", $stmp);
// 0..23
$weekday = date("w", $stmp);
// 0..6
if ($weekday == 0) {
$weekday = 7;
}
$month = date("n", $stmp);
// 1..12
if ($STOP_SAVE_STATISTIC != "N" or $STOP != "Y") {
if (isset($_SESSION["SESS_ADD_TO_FAVORITES"]) && $_SESSION["SESS_ADD_TO_FAVORITES"] == "Y") {
$FAVORITES = "Y";
$_SESSION["SESS_ADD_TO_FAVORITES"] = "";
} else {
$FAVORITES = "N";
}
$ERROR_404 = defined("ERROR_404") && ERROR_404 == "Y" ? "Y" : "N";
$DB_now = $DB->GetNowFunction();
// save function for use in sql
$DB_now_date = $DB->GetNowDate();
// save function for use in sql
$STOP_LIST_ID = intval($STOP_LIST_ID);
if ($ERROR_404 == "Y") {
init_get_params($APPLICATION->GetCurUri());
}
$IS_USER_AUTHORIZED = intval($_SESSION["SESS_LAST_USER_ID"]) > 0 && is_object($USER) && $USER->IsAuthorized() ? "Y" : "N";
stat_session_register("SESS_SEARCHER_ID");
stat_session_register("SESS_SEARCHER_NAME");
stat_session_register("SESS_SEARCHER_CHECK_ACTIVITY");
stat_session_register("SESS_SEARCHER_SAVE_STATISTIC");
stat_session_register("SESS_SEARCHER_HIT_KEEP_DAYS");
stat_session_register("SESS_LAST_PROTOCOL");
stat_session_register("SESS_LAST_URI");
stat_session_register("SESS_LAST_HOST");
stat_session_register("SESS_LAST_PAGE");
stat_session_register("SESS_LAST_DIR");
stat_session_register("SESS_HTTP_REFERER");
stat_session_register("SESS_COUNTRY_ID");
stat_session_register("SESS_CITY_ID");
stat_session_register("SESS_SESSION_ID");
stat_session_register("SESS_REFERER_ID");
stat_session_register("FROM_SEARCHER_ID");
stat_session_register("SESS_FROM_SEARCHERS");
stat_session_register("SESS_REQUEST_URI_CHANGE");
stat_session_register("SESS_LAST_DIR_ID");
stat_session_register("SESS_LAST_PAGE_ID");
stat_session_register("SESS_GRABBER_STOP_TIME");
stat_session_register("SESS_GRABBER_DEFENCE_STACK");
stat_session_register("ACTIVITY_EXCEEDING_NOTIFIED");
// SESSION_DATA_ID will be false when there is no sessions stored
// true when session was not found in database
// and an integer when was found and populated to $SESSION array
$SESSION_DATA_ID = CKeepStatistics::RestoreSession();
// Let's check activity limit
$BLOCK_ACTIVITY = CStatistics::BlockVisitorActivity();
// Activity under the limit
if (!$BLOCK_ACTIVITY) {
//Check if searcher was not deleted from searchers list
if (intval($_SESSION["SESS_SEARCHER_ID"]) > 0) {
$strSql = "\n\t\t\t\t\t\tSELECT ID\n\t\t\t\t\t\tFROM b_stat_searcher\n\t\t\t\t\t\tWHERE ID = '" . intval($_SESSION["SESS_SEARCHER_ID"]) . "'\n\t\t\t\t\t";
$z = $DB->Query($strSql, false, "File: " . __FILE__ . "<br>Line: " . __LINE__);
if (!$z->Fetch()) {
unset($_SESSION["SESS_SEARCHER_ID"]);
}
}
// We did not check for searcher
if (strlen($_SESSION["SESS_SEARCHER_ID"]) <= 0) {
// is it searcher hit?
$strSql = "\n\t\t\t\t\t\tSELECT\n\t\t\t\t\t\t\tID, NAME, SAVE_STATISTIC, HIT_KEEP_DAYS, CHECK_ACTIVITY\n\t\t\t\t\t\tFROM\n\t\t\t\t\t\t\tb_stat_searcher\n\t\t\t\t\t\tWHERE\n\t\t\t\t\t\t\tACTIVE = 'Y'\n\t\t\t\t\t\tand " . $DB->Length("USER_AGENT") . ">0\n\t\t\t\t\t\tand upper('" . $DB->ForSql($_SERVER["HTTP_USER_AGENT"], 500) . "') like " . $DB->Concat("'%'", "upper(USER_AGENT)", "'%'") . "\n\t\t\t\t\t\tORDER BY " . $DB->Length("USER_AGENT") . " desc, ID\n\t\t\t\t\t\t";
$z = $DB->Query($strSql, false, "File: " . __FILE__ . "<br>Line: " . __LINE__);
if ($zr = $z->Fetch()) {
$_SESSION["SESS_SEARCHER_ID"] = intval($zr["ID"]);
$_SESSION["SESS_SEARCHER_NAME"] = $zr["NAME"];
$_SESSION["SESS_SEARCHER_CHECK_ACTIVITY"] = $zr["CHECK_ACTIVITY"];
$_SESSION["SESS_SEARCHER_SAVE_STATISTIC"] = $zr["SAVE_STATISTIC"];
$_SESSION["SESS_SEARCHER_HIT_KEEP_DAYS"] = $zr["HIT_KEEP_DAYS"];
//Here was warning "A session is active. You cannot change the session module's ini settings at this time."
//@ini_set("url_rewriter.tags", "");
}
$_SESSION["SESS_SEARCHER_ID"] = intval($_SESSION["SESS_SEARCHER_ID"]);
}
/************************************************
Searcher section
************************************************/
// searcher detected
if (intval($_SESSION["SESS_SEARCHER_ID"]) > 0) {
$_SESSION["SESS_SEARCHER_ID"] = intval($_SESSION["SESS_SEARCHER_ID"]);
// let's update day counter
$arFields = array("DATE_LAST" => $DB_now, "TOTAL_HITS" => "TOTAL_HITS + 1");
$rows = $DB->Update("b_stat_searcher_day", $arFields, "WHERE SEARCHER_ID='" . $_SESSION["SESS_SEARCHER_ID"] . "' and DATE_STAT=" . $DB_now_date, "File: " . __FILE__ . "<br>Line: " . __LINE__, false, false, false);
// there is no stat for the day yet
if (intval($rows) <= 0) {
// add it
$arFields_i = array("DATE_STAT" => $DB_now_date, "DATE_LAST" => $DB_now, "SEARCHER_ID" => $_SESSION["SESS_SEARCHER_ID"], "TOTAL_HITS" => 1);
$DB->Insert("b_stat_searcher_day", $arFields_i, "File: " . __FILE__ . "<br>Line: " . __LINE__);
} elseif (intval($rows) > 1) {
$strSql = "SELECT ID FROM b_stat_searcher_day WHERE SEARCHER_ID='" . $_SESSION["SESS_SEARCHER_ID"] . "' and DATE_STAT=" . $DB_now_date . " ORDER BY ID";
$i = 0;
$rs = $DB->Query($strSql, false, "File: " . __FILE__ . "<br>Line: " . __LINE__);
while ($ar = $rs->Fetch()) {
$i++;
if ($i > 1) {
$strSql = "DELETE FROM b_stat_searcher_day WHERE ID = " . $ar["ID"];
$DB->Query($strSql, false, "File: " . __FILE__ . "<br>Line: " . __LINE__);
}
}
}
// save indexed page if neccessary
if ($_SESSION["SESS_SEARCHER_SAVE_STATISTIC"] == "Y") {
$sql_HIT_KEEP_DAYS = strlen($_SESSION["SESS_SEARCHER_HIT_KEEP_DAYS"]) > 0 ? intval($_SESSION["SESS_SEARCHER_HIT_KEEP_DAYS"]) : "null";
$arFields = array("DATE_HIT" => $DB_now, "SEARCHER_ID" => intval($_SESSION["SESS_SEARCHER_ID"]), "URL" => "'" . $DB->ForSql(__GetFullRequestUri(), 2000) . "'", "URL_404" => "'" . $ERROR_404 . "'", "IP" => "'" . $DB->ForSql($_SERVER["REMOTE_ADDR"], 15) . "'", "USER_AGENT" => "'" . $DB->ForSql($_SERVER["HTTP_USER_AGENT"], 500) . "'", "HIT_KEEP_DAYS" => $sql_HIT_KEEP_DAYS, "SITE_ID" => $sql_site);
$id = $DB->Insert("b_stat_searcher_hit", $arFields, "File: " . __FILE__ . "<br>Line: " . __LINE__);
if ($ERROR_404 == "N") {
CStatistics::Set404("b_stat_searcher_hit", "ID = " . intval($id), array("URL_404" => "Y"));
}
}
} else {
/************************************************
Visitor section
************************************************/
/************************************************
Variables which describe current page
************************************************/
$CURRENT_DIR = __GetCurrentDir();
$CURRENT_PAGE = __GetCurrentPage();
$CURRENT_PROTOCOL = CMain::IsHTTPS() ? "https://" : "http://";
// protocol
$CURRENT_PORT = $_SERVER["SERVER_PORT"];
// port
$CURRENT_HOST = $_SERVER["HTTP_HOST"];
// domain
$CURRENT_PAGE = __GetFullRequestUri($CURRENT_PAGE);
// w/o parameters
$CURRENT_URI = __GetFullRequestUri();
// with params
$CURRENT_DIR = __GetFullRequestUri($CURRENT_DIR);
// catalog
/************************************************
Country detection
************************************************/
if (strlen($_SESSION["SESS_COUNTRY_ID"]) <= 0) {
$obCity = new CCity();
$_SESSION["SESS_COUNTRY_ID"] = $obCity->GetCountryCode();
$_SESSION["SESS_CITY_ID"] = $obCity->GetCityID();
}
/************************************************
IP => number
************************************************/
$REMOTE_ADDR_NUMBER = ip2number($_SERVER["REMOTE_ADDR"]);
/************************************************
Advertising campaign
************************************************/
CStatistics::Set_Adv();
/************************************************
Guest ID detection
************************************************/
$arGuest = CStatistics::Set_Guest();
// Setup default advertising campaign
if ($ADV_NA == "Y" && intval($_SESSION["SESS_ADV_ID"]) <= 0 && intval($_SESSION["SESS_LAST_ADV_ID"]) <= 0) {
$_SESSION["referer1"] = COption::GetOptionString("statistic", "AVD_NA_REFERER1");
$_SESSION["referer2"] = COption::GetOptionString("statistic", "AVD_NA_REFERER2");
CStatistics::Set_Adv();
$arGuest = CStatistics::Set_Guest();
}
/************************************************
Session section
************************************************/
$_SESSION["SESS_SESSION_ID"] = intval($_SESSION["SESS_SESSION_ID"]);
//session already exists
if ($_SESSION["SESS_SESSION_ID"] > 0) {
$SESSION_NEW = "N";
// update
$arFields = array("USER_ID" => intval($_SESSION["SESS_LAST_USER_ID"]), "USER_AUTH" => "'" . $IS_USER_AUTHORIZED . "'", "USER_AGENT" => "'" . $DB->ForSql($_SERVER["HTTP_USER_AGENT"], 500) . "'", "DATE_LAST" => $DB_now, "IP_LAST" => "'" . $DB->ForSql($_SERVER["REMOTE_ADDR"], 15) . "'", "IP_LAST_NUMBER" => $REMOTE_ADDR_NUMBER, "HITS" => "HITS + 1");
$rows = $DB->Update("b_stat_session", $arFields, "WHERE ID='" . $_SESSION["SESS_SESSION_ID"] . "'", "File: " . __FILE__ . "<br>Line: " . __LINE__);
// was cleaned up
if (intval($rows) <= 0) {
// store as new
$_SESSION["SESS_SESSION_ID"] = 0;
if ($ADV_NA == "Y" && intval($_SESSION["SESS_ADV_ID"]) <= 0 && intval($_SESSION["SESS_LAST_ADV_ID"]) <= 0) {
$_SESSION["referer1"] = COption::GetOptionString("statistic", "AVD_NA_REFERER1");
$_SESSION["referer2"] = COption::GetOptionString("statistic", "AVD_NA_REFERER2");
}
CStatistics::Set_Adv();
$arGuest = CStatistics::Set_Guest();
}
}
// it is new session
if ($_SESSION["SESS_SESSION_ID"] <= 0) {
$SESSION_NEW = "Y";
// save session data
$arFields = array("GUEST_ID" => intval($_SESSION["SESS_GUEST_ID"]), "NEW_GUEST" => "'" . $DB->ForSql($_SESSION["SESS_GUEST_NEW"]) . "'", "USER_ID" => intval($_SESSION["SESS_LAST_USER_ID"]), "USER_AUTH" => "'" . $DB->ForSql($IS_USER_AUTHORIZED) . "'", "URL_FROM" => "'" . $DB->ForSql($_SERVER["HTTP_REFERER"], 2000) . "'", "URL_TO" => "'" . $DB->ForSql($CURRENT_URI, 2000) . "'", "URL_TO_404" => "'" . $DB->ForSql($ERROR_404) . "'", "URL_LAST" => "'" . $DB->ForSql($CURRENT_URI, 2000) . "'", "URL_LAST_404" => "'" . $DB->ForSql($ERROR_404) . "'", "USER_AGENT" => "'" . $DB->ForSql($_SERVER["HTTP_USER_AGENT"], 500) . "'", "DATE_STAT" => $DB_now_date, "DATE_FIRST" => $DB_now, "DATE_LAST" => $DB_now, "IP_FIRST" => "'" . $DB->ForSql($_SERVER["REMOTE_ADDR"], 15) . "'", "IP_FIRST_NUMBER" => "'" . $DB->ForSql($REMOTE_ADDR_NUMBER) . "'", "IP_LAST" => "'" . $DB->ForSql($_SERVER["REMOTE_ADDR"], 15) . "'", "IP_LAST_NUMBER" => "'" . $DB->ForSql($REMOTE_ADDR_NUMBER) . "'", "PHPSESSID" => "'" . $DB->ForSql(session_id(), 255) . "'", "STOP_LIST_ID" => "'" . $DB->ForSql($STOP_LIST_ID) . "'", "COUNTRY_ID" => "'" . $DB->ForSql($_SESSION["SESS_COUNTRY_ID"], 2) . "'", "CITY_ID" => $_SESSION["SESS_CITY_ID"] > 0 ? intval($_SESSION["SESS_CITY_ID"]) : "null", "ADV_BACK" => "null", "FIRST_SITE_ID" => $sql_site, "LAST_SITE_ID" => $sql_site, "HITS" => 1);
// campaign?
if (intval($_SESSION["SESS_ADV_ID"]) > 0) {
$arFields["ADV_ID"] = intval($_SESSION["SESS_ADV_ID"]);
$arFields["ADV_BACK"] = "'N'";
$arFields["REFERER1"] = "'" . $DB->ForSql($_SESSION["referer1"], 255) . "'";
$arFields["REFERER2"] = "'" . $DB->ForSql($_SESSION["referer2"], 255) . "'";
$arFields["REFERER3"] = "'" . $DB->ForSql($_SESSION["referer3"], 255) . "'";
} elseif (intval($_SESSION["SESS_LAST_ADV_ID"]) > 0) {
$arFields["ADV_ID"] = intval($_SESSION["SESS_LAST_ADV_ID"]);
$arFields["ADV_BACK"] = "'Y'";
$arFields["REFERER1"] = "'" . $DB->ForSql($arGuest["last_referer1"], 255) . "'";
$arFields["REFERER2"] = "'" . $DB->ForSql($arGuest["last_referer2"], 255) . "'";
}
// look for the same IP?
$day_host_counter = 1;
$day_host_counter_site = strlen($SITE_ID) > 0 ? 1 : 0;
$strSql = "\n\t\t\t\t\t\t\tSELECT S.FIRST_SITE_ID\n\t\t\t\t\t\t\tFROM b_stat_session S\n\t\t\t\t\t\t\tWHERE S.IP_FIRST_NUMBER = " . $REMOTE_ADDR_NUMBER . "\n\t\t\t\t\t\t\t\tAND S.DATE_STAT=" . $DB_now_date . "\n\t\t\t\t\t\t";
$e = $DB->Query($strSql, false, "File: " . __FILE__ . "<br>Line: " . __LINE__);
while ($er = $e->Fetch()) {
$day_host_counter = 0;
if ($SITE_ID == $er["FIRST_SITE_ID"]) {
$day_host_counter_site = 0;
break;
}
}
$_SESSION["SESS_SESSION_ID"] = intval($DB->Insert("b_stat_session", $arFields, "File: " . __FILE__ . "<br>Line: " . __LINE__));
if ($ERROR_404 == "N") {
CStatistics::Set404("b_stat_session", "ID = " . $_SESSION["SESS_SESSION_ID"], array("URL_TO_404" => "Y", "URL_LAST_404" => "Y"));
}
$day_guest_counter = 0;
$new_guest_counter = 0;
// new guest
if ($_SESSION["SESS_GUEST_NEW"] == "Y") {
// update day statistic
$day_guest_counter = 1;
$new_guest_counter = 1;
} else {
// first hit for today
if ($_SESSION["SESS_LAST"] != "Y") {
// update day statistic
$day_guest_counter = 1;
$_SESSION["SESS_LAST"] = "Y";
}
}
// update day counter
$arFields = array("SESSIONS" => 1, "C_HOSTS" => intval($day_host_counter), "GUESTS" => intval($day_guest_counter), "NEW_GUESTS" => intval($new_guest_counter), "SESSION" => 1, "HOST" => intval($day_host_counter), "GUEST" => intval($day_guest_counter), "NEW_GUEST" => intval($new_guest_counter));
// when current day is already exists
// we have to update it
$rows = CTraffic::IncParam($arFields);
if ($rows !== false && $rows <= 0) {
// add new one
CStatistics::SetNewDay(1, 0, 1, 0, intval($new_guest_counter), 1);
// and update it
CTraffic::IncParam(array("SESSION" => 1, "HOST" => 1, "GUEST" => 1, "NEW_GUEST" => intval($new_guest_counter)));
}
// site is not defined
if (strlen($SITE_ID) > 0) {
// обновляем счетчик "по дням" для текущего сайта
$arFields = array("SESSIONS" => 1, "C_HOSTS" => intval($day_host_counter_site), "SESSION" => 1, "HOST" => intval($day_host_counter_site));
// обновим счетчики траффика для текущего дня
$rows = CTraffic::IncParam(array(), $arFields, $SITE_ID);
// если текущего дня для сайта в базе еще нет то
if ($rows !== false && intval($rows) <= 0) {
// добавляем его
CStatistics::SetNewDayForSite($SITE_ID, 1, 0, 1);
// обновим счетчики траффика для текущего дня
CTraffic::IncParam(array(), array("SESSION" => 1, "HOST" => 1), $SITE_ID);
}
}
// если страна определена то
if (strlen($_SESSION["SESS_COUNTRY_ID"]) > 0) {
$arFields = array("SESSIONS" => 1, "NEW_GUESTS" => $new_guest_counter);
CStatistics::UpdateCountry($_SESSION["SESS_COUNTRY_ID"], $arFields);
}
if ($_SESSION["SESS_CITY_ID"] > 0) {
$arFields = array("SESSIONS" => 1, "NEW_GUESTS" => $new_guest_counter);
CStatistics::UpdateCity($_SESSION["SESS_CITY_ID"], $arFields);
}
// обновляем гостя
$arFields = array("SESSIONS" => "SESSIONS + 1", "LAST_SESSION_ID" => $_SESSION["SESS_SESSION_ID"], "LAST_USER_AGENT" => "'" . $DB->ForSql($_SERVER["HTTP_USER_AGENT"], 500) . "'", "LAST_COUNTRY_ID" => "'" . $DB->ForSql($_SESSION["SESS_COUNTRY_ID"], 2) . "'", "LAST_CITY_ID" => $_SESSION["SESS_CITY_ID"] > 0 ? intval($_SESSION["SESS_CITY_ID"]) : "null");
//
if ($obCity) {
$arFields["LAST_CITY_INFO"] = "'" . $obCity->ForSQL() . "'";
}
// если это прямой заход по рекламной кампании то
if (intval($_SESSION["SESS_ADV_ID"]) > 0) {
// обновляем рекламную кампанию последнего захода гостя
$arFields["LAST_ADV_ID"] = intval($_SESSION["SESS_ADV_ID"]);
$arFields["LAST_ADV_BACK"] = "'N'";
$arFields["LAST_REFERER1"] = "'" . $DB->ForSql($_SESSION["referer1"], 255) . "'";
$arFields["LAST_REFERER2"] = "'" . $DB->ForSql($_SESSION["referer2"], 255) . "'";
$arFields["LAST_REFERER3"] = "'" . $DB->ForSql($_SESSION["referer3"], 255) . "'";
} elseif (intval($_SESSION["SESS_LAST_ADV_ID"]) > 0) {
// взводим флаг возврата на последнем заходе гостя
$arFields["LAST_ADV_BACK"] = "'Y'";
$arFields["LAST_REFERER1"] = "'" . $DB->ForSql($arGuest["last_referer1"], 255) . "'";
$arFields["LAST_REFERER2"] = "'" . $DB->ForSql($arGuest["last_referer2"], 255) . "'";
}
if ($_SESSION["SESS_GUEST_NEW"] == "Y") {
$arFields["FIRST_SESSION_ID"] = $_SESSION["SESS_SESSION_ID"];
}
$rows = $DB->Update("b_stat_guest", $arFields, "WHERE ID=" . intval($_SESSION["SESS_GUEST_ID"]), "File: " . __FILE__ . "<br>Line: " . __LINE__, false, false, false);
// обновляем рекламные кампании
if (intval($_SESSION["SESS_ADV_ID"]) > 0 || intval($_SESSION["SESS_LAST_ADV_ID"]) > 0) {
CStatistics::Update_Adv();
}
/************************************************
Referring sites
************************************************/
if ($SAVE_REFERERS != "N" && __GetReferringSite($PROT, $SN, $SN_WithoutPort, $PAGE_FROM) && strlen($SN) > 0 && $SN != $_SERVER["HTTP_HOST"]) {
$REFERER_LIST_ID = CStatistics::GetRefererListID($PROT, $SN, $PAGE_FROM, $CURRENT_URI, $ERROR_404, $sql_site);
/************************************************
Search phrases
************************************************/
if (substr($SN, 0, 4) == "www.") {
$sql = "('" . $DB->ForSql(substr($SN, 4), 255) . "' like P.DOMAIN or '" . $DB->ForSql($SN, 255) . "' like P.DOMAIN)";
} else {
$sql = "'" . $DB->ForSql($SN, 255) . "' like P.DOMAIN";
}
$strSql = "\n\t\t\t\t\t\t\t\tSELECT\n\t\t\t\t\t\t\t\t\tS.ID,\n\t\t\t\t\t\t\t\t\tS.NAME,\n\t\t\t\t\t\t\t\t\tP.DOMAIN,\n\t\t\t\t\t\t\t\t\tP.VARIABLE,\n\t\t\t\t\t\t\t\t\tP.CHAR_SET\n\t\t\t\t\t\t\t\tFROM\n\t\t\t\t\t\t\t\t\tb_stat_searcher S,\n\t\t\t\t\t\t\t\t\tb_stat_searcher_params P\n\t\t\t\t\t\t\t\tWHERE\n\t\t\t\t\t\t\t\t\tS.ACTIVE='Y'\n\t\t\t\t\t\t\t\tand\tP.SEARCHER_ID = S.ID\n\t\t\t\t\t\t\t\tand\t" . $sql . "\n\t\t\t\t\t\t\t";
$q = $DB->Query($strSql, false, "File: " . __FILE__ . "<br>Line: " . __LINE__);
if ($qr = $q->Fetch()) {
$_SESSION["FROM_SEARCHER_ID"] = $qr["ID"];
$FROM_SEARCHER_NAME = $qr["NAME"];
$FROM_SEARCHER_PHRASE = "";
if (strlen($qr["VARIABLE"]) > 0) {
$page = substr($PAGE_FROM, strpos($PAGE_FROM, "?") + 1);
$bIsUTF8 = is_utf8_url($page);
parse_str($page, $arr);
$arrVar = explode(",", $qr["VARIABLE"]);
foreach ($arrVar as $var) {
$var = trim($var);
$phrase = $arr[$var];
if (get_magic_quotes_gpc()) {
$phrase = stripslashes($phrase);
}
if ($bIsUTF8) {
$phrase_temp = trim($APPLICATION->ConvertCharset($phrase, "utf-8", LANG_CHARSET));
if (strlen($phrase_temp)) {
$phrase = $phrase_temp;
}
} elseif (strlen($qr["CHAR_SET"]) > 0) {
$phrase_temp = trim($APPLICATION->ConvertCharset($phrase, $qr["CHAR_SET"], LANG_CHARSET));
if (strlen($phrase_temp)) {
$phrase = $phrase_temp;
}
}
$phrase = trim($phrase);
if (strlen($phrase)) {
$FROM_SEARCHER_PHRASE .= strlen($FROM_SEARCHER_PHRASE) > 0 ? " / " . $phrase : $phrase;
}
}
}
//echo "FROM_SEARCHER_PHRASE = ".$FROM_SEARCHER_PHRASE."<br>\n";
// если извлекли поисковую фразу, то занесем ее в базу
if (strlen($FROM_SEARCHER_PHRASE) > 0) {
$arFields = array("DATE_HIT" => $DB_now, "SEARCHER_ID" => intval($_SESSION["FROM_SEARCHER_ID"]), "REFERER_ID" => $REFERER_LIST_ID, "PHRASE" => "'" . $DB->ForSql($FROM_SEARCHER_PHRASE, 255) . "'", "URL_FROM" => "'" . $DB->ForSql($PROT . $SN . $PAGE_FROM, 2000) . "'", "URL_TO" => "'" . $DB->ForSql($CURRENT_URI, 2000) . "'", "URL_TO_404" => "'" . $ERROR_404 . "'", "SESSION_ID" => $_SESSION["SESS_SESSION_ID"], "SITE_ID" => $sql_site);
$id = $DB->Insert("b_stat_phrase_list", $arFields, "File: " . __FILE__ . "<br>Line: " . __LINE__);
if ($ERROR_404 == "N") {
CStatistics::Set404("b_stat_phrase_list", "ID = " . intval($id), array("URL_TO_404" => "Y"));
}
// запомним поисковую фразу в сессии
$_SESSION["SESS_SEARCH_PHRASE"] = $FROM_SEARCHER_PHRASE;
// увеличим счетчик фраз у поисковой системы
$_SESSION["SESS_FROM_SEARCHERS"][] = $_SESSION["FROM_SEARCHER_ID"];
$arFields = array("PHRASES" => "PHRASES + 1");
$rows = $DB->Update("b_stat_searcher", $arFields, "WHERE ID=" . intval($_SESSION["FROM_SEARCHER_ID"]), "File: " . __FILE__ . "<br>Line: " . __LINE__, false, false, false);
}
}
}
}
/************************************************
Hits
************************************************/
if ($_SESSION["SESS_SESSION_ID"] > 0) {
if ($SAVE_HITS != "N") {
// добавляем хит
$arFields = array("SESSION_ID" => $_SESSION["SESS_SESSION_ID"], "DATE_HIT" => $DB_now, "GUEST_ID" => intval($_SESSION["SESS_GUEST_ID"]), "NEW_GUEST" => "'" . $DB->ForSql($_SESSION["SESS_GUEST_NEW"]) . "'", "USER_ID" => intval($_SESSION["SESS_LAST_USER_ID"]), "USER_AUTH" => "'" . $IS_USER_AUTHORIZED . "'", "URL" => "'" . $DB->ForSql($CURRENT_URI, 2000) . "'", "URL_404" => "'" . $ERROR_404 . "'", "URL_FROM" => "'" . $DB->ForSql(isset($_SERVER["HTTP_REFERER"]) ? $_SERVER["HTTP_REFERER"] : "", 2000) . "'", "IP" => "'" . $DB->ForSql($_SERVER["REMOTE_ADDR"], 15) . "'", "METHOD" => "'" . $DB->ForSql($_SERVER["REQUEST_METHOD"], 10) . "'", "COOKIES" => "'" . $DB->ForSql(GetCookieString(), 2000) . "'", "USER_AGENT" => "'" . $DB->ForSql($_SERVER["HTTP_USER_AGENT"], 500) . "'", "STOP_LIST_ID" => "'" . $STOP_LIST_ID . "'", "COUNTRY_ID" => "'" . $DB->ForSql($_SESSION["SESS_COUNTRY_ID"], 2) . "'", "CITY_ID" => $_SESSION["SESS_CITY_ID"] > 0 ? intval($_SESSION["SESS_CITY_ID"]) : "null", "SITE_ID" => $sql_site);
self::$HIT_ID = intval($DB->Insert("b_stat_hit", $arFields, "File: " . __FILE__ . "<br>Line: " . __LINE__));
if ($ERROR_404 == "N") {
CStatistics::Set404("b_stat_hit", "ID = " . self::$HIT_ID, array("URL_404" => "Y"));
}
}
// если гость на данном хите добавил в фавориты и до этого еще не добавлял то
$favorites_counter = 0;
if ($FAVORITES == "Y" && $_SESSION["SESS_GUEST_FAVORITES"] == "N") {
$ALLOW_ADV_FAVORITES = "Y";
$_SESSION["SESS_GUEST_FAVORITES"] = "Y";
$favorites_counter = 1;
}
// обновляем счетчик "по дням"
$arFields = array("HITS" => 1, "FAVORITES" => $favorites_counter, "HIT" => 1, "FAVORITE" => $favorites_counter);
// если текущий день есть в базе то
// обновим счетчики траффика для текущего дня
$rows = CTraffic::IncParam($arFields);
if ($rows !== false && intval($rows) <= 0) {
// если текущий день не определен в базе то
// добавляем его
$new_guest_counter = $_SESSION["SESS_GUEST_NEW"] == "Y" ? 1 : 0;
CStatistics::SetNewDay(1, 0, 1, 1, $new_guest_counter, 1, $favorites_counter);
// обновим счетчики траффика для текущего дня
CTraffic::IncParam(array("SESSION" => 1, "HIT" => 1, "HOST" => 1, "GUEST" => 1, "NEW_GUEST" => $new_guest_counter, "FAVORITE" => $favorites_counter));
}
// если сайт определен то
if (strlen($SITE_ID) > 0) {
// обновляем счетчик "по дням"
$arFields = array("HITS" => 1, "HIT" => 1);
// если текущий день сайта определен в базе то
// обновим счетчики траффика для текущего дня
$rows = CTraffic::IncParam(array(), $arFields, $SITE_ID);
if ($rows !== false && intval($rows) <= 0) {
// если текущий день сайта не определен в базе то
// добавляем его
CStatistics::SetNewDayForSite($SITE_ID, 1, 0, 1, 1);
// обновим счетчики траффика для текущего дня
CTraffic::IncParam(array(), array("SESSION" => 1, "HIT" => 1, "HOST" => 1), $SITE_ID);
}
}
/************************************************
Пути по сайту
************************************************/
if ($SAVE_PATH_DATA != "N") {
CStatistics::SavePathData($SITE_ID, $CURRENT_PAGE, $ERROR_404);
}
/************************************************
Посещение разделов и страниц
************************************************/
if ($SAVE_VISITS != "N") {
CStatistics::SaveVisits($sql_site, $SESSION_NEW, $CURRENT_DIR, $CURRENT_PAGE, $ERROR_404);
}
// обновляем сессию
$arFields = array("LAST_HIT_ID" => self::$HIT_ID, "URL_LAST" => "'" . $DB->ForSql($CURRENT_URI, 2000) . "'", "URL_LAST_404" => "'" . $ERROR_404 . "'", "DATE_LAST" => $DB_now, "LAST_SITE_ID" => $sql_site);
if ($SESSION_NEW == "Y") {
$arFields["FIRST_HIT_ID"] = self::$HIT_ID;
}
if ($FAVORITES == "Y") {
$arFields["FAVORITES"] = "'Y'";
}
$DB->Update("b_stat_session", $arFields, "WHERE ID=" . $_SESSION["SESS_SESSION_ID"], "File: " . __FILE__ . "<br>Line: " . __LINE__, false, false, false);
if ($ERROR_404 == "N") {
CStatistics::Set404("b_stat_session", "ID = " . $_SESSION["SESS_SESSION_ID"], array("URL_LAST_404" => "Y"));
}
// обновляем гостя
$arFields = array("HITS" => "HITS + 1", "LAST_SESSION_ID" => $_SESSION["SESS_SESSION_ID"], "LAST_DATE" => $DB_now, "LAST_USER_ID" => intval($_SESSION["SESS_LAST_USER_ID"]), "LAST_USER_AUTH" => "'" . $IS_USER_AUTHORIZED . "'", "LAST_URL_LAST" => "'" . $DB->ForSql($CURRENT_URI, 2000) . "'", "LAST_URL_LAST_404" => "'" . $ERROR_404 . "'", "LAST_USER_AGENT" => "'" . $DB->ForSql($_SERVER["HTTP_USER_AGENT"], 500) . "'", "LAST_IP" => "'" . $DB->ForSql($_SERVER["REMOTE_ADDR"], 15) . "'", "LAST_COOKIE" => "'" . $DB->ForSql(GetCookieString(), 2000) . "'", "LAST_LANGUAGE" => "'" . $DB->ForSql($_SERVER["HTTP_ACCEPT_LANGUAGE"], 255) . "'", "LAST_SITE_ID" => $sql_site);
if ($FAVORITES == "Y") {
$arFields["FAVORITES"] = "'Y'";
}
$DB->Update("b_stat_guest", $arFields, "WHERE ID=" . intval($_SESSION["SESS_GUEST_ID"]), "File: " . __FILE__ . "<br>Line: " . __LINE__, false, false, false);
if ($ERROR_404 == "N") {
CStatistics::Set404("b_stat_guest", "ID = " . intval($_SESSION["SESS_GUEST_ID"]), array("LAST_URL_LAST_404" => "Y"));
}
// обновляем прямые рекламные кампании
if (intval($_SESSION["SESS_ADV_ID"]) > 0) {
// увеличиваем счетчик хитов на прямом заходе
$arFields = array("DATE_LAST" => $DB_now, "HITS" => "HITS+1");
if ($FAVORITES == "Y" && $ALLOW_ADV_FAVORITES == "Y") {
// увеличиваем счетчик посетителей добавивших в избранное на прямом заходе
$arFields["FAVORITES"] = "FAVORITES + 1";
$favorite = 1;
}
$DB->Update("b_stat_adv", $arFields, "WHERE ID=" . intval($_SESSION["SESS_ADV_ID"]), "File: " . __FILE__ . "<br>Line: " . __LINE__, false, false, false);
// обновляем счетчик хитов по дням
$arFields = array("HITS" => "HITS+1", "FAVORITES" => "FAVORITES + " . intval($favorite));
$rows = $DB->Update("b_stat_adv_day", $arFields, "WHERE ADV_ID=" . intval($_SESSION["SESS_ADV_ID"]) . " and DATE_STAT=" . $DB_now_date, "File: " . __FILE__ . "<br>Line: " . __LINE__, false, false, false);
// если его нет то
if (intval($rows) <= 0) {
// добавляем его
$arFields = array("ADV_ID" => intval($_SESSION["SESS_ADV_ID"]), "DATE_STAT" => $DB_now_date, "HITS" => 1, "FAVORITES" => intval($favorite));
$DB->Insert("b_stat_adv_day", $arFields, "File: " . __FILE__ . "<br>Line: " . __LINE__);
}
} elseif (intval($_SESSION["SESS_LAST_ADV_ID"]) > 0) {
// увеличиваем счетчик хитов на возврате
$arFields = array("DATE_LAST" => $DB_now, "HITS_BACK" => "HITS_BACK+1");
if ($FAVORITES == "Y" && $ALLOW_ADV_FAVORITES == "Y") {
// увеличиваем счетчик посетителей добавивших в избранное на возврате
$arFields["FAVORITES_BACK"] = "FAVORITES_BACK + 1";
$favorite = 1;
}
$DB->Update("b_stat_adv", $arFields, "WHERE ID=" . intval($_SESSION["SESS_LAST_ADV_ID"]), "File: " . __FILE__ . "<br>Line: " . __LINE__, false, false, false);
$arFields = array("HITS_BACK" => "HITS_BACK+1", "FAVORITES_BACK" => "FAVORITES_BACK + " . intval($favorite));
// обновляем счетчик хитов по дням
$rows = $DB->Update("b_stat_adv_day", $arFields, "WHERE ADV_ID=" . intval($_SESSION["SESS_LAST_ADV_ID"]) . " and DATE_STAT=" . $DB_now_date, "File: " . __FILE__ . "<br>Line: " . __LINE__, false, false, false);
// если его нет то
if (intval($rows) <= 0) {
// добавляем его
$arFields = array("ADV_ID" => intval($_SESSION["SESS_LAST_ADV_ID"]), "DATE_STAT" => $DB_now_date, "HITS_BACK" => 1, "FAVORITES_BACK" => intval($favorite));
$DB->Insert("b_stat_adv_day", $arFields, "File: " . __FILE__ . "<br>Line: " . __LINE__);
}
}
// обрабатываем событие
if (defined("GENERATE_EVENT") && GENERATE_EVENT == "Y") {
global $event1, $event2, $event3, $goto, $money, $currency, $site_id;
if (strlen($site_id) <= 0) {
$site_id = false;
}
CStatistics::Set_Event($event1, $event2, $event3, $goto, $money, $currency, $site_id);
}
// увеличиваем счетчик хитов у страны
if (strlen($_SESSION["SESS_COUNTRY_ID"]) > 0) {
CStatistics::UpdateCountry($_SESSION["SESS_COUNTRY_ID"], array("HITS" => 1));
}
if ($_SESSION["SESS_CITY_ID"] > 0) {
CStatistics::UpdateCity($_SESSION["SESS_CITY_ID"], array("HITS" => 1));
}
if (isset($_SESSION["SESS_FROM_SEARCHERS"]) && is_array($_SESSION["SESS_FROM_SEARCHERS"]) && !empty($_SESSION["SESS_FROM_SEARCHERS"])) {
// обновляем счетчик хитов у поисковых фраз для поисковиков
$arFields = array("PHRASES_HITS" => "PHRASES_HITS+1");
$_SESSION["SESS_FROM_SEARCHERS"] = array_unique($_SESSION["SESS_FROM_SEARCHERS"]);
if (count($_SESSION["SESS_FROM_SEARCHERS"]) > 0) {
$str = "0";
foreach ($_SESSION["SESS_FROM_SEARCHERS"] as $value) {
$str .= ", " . intval($value);
}
$DB->Update("b_stat_searcher", $arFields, "WHERE ID in ({$str})", "File: " . __FILE__ . "<br>Line: " . __LINE__, false, false, false);
}
}
if (isset($_SESSION["SESS_REFERER_ID"]) && intval($_SESSION["SESS_REFERER_ID"]) > 0) {
// обновляем ссылающиеся
$arFields = array("HITS" => "HITS+1");
$DB->Update("b_stat_referer", $arFields, "WHERE ID=" . intval($_SESSION["SESS_REFERER_ID"]), "File: " . __FILE__ . "<br>Line: " . __LINE__, false, false, false);
}
}
/*******************************************************
Переменные хранящие параметры предыдущей страницы
*******************************************************/
$_SESSION["SESS_HTTP_REFERER"] = $_SESSION["SESS_LAST_URI"];
$_SESSION["SESS_LAST_PROTOCOL"] = $CURRENT_PROTOCOL;
$_SESSION["SESS_LAST_PORT"] = $CURRENT_PORT;
$_SESSION["SESS_LAST_HOST"] = $CURRENT_HOST;
$_SESSION["SESS_LAST_URI"] = $CURRENT_URI;
$_SESSION["SESS_LAST_PAGE"] = $CURRENT_PAGE;
$_SESSION["SESS_LAST_DIR"] = $CURRENT_DIR;
}
} else {
/************************************************
Обработка превышения лимита активности
*************************************************/
$fname = $_SERVER["DOCUMENT_ROOT"] . BX_PERSONAL_ROOT . "/activity_limit.php";
if (file_exists($fname)) {
include $fname;
} else {
CHTTP::SetStatus("503 Service Unavailable");
die;
}
}
/************************************************************
Обрабатываем ситуацию когда не поддерживаются
сессии и/или не сохраняются куки
*************************************************************/
// если мы делали select из таблицы b_stat_session_data то
if ($SESSION_DATA_ID) {
$arrSTAT_SESSION = stat_session_register(true);
$sess_data_for_db = strtolower($DB->type) == "oracle" ? "'" . $DB->ForSql(serialize($arrSTAT_SESSION), 2000) . "'" : "'" . $DB->ForSql(serialize($arrSTAT_SESSION)) . "'";
// если в результате этого select'а были выбраны данные то
if (intval($SESSION_DATA_ID) > 0 && $SESSION_DATA_ID !== true) {
// обновляем их
$arFields = array("DATE_LAST" => $DB_now, "GUEST_MD5" => "'" . get_guest_md5() . "'", "SESS_SESSION_ID" => intval($_SESSION["SESS_SESSION_ID"]), "SESSION_DATA" => $sess_data_for_db);
$DB->Update("b_stat_session_data", $arFields, "WHERE ID = " . intval($SESSION_DATA_ID), "File: " . __FILE__ . "<br>Line: " . __LINE__, false, false, false);
} else {
// иначе вставляем эти данные
$arFields = array("DATE_FIRST" => $DB_now, "DATE_LAST" => $DB_now, "GUEST_MD5" => "'" . get_guest_md5() . "'", "SESS_SESSION_ID" => intval($_SESSION["SESS_SESSION_ID"]), "SESSION_DATA" => $sess_data_for_db);
$DB->Insert("b_stat_session_data", $arFields, "File: " . __FILE__ . "<br>Line: " . __LINE__);
}
}
}
// if ($STOP_SAVE_STATISTIC!="N" or $STOP!="Y")
if ($STOP == "Y") {
$z = CLanguage::GetByID($STOP_MESSAGE_LID);
$zr = $z->Fetch();
$charset = strlen($zr["CHARSET"]) > 0 ? $zr["CHARSET"] : "windows-1251";
//We have URL with no MESSAGE
if (strlen($STOP_REDIRECT_URL) > 0 && strlen($STOP_MESSAGE) <= 0) {
//So just do redirect
LocalRedirect($STOP_REDIRECT_URL, true);
} elseif (strlen($STOP_MESSAGE) > 0) {
$STOP_MESSAGE .= " [" . $STOP_LIST_ID . "]";
echo '<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=' . $charset . '">
' . (strlen($STOP_REDIRECT_URL) > 0 ? '<meta http-equiv="Refresh" content="3;URL=' . htmlspecialcharsbx($STOP_REDIRECT_URL) . '">' : '') . '
</head>
<body>
<div align="center"><h3>' . $STOP_MESSAGE . '</h3></div>
</body>
</html>';
}
die;
}
}
