XMS ;ISC-SF/GMB-SMTP Send ;07/11/2002 07:52
Source file <XMS.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ENTER | ;
; Variables ; XMINST Institution number ; XMSITE Institution name ; XMIO same as ZTIO |
|
| SEND | ;
|
|
| INIT | ;
|
|
| SYNCH | ; Recv: "220 REMOTE.DOMAIN.EXT MailMan 8.0 ready"
|
|
| HELO(XMINST,XMSITE) | ;
; Send: "HELO LOCAL.DOMAIN.EXT <security num>" ; Recv: "250 OK REMOTE.DOMAIN.EXT <security num> [8.0,DUP,SER,FTP]" |
|
| PROCESS(XMINST,XMB) | ;
|
|
| NEXT(XMK) | ; Returns the next message (XMZ) in basket XMK to go out.
; The next XMZ flagged 'high-priority' is next. ; Barring that, the next 'regular-priority' XMZ is next. ; Barring that, the next 'low-priority' XMZ is next. ; If an XMZ was involved in the failure of the previous transmission, ; that XMZ will be 'low-priority'. |
|
| NEXTPRI(XMK,XMTPRI) | ; Get the next high/low priority message
|
|
| NEXTOK(XMK,XMZ) | ; Ensure msg is in file 3.9 & still has recipients q'd
|
|
| QUIT | ;
|
|
| RSET | ; Send: "RSET"
; Recv: "250" |
|
| TURN(XMINST) | ; Turn around channel
; Send: "TURN" ; Recv: "250 REMOTE.DOMAIN.EXT has messages to export" ; or: "502 REMOTE.DOMAIN.EXT has no messages to export" |
|
| CHRISTN | ; Christen the remote domain
|
|
| TESTLNK | ; Test the link
|
|
| TESTERR | ;
|
|
| TESTIT(XMLINES,XMCHARS,XMUERR,XMTLER) | ;
|
|
| TESTRSLT(XMSTIME,XMETIME,XMLINES,XMCHARS,XMUERR,XMTLER) | ;
|
