Получить актуальные курсы валют по HTTP

Нам необходимо реализовать механизм получение актуальных курсов валют национального банка, доступного из нашей базы данных. в нашем примере, это будет НБУ (Национальный банк Украины). НБУ предоставляет источник, актуальных курсов валют в виде XML-документа, доступного по адресу http://bank-ua.com/export/currrate.xml, нам остается загрузить этот документ и распарить его.

XML-документ представляет собой следующую структуру:

<?xml version="1.0" encoding="windows-1251"?> 
<chapter> 
  <item> 
    <date>2011-02-11</date> 
    <code>036</code> 
    <char3>AUD</char3> 
    <size>100</size> 
    <name>австралійських доларів</name> 
    <rate>797.0465</rate> 
    <change>-5.3082</change> 
  </item>
</chapter>

На первом этапе, пытаемся получить данные с сервера по HTTP протоколу, для этого будем использовать стандартный пакет UTL_HTTP. Потом при помощи механизмов работы с XML, парсим полученный ответ и возвращаем результирующий курсор. Вместо курсора, может быть любая друга обработка данных, загрузка в таблицы, рассылка на почтовые адреса и т.д.
Процедура, которая получилась в итоге

CREATE OR REPLACE PROCEDURE GetCurrencyRate (
 p_Cursor  out sys_refcursor
) IS
 v_Result      CLOB;
 v_Request     UTL_HTTP.Req;
 v_Response    UTL_HTTP.Resp;
 v_Block       VARCHAR2(6000);
BEGIN
  -- устанавливаем ожидание ответа равным 10 секунд
 UTL_HTTP.Set_Transfer_Timeout(10);                      
  -- делаем запрос по указанному URL
 v_Request := UTL_HTTP.Begin_Request('http://bank-ua.com/export/currrate.xml');
  -- устанавливаем соответствующую кодировку ответа
 UTL_HTTP.Set_Body_Charset(v_Request, 'windows-1251');                         
  -- получаем ответ
 v_Response := UTL_HTTP.Get_Response(v_Request);
  -- читаем блоками полученный ответ
  begin
    loop
    v_Result := v_Result || v_Block;
    UTL_HTTP.Read_Text(v_Response, v_Block);
    end loop;
  exception
    when UTL_HTTP.End_Of_Body then
     null;
  end;               
  -- завершаем запрос и ответ
 UTL_HTTP.End_Response(v_Response);
  -- получаем ответ в результирующий курсор
  open p_Cursor for
    select
     extract(value(t),'//date/text()').getStringVal()   as CurrencyDate
      ,extract(value(t),'//code/text()').getStringVal()   as CurrencyCode
      ,extract(value(t),'//char3/text()').getStringVal()  as CurrencyChar3
      ,extract(value(t),'//size/text()').getStringVal()   as CurrencySize
      ,extract(value(t),'//name/text()').getStringVal()   as CurrencyName
      ,extract(value(t),'//rate/text()').getStringVal()   as CurrencyRate
      ,extract(value(t),'//change/text()').getStringVal() as CurrencyChange                      
    from table(xmlsequence(xmltype(v_Result).extract('chapter/item'))) t;

END GetCurrencyRate;

Неполное восстановление базы данных на момент времени

Если технология FLASHBACK вам по каким-то причинам не доступна, а восстановить данные или состояние объектов нужно, на определенный момент времени, то можно воспользоватся довольно простым и удобным способом, хоть и не совсем оптимальным. Для этого, ваша база должна быть в режиме ARCHIVELOG, а также у вас должны быть в наличии, относительно свежие бекапы.

Единственный, но очень существенный, недостаток этого способа, кроется в его названии. Неполное восстановление, говорит о том, что вы теряете часть актуальной информации. Все изменения, которые делались после точки восстановления (на которую вы хотите откатить базу), будет утеряна.

Чтоб избежать этого, можно восстановить бекап в отдельную базу, а потом с нее уже получить всю необходимую информацию. В таком случае вы ничего не теряете. Этот метод будет рассмотрен более подробно в следующих постах, а пока поговорим о случае, когда вы готовы пожертвовать информацией, после точки восстановления. Итак, сам метод:

RMAN> shutdown immediate;   

RMAN> startup mount;

RMAN> RUN 
{ 
# SET UNTIL TIME 'Nov 15 2002 09:00:00';       
# SET UNTIL SCN 1000;      
# SET UNTIL SEQUENCE 9923; 
RESTORE DATABASE;       
RECOVER DATABASE;   
} 
RMAN> ALTER DATABASE OPEN RESETLOGS;

Неполное восстановление, предполагает установку временной метки, до которой будет восстанавливаться база, существует три варианта установки этой точки (TIME, SCN, SEQUENCE), наиболее оптимальным и удобным, как мне кажется, является работа с последним. SEQUENCE являет собой обычное число, порядковый номер группы Redologs, который возрастают на одно значение, каждый раз, когда происходит переключение на следующую группу при заполнении предыдущей. Посмотреть, номера и даты переключения SEQUENCE, на которые вы хотите восстановить базу, можно в представлении V$LOG_HISTORY.

После востановления, открываем базу с опцией RESETLOGS, так как мы делаем неполное восстановление, текущие изменения в REDO логах, нам уже не нужны.