-- File: WebTool.mesa - last edit: -- AOF 31-Jan-96 23:51:58 -- Copyright (C) 1995, 1996 by Freier's Garage. All rights reserved. DIRECTORY Format USING [StringProc], Window USING [Handle]; WebTool: DEFINITIONS = BEGIN DataHandle: TYPE = LONG POINTER TO Data; Data: TYPE = MACHINE DEPENDENT RECORD [ msgSW(0): Window.Handle ¬ NIL, formSW(2): Window.Handle ¬ NIL, fileSW(4): Window.Handle ¬ NIL, serveris(6): ServerisTypes ¬ active, serverstarted(7): LONG STRING ¬ NIL, connectionsserved(9): LONG CARDINAL ¬ 0, cacheLimit(11): LONG CARDINAL ¬ 1000, cacheCurrent(13): LONG CARDINAL ¬ 0, level(15): LevelTypes ¬ basic, emailaddress(16): LONG STRING ¬ NIL]; FormItems: TYPE = { serveris, serverstarted, connectionsserved, cache, cachePrune, cacheEnumerate, cacheSize, cacheLimit, cacheCurrent, logging, level, sendlogto, emailaddress}; ServerisTypes: TYPE = {inactive, active}; LevelTypes: TYPE = {silent, basic, http, verbose}; data: DataHandle; --exported by WebServerTool zone: UNCOUNTED ZONE; --exported by WebServerTool Msg: Format.StringProc; Write: Format.StringProc; END... -- WebTool.mesa --