Hello,
The URL of a webservice I need to use has a port number in it ei:
Acceptance =
"https://Leonardo.Rafael.be:9101/CustomerOrder/OrderManagementService/01/"
The libraries U2 libraries I'm using are somehow interpreting:
Leonardo.Rafael.be:9101 as the complete hostname (which it doesn't find in the
host file.
05/29/2012 16:07:02 [ 26930 26925 ] new host 221010:Leonardo.Rafael.be:9101
allocated (proxy:no)
05/29/2012 16:07:02 [ 26930 26925 ] host Leonardo.Rafael.be:9101 not found in
hostList
05/29/2012 16:07:09 [ 26930 26925 ] Unknown socket error : 1000
The code below is from the pick wiki article. Any ideas on now to get
CreateSecureRequest() to interpret the host + port correctly ?
Thanks.
*** ########### Code ################***
*For getting onto webservices we use this sort of code:
* Read an xml request to send to the webservice *
OPEN "", "WORK.OUT" TO WORK.OUT ELSE STOP 201, "WORK.OUT"
READ XML.REQUEST FROM WORK.OUT, "TURTLE.XML" ELSE STOP
XML.REQUEST = CONVERT(@AM,"",XML.REQUEST)
PROMPT '' ;* 212.65.63.70
Acceptance =
"https://Leonardo.Rafael.be:9101/CustomerOrder/OrderManagementService/01/"
** Acceptance =
"https://212.65.63.70:9101/CustomerOrder/OrderManagementService/01/"
Production =
"https://Leonardo.Rafael.be/CustomerOrder/OrderManagementService/01/"
X.LOG.FILE = "/trace_pc/work.out/CERT.LOG"
X.LOG.ACTION = 'ON'
X.LOG.LEVEL = '10'
WRITE "" ON WORK.OUT, "CERT.LOG" ;* Overwrite existing log file
X.RTN.CODE = protocolLogging(X.LOG.FILE, X.LOG.ACTION,X.LOG.LEVEL)
URL = Acceptance ;* Setting URL to the acceptance site
L.ERR = ""
sec_context=''
L.ERR =createSecurityContext(sec_context,'')
usedAs=2 ;* 2 = Issuer Certificate CA
format = 2 ; algorithm = 1 ;
* Uncomment to next 4 lines to create a new certificate
* they only last for 365 days
* action = 1
* req = '/PROD/certificates'
CACert = '/trace_pc/work.out/CERT/REPTILE_SERVERS_CA.CRT' ; extensions =
'' ; CertOut = '/trace_pc/work.out/CERT/ACTUAL'
* ret =
createCertificate(action,req,priveKey,"explore",CACert,365,extensions,CertOut)
ret = addCertificate(CertOut, usedAs, format, algorithm,sec_context)
CRT "The Return code is ":ret
depth=1 ; * 0 = self signed, 1 = Signed by a CA
serverOrClient=2 ; * 1 = Server, 2 = client
L.ERR+=setAuthenticationDepth(sec_context, depth, serverOrClient)
CRT "L.ERR After setAuthenticationDepth : ":L.ERR
CRT "Hit a key to continue ":;XX = KEYIN()
ret =
addAuthenticationRule(sec_context,serverOrClient,"VerificationStrength","Generous")
L.ERR+=setHTTPDefault("HEADERS","")
CRT "L.ERR after addAuthenticationRule : ":L.ERR
CRT "Hit a key to continue ":;XX = KEYIN()
L.ERR+=setHTTPDefault("VERSION","1.1")
CRT "L.ERR after setHTTPDefault : ":L.ERR
CRT "Hit a key to continue ":;XX = KEYIN()
request_handle=''
L.ERR+=createSecureRequest(URL, "POST", request_handle,sec_context) ;*
Using the url
CRT "L.ERR after createSecureRequest : ":L.ERR
CRT "Hit a key to continue ":;XX = KEYIN()
XML = XML.REQUEST
MAX.RETRIES = 10
SERVER.IP.ADDRESS = "Leonardo.Rafael.be"
TIMEOUT = 90000
L.ERR+=addRequestParameter(request_handle, "xmlStream", XML, "")
CRT "L.ERR after addRequestParameter : ":L.ERR
CRT "Hit a key to continue ":;XX = KEYIN()
L.STATUS = 0 ; L.OUTPUT = "" ; L.TIMEOUT = "" ; L.POST.DATA ="" ;
L.HEADER = ""
L.ERR+=submitRequest(request_handle, TIMEOUT, L.POST.DATA, L.HEADER,
L.OUTPUT, L.STATUS)
CRT "L.ERR : ":L.ERR
CRT "L.HEADER":L.HEADER
CRT
CRT "L.OUTPUT":L.OUTPUT
CRT "L.POST.DATA":L.POST.DATA
SOCKET.PORT = 9101
BLOCKING.MODE = 1 ;* 1 = Blocking Mode, 2 = Non-Blocking Mode
X.LOG.ACTION = 'OFF'
X.RTN.CODE = protocolLogging(X.LOG.FILE, X.LOG.ACTION,X.LOG.LEVEL)
_______________________________________________
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users