This manual will describe the process of Stages To create an E-Payment via the B2B engine.
INSERT INTO gen.gnqb2p (gnqb2bpcode,gnqb2bpname,gnqepayyn) VALUES ('MWEB','MWEB E-Payments','N');
set serveroutput on size 20000 CREATE OR REPLACE PROCEDURE xxolltst IS v_pieces SYS.UTL_HTTP.HTML_PIECES; v_url VARCHAR2(2000); v_blob BLOB; v_clob CLOB; v_wallet_file VARCHAR2(256) := gen.g54_its_sod('WF', 'BB', 'A'); -- 'file://disk3/itsv13'; v_wallet_password VARCHAR2(256) := gen.g54_its_sod('WP', 'BB', 'A'); -- 'admin123'; v_var XMLTYPE; v_value VARCHAR2(2000); BEGIN --v_url := 'http://www.its.co.za'; --v_url := 'http://www.its.co.za/info/index.php'; v_url := 'https://secure.safeshop.co.za/s2s/myip.asp'; DBMS_LOB.CreateTemporary(v_blob, FALSE); DBMS_LOB.CreateTemporary(v_clob, FALSE); UTL_HTTP.SET_WALLET(v_wallet_file, v_wallet_password); UTL_HTTP.set_transfer_timeout(7200); v_pieces := UTL_HTTP.request_pieces(v_url, 200000); FOR v_i IN 1..v_pieces.count LOOP DBMS_LOB.WriteAppend(v_blob, LENGTH(v_pieces(v_i)), UTL_RAW.CAST_TO_RAW(v_pieces(v_i))); END LOOP; gen.g10pkg.blob2clob(v_blob, v_clob); v_var := XMLTYPE(v_clob); SELECT EXTRACTVALUE(v_var, '/Safe/RemoteIP') INTO v_value FROM DUAL; DBMS_OUTPUT.PUT_LINE('IP='||v_value); --DBMS_LOB.freeTemporary(v_clob); --DBMS_LOB.CreateTemporary(v_clob, FALSE); --SELECT updateXML(v_var, '/Safe/RemoteIP/text()', '********').EXTRACT('/').getCLobVal() --INTO v_clob --FROM gen.gaoins; DBMS_OUTPUT.PUT_LINE('---------------------------'); DBMS_OUTPUT.PUT_LINE(SUBSTR(v_clob,1,250)); DBMS_OUTPUT.PUT_LINE(SUBSTR(v_clob,251,250)); DBMS_OUTPUT.PUT_LINE(SUBSTR(v_clob,501,250)); DBMS_OUTPUT.PUT_LINE('---------------------------'); DBMS_LOB.freeTemporary(v_clob); DBMS_LOB.freeTemporary(v_blob); END xxolltst; / show errors execute xxolltst; drop procedure xxolltst; |
<?xml version="1.0" ?><Safe><RemoteIP>196.46.143.212</RemoteIP></Safe>
Processing Rules |
|
---|---|
No special processing rules. |
Date | System Version | By Whom | Job | Description |
---|---|---|---|---|
29-Oct-2009 | v01.0.0.0 | Charlene van der Schyff | t160044 | New manual. |