Been playing with connecting to google talk, and I've got the first few messages to come across properly. But, for some reason I can't get past the part where it says proceed after I send starttls. Been going off of the documentation found at http://xmpp.org/rfcs/rfc3920.html#tls. Is anyone familiar with jabber/xmpp that might be able to give me a clue as to what I need to do after I get the proceed message?
Perhaps I'm going about something incorrectly, I'd appreciate any help you guys can offer. Here's my test code.
Code: Select all
Procedure.s NetRequest(cid, req$)
response$ = ""
SendNetworkString(cid, req$)
Repeat
cEvent = NetworkClientEvent(cid)
Select cEvent
Case #PB_NetworkEvent_Data
*Buffer = AllocateMemory(3000)
ReceiveNetworkData(cid, *Buffer, 3000)
response$ = PeekS(*Buffer)
FreeMemory(*Buffer)
Debug response$
EndSelect
Delay(200)
;Until cEvent = #PB_NetworkEvent_Data
Until response$ <> ""
ProcedureReturn response$
EndProcedure
InitNetwork()
OpenWindow(1, 0, 0, 200, 200, "test")
connid = OpenNetworkConnection("talk.google.com", 5222)
If connid
;send inital string
request$ = "<stream:stream" + Chr(10)
request$ + " xmlns='jabber:server'" + Chr(10)
request$ + " xmlns:stream='http://etherx.jabber.org/streams'" + Chr(10)
request$ + " to='gmail.com'" + Chr(10)
request$ + " version='1.0'>"
If NetRequest(connid, request$)
Debug "...got initial response. sending starttls msg.."
request$ = "<starttls xmlns='urn:ietf:params:xml:ns:xmpp-tls'/>"
If NetRequest(connid, request$)
Debug "...got proceed msg. sending initial again.."
;send inital string (again)?
request$ = "<stream:stream" + Chr(10)
request$ + " xmlns='jabber:server'" + Chr(10)
request$ + " xmlns:stream='http://etherx.jabber.org/streams'" + Chr(10)
request$ + " to='gmail.com'" + Chr(10)
request$ + " version='1.0'>" + Chr(10)
If NetRequest(connid, request$)
Debug "... omg got something back"
EndIf
EndIf
EndIf
Else
Debug "no connection id.. ending."
End
EndIf
Repeat
cEvent = NetworkClientEvent(connid)
event = WaitWindowEvent()
Select cEvent
Case #PB_NetworkEvent_Data
*Buffer = AllocateMemory(3000)
ReceiveNetworkData(connid, *Buffer, 3000)
response$ = PeekS(*Buffer)
FreeMemory(*Buffer)
Debug response$
EndSelect
Delay(1)
Until event = #PB_Event_CloseWindow
