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