alias TCPLogConnect {
  sockopen TCPLog 127.0.0.1 7025
  echo -s Status $Sock(TCPLog).status
}

alias TCPLogDisconnect {
  sockclose TCPLog
}

on *:sockopen:TCPLog*:{
  echo -s Connection
  if ($sockerr) { 
    echo -s Unable to connect $Sock(TCPLOG).wsmsg
  }
}

on *:sockread:TCPLog*:{
  if ($sockerr) { 
    return
  }
  sockread -n &TCPLogRead
  if ($sockbr == 0) {
    return
  }
  var %Offset = 0
  var %Len = $bvar(&TCPLogRead,0)
  if (%Len < 8) { 
    return 
  }
  if ($bvar(&TCPLogRead,1) == 0) { 
    %Offset = 1 
  }
  var %ID = $bvar(&TCPLogRead,$calc(%Offset + 1),3).text
  var %Message = $bvar(&TCPLogRead,$calc(%Offset + 15),%Len).text
  if ( %Message ) {
    if (%ID == 000) {
      echo -s %ID %Message
    }
    else if (%ID == 001) { 
      echo -s %ID %Message
    }
    else if (%ID == 002) { 
      echo -s %ID %Message
    }
  }
}