-- Copyright (C) 1982, 1984, 1985  by Xerox Corporation. All rights reserved. 
-- EnquiryDefs.mesa, Transport Mechanism Mail Server: DEFS for TELNET enquiries

-- HGM, 14-Sep-85 21:50:18
-- Andrew Birrell  29-Oct-82 10:04:10
-- Hankins	10-Aug-84 16:19:17    - modify MailboxCount for indiv's

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, nameSought: BodyDefs.RName];
  -- if nameSought = '* THEN does all names.

  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;

  -- EnquiryPup

  PupRoutingTable: PROC [str: Handle];
  PupEcho: PROC [str: Handle, target: LONG STRING];
  DriverStats: PROC [str: Handle];

  END.