![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to acsapstub.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / contrib / isode-beta / acsap|
Return to acsapstub.c CVS log | Up to [CSRG BSD Unix] / 43BSDReno / contrib / isode-beta / acsap |
1.1 root 1: /* acsapstub.c - application entity titles -- stub directory service */
2:
3: #ifndef lint
4: static char *rcsid = "$Header: /f/osi/acsap/RCS/acsapstub.c,v 7.1 90/07/09 14:30:41 mrose Exp $";
5: #endif
6:
7: /*
8: * $Header: /f/osi/acsap/RCS/acsapstub.c,v 7.1 90/07/09 14:30:41 mrose Exp $
9: *
10: * RFC1085 (LPP) support contributed by the Wollongong Group, Inc.
11: *
12: *
13: * $Log: acsapstub.c,v $
14: * Revision 7.1 90/07/09 14:30:41 mrose
15: * sync
16: *
17: * Revision 7.0 89/11/23 21:22:00 mrose
18: * Release 6.0
19: *
20: */
21:
22: /*
23: * NOTICE
24: *
25: * Acquisition, use, and distribution of this module and related
26: * materials are subject to the restrictions of a license agreement.
27: * Consult the Preface in the User's Manual for the full terms of
28: * this agreement.
29: *
30: */
31:
32:
33: /* LINTLIBRARY */
34:
35: #include <ctype.h>
36: #include <stdio.h>
37: #include "psap.h"
38: #include "isoaddrs.h"
39: #include "internet.h"
40: #include "tailor.h"
41:
42:
43: #ifdef AETDBM
44: #define fetch_aet str2aet_dbm
45: #else
46: #define fetch_aet str2aet_seq
47: #endif
48:
49: /* DATA */
50:
51: static struct isoentity ies;
52:
53: /* */
54:
55: AEI str2aei_stub (designator, qualifier)
56: char *designator,
57: *qualifier;
58: {
59: #ifdef LPP
60: register int n;
61: int tcp_port,
62: udp_port;
63: register struct servent *sp;
64: #endif
65: register char *cp;
66: register struct NSAPaddr *na;
67: register struct isoentity *ie = &ies;
68:
69: if (fetch_aet (designator, qualifier, &ies) == NOTOK) {
70: #ifdef LPP
71: if (lpp_aet (designator, qualifier, &ies) != NOTOK)
72: goto found_it;
73: #endif
74:
75: return NULLAEI;
76: }
77:
78: if (ie -> ie_addr.pa_addr.sa_addr.ta_naddr <= 0) {
79: register int i;
80: register struct TSAPaddr *ta = &ie -> ie_addr.pa_addr.sa_addr;
81:
82: na = ta -> ta_addrs, ta -> ta_naddr = 1;
83: bzero ((char *) na, sizeof *na);
84:
85: /* guess at what sort of address we have on our hands */
86:
87: if ((i = strlen (cp = designator)) > 6
88: && cp[0] == '4' && cp[2] == '0' && cp[3] == '0') {
89: na -> na_stack = NA_NSAP;
90: na -> na_community = ts_comm_nsap_default;
91: na -> na_addrlen = implode ((u_char *) na -> na_address,
92: cp, strlen (cp));
93: goto found_it;
94: }
95:
96: if (i <= NSAP_DTELEN + 1)
97: for (; *cp; cp++)
98: if (!isxdigit (*cp))
99: break;
100: if (*cp) {
101: register struct hostent *hp = gethostbystring (designator);
102:
103: na -> na_stack = NA_TCP;
104: na -> na_community = ts_comm_tcp_default;
105: if (hp) {
106: #ifdef h_addr
107: register char **ap;
108: #endif
109:
110: (void) strcpy (na -> na_domain,
111: inet_ntoa (*(struct in_addr *) hp -> h_addr));
112: #ifdef h_addr
113: for (ap = hp -> h_addr_list + 1; *ap; ap++) {
114: ta -> ta_naddr++, na++;
115:
116: if (ta -> ta_naddr >= NTADDR)
117: break;
118:
119: bzero ((char *) na, sizeof *na);
120: na -> na_stack = NA_TCP;
121: na -> na_community = ts_comm_tcp_default;
122: (void) strcpy (na -> na_domain,
123: inet_ntoa (*(struct in_addr *) *ap));
124: }
125: #endif
126: }
127: else
128: (void) strncpy (na -> na_domain, designator,
129: sizeof na -> na_domain);
130: }
131: else {
132: (void) strcpy (na -> na_dte, designator);
133: na -> na_dtelen = strlen (na -> na_dte);
134: #ifdef BRIDGE_X25
135: na -> na_stack = bridgediscrim (na) ? NA_BRG : NA_X25;
136: #else
137: na -> na_stack = NA_X25;
138: #endif
139: na -> na_community = ts_comm_x25_default;
140: }
141: }
142:
143: #ifdef LPP
144: for (na = ie -> ie_addr.pa_addr.sa_addr.ta_addrs,
145: n = ie -> ie_addr.pa_addr.sa_addr.ta_naddr;
146: n > 0;
147: na++, n--)
148: if (na -> na_stack == NA_TCP && na -> na_port == 0) {
149: cp = strncmp (qualifier, "isode ", 6) ? qualifier : qualifier + 6;
150: if (sp = getservbyname (cp, "lpp"))
151: tcp_port = udp_port = sp -> s_port;
152: else {
153: tcp_port = (sp = getservbyname (cp, "tcp")) ? sp -> s_port : 0;
154: udp_port = (sp = getservbyname (cp, "udp")) ? sp -> s_port : 0;
155: }
156: break;
157: }
158:
159: for (na = ie -> ie_addr.pa_addr.sa_addr.ta_addrs,
160: n = ie -> ie_addr.pa_addr.sa_addr.ta_naddr;
161: n > 0;
162: na++, n--)
163: if (na -> na_stack == NA_TCP && na -> na_port == 0) {
164: register struct TSAPaddr *ta;
165:
166: if (tcp_port) {
167: na -> na_port = (u_short) tcp_port;
168: na -> na_tset = NA_TSET_TCP;
169:
170: if (udp_port
171: && (ta = &ie -> ie_addr.pa_addr.sa_addr) -> ta_naddr
172: < NTADDR) {
173: register struct NSAPaddr *ua =
174: ta -> ta_addrs + ta -> ta_naddr++;
175:
176: bzero ((char *) ua, sizeof *ua);
177: ua -> na_stack = NA_TCP;
178: ua -> na_community = ts_comm_tcp_default;
179: (void) strncpy (ua -> na_domain, na -> na_domain,
180: sizeof ua -> na_domain);
181: ua -> na_port = (u_short) udp_port;
182: ua -> na_tset = NA_TSET_UDP;
183: }
184: }
185: else
186: if (udp_port) {
187: na -> na_port = (u_short) udp_port;
188: na -> na_tset = NA_TSET_UDP;
189: }
190: }
191: #endif
192:
193: found_it: ;
194: if (addr_log -> ll_events & LLOG_DEBUG)
195: _printent (ie);
196:
197: return oid2aei (&ie -> ie_identifier);
198: }
199:
200: /* */
201:
202: #ifdef LPP
203: static unsigned int elements[NELEM + 1];
204: static char objent[BUFSIZ];
205:
206:
207: static int lpp_aet (designator, qualifier, ie)
208: char *designator,
209: *qualifier;
210: register struct isoentity *ie;
211: {
212: register int nelem;
213: int tcp_port,
214: udp_port;
215: char *cp;
216: register struct servent *sp;
217: register OID oid = &ie -> ie_identifier;
218: register struct PSAPaddr *pa = &ie -> ie_addr;
219: register struct TSAPaddr *ta = &pa -> pa_addr.sa_addr;
220: register struct NSAPaddr *na;
221:
222: cp = strncmp (qualifier, "isode ", 6) ? qualifier : qualifier + 6;
223: if (sp = getservbyname (cp, "lpp"))
224: tcp_port = udp_port = sp -> s_port;
225: else
226: if ((tcp_port = (sp = getservbyname (cp, "tcp")) ? sp -> s_port : 0)
227: == 0
228: && (udp_port = (sp = getservbyname (cp, "udp")) ? sp -> s_port
229: : 0) == 0)
230: return NOTOK;
231:
232: nelem = 0;
233: elements[nelem++] = 1, elements[nelem++] = 17, elements[nelem++] = 4,
234: elements[nelem++] = 0, elements[nelem++] = 0;
235:
236: oid -> oid_elements = elements;
237: oid -> oid_nelem = nelem;
238: (void) sprintf (ie -> ie_descriptor = objent, "%s-%s", designator,
239: qualifier);
240:
241: (void) bzero ((char *) pa, sizeof *pa);
242: na = ta -> ta_addrs;
243: if (tcp_port) {
244: na -> na_stack = NA_TCP;
245: na -> na_community = ts_comm_tcp_default;
246: (void) strncpy (na -> na_domain, designator, sizeof na -> na_domain);
247: na -> na_port = (u_short) tcp_port;
248: na -> na_tset = NA_TSET_TCP;
249: na++;
250: }
251: if (udp_port) {
252: na -> na_stack = NA_TCP;
253: na -> na_community = ts_comm_tcp_default;
254: (void) strncpy (na -> na_domain, designator, sizeof na -> na_domain);
255: na -> na_port = (u_short) udp_port;
256: na -> na_tset = NA_TSET_UDP;
257: na++;
258: }
259: ta -> ta_naddr = na - ta -> ta_addrs;
260:
261: return OK;
262: }
263: #endif
264:
265: /* */
266:
267: struct PSAPaddr *aei2addr_stub (aei)
268: AEI aei;
269: {
270: register struct isoentity *ie = &ies;
271: register struct PSAPaddr *pa;
272:
273: if (aei -> aei_ap_title
274: ? oid_cmp (&ie -> ie_identifier, prim2oid (aei -> aei_ap_title))
275: : ie -> ie_identifier.oid_nelem > 0) {
276: SLOG (addr_log, LLOG_EXCEPTIONS, NULLCP,
277: ("aei2addr_stub cache miss on %s", sprintaei (aei)));
278:
279: return NULLPA;
280: }
281: pa = &ie -> ie_addr;
282: if (addr_log -> ll_events & LLOG_DEBUG)
283: _printent (ie);
284:
285: return (pa -> pa_addr.sa_addr.ta_naddr > 0 ? pa : NULLPA);
286: }
287:
288: /* */
289:
290: #ifdef LPP
291: /* ARGSUSED */
292:
293: AEI str2aei_dse (designator, qualifier, context, interactive)
294: char *designator,
295: *qualifier,
296: *context;
297: int interactive;
298: {
299: SLOG (addr_log, LLOG_EXCEPTIONS, NULLCP,
300: ("DSE lookup not supported for LPP"));
301: return NULLAEI;
302: }
303:
304:
305: /* ARGSUSED */
306:
307: struct PSAPaddr *aei2addr_dse (aei)
308: AEI aei;
309: {
310: SLOG (addr_log, LLOG_EXCEPTIONS, NULLCP,
311: ("DSE lookup not supported for LPP"));
312:
313: return NULLPA;
314: }
315: #endif
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.