DIRECTORY ArpaSMTPSupport USING [LogPriority], ArpaTCP USING [DByte], BasicTime USING [GMT], GVBasics USING [Password], Rope USING [ROPE]; ArpaSMTPControl: CEDAR DEFINITIONS = BEGIN ROPE: TYPE = Rope.ROPE; arpaMSPort: ArpaTCP.DByte; -- the TCP port for SMTP longGVMSName: ROPE; defaultLogAcceptPriority: ArpaSMTPSupport.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. ArpaSMTPControl.mesa The implementation module for Control contains the command interpreter and interactive write-arounds for public procedures. Last Edited by: DCraft, December 21, 1983 8:21 pm Last Edited by: Taft, January 22, 1984 12:38:12 pm PST Last Edited by: HGM, April 26, 1984 11:24:07 pm PST John Larson, October 21, 1987 10:05:37 pm PDT Constants controlling server behavior The following "constants" are defined in the impl so they can be changed w/o recompiling the defs. [Also, because ropes generate code!] Access to the logged in user ! NoLoggedInUser Control of reception demons Returns whether, based on system load, it is OK to accept an input request from Grapevine. Returns whether, based on system load, it is OK to accept an input request from Arpanet. Κ5– "cedar" style˜headšœ™Ibody™{Lšœ1™1Lšœ3Οk™6Lšœœ™3Icodešœ-™-L™code2š ˜ Nšœœ˜$Nšœœ ˜Nšœ œœ˜Nšœ œ ˜Nšœœœ˜——šΟnœœ œ˜$Nš˜Nšœœœ˜—™%L™‡NšœΟc˜3Nšœœ˜Nšœ7Ÿ:˜qNšœœŸT˜mNšœœŸL˜dNšœœœœŸ@˜bNšœœœœŸ,˜JNšœœŸ>˜TNšœœŸ˜1NšΟt Πct'˜=NšœœŸ˜Nšœœ˜N˜—™šž œœœœ7˜]N™—Nšœœ Ÿ˜TNšœœœœŸ ˜ENšžœœ˜—™š žœœœœ œ˜9Nšœ-œ+™Z—š žœœœœ œ˜;Nšœ-œ)™X—Nšœ˜——…—” Ω