Procedure doSend(message.s)
  Debug "Sending: " + message
  ! websocket.send(v_message);
  Debug "-------"
EndProcedure

Procedure onOpen(evt)
  Debug "onOpen()"
  ; Debug evt
  Debug "-------"
  doSend("WebSocket rocks")
EndProcedure

Procedure onClose(evt)
  Debug "onClose"
  ; Debug evt
  Debug "-------"
EndProcedure

Procedure onMessage(evt)
  Debug "onMessage()"
  Protected MessageFromWs.s
  ! v_messagefromws = v_evt.data;
  Debug "MessageFromWs: " + MessageFromWs
  Debug "-------"
  ! websocket.close();
EndProcedure

Procedure onError(evt)
  Debug "onError()"
  ; Debug evt
  Debug "-------"
EndProcedure

Procedure Dummy()
  onOpen(0)
  onClose(0)
  onMessage(0)
  onError(0)
EndProcedure

Procedure initWebSocket(wsUri.s)
  ! websocket = new WebSocket(v_wsuri);
  ! websocket.onopen = function(evt) { f_onopen(evt) };
  ! websocket.onclose = function(evt) { f_onclose(evt) };
  ! websocket.onmessage = function(evt) { f_onmessage(evt) };
  ! websocket.onerror = function(evt) { f_onerror(evt) };
EndProcedure


initWebSocket("ws://echo.websocket.org/")