-- 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 --