?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Check for SYS/GL during library init. Reason is that
[AROS.git] / workbench / network / stacks / AROSTCP / dhcp / omapip / protocol.c
blob90311cfeef0638ac30ebb71bf08028035994c71b
1 /* protocol.c
2
3 Functions supporting the object management protocol... */
4
5 /*
6 * Copyright (c) 2004 by Internet Systems Consortium, Inc. ("ISC")
7 * Copyright (c) 1999-2003 by Internet Software Consortium
8 *
9 * Permission to use, copy, modify, and distribute this software for any
10 * purpose with or without fee is hereby granted, provided that the above
11 * copyright notice and this permission notice appear in all copies.
12 *
13 * THE SOFTWARE IS PROVIDED "AS IS" AND ISC DISCLAIMS ALL WARRANTIES
14 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
15 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL ISC BE LIABLE FOR
16 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
17 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
18 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
19 * OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
20 *
21 * Internet Systems Consortium, Inc.
22 * 950 Charter Street
23 * Redwood City, CA 94063
24 * <info@isc.org>
25 * http://www.isc.org/
26 *
27 * This software has been written for Internet Systems Consortium
28 * by Ted Lemon in cooperation with Vixie Enterprises and Nominum, Inc.
29 * To learn more about Internet Systems Consortium, see
30 * ``http://www.isc.org/''. To learn more about Vixie Enterprises,
31 * see ``http://www.vix.com''. To learn more about Nominum, Inc., see
32 * ``http://www.nominum.com''.
33 */
34
35 #include <omapip/omapip_p.h>
36
37 OMAPI_OBJECT_ALLOC (omapi_protocol, omapi_protocol_object_t,
38 omapi_type_protocol)
39 OMAPI_OBJECT_ALLOC (omapi_protocol_listener, omapi_protocol_listener_object_t,
40 omapi_type_protocol_listener)
41
42 isc_result_t omapi_protocol_connect (omapi_object_t *h,
43 const char *server_name,
44 unsigned port,
45 omapi_object_t *a)
46 {
47 isc_result_t rstatus, status;
48 omapi_protocol_object_t *obj;
49
50 #ifdef DEBUG_PROTOCOL
51 log_debug ("omapi_protocol_connect(%s port=%d)", server_name, port);
52 #endif
53
54 obj = (omapi_protocol_object_t *)0;
55 status = omapi_protocol_allocate (&obj, MDL);
56 if (status != ISC_R_SUCCESS)
57 return status;
58
59 rstatus = omapi_connect ((omapi_object_t *)obj, server_name, port);
60 if (rstatus != ISC_R_SUCCESS && rstatus != ISC_R_INCOMPLETE) {
61 omapi_protocol_dereference (&obj, MDL);
62 return rstatus;
63 }
64 status = omapi_object_reference (&h -> outer,
65 (omapi_object_t *)obj, MDL);
66 if (status != ISC_R_SUCCESS) {
67 omapi_protocol_dereference (&obj, MDL);
68 return status;
69 }
70 status = omapi_object_reference (&obj -> inner, h, MDL);
71 if (status != ISC_R_SUCCESS) {
72 omapi_protocol_dereference (&obj, MDL);
73 return status;
74 }
75
76 /* If we were passed a default authenticator, store it now. We'll
77 open it once we're connected. */
78 if (a) {
79 obj -> default_auth =
80 dmalloc (sizeof(omapi_remote_auth_t), MDL);
81 if (!obj -> default_auth) {
82 omapi_protocol_dereference (&obj, MDL);
83 return ISC_R_NOMEMORY;
84 }
85
86 obj -> default_auth -> next = (omapi_remote_auth_t *)0;
87 status = omapi_object_reference (&obj -> default_auth -> a,
88 a, MDL);
89 if (status != ISC_R_SUCCESS) {
90 dfree (obj -> default_auth, MDL);
91 omapi_protocol_dereference (&obj, MDL);
92 return status;
93 }
94
95 obj -> insecure = 0;
96 rstatus = ISC_R_INCOMPLETE;
97 } else {
98 obj -> insecure = 1;
99 #if 0
100 status = ISC_R_SUCCESS;
101 #endif
102 }
103
104 omapi_protocol_dereference (&obj, MDL);
105 return rstatus;
106 }
107
108 /* Send the protocol introduction message. */
109 isc_result_t omapi_protocol_send_intro (omapi_object_t *h,
110 unsigned ver,
111 unsigned hsize)
112 {
113 isc_result_t status;
114 omapi_protocol_object_t *p;
115
116 #ifdef DEBUG_PROTOCOL
117 log_debug ("omapi_protocol_send_intro()");
118 #endif
119
120 if (h -> type != omapi_type_protocol)
121 return ISC_R_INVALIDARG;
122 p = (omapi_protocol_object_t *)h;
123
124 if (!h -> outer || h -> outer -> type != omapi_type_connection)
125 return ISC_R_NOTCONNECTED;
126
127 status = omapi_connection_put_uint32 (h -> outer, ver);
128 if (status != ISC_R_SUCCESS)
129 return status;
130
131 status = omapi_connection_put_uint32 (h -> outer, hsize);
132
133 if (status != ISC_R_SUCCESS)
134 return status;
135
136 /* Require the other end to send an intro - this kicks off the
137 protocol input state machine. */
138 p -> state = omapi_protocol_intro_wait;
139 status = omapi_connection_require (h -> outer, 8);
140 if (status != ISC_R_SUCCESS && status != ISC_R_NOTYET)
141 return status;
142
143 /* Make up an initial transaction ID for this connection. */
144 p -> next_xid = random ();
145 return ISC_R_SUCCESS;
146 }
147
148 isc_result_t omapi_protocol_send_message (omapi_object_t *po,
149 omapi_object_t *id,
150 omapi_object_t *mo,
151 omapi_object_t *omo)
152 {
153 omapi_protocol_object_t *p;
154 omapi_object_t *c;
155 omapi_message_object_t *m, *om;
156 omapi_remote_auth_t *ra;
157 omapi_value_t *signature;
158 isc_result_t status;
159 // u_int32_t foo;
160 unsigned auth_len;
161
162 if (po -> type != omapi_type_protocol ||
163 !po -> outer || po -> outer -> type != omapi_type_connection ||
164 mo -> type != omapi_type_message)
165 return ISC_R_INVALIDARG;
166 if (omo && omo -> type != omapi_type_message)
167 return ISC_R_INVALIDARG;
168 p = (omapi_protocol_object_t *)po;
169 c = (omapi_object_t *)(po -> outer);
170 m = (omapi_message_object_t *)mo;
171 om = (omapi_message_object_t *)omo;
172
173 #ifdef DEBUG_PROTOCOL
174 log_debug ("omapi_protocol_send_message()"
175 "op=%ld handle=%#lx id=%#lx rid=%#lx",
176 (long)m -> op,
177 (long)(m -> object ? m -> object -> handle : m -> handle),
178 (long)p -> next_xid, (long)m -> rid);
179 #endif
180
181 /* Find the authid to use for this message. */
182 if (id) {
183 for (ra = p -> remote_auth_list; ra; ra = ra -> next) {
184 if (ra -> a == id) {
185 break;
186 }
187 }
188
189 if (!ra)
190 return ISC_R_KEY_UNKNOWN;
191 } else if (p -> remote_auth_list) {
192 ra = p -> default_auth;
193 } else {
194 ra = (omapi_remote_auth_t *)0;
195 }
196
197 if (ra) {
198 m -> authid = ra -> remote_handle;
199 status = omapi_object_reference (&m -> id_object,
200 ra -> a, MDL);
201 if (status != ISC_R_SUCCESS)
202 return status;
203 }
204
205 /* Write the ID of the authentication key we're using. */
206 status = omapi_connection_put_uint32 (c, ra ? ra -> remote_handle : 0);
207 if (status != ISC_R_SUCCESS) {
208 omapi_disconnect (c, 1);
209 return status;
210 }
211
212 /* Activate the authentication key on the connection. */
213 auth_len = 0;
214 if (ra) {
215 status = omapi_set_object_value (c, (omapi_object_t *)0,
216 "output-authenticator",
217 ra -> a);
218 if (status != ISC_R_SUCCESS) {
219 omapi_disconnect (c, 1);
220 return status;
221 }
222
223 status = omapi_connection_output_auth_length (c, &auth_len);
224 if (status != ISC_R_SUCCESS) {
225 omapi_disconnect (c, 1);
226 return status;
227 }
228 }
229
230 /* Write the authenticator length */
231 status = omapi_connection_put_uint32 (c, auth_len);
232 if (status != ISC_R_SUCCESS) {
233 omapi_disconnect (c, 1);
234 return status;
235 }
236
237 /* Write the opcode. */
238 status = omapi_connection_put_uint32 (c, m -> op);
239 if (status != ISC_R_SUCCESS) {
240 omapi_disconnect (c, 1);
241 return status;
242 }
243
244 /* Write the handle. If we've been given an explicit handle, use
245 that. Otherwise, use the handle of the object we're sending.
246 The caller is responsible for arranging for one of these handles
247 to be set (or not). */
248 status = omapi_connection_put_uint32 (c, (m -> h
249 ? m -> h
250 : (m -> object
251 ? m -> object -> handle
252 : 0)));
253 if (status != ISC_R_SUCCESS) {
254 omapi_disconnect (c, 1);
255 return status;
256 }
257
258 /* Set and write the transaction ID. */
259 m -> id = p -> next_xid++;
260 status = omapi_connection_put_uint32 (c, m -> id);
261 if (status != ISC_R_SUCCESS) {
262 omapi_disconnect (c, 1);
263 return status;
264 }
265
266 /* Write the transaction ID of the message to which this is a
267 response, if there is such a message. */
268 status = omapi_connection_put_uint32 (c, om ? om -> id : m -> rid);
269 if (status != ISC_R_SUCCESS) {
270 omapi_disconnect (c, 1);
271 return status;
272 }
273
274 /* Stuff out the name/value pairs specific to this message. */
275 status = omapi_stuff_values (c, id, (omapi_object_t *)m);
276 if (status != ISC_R_SUCCESS) {
277 omapi_disconnect (c, 1);
278 return status;
279 }
280
281 /* Write the zero-length name that terminates the list of name/value
282 pairs specific to the message. */
283 status = omapi_connection_put_uint16 (c, 0);
284 if (status != ISC_R_SUCCESS) {
285 omapi_disconnect (c, 1);
286 return status;
287 }
288
289 /* Stuff out all the published name/value pairs in the object that's
290 being sent in the message, if there is one. */
291 if (m -> object) {
292 status = omapi_stuff_values (c, id, m -> object);
293 if (status != ISC_R_SUCCESS) {
294 omapi_disconnect (c, 1);
295 return status;
296 }
297 }
298
299 /* Write the zero-length name that terminates the list of name/value
300 pairs for the associated object. */
301 status = omapi_connection_put_uint16 (c, 0);
302 if (status != ISC_R_SUCCESS) {
303 omapi_disconnect (c, 1);
304 return status;
305 }
306
307 if (ra) {
308 /* Calculate the message signature. */
309 signature = (omapi_value_t *)0;
310 status = omapi_get_value_str (c, (omapi_object_t *)0,
311 "output-signature", &signature);
312 if (status != ISC_R_SUCCESS) {
313 omapi_disconnect (c, 1);
314 return status;
315 }
316
317 /* Write the authenticator... */
318 status = (omapi_connection_copyin
319 (c, signature -> value -> u.buffer.value,
320 signature -> value -> u.buffer.len));
321 omapi_value_dereference (&signature, MDL);
322 if (status != ISC_R_SUCCESS) {
323 omapi_disconnect (c, 1);
324 return status;
325 }
326
327 /* Dectivate the authentication key on the connection. */
328 status = omapi_set_value_str (c, (omapi_object_t *)0,
329 "output-authenticator",
330 (omapi_typed_data_t *)0);
331 if (status != ISC_R_SUCCESS) {
332 omapi_disconnect (c, 1);
333 return status;
334 }
335 }
336
337 if (!omo) {
338 omapi_protocol_reference (&m -> protocol_object, p, MDL);
339 }
340 return ISC_R_SUCCESS;
341 }
342
343
344 isc_result_t omapi_protocol_signal_handler (omapi_object_t *h,
345 const char *name, va_list ap)
346 {
347 isc_result_t status;
348 omapi_protocol_object_t *p;
349 omapi_object_t *c;
350 omapi_message_object_t *m;
351 omapi_value_t *signature;
352 u_int16_t nlen;
353 u_int32_t vlen;
354 u_int32_t th;
355 #if defined (DEBUG_MEMORY_LEAKAGE)
356 unsigned long previous_outstanding = 0xDEADBEEF;
357 unsigned long connect_outstanding = 0xDEADBEEF;
358 #endif
359
360 if (h -> type != omapi_type_protocol) {
361 /* XXX shouldn't happen. Put an assert here? */
362 return ISC_R_UNEXPECTED;
363 }
364 p = (omapi_protocol_object_t *)h;
365
366 if (!strcmp (name, "connect")) {
367 #if defined (DEBUG_MEMORY_LEAKAGE)
368 connect_outstanding = dmalloc_outstanding;
369 #endif
370 /* Send the introductory message. */
371 status = omapi_protocol_send_intro
372 (h, OMAPI_PROTOCOL_VERSION,
373 sizeof (omapi_protocol_header_t));
374 if (status != ISC_R_SUCCESS) {
375 omapi_disconnect (p -> outer, 1);
376 return status;
377 }
378 return ISC_R_SUCCESS;
379 }
380
381 /* Should only receive these when opening the initial authenticator. */
382 if (!strcmp (name, "status")) {
383 status = va_arg (ap, isc_result_t);
384 if (status != ISC_R_SUCCESS) {
385 omapi_signal_in (h -> inner, "status", status,
386 (omapi_object_t *)0);
387 omapi_disconnect (p -> outer, 1);
388 return status;
389 } else {
390 return omapi_signal_in (h -> inner, "ready");
391 }
392 }
393
394 /* If we get a disconnect, dump memory usage. */
395 if (!strcmp (name, "disconnect")) {
396 #if defined (DEBUG_MEMORY_LEAKAGE)
397 if (connect_outstanding != 0xDEADBEEF) {
398 log_info ("generation %ld: %ld new, %ld outstanding, %ld%s",
399 dmalloc_generation,
400 dmalloc_outstanding - previous_outstanding,
401 dmalloc_outstanding, dmalloc_longterm, " long-term");
402 }
403 #endif
404 #if defined (DEBUG_MEMORY_LEAKAGE)
405 dmalloc_dump_outstanding ();
406 #endif
407 #if defined (DEBUG_RC_HISTORY_EXHAUSTIVELY)
408 dump_rc_history ();
409 #endif
410 for (m = omapi_registered_messages; m; m = m -> next) {
411 if (m -> protocol_object == p) {
412 if (m -> object)
413 omapi_signal (m -> object, "disconnect");
414 }
415 }
416 }
417
418 /* Not a signal we recognize? */
419 if (strcmp (name, "ready")) {
420 if (p -> inner && p -> inner -> type -> signal_handler)
421 return (*(p -> inner -> type -> signal_handler)) (h,
422 name,
423 ap);
424 return ISC_R_NOTFOUND;
425 }
426
427 if (!p -> outer || p -> outer -> type != omapi_type_connection)
428 return ISC_R_INVALIDARG;
429 c = p -> outer;
430
431 /* We get here because we requested that we be woken up after
432 some number of bytes were read, and that number of bytes
433 has in fact been read. */
434 switch (p -> state) {
435 case omapi_protocol_intro_wait:
436 /* Get protocol version and header size in network
437 byte order. */
438 omapi_connection_get_uint32 (c, &p -> protocol_version);
439 omapi_connection_get_uint32 (c, &p -> header_size);
440
441 /* We currently only support the current protocol version. */
442 if (p -> protocol_version != OMAPI_PROTOCOL_VERSION) {
443 omapi_disconnect (c, 1);
444 return ISC_R_VERSIONMISMATCH;
445 }
446
447 if (p -> header_size < sizeof (omapi_protocol_header_t)) {
448 omapi_disconnect (c, 1);
449 return ISC_R_PROTOCOLERROR;
450 }
451
452 if (p -> default_auth) {
453 status = omapi_protocol_send_open
454 (h, (omapi_object_t *)0, "authenticator",
455 p -> default_auth -> a,
456 OMAPI_NOTIFY_PROTOCOL);
457 if (status != ISC_R_SUCCESS) {
458 omapi_disconnect (c, 1);
459 return status;
460 }
461 } else {
462 status = omapi_signal_in (h -> inner, "ready");
463 }
464
465 to_header_wait:
466 /* The next thing we're expecting is a message header. */
467 p -> state = omapi_protocol_header_wait;
468
469 /* Register a need for the number of bytes in a
470 header, and if we already have that many, process
471 them immediately. */
472 if ((omapi_connection_require (c, p -> header_size)) !=
473 ISC_R_SUCCESS)
474 break;
475 /* If we already have the data, fall through. */
476
477 case omapi_protocol_header_wait:
478 #if defined (DEBUG_MEMORY_LEAKAGE)
479 if (previous_outstanding != 0xDEADBEEF) {
480 log_info ("%s %ld: %ld new, %ld outstanding, %ld%s",
481 "generation", dmalloc_generation,
482 dmalloc_outstanding - previous_outstanding,
483 dmalloc_outstanding, dmalloc_longterm,
484 " long-term");
485 #endif
486 #if (defined (DEBUG_MEMORY_LEAKAGE) || defined (DEBUG_MALLOC_POOL))
487 dmalloc_dump_outstanding ();
488 #endif
489 #if defined (DEBUG_RC_HISTORY_EXHAUSTIVELY)
490 dump_rc_history ();
491 #endif
492 #if defined (DEBUG_MEMORY_LEAKAGE)
493 }
494 previous_outstanding = dmalloc_outstanding;
495 #endif
496 status = omapi_message_new ((omapi_object_t **)&p -> message,
497 MDL);
498 if (status != ISC_R_SUCCESS) {
499 omapi_disconnect (c, 1);
500 return status;
501 }
502
503 p -> verify_result = ISC_R_SUCCESS;
504
505 /* Swap in the header... */
506 omapi_connection_get_uint32 (c, &p -> message -> authid);
507
508 /* Bind the authenticator to the message object. */
509 if (p -> message -> authid) {
510 status = (omapi_protocol_lookup_auth
511 (&p -> message -> id_object, h,
512 p -> message -> authid));
513 if (status != ISC_R_SUCCESS)
514 p -> verify_result = status;
515
516 /* Activate the authentication key. */
517 status = omapi_set_object_value
518 (c, (omapi_object_t *)0, "input-authenticator",
519 p -> message -> id_object);
520 if (status != ISC_R_SUCCESS) {
521 omapi_disconnect (c, 1);
522 return status;
523 }
524 }
525
526 omapi_connection_get_uint32 (c, &p -> message -> authlen);
527 omapi_connection_get_uint32 (c, &p -> message -> op);
528 omapi_connection_get_uint32 (c, &th);
529 p -> message -> h = th;
530 omapi_connection_get_uint32 (c, &p -> message -> id);
531 omapi_connection_get_uint32 (c, &p -> message -> rid);
532
533 /* If there was any extra header data, skip over it. */
534 if (p -> header_size > sizeof (omapi_protocol_header_t)) {
535 omapi_connection_copyout
536 (0, c, (p -> header_size -
537 sizeof (omapi_protocol_header_t)));
538 }
539
540 /* XXX must compute partial signature across the
541 XXX preceding bytes. Also, if authenticator
542 specifies encryption as well as signing, we may
543 have to decrypt the data on the way in. */
544
545 /* First we read in message-specific values, then object
546 values. */
547 p -> reading_message_values = 1;
548
549 need_name_length:
550 /* The next thing we're expecting is length of the
551 first name. */
552 p -> state = omapi_protocol_name_length_wait;
553
554 /* Wait for a 16-bit length. */
555 if ((omapi_connection_require (c, 2)) != ISC_R_SUCCESS)
556 break;
557 /* If it's already here, fall through. */
558
559 case omapi_protocol_name_length_wait:
560 omapi_connection_get_uint16 (c, &nlen);
561 /* A zero-length name means that we're done reading name+value
562 pairs. */
563 if (nlen == 0) {
564 /* If we've already read in the object, we are
565 done reading the message, but if we've just
566 finished reading in the values associated
567 with the message, we need to read the
568 object. */
569 if (p -> reading_message_values) {
570 p -> reading_message_values = 0;
571 goto need_name_length;
572 }
573
574 /* If the authenticator length is zero, there's no
575 signature to read in, so go straight to processing
576 the message. */
577 if (p -> message -> authlen == 0)
578 goto message_done;
579
580 /* The next thing we're expecting is the
581 message signature. */
582 p -> state = omapi_protocol_signature_wait;
583
584 /* Wait for the number of bytes specified for
585 the authenticator. If we already have it,
586 go read it in. */
587 if (omapi_connection_require
588 (c, p -> message -> authlen) == ISC_R_SUCCESS)
589 goto signature_wait;
590 break;
591 }
592
593 /* Allocate a buffer for the name. */
594 status = (omapi_data_string_new (&p -> name, nlen, MDL));
595 if (status != ISC_R_SUCCESS) {
596 omapi_disconnect (c, 1);
597 return ISC_R_NOMEMORY;
598 }
599 p -> state = omapi_protocol_name_wait;
600 if (omapi_connection_require (c, nlen) != ISC_R_SUCCESS)
601 break;
602 /* If it's already here, fall through. */
603
604 case omapi_protocol_name_wait:
605 omapi_connection_copyout (p -> name -> value, c,
606 p -> name -> len);
607 /* Wait for a 32-bit length. */
608 p -> state = omapi_protocol_value_length_wait;
609 if ((omapi_connection_require (c, 4)) != ISC_R_SUCCESS)
610 break;
611 /* If it's already here, fall through. */
612
613 case omapi_protocol_value_length_wait:
614 omapi_connection_get_uint32 (c, &vlen);
615
616 /* Zero-length values are allowed - if we get one, we
617 don't have to read any data for the value - just
618 get the next one, if there is a next one. */
619 if (!vlen)
620 goto insert_new_value;
621
622 status = omapi_typed_data_new (MDL, &p -> value,
623 omapi_datatype_data,
624 vlen);
625 if (status != ISC_R_SUCCESS) {
626 omapi_disconnect (c, 1);
627 return ISC_R_NOMEMORY;
628 }
629
630 p -> state = omapi_protocol_value_wait;
631 if (omapi_connection_require (c, vlen) != ISC_R_SUCCESS)
632 break;
633 /* If it's already here, fall through. */
634
635 case omapi_protocol_value_wait:
636 omapi_connection_copyout (p -> value -> u.buffer.value, c,
637 p -> value -> u.buffer.len);
638
639 insert_new_value:
640 if (p -> reading_message_values) {
641 status = (omapi_set_value
642 ((omapi_object_t *)p -> message,
643 p -> message -> id_object,
644 p -> name, p -> value));
645 } else {
646 if (!p -> message -> object) {
647 /* We need a generic object to hang off of the
648 incoming message. */
649 status = (omapi_generic_new
650 (&p -> message -> object, MDL));
651 if (status != ISC_R_SUCCESS) {
652 omapi_disconnect (c, 1);
653 return status;
654 }
655 }
656 status = (omapi_set_value
657 ((omapi_object_t *)p -> message -> object,
658 p -> message -> id_object,
659 p -> name, p -> value));
660 }
661 if (status != ISC_R_SUCCESS) {
662 omapi_disconnect (c, 1);
663 return status;
664 }
665 omapi_data_string_dereference (&p -> name, MDL);
666 if (p -> value)
667 omapi_typed_data_dereference (&p -> value, MDL);
668 goto need_name_length;
669
670 signature_wait:
671 case omapi_protocol_signature_wait:
672 if (p -> message -> id_object) {
673 /* Compute the signature of the message. */
674 signature = (omapi_value_t *)0;
675 status = omapi_get_value_str (c, (omapi_object_t *)0,
676 "input-signature",
677 &signature);
678 if (status != ISC_R_SUCCESS) {
679 omapi_disconnect (c, 1);
680 return status;
681 }
682
683 /* Disable the authentication key on the connection. */
684 status = omapi_set_value_str (c, (omapi_object_t *)0,
685 "input-authenticator",
686 (omapi_typed_data_t *)0);
687 if (status != ISC_R_SUCCESS) {
688 omapi_value_dereference (&signature, MDL);
689 omapi_disconnect (c, 1);
690 return status;
691 }
692 }
693
694 /* Read the authenticator. */
695 status = omapi_typed_data_new (MDL,
696 &p -> message -> authenticator,
697 omapi_datatype_data,
698 p -> message -> authlen);
699
700 if (status != ISC_R_SUCCESS) {
701 omapi_value_dereference (&signature, MDL);
702 omapi_disconnect (c, 1);
703 return ISC_R_NOMEMORY;
704 }
705 omapi_connection_copyout
706 (p -> message -> authenticator -> u.buffer.value, c,
707 p -> message -> authlen);
708
709 /* Verify the signature. */
710 if (p -> message -> id_object &&
711 ((signature -> value -> u.buffer.len !=
712 p -> message -> authlen) ||
713 (memcmp (signature -> value -> u.buffer.value,
714 p -> message -> authenticator -> u.buffer.value,
715 p -> message -> authlen) != 0))) {
716 /* Invalid signature. */
717 p -> verify_result = ISC_R_INVALIDKEY;
718 }
719
720 omapi_value_dereference (&signature, MDL);
721
722 /* Process the message. */
723 message_done:
724 if (p -> verify_result != ISC_R_SUCCESS) {
725 status = omapi_protocol_send_status
726 (h, (omapi_object_t *)0, p -> verify_result,
727 p -> message -> id, (char *)0);
728 } else {
729 status = omapi_message_process
730 ((omapi_object_t *)p -> message, h);
731 }
732 if (status != ISC_R_SUCCESS) {
733 omapi_disconnect (c, 1);
734 return ISC_R_NOMEMORY;
735 }
736
737 omapi_message_dereference (&p -> message, MDL);
738 #if defined (DEBUG_MEMORY_LEAKAGE)
739 log_info ("generation %ld: %ld new, %ld outstanding, %ld%s",
740 dmalloc_generation,
741 dmalloc_outstanding - previous_outstanding,
742 dmalloc_outstanding, dmalloc_longterm, " long-term");
743 #endif
744 #if (defined (DEBUG_MEMORY_LEAKAGE) || defined (DEBUG_MALLOC_POOL))
745 dmalloc_dump_outstanding ();
746 #endif
747 #if defined (DEBUG_RC_HISTORY_EXHAUSTIVELY)
748 dump_rc_history ();
749 #endif
750 #if defined (DEBUG_MEMORY_LEAKAGE)
751 previous_outstanding = 0xDEADBEEF;
752 #endif
753 /* Now wait for the next message. */
754 goto to_header_wait;
755
756 default:
757 /* XXX should never get here. Assertion? */
758 break;
759 }
760 return ISC_R_SUCCESS;
761 }
762
763 isc_result_t omapi_protocol_add_auth (omapi_object_t *po,
764 omapi_object_t *ao,
765 omapi_handle_t handle)
766 {
767 omapi_protocol_object_t *p;
768 omapi_remote_auth_t *r;
769 isc_result_t status;
770
771 if (ao -> type != omapi_type_auth_key &&
772 (!ao -> inner || ao -> inner -> type != omapi_type_auth_key))
773 return ISC_R_INVALIDARG;
774
775 if (po -> type != omapi_type_protocol)
776 return ISC_R_INVALIDARG;
777 p = (omapi_protocol_object_t *)po;
778
779 #ifdef DEBUG_PROTOCOL
780 log_debug ("omapi_protocol_add_auth(name=%s)",
781 ((omapi_auth_key_t *)ao) -> name);
782 #endif
783
784 if (p -> verify_auth) {
785 status = (p -> verify_auth) (po, (omapi_auth_key_t *)ao);
786 if (status != ISC_R_SUCCESS)
787 return status;
788 }
789
790 /* If omapi_protocol_connect() was called with a default
791 authenticator, p -> default_auth will already be set,
792 but p -> remote_auth_list will not yet be initialized. */
793 if (p -> default_auth && !p -> remote_auth_list) {
794 if (p -> default_auth -> a != ao) {
795 /* Something just went horribly wrong. */
796 omapi_disconnect (p -> outer, 1);
797 return ISC_R_UNEXPECTED;
798 }
799
800 p -> remote_auth_list = p -> default_auth;
801 p -> default_auth -> remote_handle = handle;
802
803 return omapi_signal_in (p -> inner, "ready");
804 }
805
806 r = dmalloc (sizeof(*r), MDL);
807 if (!r)
808 return ISC_R_NOMEMORY;
809
810 status = omapi_object_reference (&r -> a, ao, MDL);
811 if (status != ISC_R_SUCCESS) {
812 dfree (r, MDL);
813 return status;
814 }
815
816 r -> remote_handle = handle;
817 r -> next = p -> remote_auth_list;
818 p -> remote_auth_list = r;
819
820 return ISC_R_SUCCESS;
821 }
822
823 isc_result_t omapi_protocol_lookup_auth (omapi_object_t **a,
824 omapi_object_t *po,
825 omapi_handle_t handle)
826 {
827 omapi_protocol_object_t *p;
828 omapi_remote_auth_t *r;
829
830 if (po -> type != omapi_type_protocol)
831 return ISC_R_INVALIDARG;
832 p = (omapi_protocol_object_t *)po;
833
834 for (r = p -> remote_auth_list; r; r = r -> next)
835 if (r -> remote_handle == handle)
836 return omapi_object_reference (a, r -> a, MDL);
837
838 return ISC_R_KEY_UNKNOWN;
839 }
840
841 isc_result_t omapi_protocol_set_value (omapi_object_t *h,
842 omapi_object_t *id,
843 omapi_data_string_t *name,
844 omapi_typed_data_t *value)
845 {
846 omapi_protocol_object_t *p;
847 omapi_remote_auth_t *r;
848
849 if (h -> type != omapi_type_protocol)
850 return ISC_R_INVALIDARG;
851 p = (omapi_protocol_object_t *)h;
852
853 if (omapi_ds_strcmp (name, "default-authenticator") == 0) {
854 if (value -> type != omapi_datatype_object)
855 return ISC_R_INVALIDARG;
856
857 if (!value || !value -> u.object) {
858 p -> default_auth = (omapi_remote_auth_t *)0;
859 } else {
860 for (r = p -> remote_auth_list; r; r = r -> next)
861 if (r -> a == value -> u.object)
862 break;
863
864 if (!r)
865 return ISC_R_KEY_UNKNOWN;
866
867 p -> default_auth = r;
868 }
869
870 return ISC_R_SUCCESS;
871 }
872
873 if (h -> inner && h -> inner -> type -> set_value)
874 return (*(h -> inner -> type -> set_value))
875 (h -> inner, id, name, value);
876 return ISC_R_NOTFOUND;
877 }
878
879 isc_result_t omapi_protocol_get_value (omapi_object_t *h,
880 omapi_object_t *id,
881 omapi_data_string_t *name,
882 omapi_value_t **value)
883 {
884 omapi_protocol_object_t *p;
885
886 if (h -> type != omapi_type_protocol)
887 return ISC_R_INVALIDARG;
888 p = (omapi_protocol_object_t *)h;
889
890 if (omapi_ds_strcmp (name, "default-authenticator") == 0) {
891 if (!p -> default_auth)
892 return ISC_R_NOTFOUND;
893
894 return omapi_make_object_value (value, name,
895 p -> default_auth -> a, MDL);
896 }
897
898 if (h -> inner && h -> inner -> type -> get_value)
899 return (*(h -> inner -> type -> get_value))
900 (h -> inner, id, name, value);
901 return ISC_R_NOTFOUND;
902 }
903
904 isc_result_t omapi_protocol_destroy (omapi_object_t *h,
905 const char *file, int line)
906 {
907 omapi_protocol_object_t *p;
908 if (h -> type != omapi_type_protocol)
909 return ISC_R_INVALIDARG;
910 p = (omapi_protocol_object_t *)h;
911 if (p -> message)
912 omapi_message_dereference (&p -> message, file, line);
913
914 /* This will happen if: 1) A default authenticator is supplied to
915 omapi_protocol_connect(), and 2) something goes wrong before
916 the authenticator can be opened. */
917 if (p -> default_auth && !p -> remote_auth_list)
918 dfree (p -> default_auth, file, line);
919
920 while (p -> remote_auth_list) {
921 omapi_remote_auth_t *r = p -> remote_auth_list -> next;
922 p -> remote_auth_list = r;
923 if (r) {
924 omapi_object_dereference (&r -> a, file, line);
925 dfree (r, file, line);
926 }
927 }
928 return ISC_R_SUCCESS;
929 }
930
931 /* Write all the published values associated with the object through the
932 specified connection. */
933
934 isc_result_t omapi_protocol_stuff_values (omapi_object_t *c,
935 omapi_object_t *id,
936 omapi_object_t *p)
937 {
938 // int i;
939
940 if (p -> type != omapi_type_protocol)
941 return ISC_R_INVALIDARG;
942
943 if (p -> inner && p -> inner -> type -> stuff_values)
944 return (*(p -> inner -> type -> stuff_values)) (c, id,
945 p -> inner);
946 return ISC_R_SUCCESS;
947 }
948
949 /* Returns a boolean indicating whether this protocol requires that
950 messages be authenticated or not. */
951
952 isc_boolean_t omapi_protocol_authenticated (omapi_object_t *h)
953 {
954 if (h -> type != omapi_type_protocol)
955 return isc_boolean_false;
956 if (((omapi_protocol_object_t *)h) -> insecure)
957 return isc_boolean_false;
958 else
959 return isc_boolean_true;
960 }
961
962 /* Sets the address and authenticator verification callbacks. The handle
963 is to a listener object, not a protocol object. */
964
965 isc_result_t omapi_protocol_configure_security (omapi_object_t *h,
966 isc_result_t (*verify_addr)
967 (omapi_object_t *,
968 omapi_addr_t *),
969 isc_result_t (*verify_auth)
970 (omapi_object_t *,
971 omapi_auth_key_t *))
972 {
973 omapi_protocol_listener_object_t *l;
974
975 if (h -> outer && h -> outer -> type == omapi_type_protocol_listener)
976 h = h -> outer;
977
978 if (h -> type != omapi_type_protocol_listener)
979 return ISC_R_INVALIDARG;
980 l = (omapi_protocol_listener_object_t *)h;
981
982 l -> verify_auth = verify_auth;
983 l -> insecure = 0;
984
985 return omapi_listener_configure_security (h -> outer, verify_addr);
986 }
987
988
989 /* Set up a listener for the omapi protocol. The handle stored points to
990 a listener object, not a protocol object. */
991
992 isc_result_t omapi_protocol_listen (omapi_object_t *h,
993 unsigned port,
994 int max)
995 {
996 isc_result_t status;
997 omapi_protocol_listener_object_t *obj;
998
999 obj = (omapi_protocol_listener_object_t *)0;
1000 status = omapi_protocol_listener_allocate (&obj, MDL);
1001 if (status != ISC_R_SUCCESS)
1002 return status;
1003
1004 status = omapi_object_reference (&h -> outer,
1005 (omapi_object_t *)obj, MDL);
1006 if (status != ISC_R_SUCCESS) {
1007 omapi_protocol_listener_dereference (&obj, MDL);
1008 return status;
1009 }
1010 status = omapi_object_reference (&obj -> inner, h, MDL);
1011 if (status != ISC_R_SUCCESS) {
1012 omapi_protocol_listener_dereference (&obj, MDL);
1013 return status;
1014 }
1015
1016 /* What a terrible default. */
1017 obj -> insecure = 1;
1018
1019 status = omapi_listen ((omapi_object_t *)obj, port, max);
1020 omapi_protocol_listener_dereference (&obj, MDL);
1021 return status;
1022 }
1023
1024 /* Signal handler for protocol listener - if we get a connect signal,
1025 create a new protocol connection, otherwise pass the signal down. */
1026
1027 isc_result_t omapi_protocol_listener_signal (omapi_object_t *o,
1028 const char *name, va_list ap)
1029 {
1030 isc_result_t status;
1031 omapi_object_t *c;
1032 omapi_protocol_object_t *obj;
1033 omapi_protocol_listener_object_t *p;
1034
1035 if (!o || o -> type != omapi_type_protocol_listener)
1036 return ISC_R_INVALIDARG;
1037 p = (omapi_protocol_listener_object_t *)o;
1038
1039 /* Not a signal we recognize? */
1040 if (strcmp (name, "connect")) {
1041 if (p -> inner && p -> inner -> type -> signal_handler)
1042 return (*(p -> inner -> type -> signal_handler))
1043 (p -> inner, name, ap);
1044 return ISC_R_NOTFOUND;
1045 }
1046
1047 c = va_arg (ap, omapi_object_t *);
1048 if (!c || c -> type != omapi_type_connection)
1049 return ISC_R_INVALIDARG;
1050
1051 obj = (omapi_protocol_object_t *)0;
1052 status = omapi_protocol_allocate (&obj, MDL);
1053 if (status != ISC_R_SUCCESS)
1054 return status;
1055
1056 obj -> verify_auth = p -> verify_auth;
1057 obj -> insecure = p -> insecure;
1058
1059 status = omapi_object_reference (&obj -> outer, c, MDL);
1060 if (status != ISC_R_SUCCESS) {
1061 lose:
1062 omapi_protocol_dereference (&obj, MDL);
1063 omapi_disconnect (c, 1);
1064 return status;
1065 }
1066
1067 status = omapi_object_reference (&c -> inner,
1068 (omapi_object_t *)obj, MDL);
1069 if (status != ISC_R_SUCCESS)
1070 goto lose;
1071
1072 /* Send the introductory message. */
1073 status = omapi_protocol_send_intro ((omapi_object_t *)obj,
1074 OMAPI_PROTOCOL_VERSION,
1075 sizeof (omapi_protocol_header_t));
1076 if (status != ISC_R_SUCCESS)
1077 goto lose;
1078
1079 omapi_protocol_dereference (&obj, MDL);
1080 return status;
1081 }
1082
1083 isc_result_t omapi_protocol_listener_set_value (omapi_object_t *h,
1084 omapi_object_t *id,
1085 omapi_data_string_t *name,
1086 omapi_typed_data_t *value)
1087 {
1088 if (h -> type != omapi_type_protocol_listener)
1089 return ISC_R_INVALIDARG;
1090
1091 if (h -> inner && h -> inner -> type -> set_value)
1092 return (*(h -> inner -> type -> set_value))
1093 (h -> inner, id, name, value);
1094 return ISC_R_NOTFOUND;
1095 }
1096
1097 isc_result_t omapi_protocol_listener_get_value (omapi_object_t *h,
1098 omapi_object_t *id,
1099 omapi_data_string_t *name,
1100 omapi_value_t **value)
1101 {
1102 if (h -> type != omapi_type_protocol_listener)
1103 return ISC_R_INVALIDARG;
1104
1105 if (h -> inner && h -> inner -> type -> get_value)
1106 return (*(h -> inner -> type -> get_value))
1107 (h -> inner, id, name, value);
1108 return ISC_R_NOTFOUND;
1109 }
1110
1111 isc_result_t omapi_protocol_listener_destroy (omapi_object_t *h,
1112 const char *file, int line)
1113 {
1114 if (h -> type != omapi_type_protocol_listener)
1115 return ISC_R_INVALIDARG;
1116 return ISC_R_SUCCESS;
1117 }
1118
1119 /* Write all the published values associated with the object through the
1120 specified connection. */
1121
1122 isc_result_t omapi_protocol_listener_stuff (omapi_object_t *c,
1123 omapi_object_t *id,
1124 omapi_object_t *p)
1125 {
1126 // int i;
1127
1128 if (p -> type != omapi_type_protocol_listener)
1129 return ISC_R_INVALIDARG;
1130
1131 if (p -> inner && p -> inner -> type -> stuff_values)
1132 return (*(p -> inner -> type -> stuff_values)) (c, id,
1133 p -> inner);
1134 return ISC_R_SUCCESS;
1135 }
1136
1137 isc_result_t omapi_protocol_send_status (omapi_object_t *po,
1138 omapi_object_t *id,
1139 isc_result_t waitstatus,
1140 unsigned rid, const char *msg)
1141 {
1142 isc_result_t status;
1143 omapi_message_object_t *message = (omapi_message_object_t *)0;
1144 omapi_object_t *mo;
1145
1146 if (po -> type != omapi_type_protocol)
1147 return ISC_R_INVALIDARG;
1148
1149 status = omapi_message_new ((omapi_object_t **)&message, MDL);
1150 if (status != ISC_R_SUCCESS)
1151 return status;
1152 mo = (omapi_object_t *)message;
1153
1154 status = omapi_set_int_value (mo, (omapi_object_t *)0,
1155 "op", OMAPI_OP_STATUS);
1156 if (status != ISC_R_SUCCESS) {
1157 omapi_message_dereference (&message, MDL);
1158 return status;
1159 }
1160
1161 status = omapi_set_int_value (mo, (omapi_object_t *)0,
1162 "rid", (int)rid);
1163 if (status != ISC_R_SUCCESS) {
1164 omapi_message_dereference (&message, MDL);
1165 return status;
1166 }
1167
1168 status = omapi_set_int_value (mo, (omapi_object_t *)0,
1169 "result", (int)waitstatus);
1170 if (status != ISC_R_SUCCESS) {
1171 omapi_message_dereference (&message, MDL);
1172 return status;
1173 }
1174
1175 /* If a message has been provided, send it. */
1176 if (msg) {
1177 status = omapi_set_string_value (mo, (omapi_object_t *)0,
1178 "message", msg);
1179 if (status != ISC_R_SUCCESS) {
1180 omapi_message_dereference (&message, MDL);
1181 return status;
1182 }
1183 }
1184
1185 status = omapi_protocol_send_message (po, id, mo, (omapi_object_t *)0);
1186 omapi_message_dereference (&message, MDL);
1187 return status;
1188 }
1189
1190 /* The OMAPI_NOTIFY_PROTOCOL flag will cause the notify-object for the
1191 message to be set to the protocol object. This is used when opening
1192 the default authenticator. */
1193
1194 isc_result_t omapi_protocol_send_open (omapi_object_t *po,
1195 omapi_object_t *id,
1196 const char *type,
1197 omapi_object_t *object,
1198 unsigned flags)
1199 {
1200 isc_result_t status;
1201 omapi_message_object_t *message = (omapi_message_object_t *)0;
1202 omapi_object_t *mo;
1203
1204 if (po -> type != omapi_type_protocol)
1205 return ISC_R_INVALIDARG;
1206
1207 status = omapi_message_new ((omapi_object_t **)&message, MDL);
1208 mo = (omapi_object_t *)message;
1209
1210 if (status == ISC_R_SUCCESS)
1211 status = omapi_set_int_value (mo, (omapi_object_t *)0,
1212 "op", OMAPI_OP_OPEN);
1213
1214 if (status == ISC_R_SUCCESS)
1215 status = omapi_set_object_value (mo, (omapi_object_t *)0,
1216 "object", object);
1217
1218 if ((flags & OMAPI_CREATE) && (status == ISC_R_SUCCESS))
1219 status = omapi_set_boolean_value (mo, (omapi_object_t *)0,
1220 "create", 1);
1221
1222 if ((flags & OMAPI_UPDATE) && (status == ISC_R_SUCCESS))
1223 status = omapi_set_boolean_value (mo, (omapi_object_t *)0,
1224 "update", 1);
1225
1226 if ((flags & OMAPI_EXCL) && (status == ISC_R_SUCCESS))
1227 status = omapi_set_boolean_value (mo, (omapi_object_t *)0,
1228 "exclusive", 1);
1229
1230 if ((flags & OMAPI_NOTIFY_PROTOCOL) && (status == ISC_R_SUCCESS))
1231 status = omapi_set_object_value (mo, (omapi_object_t *)0,
1232 "notify-object", po);
1233
1234 if (type && (status == ISC_R_SUCCESS))
1235 status = omapi_set_string_value (mo, (omapi_object_t *)0,
1236 "type", type);
1237
1238 if (status == ISC_R_SUCCESS)
1239 status = omapi_message_register (mo);
1240
1241 if (status == ISC_R_SUCCESS) {
1242 status = omapi_protocol_send_message (po, id, mo,
1243 (omapi_object_t *)0);
1244 if (status != ISC_R_SUCCESS)
1245 omapi_message_unregister (mo);
1246 }
1247
1248 if (message)
1249 omapi_message_dereference (&message, MDL);
1250
1251 return status;
1252 }
1253
1254 isc_result_t omapi_protocol_send_update (omapi_object_t *po,
1255 omapi_object_t *id,
1256 unsigned rid,
1257 omapi_object_t *object)
1258 {
1259 isc_result_t status;
1260 omapi_message_object_t *message = (omapi_message_object_t *)0;
1261 omapi_object_t *mo;
1262
1263 if (po -> type != omapi_type_protocol)
1264 return ISC_R_INVALIDARG;
1265
1266 status = omapi_message_new ((omapi_object_t **)&message, MDL);
1267 if (status != ISC_R_SUCCESS)
1268 return status;
1269 mo = (omapi_object_t *)message;
1270
1271 status = omapi_set_int_value (mo, (omapi_object_t *)0,
1272 "op", OMAPI_OP_UPDATE);
1273 if (status != ISC_R_SUCCESS) {
1274 omapi_message_dereference (&message, MDL);
1275 return status;
1276 }
1277
1278 if (rid) {
1279 omapi_handle_t handle;
1280 status = omapi_set_int_value (mo, (omapi_object_t *)0,
1281 "rid", (int)rid);
1282 if (status != ISC_R_SUCCESS) {
1283 omapi_message_dereference (&message, MDL);
1284 return status;
1285 }
1286
1287 status = omapi_object_handle (&handle, object);
1288 if (status != ISC_R_SUCCESS) {
1289 omapi_message_dereference (&message, MDL);
1290 return status;
1291 }
1292 status = omapi_set_int_value (mo, (omapi_object_t *)0,
1293 "handle", (int)handle);
1294 if (status != ISC_R_SUCCESS) {
1295 omapi_message_dereference (&message, MDL);
1296 return status;
1297 }
1298 }
1299
1300 status = omapi_set_object_value (mo, (omapi_object_t *)0,
1301 "object", object);
1302 if (status != ISC_R_SUCCESS) {
1303 omapi_message_dereference (&message, MDL);
1304 return status;
1305 }
1306
1307 status = omapi_protocol_send_message (po, id, mo, (omapi_object_t *)0);
1308 omapi_message_dereference (&message, MDL);
1309 return status;
1310 }
Mirror of AROS' svn.