XMR3 ;ISC-SF/GMB-SMTP Receiver (RFC 822) ;07/01/2002 14:11
Source file <XMR3.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DATA | ; TEXT / ASSUMES VALID RECIPIENT
; Incoming Variables: ; XMINSTR("FWD BY")="" ; XMZ message number of new message ; XMZFDA FM FDA for new message ; XMZIENS IENS for new message ; $D(XMC("DX")) means Test mode: Messages will not be delivered ; If the msg is from a VA site, the following may be set: ; XMREMID always set if the msg is from a VA site ; $G(XMRXMZ) message number of message we already have. ; Set if new message is a duplicate of one we already have. |
|
| GETDATA | ;
|
|
| NEXT(XMH,XMHDR,XMDATA) | ;
|
|
| HDRPROC | ; Process header commands
|
|
| TOOLONG() | ;
|
|
| SCRUB(X) | ; Strip ctrl chars and leading/trailing blanks
|
|
| BASK | ; "X-MM-BASKET:" (Delivery Basket)
|
|
| CLOS | ; "X-MM-CLOSED:YES"
|
|
| DATE | ; "DATE:"
|
|
| ENCR | ; "ENCRYPT:"
|
|
| EXPI | ; "EXPIRY-DATE:" (vaporize date)
|
|
| FROM | ; "FROM:"
|
|
| CONTINU(XMVBL,XMH,XMHDR) | ;
|
|
| IMPO | ; "IMPORTANCE:HIGH" (Priority)
|
|
| INFO | ; "X-MM-INFO-ONLY:YES"
|
|
| REFE | ; "REFERENCES:" (used by some systems, instead of 'in-reply-to')
|
|
| INRE | ; "IN-REPLY-TO:" message at this site
|
|
| REMID(X) | ;
|
|
| MESS | ; "MESSAGE-ID:" at site where message originated
|
|
| PRIO | ; "X-PRIORITY:1" (Priority)
|
|
| REPL | ; "REPLY-TO:"
|
|
| RETU | ; "RETURN-RECEIPT-TO:"
|
|
| SEND | ; "SENDER:" (Surrogate)
|
|
| SENS | ; "SENSITIVITY:PERSONAL" (Confidential)
|
|
| SUBJ | ; "SUBJECT:"
|
|
| TYPE | ; "X-MM-TYPE:"
|
|
| SET | ; Set data into message file
|
|
| PARSE(XMZ,XMREMID,XMSUBJ,XMFROM,XMDATE,XMSENDER,XMENCR,XMZO) | ; Get data for remotely originated message
; This is used by ^XMRENT & ^XMS3 ; XMSUBJ subject ; XMFROM from ; XMDATE date ; XMENCR scramble hint "^" scramble key ; XMREMID message id at site where msg originated (not necessarily at the sending site) ; XMZO original message xmz (to which this msg is a response) |
|
| HDRFIND(XMZ,XMFIND,XMHDR) | ;
|
