Автоматический ежедневний импорт валют (из Нацбанка Украины)

<? 
//========================================//
// Импорта курса валют Нацбанка Украины   //
//========================================//

class NBUCurrencyLoad
{
   function DoTheLoad()
   {   
      // Список валют, для которых будет обновляться курс
      $curr_list = array( 
         "EUR", 
         "USD", 
      //   "RUR"
      );
      $base_currency = "UAH"; // Базовая валюта
      $percent_koeff = 0.05; // Допустимый дипапзон изменений валюты (5%)

      // Путь к xml-файлу на сервере банка, в котором хранятся валюты
      $xml_file_path = "http://pfsoft.com.ua/service/currency/?date=".strftime("%d%m%Y",time());   


      // Формат даты в xml-файле
      $xml_date_format = "YYYY-MM-DD";                  
      
      // Получим список курсов валют в виде массива
      $curr_result = NBUCurrencyLoad::GetCurrency($curr_list, $xml_file_path); 
      
      if (!empty($curr_result))
      {   
         if (CModule::IncludeModule("currency")) // Проверяем, подключен ли модуль валют
         {
            foreach ($curr_result as $code => $arCurrency)
            {
               // Если массив с валютой не пустой - то добавим валюту
               if (!empty($arCurrency))
               {
                  // Проверяем насколько изменился курс
                  $rate = CCurrencyRates::GetConvertFactor($code, $base_currency);
                  $rate_loaded = $arCurrency["RATE"] / $arCurrency["QUANTITY"];

                  // Если изменения попали в вилку, значит можно добавлять валюту
                  if ($rate - $rate * $percent_koeff <= $rate_loaded 
                     &&  $rate_loaded <= $rate + $rate * $percent_koeff
                  )
                  {
                     $arFields = array(
                        "RATE" => $arCurrency["RATE"],
                        "RATE_CNT" => $arCurrency["QUANTITY"],
                        "CURRENCY" => $code,
                        "DATE_RATE" => $arCurrency["DATE"]
                        );      
                      // Если валюта на этот уже день сущетсвует, она добавлена не будет
                     $rez = CCurrencyRates::Add($arFields);
                  }
               }
            }
         }
      }
      return 'NBUCurrencyLoad::DoTheLoad();';
   }


   // Функция получение курса валют Нацбанка
   function GetCurrency($curr_load=array(), $filepath="") 
   {
      $curr_result = array();
      
      if (empty($curr_load) || empty($filepath))
         return false;
      
      // Считываем xml-файл в массив
      if ($xml = simplexml_load_file($filepath))
      {
         foreach ($xml->Valute as $it)
         {
            foreach ($curr_load as $curr_code)
            {
               if ($it->CharCode == $curr_code)
               {   
                  $curr_result[$curr_code]["RATE"] = (string)$it->Value; 
                  $curr_result[$curr_code]["QUANTITY"] = (string)$it->Nominal;
                  $curr_result[$curr_code]["DATE"] = date("d.m.Y");
               }
            }
         }

         return ($curr_result);
      }
      else
      {
         // Если считать файл не удалось - возвратим false
         return false; 
      }
   }

   
   // Функция добавления агента
   function AddBitrixAgent()
   {
      $rez = CAgent::AddAgent(
         "NBUCurrencyLoad::DoTheLoad();",     // имя функции
         "",                              // идентификатор модуля (без модуля)
         "Y",                                  // запускать один раз за интервал
         86400,                          // интервал запуска (сутки)
         "",                             // когда проверить первый запуск? (сейчас)
         "Y"                             // агент активен
      );
      echo ($rez)? "Агент импорта валют добавлен.<br />" : "Ошибка! Агент не добавлен. ".$rez->LAST_ERROR."<br />";
   }
}

NBUCurrencyLoad::AddBitrixAgent();
NBUCurrencyLoad::doTheLoad();
?>