For getting onto webservices we use this sort of code:
sec_context=''
L.ERR+=createSecurityContext(sec_context,'')
usedAs=1 ; 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 = '/PROD/certificates' ; extensions = '' ; CertOut =
'/PROD/actualcert/cert1'
* ret =
createCertificate(action,req,priveKey,"explore",CACert,365,extensions,Ce
rtOut)
ret = addCertificate(CertOut, usedAs, format, algorithm,
sec_context)
depth=0 ; * self signed
serverOrClient=2 ; * client
L.ERR+=setAuthenticationDepth(sec_context, depth, serverOrClient)
ret =
addAuthenticationRule(sec_context,serverOrClient,"VerificationStrength",
"Generous")
L.ERR+=setHTTPDefault("HEADERS","")
L.ERR+=setHTTPDefault("VERSION","1.1")
request_handle=''
L.ERR+=createSecureRequest(URL, "POST", request_handle,
sec_context)
L.ERR+=addRequestParameter(request_handle, "xmlStream", XML, "")
L.STATUS = 0 ; L.OUTPUT = "" ; L.TIMEOUT = "" ; L.POST.DATA ="" ;
L.HEADER = ""
L.ERR+=submitRequest(request_handle, "", "", L.HEADER, L.OUTPUT,
L.STATUS)
For doing a simple socket interchange we use this sort of thing:
LOOP
UNTIL NO.RETRIES GT MAX.RETRIES
RESULT=openSocket(SERVER.IP.ADDRESS,SOCKET.PORT,BLOCKINGMODE,TIMEOUT,SOC
KETHANDLE1)
IF RESULT = 0 THEN
OPENFAILED = ''
SRDATA := CHAR(000)
INCOMINGCODE = 'None'
ENTRYDATE= DATE() ; ENTRYTIME = TIME() ; MSGSTATUS = ''
WRITE.OK = '' ; READ.OK = ''
IF @LOGNAME = 'bbb' AND TIMINGS = 1 THEN
T$TIMEINGS<3> = TIME()
END
RESULT=writeSocket(SOCKETHANDLE1,SRDATA,TIMEOUT,BLOCKINGMODE,SDATLEN)
IF RESULT = 0 THEN
WRITE.OK = 1
READOVER = '' ; ALLDATA = '' ; GOTANAK = ''
LOOP UNTIL READOVER
CLDATA = ''
RESULT=readSocket(SOCKETHANDLE1,CLDATA,CDATLEN,TIMEOUT,BLOCKINGMODE,ACTS
IZ)
ALLDATA := CLDATA
IF ALLDATA[LEN(ALLDATA),1] = CHAR(000) THEN READOVER =
1
IF PARAM = 'COMMSXLSERVER' THEN
IF ALLDATA = 'NAK' THEN
READOVER = 1
GOTANAK = 1
END
IF ALLDATA[1,3] = 'ACK' THEN
* Authorisation data to come do another read loop
AUTHOVER = ''
LOOP UNTIL AUTHOVER
CLDATA = ''
RESULT=readSocket(SOCKETHANDLE1,CLDATA,CDATLEN,TIMEOUT,BLOCKINGMODE,ACTS
IZ)
ALLDATA := CLDATA
IF ALLDATA[LEN(ALLDATA),1] = CHAR(000) THEN
AUTHOVER = 1
IF CLDATA = '' THEN AUTHOVER = 1
REPEAT
END
END
IF CLDATA = '' THEN READOVER = 1
REPEAT
IF @LOGNAME = 'bbb' AND TIMINGS = 1 THEN
T$TIMEINGS<4> = TIME()
END
IF RESULT NE 0 THEN
GOSUB EMAILERROR
END ELSE
NO.RETRIES = 99999
NULL
END
END ELSE
GOSUB EMAILERROR
END
RESULT=closeSocket(SOCKETHANDLE1)
IF @LOGNAME = 'bbb' AND TIMINGS = 1 THEN
T$TIMEINGS<5> = TIME()
END
END ELSE
GOSUB EMAILERROR
END
NO.RETRIES += 1
REPEAT
Hope that gives you some ideas :-)
Bob
Confidentiality Notice: This e-mail and any attachments are intended solely
for the addressee and may contain confidential or privileged information.
If you are not the named addressee, or the person responsible for delivering
the message to the named addressee, please notify the sender as soon as
possible and delete the material from your computer. This message will be
protected by copyright. If it has come to you in error, you must not take any
action based on its contents nor must you copy or show the message to any
person other than the intended recipient.
_____________________________________________________________________
This email has been scanned by the MessageLabs Email Security System.
For more information please visit http://www.messagelabs.com/email
______________________________________________________________________
-------
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
