D SEND^XMLTCP I $G(XM)["D" S XMTRAN="S: "_$E(XMSG,1,242) D TRAN^XMC1
RECEIVE
D REC^XMLTCP I $G(XM)["D" S XMTRAN="R: "_$E(XMRG,1,242) D TRAN^XMC1
OPEN
S (X,XMLINE,XMLCHAR,XMLER,XMLST,XMNO220)=0,XMLTCP="",XMSTIME=60
CLOSE
K XMLTCP L -^XMBX("TCPCHAN",XMHOST) Q
DESCRIPTION
This protocol is for MailMan to use across a TCP/IP channel. Important
things to know about this channel:
1. A "!" puts the last written characters into the TCP/IP buffer