Acesso HTTP PL/SQL

Olá

O script abaixo é um exemplo simples de como fazer um acesso HTTP (GET) em PL/SQL. Testado no Oracle 9i e Oracle 10g.

declare 
  httpreq  utl_http.req;
  httpresp utl_http.resp;
  vResp    Clob;
begin
  dbms_output.put_line('INICIO');
  httpReq := UTL_HTTP.Begin_Request('http://172.31.1.6:8080/WebApp/index.html', 
                                    'POST', 
                                    'HTTP/1.1');

  httpResp := UTL_HTTP.Get_Response(httpReq);

  -- mostra o código de retorno HTTP (404, 500, 200, etc)
  dbms_output.put_line('http status code: ' || httpResp.status_code); 

  -- Lê a resposta  
  UTL_HTTP.Read_Text(httpResp, vResp);

  -- mostra o inicio da resposta
  dbms_output.put_line(substr(vResp, 0, 255)); 

  -- finaliza
  UTL_HTTP.End_Response(httpResp);

  dbms_output.put_line('FIM');

  exception  
  when utl_http.too_many_requests then 
       utl_http.end_response(httpresp);
  when others then     
      dbms_output.put_line('Erro: ' || sqlerrm);       

end;