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