816: clobdoc CLOB;
817: l_resp_txt CLOB;
818: xdata XMLTYPE;
819: l_xml XMLTYPE;
820: l_http_req utl_http.req;
821: l_http_resp utl_http.resp;
822: v_read_line VARCHAR2(32767);
823: l_my_scheme VARCHAR2(256);
824: l_my_realm VARCHAR2(256);
817: l_resp_txt CLOB;
818: xdata XMLTYPE;
819: l_xml XMLTYPE;
820: l_http_req utl_http.req;
821: l_http_resp utl_http.resp;
822: v_read_line VARCHAR2(32767);
823: l_my_scheme VARCHAR2(256);
824: l_my_realm VARCHAR2(256);
825: l_my_proxy BOOLEAN;
969: THEN
970: RAISE wsh_u_proxy;
971: END IF;
972:
973: utl_http.set_wallet(
974: 'file:'||G_ORA_WALLET_PATH
975: , G_ORA_WALLET_PASSSWD);
976: utl_http.set_detailed_excp_support ( enable => true );
977: utl_http.set_response_error_check(enable =>true);
972:
973: utl_http.set_wallet(
974: 'file:'||G_ORA_WALLET_PATH
975: , G_ORA_WALLET_PASSSWD);
976: utl_http.set_detailed_excp_support ( enable => true );
977: utl_http.set_response_error_check(enable =>true);
978: --Only if there is l_internet_proxy then we need to set it up.
979: IF l_internet_proxy IS NOT NULL
980: THEN
973: utl_http.set_wallet(
974: 'file:'||G_ORA_WALLET_PATH
975: , G_ORA_WALLET_PASSSWD);
976: utl_http.set_detailed_excp_support ( enable => true );
977: utl_http.set_response_error_check(enable =>true);
978: --Only if there is l_internet_proxy then we need to set it up.
979: IF l_internet_proxy IS NOT NULL
980: THEN
981: utl_http.set_proxy
977: utl_http.set_response_error_check(enable =>true);
978: --Only if there is l_internet_proxy then we need to set it up.
979: IF l_internet_proxy IS NOT NULL
980: THEN
981: utl_http.set_proxy
982: ( l_internet_proxy
983: , NULL);
984: END IF;
985:
982: ( l_internet_proxy
983: , NULL);
984: END IF;
985:
986: l_http_req := utl_http.begin_request
987: ( l_carrier_api_url
988: , 'POST'
989: ,'HTTP/1.1');
990:
987: ( l_carrier_api_url
988: , 'POST'
989: ,'HTTP/1.1');
990:
991: utl_http.set_header
992: ( l_http_req
993: , 'Content-Type'
994: , 'text/xml') ;
995: utl_http.set_header(l_http_req, 'Content-Length', length(l_av_soap_request)) ;
991: utl_http.set_header
992: ( l_http_req
993: , 'Content-Type'
994: , 'text/xml') ;
995: utl_http.set_header(l_http_req, 'Content-Length', length(l_av_soap_request)) ;
996: utl_http.set_header(l_http_req, 'SOAPAction', 'initiate');
997:
998: utl_http.write_text(l_http_req, l_av_soap_request) ;
999: l_http_resp := utl_http.get_response (l_http_req);
992: ( l_http_req
993: , 'Content-Type'
994: , 'text/xml') ;
995: utl_http.set_header(l_http_req, 'Content-Length', length(l_av_soap_request)) ;
996: utl_http.set_header(l_http_req, 'SOAPAction', 'initiate');
997:
998: utl_http.write_text(l_http_req, l_av_soap_request) ;
999: l_http_resp := utl_http.get_response (l_http_req);
1000:
994: , 'text/xml') ;
995: utl_http.set_header(l_http_req, 'Content-Length', length(l_av_soap_request)) ;
996: utl_http.set_header(l_http_req, 'SOAPAction', 'initiate');
997:
998: utl_http.write_text(l_http_req, l_av_soap_request) ;
999: l_http_resp := utl_http.get_response (l_http_req);
1000:
1001: IF l_debug_on
1002: THEN
995: utl_http.set_header(l_http_req, 'Content-Length', length(l_av_soap_request)) ;
996: utl_http.set_header(l_http_req, 'SOAPAction', 'initiate');
997:
998: utl_http.write_text(l_http_req, l_av_soap_request) ;
999: l_http_resp := utl_http.get_response (l_http_req);
1000:
1001: IF l_debug_on
1002: THEN
1003: WSH_DEBUG_SV.log(l_module_name,'Status Code of response is '||l_http_resp.status_code);
1006: END IF;
1007:
1008: BEGIN
1009: LOOP
1010: utl_http.read_line(
1011: l_http_resp
1012: ,v_read_line
1013: ,TRUE);
1014:
1029: -- Look for client-side error and report it.
1030: IF l_http_resp.status_code >= 400 AND
1031: l_http_resp.status_code <= 499
1032: THEN
1033: IF l_http_resp.status_code = utl_http.http_unauthorized
1034: THEN
1035: utl_http.get_authentication(
1036: l_http_resp
1037: ,l_my_scheme
1031: l_http_resp.status_code <= 499
1032: THEN
1033: IF l_http_resp.status_code = utl_http.http_unauthorized
1034: THEN
1035: utl_http.get_authentication(
1036: l_http_resp
1037: ,l_my_scheme
1038: ,l_my_realm
1039: ,l_my_proxy);
1065: WSH_DEBUG_SV.log(l_module_name,'Please Check the URL.');
1066: END IF;
1067: END IF;
1068:
1069: utl_http.end_response(l_http_resp);
1070: RETURN;
1071: -- Look for server-side error and report it.
1072: ELSIF l_http_resp.status_code >= 500 AND
1073: l_http_resp.status_code <= 599
1075: IF l_debug_on THEN
1076: WSH_DEBUG_SV.log(l_module_name,'Check if the URL is up.');
1077: END IF;
1078:
1079: utl_http.end_response(l_http_resp);
1080: RETURN;
1081: END IF;
1082:
1083: utl_http.end_response (l_http_resp);
1079: utl_http.end_response(l_http_resp);
1080: RETURN;
1081: END IF;
1082:
1083: utl_http.end_response (l_http_resp);
1084:
1085: IF l_debug_on THEN
1086: WSH_DEBUG_SV.log(l_module_name,'Parsing Response l_resp_txt');
1087: END IF;
1314: clobdoc CLOB;
1315: l_resp_txt CLOB;
1316: xdata XMLTYPE;
1317: l_xml XMLTYPE;
1318: l_http_req utl_http.req;
1319: l_http_resp utl_http.resp;
1320: v_read_line VARCHAR2(32767);
1321: l_my_scheme VARCHAR2(256);
1322: l_my_realm VARCHAR2(256);
1315: l_resp_txt CLOB;
1316: xdata XMLTYPE;
1317: l_xml XMLTYPE;
1318: l_http_req utl_http.req;
1319: l_http_resp utl_http.resp;
1320: v_read_line VARCHAR2(32767);
1321: l_my_scheme VARCHAR2(256);
1322: l_my_realm VARCHAR2(256);
1323: l_my_proxy BOOLEAN;
1742: THEN
1743: RAISE wsh_u_proxy;
1744: END IF;
1745:
1746: utl_http.set_wallet(
1747: 'file:'||G_ORA_WALLET_PATH
1748: , G_ORA_WALLET_PASSSWD);
1749:
1750: utl_http.set_detailed_excp_support ( enable => true );
1746: utl_http.set_wallet(
1747: 'file:'||G_ORA_WALLET_PATH
1748: , G_ORA_WALLET_PASSSWD);
1749:
1750: utl_http.set_detailed_excp_support ( enable => true );
1751: utl_http.set_response_error_check(enable =>true);
1752:
1753: --Only if there is l_internet_proxy then we need to set it up.
1754: IF l_internet_proxy IS NOT NULL
1747: 'file:'||G_ORA_WALLET_PATH
1748: , G_ORA_WALLET_PASSSWD);
1749:
1750: utl_http.set_detailed_excp_support ( enable => true );
1751: utl_http.set_response_error_check(enable =>true);
1752:
1753: --Only if there is l_internet_proxy then we need to set it up.
1754: IF l_internet_proxy IS NOT NULL
1755: THEN
1752:
1753: --Only if there is l_internet_proxy then we need to set it up.
1754: IF l_internet_proxy IS NOT NULL
1755: THEN
1756: utl_http.set_proxy
1757: ( l_internet_proxy
1758: , NULL);
1759: END IF;
1760:
1757: ( l_internet_proxy
1758: , NULL);
1759: END IF;
1760:
1761: l_http_req := utl_http.begin_request
1762: ( l_carrier_api_url
1763: , 'POST'
1764: ,'HTTP/1.1');
1765:
1762: ( l_carrier_api_url
1763: , 'POST'
1764: ,'HTTP/1.1');
1765:
1766: utl_http.set_header
1767: ( l_http_req
1768: , 'Content-Type'
1769: , 'text/xml') ;
1770:
1767: ( l_http_req
1768: , 'Content-Type'
1769: , 'text/xml') ;
1770:
1771: utl_http.set_header(l_http_req, 'Content-Length', length(clobdoc)) ;
1772: utl_http.set_header(l_http_req, 'SOAPAction', 'initiate');
1773: utl_http.write_text(l_http_req, clobdoc) ;
1774:
1775: l_http_resp := utl_http.get_response (l_http_req);
1768: , 'Content-Type'
1769: , 'text/xml') ;
1770:
1771: utl_http.set_header(l_http_req, 'Content-Length', length(clobdoc)) ;
1772: utl_http.set_header(l_http_req, 'SOAPAction', 'initiate');
1773: utl_http.write_text(l_http_req, clobdoc) ;
1774:
1775: l_http_resp := utl_http.get_response (l_http_req);
1776:
1769: , 'text/xml') ;
1770:
1771: utl_http.set_header(l_http_req, 'Content-Length', length(clobdoc)) ;
1772: utl_http.set_header(l_http_req, 'SOAPAction', 'initiate');
1773: utl_http.write_text(l_http_req, clobdoc) ;
1774:
1775: l_http_resp := utl_http.get_response (l_http_req);
1776:
1777: IF l_debug_on
1771: utl_http.set_header(l_http_req, 'Content-Length', length(clobdoc)) ;
1772: utl_http.set_header(l_http_req, 'SOAPAction', 'initiate');
1773: utl_http.write_text(l_http_req, clobdoc) ;
1774:
1775: l_http_resp := utl_http.get_response (l_http_req);
1776:
1777: IF l_debug_on
1778: THEN
1779: WSH_DEBUG_SV.log(l_module_name,'Status Code of response is '||l_http_resp.status_code);
1782: END IF;
1783:
1784: BEGIN
1785: LOOP
1786: utl_http.read_line(
1787: l_http_resp
1788: ,v_read_line
1789: ,TRUE);
1790:
1805: -- Look for client-side error and report it.
1806: IF l_http_resp.status_code >= 400 AND
1807: l_http_resp.status_code <= 499
1808: THEN
1809: IF l_http_resp.status_code = utl_http.http_unauthorized
1810: THEN
1811: utl_http.get_authentication(
1812: l_http_resp
1813: ,l_my_scheme
1807: l_http_resp.status_code <= 499
1808: THEN
1809: IF l_http_resp.status_code = utl_http.http_unauthorized
1810: THEN
1811: utl_http.get_authentication(
1812: l_http_resp
1813: ,l_my_scheme
1814: ,l_my_realm
1815: ,l_my_proxy);
1841: WSH_DEBUG_SV.log(l_module_name,'Please Check the URL.');
1842: END IF;
1843: END IF;
1844:
1845: utl_http.end_response(l_http_resp);
1846: RETURN;
1847: -- Look for server-side error and report it.
1848: ELSIF l_http_resp.status_code >= 500 AND
1849: l_http_resp.status_code <= 599
1851: IF l_debug_on THEN
1852: WSH_DEBUG_SV.log(l_module_name,'Check if the URL is up.');
1853: END IF;
1854:
1855: utl_http.end_response(l_http_resp);
1856: RETURN;
1857: END IF;
1858:
1859: utl_http.end_response (l_http_resp);
1855: utl_http.end_response(l_http_resp);
1856: RETURN;
1857: END IF;
1858:
1859: utl_http.end_response (l_http_resp);
1860:
1861: IF l_debug_on THEN
1862: WSH_DEBUG_SV.log(l_module_name,'Parsing Response l_resp_txt');
1863: END IF;
2173: clobdoc CLOB;
2174: l_resp_txt CLOB;
2175: xdata XMLTYPE;
2176: l_xml XMLTYPE;
2177: l_http_req utl_http.req;
2178: l_http_resp utl_http.resp;
2179: v_read_line VARCHAR2(32767);
2180: l_my_scheme VARCHAR2(256);
2181: l_my_realm VARCHAR2(256);
2174: l_resp_txt CLOB;
2175: xdata XMLTYPE;
2176: l_xml XMLTYPE;
2177: l_http_req utl_http.req;
2178: l_http_resp utl_http.resp;
2179: v_read_line VARCHAR2(32767);
2180: l_my_scheme VARCHAR2(256);
2181: l_my_realm VARCHAR2(256);
2182: l_my_proxy BOOLEAN;
2302: THEN
2303: RAISE wsh_u_proxy;
2304: END IF;
2305:
2306: utl_http.set_wallet(
2307: 'file:'||G_ORA_WALLET_PATH
2308: , G_ORA_WALLET_PASSSWD);
2309:
2310: utl_http.set_detailed_excp_support ( enable => true );
2306: utl_http.set_wallet(
2307: 'file:'||G_ORA_WALLET_PATH
2308: , G_ORA_WALLET_PASSSWD);
2309:
2310: utl_http.set_detailed_excp_support ( enable => true );
2311: utl_http.set_response_error_check(enable =>true);
2312:
2313: --Only if there is l_internet_proxy then we need to set it up.
2314: IF l_internet_proxy IS NOT NULL
2307: 'file:'||G_ORA_WALLET_PATH
2308: , G_ORA_WALLET_PASSSWD);
2309:
2310: utl_http.set_detailed_excp_support ( enable => true );
2311: utl_http.set_response_error_check(enable =>true);
2312:
2313: --Only if there is l_internet_proxy then we need to set it up.
2314: IF l_internet_proxy IS NOT NULL
2315: THEN
2312:
2313: --Only if there is l_internet_proxy then we need to set it up.
2314: IF l_internet_proxy IS NOT NULL
2315: THEN
2316: utl_http.set_proxy
2317: ( l_internet_proxy
2318: , NULL);
2319: END IF;
2320:
2317: ( l_internet_proxy
2318: , NULL);
2319: END IF;
2320:
2321: l_http_req := utl_http.begin_request
2322: ( l_carrier_api_url
2323: , 'POST'
2324: ,'HTTP/1.1');
2325:
2322: ( l_carrier_api_url
2323: , 'POST'
2324: ,'HTTP/1.1');
2325:
2326: utl_http.set_header
2327: ( l_http_req
2328: , 'Content-Type'
2329: , 'text/xml') ;
2330:
2327: ( l_http_req
2328: , 'Content-Type'
2329: , 'text/xml') ;
2330:
2331: utl_http.set_header(l_http_req, 'Content-Length', length(clobdoc)) ;
2332: utl_http.set_header(l_http_req, 'SOAPAction', 'initiate');
2333: utl_http.write_text(l_http_req, clobdoc) ;
2334: l_http_resp := utl_http.get_response (l_http_req);
2335:
2328: , 'Content-Type'
2329: , 'text/xml') ;
2330:
2331: utl_http.set_header(l_http_req, 'Content-Length', length(clobdoc)) ;
2332: utl_http.set_header(l_http_req, 'SOAPAction', 'initiate');
2333: utl_http.write_text(l_http_req, clobdoc) ;
2334: l_http_resp := utl_http.get_response (l_http_req);
2335:
2336: IF l_debug_on
2329: , 'text/xml') ;
2330:
2331: utl_http.set_header(l_http_req, 'Content-Length', length(clobdoc)) ;
2332: utl_http.set_header(l_http_req, 'SOAPAction', 'initiate');
2333: utl_http.write_text(l_http_req, clobdoc) ;
2334: l_http_resp := utl_http.get_response (l_http_req);
2335:
2336: IF l_debug_on
2337: THEN
2330:
2331: utl_http.set_header(l_http_req, 'Content-Length', length(clobdoc)) ;
2332: utl_http.set_header(l_http_req, 'SOAPAction', 'initiate');
2333: utl_http.write_text(l_http_req, clobdoc) ;
2334: l_http_resp := utl_http.get_response (l_http_req);
2335:
2336: IF l_debug_on
2337: THEN
2338: WSH_DEBUG_SV.log(l_module_name,'Status Code of response is '||l_http_resp.status_code);
2341: END IF;
2342:
2343: BEGIN
2344: LOOP
2345: utl_http.read_line(
2346: l_http_resp
2347: ,v_read_line
2348: ,TRUE);
2349:
2364: -- Look for client-side error and report it.
2365: IF l_http_resp.status_code >= 400 AND
2366: l_http_resp.status_code <= 499
2367: THEN
2368: IF l_http_resp.status_code = utl_http.http_unauthorized
2369: THEN
2370: utl_http.get_authentication(
2371: l_http_resp
2372: ,l_my_scheme
2366: l_http_resp.status_code <= 499
2367: THEN
2368: IF l_http_resp.status_code = utl_http.http_unauthorized
2369: THEN
2370: utl_http.get_authentication(
2371: l_http_resp
2372: ,l_my_scheme
2373: ,l_my_realm
2374: ,l_my_proxy);
2400: WSH_DEBUG_SV.log(l_module_name,'Please Check the URL.');
2401: END IF;
2402: END IF;
2403:
2404: utl_http.end_response(l_http_resp);
2405: RETURN;
2406: -- Look for server-side error and report it.
2407: ELSIF l_http_resp.status_code >= 500 AND
2408: l_http_resp.status_code <= 599
2410: IF l_debug_on THEN
2411: WSH_DEBUG_SV.log(l_module_name,'Check if the URL is up.');
2412: END IF;
2413:
2414: utl_http.end_response(l_http_resp);
2415: RETURN;
2416: END IF;
2417:
2418: utl_http.end_response (l_http_resp);
2414: utl_http.end_response(l_http_resp);
2415: RETURN;
2416: END IF;
2417:
2418: utl_http.end_response (l_http_resp);
2419:
2420: IF l_debug_on THEN
2421: WSH_DEBUG_SV.log(l_module_name,'Parsing Response l_resp_txt');
2422: END IF;
2691: clobdoc CLOB;
2692: l_resp_txt CLOB;
2693: xdata XMLTYPE;
2694: l_xml XMLTYPE;
2695: l_http_req utl_http.req;
2696: l_http_resp utl_http.resp;
2697: v_read_line VARCHAR2(32767);
2698: l_my_scheme VARCHAR2(256);
2699: l_my_realm VARCHAR2(256);
2692: l_resp_txt CLOB;
2693: xdata XMLTYPE;
2694: l_xml XMLTYPE;
2695: l_http_req utl_http.req;
2696: l_http_resp utl_http.resp;
2697: v_read_line VARCHAR2(32767);
2698: l_my_scheme VARCHAR2(256);
2699: l_my_realm VARCHAR2(256);
2700: l_my_proxy BOOLEAN;
2831: THEN
2832: RAISE WSH_U_PROXY;
2833: END IF;
2834:
2835: utl_http.set_wallet(
2836: 'file:'||G_ORA_WALLET_PATH
2837: , G_ORA_WALLET_PASSSWD);
2838:
2839: utl_http.set_detailed_excp_support ( enable => true );
2835: utl_http.set_wallet(
2836: 'file:'||G_ORA_WALLET_PATH
2837: , G_ORA_WALLET_PASSSWD);
2838:
2839: utl_http.set_detailed_excp_support ( enable => true );
2840: utl_http.set_response_error_check(enable =>true);
2841:
2842: --Only if there is l_internet_proxy then we need to set it up.
2843: IF l_internet_proxy IS NOT NULL
2836: 'file:'||G_ORA_WALLET_PATH
2837: , G_ORA_WALLET_PASSSWD);
2838:
2839: utl_http.set_detailed_excp_support ( enable => true );
2840: utl_http.set_response_error_check(enable =>true);
2841:
2842: --Only if there is l_internet_proxy then we need to set it up.
2843: IF l_internet_proxy IS NOT NULL
2844: THEN
2841:
2842: --Only if there is l_internet_proxy then we need to set it up.
2843: IF l_internet_proxy IS NOT NULL
2844: THEN
2845: utl_http.set_proxy ( l_internet_proxy , NULL);
2846: END IF;
2847:
2848: l_http_req := utl_http.begin_request ( l_carrier_api_url, 'POST','HTTP/1.1');
2849: utl_http.set_header ( l_http_req, 'Content-Type', 'text/xml') ;
2844: THEN
2845: utl_http.set_proxy ( l_internet_proxy , NULL);
2846: END IF;
2847:
2848: l_http_req := utl_http.begin_request ( l_carrier_api_url, 'POST','HTTP/1.1');
2849: utl_http.set_header ( l_http_req, 'Content-Type', 'text/xml') ;
2850: utl_http.set_header(l_http_req, 'Content-Length', length(clobdoc)) ;
2851: utl_http.set_header(l_http_req, 'SOAPAction', 'initiate');
2852: utl_http.write_text(l_http_req, clobdoc) ;
2845: utl_http.set_proxy ( l_internet_proxy , NULL);
2846: END IF;
2847:
2848: l_http_req := utl_http.begin_request ( l_carrier_api_url, 'POST','HTTP/1.1');
2849: utl_http.set_header ( l_http_req, 'Content-Type', 'text/xml') ;
2850: utl_http.set_header(l_http_req, 'Content-Length', length(clobdoc)) ;
2851: utl_http.set_header(l_http_req, 'SOAPAction', 'initiate');
2852: utl_http.write_text(l_http_req, clobdoc) ;
2853:
2846: END IF;
2847:
2848: l_http_req := utl_http.begin_request ( l_carrier_api_url, 'POST','HTTP/1.1');
2849: utl_http.set_header ( l_http_req, 'Content-Type', 'text/xml') ;
2850: utl_http.set_header(l_http_req, 'Content-Length', length(clobdoc)) ;
2851: utl_http.set_header(l_http_req, 'SOAPAction', 'initiate');
2852: utl_http.write_text(l_http_req, clobdoc) ;
2853:
2854: l_http_resp := utl_http.get_response (l_http_req);
2847:
2848: l_http_req := utl_http.begin_request ( l_carrier_api_url, 'POST','HTTP/1.1');
2849: utl_http.set_header ( l_http_req, 'Content-Type', 'text/xml') ;
2850: utl_http.set_header(l_http_req, 'Content-Length', length(clobdoc)) ;
2851: utl_http.set_header(l_http_req, 'SOAPAction', 'initiate');
2852: utl_http.write_text(l_http_req, clobdoc) ;
2853:
2854: l_http_resp := utl_http.get_response (l_http_req);
2855:
2848: l_http_req := utl_http.begin_request ( l_carrier_api_url, 'POST','HTTP/1.1');
2849: utl_http.set_header ( l_http_req, 'Content-Type', 'text/xml') ;
2850: utl_http.set_header(l_http_req, 'Content-Length', length(clobdoc)) ;
2851: utl_http.set_header(l_http_req, 'SOAPAction', 'initiate');
2852: utl_http.write_text(l_http_req, clobdoc) ;
2853:
2854: l_http_resp := utl_http.get_response (l_http_req);
2855:
2856: IF l_debug_on
2850: utl_http.set_header(l_http_req, 'Content-Length', length(clobdoc)) ;
2851: utl_http.set_header(l_http_req, 'SOAPAction', 'initiate');
2852: utl_http.write_text(l_http_req, clobdoc) ;
2853:
2854: l_http_resp := utl_http.get_response (l_http_req);
2855:
2856: IF l_debug_on
2857: THEN
2858: WSH_DEBUG_SV.log(l_module_name,'Status Code of response is '||l_http_resp.status_code);
2861: END IF;
2862:
2863: BEGIN
2864: LOOP
2865: utl_http.read_line(
2866: l_http_resp
2867: ,v_read_line
2868: ,TRUE);
2869:
2884: -- Look for client-side error and report it.
2885: IF l_http_resp.status_code >= 400 AND
2886: l_http_resp.status_code <= 499
2887: THEN
2888: IF l_http_resp.status_code = utl_http.http_unauthorized
2889: THEN
2890: utl_http.get_authentication(
2891: l_http_resp
2892: ,l_my_scheme
2886: l_http_resp.status_code <= 499
2887: THEN
2888: IF l_http_resp.status_code = utl_http.http_unauthorized
2889: THEN
2890: utl_http.get_authentication(
2891: l_http_resp
2892: ,l_my_scheme
2893: ,l_my_realm
2894: ,l_my_proxy);
2920: WSH_DEBUG_SV.log(l_module_name,'Please Check the URL.');
2921: END IF;
2922: END IF;
2923:
2924: utl_http.end_response(l_http_resp);
2925: RETURN;
2926: -- Look for server-side error and report it.
2927: ELSIF l_http_resp.status_code >= 500 AND
2928: l_http_resp.status_code <= 599
2930: IF l_debug_on THEN
2931: WSH_DEBUG_SV.log(l_module_name,'Check if the URL is up.');
2932: END IF;
2933:
2934: utl_http.end_response(l_http_resp);
2935: RETURN;
2936: END IF;
2937:
2938: utl_http.end_response (l_http_resp);
2934: utl_http.end_response(l_http_resp);
2935: RETURN;
2936: END IF;
2937:
2938: utl_http.end_response (l_http_resp);
2939:
2940: IF l_debug_on THEN
2941: WSH_DEBUG_SV.log(l_module_name,'Parsing Response l_resp_txt');
2942: END IF;