PL SQL Client

CREATE OR REPLACE PROCEDURE esme AS 
http_req utl_http.req; 
http_resp utl_http.resp; 
t_update_send VARCHAR2(4000); 
 
BEGIN 
 
--Preliminaries 
 
utl_http.set_proxy('proxy:81');  
utl_http.set_response_error_check(TRUE); 
utl_http.set_detailed_excp_support(TRUE); 
utl_http.set_transfer_timeout(to_char('60')); 
 
--login first 
 
http_req := utl_http.begin_request('http://api.esme.us/esme/api/login?token=IFDHJ2RNDZCAT24ZJZUKDG54TVOIVTXL',   'POST',   utl_http.http_version_1_1); 
 
t_update_send := 'status='; 
utl_http.set_header(http_req,   'Content-Length',   to_char(LENGTH(t_update_send))); 
utl_http.write_text(http_req,   t_update_send); 
 
http_resp := utl_http.get_response(http_req); 
 
UTL_HTTP.END_RESPONSE(http_resp); 
 
 
--send message 
 
http_req := utl_http.begin_request('http://api.esme.us/esme/api/send_msg?message=Oracle_Test&tags=Test,plsql&via=oracle',   'POST',   utl_http.http_version_1_1); 
 
t_update_send := 'status='; 
utl_http.set_header(http_req,   'Content-Length',   to_char(LENGTH(t_update_send))); 
utl_http.write_text(http_req,   t_update_send); 
 
http_resp := utl_http.get_response(http_req); 
 
UTL_HTTP.END_RESPONSE(http_resp); 
 
 
END esme; 
/