[Indigo]<Arpanet>SMTP>SMTPQueue.mesa!16

SMTPQueue.mesa

Last Edited by: HGM, June 13, 1984 8:04:42 pm PDT

Last Edited by: DCraft, December 21, 1983 8:42 pm

Last Edited by: Taft, January 3, 1984 2:12 pm

John Larson, July 23, 1987 12:29:36 pm PDT

DIRECTORY

IO USING [STREAM],

Rope USING [ROPE],

SMTPDescr USING [Descr];

SMTPQueue: CEDAR DEFINITIONS = BEGIN

Descr: TYPE = SMTPDescr.Descr;

ROPE: TYPE = Rope.ROPE;

STREAM: TYPE = IO.STREAM;

StartNewMessage: PROC [source: ROPE];

SetExpressOK: PROC [BOOL];

AddNewMessage: PROC [descr: Descr, source: ROPE];

Queue the item for processing, assigning it a unique user handle. Processing includes reformatting the reverse path and recipients and queueing the item for delivery as appropriate.

StartServer: PROC;

PrintQueue: PROC [name: ROPE, out: STREAM];

CountQueue: PROC[name: ROPE] RETURNS[n: INT];

CountMessages: PROC[queueName: Rope.ROPE] RETURNS[n: INT];

PrintItem: PROC [item: INT, out: STREAM];

ExpressList: PROC RETURNS[list: LIST OF ROPE];

MoveSickHost: PROC[name: ROPE];

MoveAllSickHosts: PROC;

DLWithoutUpArrow: PROC [dl: ROPE] RETURNS [valid: BOOL];

END.