<> <> <> <> <> <> <<>> DIRECTORY BasicTime USING [GMT], GVBasics USING [Password], IPDefs USING [DByte], Rope USING [ROPE], SMTPSupport USING [LogPriority]; SMTPControl: CEDAR DEFINITIONS = BEGIN ROPE: TYPE = Rope.ROPE; <> <> xeroxDomain: ROPE; -- the SMTP domain name for this server arpaMSPort: IPDefs.DByte; -- the TCP port for SMTP gvMSName: ROPE; -- the name of this server (primarily for logging) longGVMSName: ROPE; defaultLogAcceptPriority: SMTPSupport.LogPriority; -- the default minimum acceptance priority for log entries defaultInhibitTime: INT; -- the default time for which queues/ queue elements will be automatically inhibited itemExpiryTimeout: INT; -- time after which mail items should be returned to sender if not delivered notifyManagerNames: LIST OF ROPE; -- the path names of managers who should be notified of problems arpaExceptions: LIST OF ROPE; -- send info on header parsing troubles here deadLetterName: ROPE; -- the dead letter box to which bad items, etc. should be sent deadLetterSenderName: ROPE; -- dead letter daemon deadLetterPath: ROPE; -- arpa version of deadLetterSenderName defaultRegistry: ROPE; -- .PA startTime: BasicTime.GMT; <> LoggedInUser: PROC RETURNS [name: ROPE, password: GVBasics.Password, acl: AccessControlList]; <> AccessControlList: TYPE = {none, regFriend, regOwner}; -- GV acl w.r.t. the gvMSName accessControlListNames: ARRAY AccessControlList OF ROPE; -- printable NoLoggedInUser: ERROR; <> OKToAcceptGVInput: PROC RETURNS [ok: BOOL, whyNot: ROPE]; <> OKToAcceptSMTPInput: PROC RETURNS [ok: BOOL, whyNot: ROPE]; <> END.