How to access UCM Web Service in Oracle.

Question

Hi All,
I am trying to call UCM Web Service (CheckIn.wsdl) using oracle.
But these web services are secured and expecting username/password.
Any one have any idea to pass username/password in oracle function.
My Code :-
CREATE OR REPLACE FUNCTION checkin (dDocName IN VARCHAR2,dDocTitle IN VARCHAR2,dDocType IN VARCHAR2,
dDocAuthor IN VARCHAR2,dSecurityGroup IN VARCHAR2,dDocAccount IN VARCHAR2,
primaryFile IN VARCHAR2)                              
return number
AS
l_service SYS.UTL_DBWS.service;
l_call SYS.UTL_DBWS.call;
newurl VARCHAR2(32767);
l_wsdl_url VARCHAR2(32767);
l_namespace VARCHAR2(32767);
l_service_qname SYS.UTL_DBWS.qname;
l_port_qname SYS.UTL_DBWS.qname;
l_operation_qname SYS.UTL_DBWS.qname;
l_xmltype_in SYS.XMLTYPE;
l_xmltype_out SYS.XMLTYPE;
BEGIN
l_wsdl_url := 'http://localhost:16200/cs/groups/secure/wsdl/custom/CheckIn?wsdl';
l_namespace := 'http://www.stellent.com/CheckIn/';
l_service_qname := SYS.UTL_DBWS.to_qname(l_namespace, 'CheckIn');
l_port_qname := SYS.UTL_DBWS.to_qname(l_namespace, 'CheckInSoap');
l_operation_qname := SYS.UTL_DBWS.to_qname(l_namespace, 'CheckInUniversal');
l_service := SYS.UTL_DBWS.create_service (
wsdl_document_location => URIFACTORY.getURI(l_wsdl_url),
service_name => l_service_qname);
l_call := SYS.UTL_DBWS.create_call (
service_handle => l_service,
port_name => l_port_qname,
operation_name => l_operation_qname);
l_xmltype_in := SYS.XMLTYPE('<?xml version="1.0" encoding="utf-8"?>
<CheckInUniversal xmlns="' || l_namespace || '">
<VARCHAR2>' || dDocName || '</VARCHAR2>
<VARCHAR2>' || dDocTitle || '</VARCHAR2>
<VARCHAR2>' || dDocType || '</VARCHAR2>
<VARCHAR2>' || dDocAuthor || '</VARCHAR2>
<VARCHAR2>' || dSecurityGroup || '</VARCHAR2>
<VARCHAR2>' || dDocAccount || '</VARCHAR2>
<VARCHAR2>' || primaryFile || '</VARCHAR2>
</CheckInUniversal>');
l_xmltype_out := SYS.UTL_DBWS.invoke(call_Handle => l_call,
request => l_xmltype_in);
SYS.UTL_DBWS.release_call (call_handle => l_call);
SYS.UTL_DBWS.release_service (service_handle => l_service);
END;
It's compiling successfully.
When ever i am trying to run using
SELECT checkin ('WEBSERVICE009','WEBSERVICE009', 'Document','weblogic','Private','IT/EBA/Distributor_testuser','D:/ucmfiles/test_WebService_11.txt') FROM dual;
It's expecting username/password...
Any body have any idea.

Answer 1

If you are using apex, you have access to the wwv_flow_web_services package that has all the procs you need to made this work. If not, you can use flex_ws_api, which, although a bit out of date, should still work. This can be found at: http://jastraub.blogspot.com/2009/11/flexwsapi-no-on-samplecodeoraclecom.html
Hopefully this will get you the start you need. Don't forget soapUI. This has proved to be invaluable in my development just to prove something works. It becomes a very easy way when I keep hearing, "UCM doesn't work....".
Check-In
-- Modify and create select that will get filename and content from a table.
-- set serverouput on
-- make sure flex_ws_api package is installed in same schema that you run this.
declare
l_filename varchar2(100);
l_login varchar2(20);
l_ddocname varchar2(20);
l_BLOB BLOB;
l_CLOB CLOB;
l_envelope CLOB;
l_response_msg varchar2(32767);
begin
  select name, content, ddocname
  into l_filename, l_BLOB, l_ddocname
  from pdfs
  where id = 1;
  l_login := 'kalee';
  l_CLOB := flex_ws_api.blob2clobbase64(l_BLOB);
  l_envelope := '<?xml version=''''1.0'''' encoding=''''UTF-8''''?>';
  l_envelope := l_envelope || '<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:chec="http://www.stellent.com/CheckIn/">';
  l_envelope := l_envelope || '<soapenv:Header/>';
  l_envelope := l_envelope || '  <soapenv:Body>';
  l_envelope := l_envelope || '     <chec:CheckInUniversal>';
  if length(ltrim(rtrim(l_ddocname))) > 0 then
    l_envelope := l_envelope || '        <chec:dDocName>'||l_ddocname||'</chec:dDocName>';
  end if;
  l_envelope := l_envelope || '        <chec:dDocTitle>'||l_filename||'</chec:dDocTitle>';
  l_envelope := l_envelope || '        <chec:dDocType>WebContent</chec:dDocType>';
  l_envelope := l_envelope || '        <chec:dDocAuthor>'||l_login||'</chec:dDocAuthor>';
  l_envelope := l_envelope || '        <chec:dSecurityGroup>Public</chec:dSecurityGroup>';
  l_envelope := l_envelope || '        <chec:dDocAccount>WebContent</chec:dDocAccount>';
  l_envelope := l_envelope || '        <chec:CustomDocMetaData>';
  l_envelope := l_envelope || '           <chec:property>';
  l_envelope := l_envelope || '              <chec:name>xDCSDProfileTrigger</chec:name>';
  l_envelope := l_envelope || '              <chec:value>WebContent</chec:value>';
  l_envelope := l_envelope || '           </chec:property>';
  l_envelope := l_envelope || '        </chec:CustomDocMetaData>';
  l_envelope := l_envelope || '        <chec:primaryFile>';
  l_envelope := l_envelope || '           <chec:fileName>'||l_filename||'</chec:fileName>';
  l_envelope := l_envelope || '           <chec:fileContent>'||l_CLOB||'</chec:fileContent>';
  l_envelope := l_envelope || '        </chec:primaryFile>';
  l_envelope := l_envelope || '     </chec:CheckInUniversal>';
  l_envelope := l_envelope || '  </soapenv:Body>';
  l_envelope := l_envelope || '</soapenv:Envelope>';
  l_xmltype := flex_ws_api.make_request(
    p_url               => 'https://ucmdev.dcsdk12.org/_dav/cs/idcplg',
    p_action            => 'http://www.stellent.com/Search/',
    p_envelope          => l_envelope,
    p_username          => 'admin',
    p_password          => 'password',
    p_wallet_path       => 'file:/u01/app/oracle/admin/SADD/wallet',
    p_wallet_pwd        => 'walletpassword'
  l_response_msg := flex_ws_api.parse_response(p_collection_name=>'STELLENT_CHECKIN',p_xpath=>'//idc:CheckInUniversalResponse/idc:CheckInUniversalResult/idc:StatusInfo/idc:statusMessage/text()',p_ns=>'xmlns:idc="http://www.stellent.com/CheckIn/"');
  dbms_output.put_line(l_response_msg);
exception
  when others then
    dbms_output.put_line(l_response_msg);
    raise;
end;
/Search
declare
  l_envelope CLOB;
  l_xmltype XMLTYPE;
  l_response varchar2(100);
  ecode NUMBER;
  emesg VARCHAR2(200);
  cursor searchresults_cur(p_xmltype xmltype) is
    SELECT
      extractvalue(column_value, '/idc:SearchResults/idc:dDocName','xmlns:idc="http://www.stellent.com/Search/"') DOCNAME,
      extractvalue(column_value, '/idc:SearchResults/idc:dDocTitle','xmlns:idc="http://www.stellent.com/Search/"') DOCTITLE
    FROM TABLE(XMLSequence(p_xmltype.extract('//idc:QuickSearchResponse/idc:QuickSearchResult/idc:SearchResults','xmlns:idc="http://www.stellent.com/Search/"')));
  searchresults_rec searchresults_cur%ROWTYPE;
begin
  l_envelope := '<?xml version=''''1.0'''' encoding=''''UTF-8''''?>';
  l_envelope := l_envelope || '<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:sear="http://www.stellent.com/Search/">';
  l_envelope := l_envelope || ' <soapenv:Header/>';
  l_envelope := l_envelope || ' <soapenv:Body>';
  l_envelope := l_envelope || '  <sear:QuickSearch>';
  l_envelope := l_envelope || '   <sear:queryText>dDocAuthor &lt;matches&gt; `kalee`</sear:queryText>';
  l_envelope := l_envelope || '  </sear:QuickSearch>';
  l_envelope := l_envelope || ' </soapenv:Body>';
  l_envelope := l_envelope || '</soapenv:Envelope>';
  -- dbms_output.put_line('(soapenv)='||l_envelope);
  l_xmltype := flex_ws_api.make_request(
    p_url               => 'https://ucm.yourdomain/_dav/cs/idcplg',
    p_action            => 'http://www.stellent.com/Search/',
    p_envelope          => l_envelope,
    p_username          => 'admin',
    p_password          => 'password',
    p_wallet_path       => 'file:/u01/app/oracle/admin/DATABASESID/wallet',
    p_wallet_pwd        => 'walletpassword'
  -- dbms_output.put_line('(xml)='||substr(l_xmltype.GetClobVal(),1,2000));
  open searchresults_cur(l_xmltype);
  loop
    fetch searchresults_cur into searchresults_rec;
    exit when searchresults_cur%NOTFOUND;
    dbms_output.put_line('(dDocName)='||searchresults_rec.DOCNAME||' (dDocTitle)='||searchresults_rec.DOCTITLE); 
  end loop;
  if searchresults_cur%ROWCOUNT = 0 then
    dbms_output.put_line('No records found!'); 
  end if;
  close searchresults_cur;
exception
  when others then
    ecode := SQLCODE;
    emesg := SQLERRM;
    --insert into log_table (code,message,info) values (0,TO_CHAR(ecode) || '-' || emesg,'.CheckinDocument emesg');
    --commit;
    raise;
end;
/