function GetRateFromCBR($CURRENCY) { global $DB; global $APPLICATION; CModule::IncludeModule('currency'); if(!CCurrency::GetByID($CURRENCY)) //такой валюты нет на сайте, агент в этом случае удаляется return false; $DATE_RATE=date("d.m.Y");//сегодня $QUERY_STR = "date_req=".$DB->FormatDate($DATE_RATE, CLang::GetDateFormat("SHORT", $lang), "D.M.Y"); //делаем запрос к www.cbr.ru с просьбой отдать курс на нынешнюю дату $strQueryText = QueryGetData("www.cbr.ru", 80, "/scripts/XML_daily.asp", $QUERY_STR, $errno, $errstr); //получаем XML и конвертируем в кодировку сайта $charset = "windows-1251"; if (preg_match("/<"."\?XML[^>]{1,}encoding=[\"']([^>\"']{1,})[\"'][^>]{0,}\?".">/i", $strQueryText, $matches)) { $charset = Trim($matches[1]); } $strQueryText = eregi_replace("]{1,}>", "", $strQueryText); $strQueryText = eregi_replace("<"."\?XML[^>]{1,}\?".">", "", $strQueryText); $strQueryText = $APPLICATION->ConvertCharset($strQueryText, $charset, SITE_CHARSET); require_once($_SERVER["DOCUMENT_ROOT"]."/bitrix/modules/main/classes/general/xml.php"); //парсим XML $objXML = new CDataXML(); $res = $objXML->LoadString($strQueryText); if($res !== false) $arData = $objXML->GetArray(); else $arData = false; $NEW_RATE=Array(); //получаем курс нужной валюты $CURRENCY if (is_array($arData) && count($arData["ValCurs"]["#"]["Valute"])>0) { for ($j1 = 0; $j1 $NEW_RATE['CURRENCY'], "DATE_RATE"=>$NEW_RATE['DATE_RATE'] ); $by = "date"; $order = "desc"; $db_rate = CCurrencyRates::GetList($by, $order, $arFilter); if(!$ar_rate = $db_rate->Fetch()) //такого курса нет, создаём курс на нынешнюю дату CCurrencyRates::Add($NEW_RATE); } //возвращаем код вызова функции, чтобы агент не "убился" return 'GetRateFromCBR("'.$CURRENCY.'");'; }
Внимание! Вы перенаправляетесь на другой сайт. Для перехода щелкните по ссылке: https://newsforyou.news/