|
|
1.1 root 1: -- $Header: CHEntries0.cr,v 2.2 87/03/23 11:15:12 ed Exp $
2:
3: -- although no official Courier program corresponds to this file, the file
4: -- contains useful data for Courier programs. In particular, it contains
5: -- data garnered from CHpids.mesa and CHentries.mesa, as well as from the
6: -- document "Clearinghouse Entry Formats".
7:
8: -- $Log: CHEntries0.cr,v $
9: -- Revision 2.2 87/03/23 11:15:12 ed
10: -- Modified MailBoxesValue to be SEQUENCE instead of ARRAY.
11: --
12: -- Revision 2.1 85/11/21 07:32:53 jqj
13: -- fixed comment leaders
14: --
15: -- Revision 2.0 85/11/21 07:24:30 jqj
16: -- 4.3BSD standard release
17: --
18: -- Revision 1.2 85/11/20 13:08:55 jqj
19: -- 4.3beta version
20:
21:
22: CHEntries: PROGRAM 0 VERSION 0 =
23: BEGIN
24: DEPENDS UPON Clearinghouse (2) VERSION 2,
25: Time (15) VERSION 2;
26:
27: -- OBJECTS DEFINED IN CH ENTRY FORMATS --
28:
29: members: Clearinghouse.Property = 3; -- Group property => no Item --
30: addressList: Clearinghouse.Property = 4; -- Item is AddressListValue --
31: mailboxes: Clearinghouse.Property = 31; -- Item is MailboxesValue --
32: authenticationLevel: Clearinghouse.Property = 8;
33: -- Item is AuthenticationLevelValue --
34: fileService: Clearinghouse.Property = 10000; -- Item is Description --
35: printService: Clearinghouse.Property = 10001; -- Item is Description --
36: user: Clearinghouse.Property = 10003; -- Item is Description --
37: mailService: Clearinghouse.Property = 10004; -- Item is Description --
38: clearinghouseService: Clearinghouse.Property = 10021;
39: -- Item is Description --
40: userGroup: Clearinghouse.Property = 10022; -- Group property => no Item --
41: userData: Clearinghouse.Property = 20000; -- Item is UserDataValue --
42:
43: -- Item type for lots of things --
44: Description: TYPE = STRING;
45: -- Item type for addressList --
46: AddressListValue: TYPE = Clearinghouse.NetworkAddressList;
47: -- Item type for mailboxes. This is private to Mailing implementation --
48: -- Specified as array, but in reality appears to be a sequence --
49: MailboxesValue: TYPE = RECORD [
50: time: Time.Time,
51: mailService: SEQUENCE OF Clearinghouse.Name ];
52: -- Item type for authenticationLevel --
53: AuthenticationLevelValue: TYPE = RECORD [
54: simpleSupported, strongSupported: BOOLEAN ];
55: -- Item type for userData --
56: UserDataValue: TYPE = RECORD [
57: lastNameIndex: CARDINAL,
58: fileService: Clearinghouse.Name ];
59:
60: -- OBJECTS DEFINED IN CHPIDS.MESA --
61:
62: -- generic properties --
63:
64: authKeys: Clearinghouse.Property = 6;
65: -- the list of all services. Presumably, Star uses this property to --
66: -- determine who on the net exports a services Exec.
67: services: Clearinghouse.Property = 51;
68:
69: -- primary properties: all have associated Item == Description --
70:
71: internetworkRoutingService: Clearinghouse.Property = 10002;
72: workstation: Clearinghouse.Property = 10005;
73: externalCommunicationsService: Clearinghouse.Property = 10006;
74: rs232CPort: Clearinghouse.Property = 10007;
75: interactiveTerminalService: Clearinghouse.Property = 10008;
76: gatewayService: Clearinghouse.Property = 10009;
77: ibm3270Host: Clearinghouse.Property = 10010;
78: mailGateway: Clearinghouse.Property = 10011;
79: siemens9750Host: Clearinghouse.Property = 10012;
80: adobeService: Clearinghouse.Property = 10013;
81: librarianService: Clearinghouse.Property = 10014;
82: ttxGateway: Clearinghouse.Property = 10015;
83: authenticationService: Clearinghouse.Property = 10016;
84: remoteBatchService: Clearinghouse.Property = 10017;
85: network: Clearinghouse.Property = 10018;
86: networkServers: Clearinghouse.Property = 10019;
87: communicationsInterfaceUnit: Clearinghouse.Property = 10020;
88: fetchService: Clearinghouse.Property = 10023;
89:
90: -- secondary properties --
91:
92: rs232CData: Clearinghouse.Property = 20001;
93: -- Item is RS232CData --
94: ibm3270HostData: Clearinghouse.Property = 20002;
95: -- Item is IBM3270HostData --
96: siemens9750HostData: Clearinghouse.Property = 20003;
97: -- Item is Siemens9750HostData --
98: canMailTo: Clearinghouse.Property = 20005; -- use with user groups
99: mailGatewayRouteData: Clearinghouse.Property = 20006;
100: foreignMailSystemName: Clearinghouse.Property = 20007;
101:
102: -- secondary properties for compatibility with old stuff --
103: userPassword: Clearinghouse.Property = 20101;
104: rs232CBack: Clearinghouse.Property = 20102; -- Item is RS232CBack --
105: ibm3270HostBack: Clearinghouse.Property = 20103;
106: -- Item is Clearinghouse.Name --
107:
108: -- associated properties --
109:
110: associatedWorkstation: Clearinghouse.Property = 30005;
111:
112: -- Item types --
113:
114: -- faked dependency on RS232CEnvironment --
115: Duplexity: TYPE = CARDINAL; -- for now
116: CharLength: TYPE = CARDINAL; -- for now
117: FlowControl: TYPE = CARDINAL; -- for now
118: LineSpeed: TYPE = CARDINAL; -- for now
119: Parity: TYPE = CARDINAL; -- for now
120: StopBits: TYPE = CARDINAL; -- for now
121:
122: PortClientType: TYPE = {unassigned(0), outOfService(1), its(2), irs(3),
123: gws(4), ibm3270Host(5), ttyEmulation(6), rbs(7), fax(9),
124: mailGateway(10), phototypesetter(11) };
125: PortDialerType: TYPE = {dialerNone(0), vadic(1), hayes(2), ventel(3), rs366(4)};
126: PortSyncType: TYPE = {asynchronous(0), synchronous(1), bitSynchronous(2),
127: byteSynchronous(3), syncAny(4)};
128: PortEchoingLocation: TYPE = {echoLocal(0), echoRemote(1)};
129: -- the Item type for rs232CData --
130: RS232CData: TYPE = RECORD [
131: cIUPort: BOOLEAN,
132: owningClientType: PortClientType,
133: preemptionAllowed: BOOLEAN,
134: lineNumber: CARDINAL, -- logical line number
135: dialerNumber: CARDINAL, -- logical dialer number; must
136: -- be unique within domain
137: duplexity: Duplexity,
138: dialingHardware: PortDialerType,
139: charLength: CharLength,
140: echoing: PortEchoingLocation,
141: xxxxpaddingxxx: LONG CARDINAL,
142: flowControl: FlowControl,
143: lineSpeed: LineSpeed,
144: parity: Parity,
145: stopBits: StopBits,
146: portActsAsDCE: BOOLEAN,
147: accessControl: Clearinghouse.Name,
148: validLineSpeeds: SEQUENCE OF LineSpeed ];
149:
150: END. -- of CHEntries --
151:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.