on construct me 
  return(me.regMsgList(1))
end

on deconstruct me 
  return(me.regMsgList(0))
end

on getDate me 
  if connectionExists(getVariable("connection.info.id")) then
    return(getConnection(getVariable("connection.info.id")).send("GDATE"))
  else
    return FALSE
  end if
end

on handle_date me, tMsg 
  tConn = tMsg.getaProp(#connection)
  if not tConn then
    return FALSE
  end if
  tMsg = tConn.GetStrFrom()
  tDelim = the itemDelimiter
  the itemDelimiter = "-"
  if (tMsg.count(#item) = 3) then
    tMsg = tMsg.getProp(#item, 1) & "." & tMsg.getProp(#item, 2) & "." & tMsg.getProp(#item, 3)
    getObject(#session).set("server_date", tMsg)
    the itemDelimiter = tDelim
    return(executeMessage(#serverDate, tMsg))
  end if
  the itemDelimiter = tDelim
end

on regMsgList me, tBool 
  tMsgs = [:]
  tMsgs.setaProp(163, #handle_date)
  tCmds = [:]
  tCmds.setaProp("GDATE", 49)
  if tBool then
    registerListener(getVariable("connection.info.id"), me.getID(), tMsgs)
    registerCommands(getVariable("connection.info.id"), me.getID(), tCmds)
  else
    unregisterListener(getVariable("connection.info.id"), me.getID(), tMsgs)
    unregisterCommands(getVariable("connection.info.id"), me.getID(), tCmds)
  end if
  return TRUE
end