-- Transport Mechanism Mail Server: DEFS for TELNET enquiries

-- [Indigo]<Grapevine>MS>EnquiryDefs.mesa

-- Andrew Birrell  29-Oct-82 10:04:10

DIRECTORY
BodyDefs	USING[ RName ],
GlassDefs	USING[ Handle ];

EnquiryDefs: DEFINITIONS =

BEGIN

Handle:			TYPE = GlassDefs.Handle;

-- From Log package --

DisplayStats:		PROC[str: Handle];

-- From SL Queue package --

SLQueueCount:		PROC[str: Handle];

-- From other-Server cache --

RemoteServers:		PROC[str: Handle];

-- From Policy module --

PolicyControls:		PROC[str: Handle];

-- From Mailbox package --

Archive:		PROC[who: BodyDefs.RName, keep: CARDINAL];

InaccessibleArchive:	ERROR;

Poll:			PROC[who: BodyDefs.RName] RETURNS[BOOLEAN];

SetArchiveDays:		PROC[CARDINAL];

MailboxCount:		PROC[str: Handle];

Histograms:		PROC[str: Handle];

-- From R-Server --

ImmediatePurge:		PROC[name: BodyDefs.RName] RETURNS[done: BOOLEAN];

AddSelfToRegistry:	PROC[name: BodyDefs.RName] RETURNS[done: BOOLEAN];

AddRegistry:		PROC[name: BodyDefs.RName] RETURNS[done: BOOLEAN];

-- Causing servers to re-evaluate their own inbox sites --

LoginRSMail:		PROC;

LoginMSMail:		PROC;

END.