diff options
author | Christian Grothoff <christian@grothoff.org> | 2016-09-20 15:14:05 +0000 |
---|---|---|
committer | Christian Grothoff <christian@grothoff.org> | 2016-09-20 15:14:05 +0000 |
commit | 5663ca18885242fca4dd209898ffda9cbe675c58 (patch) | |
tree | eba7a80df59830aefd927a5a5383e47b353d5a09 /src/core/gnunet-service-core.c | |
parent | 7e835e78aa82869715c9aee96a73ba40aad3f39f (diff) | |
download | gnunet-5663ca18885242fca4dd209898ffda9cbe675c58.tar.gz gnunet-5663ca18885242fca4dd209898ffda9cbe675c58.zip |
converting core service to new service API
Diffstat (limited to 'src/core/gnunet-service-core.c')
-rw-r--r-- | src/core/gnunet-service-core.c | 881 |
1 files changed, 854 insertions, 27 deletions
diff --git a/src/core/gnunet-service-core.c b/src/core/gnunet-service-core.c index f9391e616..acaa10092 100644 --- a/src/core/gnunet-service-core.c +++ b/src/core/gnunet-service-core.c | |||
@@ -1,6 +1,6 @@ | |||
1 | /* | 1 | /* |
2 | This file is part of GNUnet. | 2 | This file is part of GNUnet. |
3 | Copyright (C) 2009, 2010, 2011 GNUnet e.V. | 3 | Copyright (C) 2009, 2010, 2011, 2016 GNUnet e.V. |
4 | 4 | ||
5 | GNUnet is free software; you can redistribute it and/or modify | 5 | GNUnet is free software; you can redistribute it and/or modify |
6 | it under the terms of the GNU General Public License as published | 6 | it under the terms of the GNU General Public License as published |
@@ -27,11 +27,75 @@ | |||
27 | #include <gcrypt.h> | 27 | #include <gcrypt.h> |
28 | #include "gnunet_util_lib.h" | 28 | #include "gnunet_util_lib.h" |
29 | #include "gnunet-service-core.h" | 29 | #include "gnunet-service-core.h" |
30 | #include "gnunet-service-core_clients.h" | ||
31 | #include "gnunet-service-core_kx.h" | 30 | #include "gnunet-service-core_kx.h" |
32 | #include "gnunet-service-core_sessions.h" | 31 | #include "gnunet-service-core_sessions.h" |
33 | #include "gnunet-service-core_typemap.h" | 32 | #include "gnunet-service-core_typemap.h" |
34 | 33 | ||
34 | /** | ||
35 | * How many messages do we queue up at most for optional | ||
36 | * notifications to a client? (this can cause notifications | ||
37 | * about outgoing messages to be dropped). | ||
38 | */ | ||
39 | #define MAX_NOTIFY_QUEUE 1024 | ||
40 | |||
41 | |||
42 | /** | ||
43 | * Data structure for each client connected to the CORE service. | ||
44 | */ | ||
45 | struct GSC_Client | ||
46 | { | ||
47 | /** | ||
48 | * Clients are kept in a linked list. | ||
49 | */ | ||
50 | struct GSC_Client *next; | ||
51 | |||
52 | /** | ||
53 | * Clients are kept in a linked list. | ||
54 | */ | ||
55 | struct GSC_Client *prev; | ||
56 | |||
57 | /** | ||
58 | * Handle for the client with the server API. | ||
59 | */ | ||
60 | struct GNUNET_SERVICE_Client *client; | ||
61 | |||
62 | /** | ||
63 | * Message queue to talk to @e client. | ||
64 | */ | ||
65 | struct GNUNET_MQ_Handle *mq; | ||
66 | |||
67 | /** | ||
68 | * Array of the types of messages this peer cares | ||
69 | * about (with @e tcnt entries). Allocated as part | ||
70 | * of this client struct, do not free! | ||
71 | */ | ||
72 | uint16_t *types; | ||
73 | |||
74 | /** | ||
75 | * Map of peer identities to active transmission requests of this | ||
76 | * client to the peer (of type `struct GSC_ClientActiveRequest`). | ||
77 | */ | ||
78 | struct GNUNET_CONTAINER_MultiPeerMap *requests; | ||
79 | |||
80 | /** | ||
81 | * Map containing all peers that this client knows we're connected to. | ||
82 | */ | ||
83 | struct GNUNET_CONTAINER_MultiPeerMap *connectmap; | ||
84 | |||
85 | /** | ||
86 | * Options for messages this client cares about, | ||
87 | * see GNUNET_CORE_OPTION_ values. | ||
88 | */ | ||
89 | uint32_t options; | ||
90 | |||
91 | /** | ||
92 | * Number of types of incoming messages this client | ||
93 | * specifically cares about. Size of the @e types array. | ||
94 | */ | ||
95 | unsigned int tcnt; | ||
96 | |||
97 | }; | ||
98 | |||
35 | 99 | ||
36 | /** | 100 | /** |
37 | * Our identity. | 101 | * Our identity. |
@@ -49,9 +113,739 @@ const struct GNUNET_CONFIGURATION_Handle *GSC_cfg; | |||
49 | struct GNUNET_STATISTICS_Handle *GSC_stats; | 113 | struct GNUNET_STATISTICS_Handle *GSC_stats; |
50 | 114 | ||
51 | /** | 115 | /** |
52 | * Handle to the server of the core service. | 116 | * Big "or" of all client options. |
117 | */ | ||
118 | static uint32_t all_client_options; | ||
119 | |||
120 | /** | ||
121 | * Head of linked list of our clients. | ||
122 | */ | ||
123 | static struct GSC_Client *client_head; | ||
124 | |||
125 | /** | ||
126 | * Tail of linked list of our clients. | ||
127 | */ | ||
128 | static struct GSC_Client *client_tail; | ||
129 | |||
130 | |||
131 | /** | ||
132 | * Test if the client is interested in messages of the given type. | ||
133 | * | ||
134 | * @param type message type | ||
135 | * @param c client to test | ||
136 | * @return #GNUNET_YES if @a c is interested, #GNUNET_NO if not. | ||
137 | */ | ||
138 | static int | ||
139 | type_match (uint16_t type, | ||
140 | struct GSC_Client *c) | ||
141 | { | ||
142 | if ( (0 == c->tcnt) && | ||
143 | (0 != c->options) ) | ||
144 | return GNUNET_YES; /* peer without handlers and inbound/outbond | ||
145 | callbacks matches ALL */ | ||
146 | if (NULL == c->types) | ||
147 | return GNUNET_NO; | ||
148 | for (unsigned int i = 0; i < c->tcnt; i++) | ||
149 | if (type == c->types[i]) | ||
150 | return GNUNET_YES; | ||
151 | return GNUNET_NO; | ||
152 | } | ||
153 | |||
154 | |||
155 | /** | ||
156 | * Check #GNUNET_MESSAGE_TYPE_CORE_INIT request. | ||
157 | * | ||
158 | * @param cls client that sent #GNUNET_MESSAGE_TYPE_CORE_INIT | ||
159 | * @param im the `struct InitMessage` | ||
160 | * @return #GNUNET_OK if @a im is well-formed | ||
53 | */ | 161 | */ |
54 | static struct GNUNET_SERVER_Handle *GSC_server; | 162 | static int |
163 | check_client_init (void *cls, | ||
164 | const struct InitMessage *im) | ||
165 | { | ||
166 | return GNUNET_OK; | ||
167 | } | ||
168 | |||
169 | |||
170 | /** | ||
171 | * Handle #GNUNET_MESSAGE_TYPE_CORE_INIT request. | ||
172 | * | ||
173 | * @param cls client that sent #GNUNET_MESSAGE_TYPE_CORE_INIT | ||
174 | * @param im the `struct InitMessage` | ||
175 | */ | ||
176 | static void | ||
177 | handle_client_init (void *cls, | ||
178 | const struct InitMessage *im) | ||
179 | { | ||
180 | struct GSC_Client *c = cls; | ||
181 | struct GNUNET_MQ_Envelope *env; | ||
182 | struct InitReplyMessage *irm; | ||
183 | uint16_t msize; | ||
184 | const uint16_t *types; | ||
185 | |||
186 | /* check that we don't have an entry already */ | ||
187 | msize = ntohs (im->header.size) - sizeof (struct InitMessage); | ||
188 | types = (const uint16_t *) &im[1]; | ||
189 | c->tcnt = msize / sizeof (uint16_t); | ||
190 | c->options = ntohl (im->options); | ||
191 | all_client_options |= c->options; | ||
192 | c->types = GNUNET_malloc (msize); | ||
193 | c->connectmap = GNUNET_CONTAINER_multipeermap_create (16, | ||
194 | GNUNET_NO); | ||
195 | GNUNET_assert (GNUNET_YES == | ||
196 | GNUNET_CONTAINER_multipeermap_put (c->connectmap, | ||
197 | &GSC_my_identity, | ||
198 | NULL, | ||
199 | GNUNET_CONTAINER_MULTIHASHMAPOPTION_UNIQUE_ONLY)); | ||
200 | for (unsigned int i = 0; i < c->tcnt; i++) | ||
201 | c->types[i] = ntohs (types[i]); | ||
202 | GSC_TYPEMAP_add (c->types, | ||
203 | c->tcnt); | ||
204 | GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, | ||
205 | "Client connecting to core service is interested in %u message types\n", | ||
206 | (unsigned int) c->tcnt); | ||
207 | /* send init reply message */ | ||
208 | env = GNUNET_MQ_msg (irm, | ||
209 | GNUNET_MESSAGE_TYPE_CORE_INIT_REPLY); | ||
210 | irm->reserved = htonl (0); | ||
211 | irm->my_identity = GSC_my_identity; | ||
212 | GNUNET_MQ_send (c->mq, | ||
213 | env); | ||
214 | GSC_SESSIONS_notify_client_about_sessions (c); | ||
215 | GNUNET_SERVICE_client_continue (c->client); | ||
216 | } | ||
217 | |||
218 | |||
219 | /** | ||
220 | * We will never be ready to transmit the given message in (disconnect | ||
221 | * or invalid request). Frees resources associated with @a car. We | ||
222 | * don't explicitly tell the client, he'll learn with the disconnect | ||
223 | * (or violated the protocol). | ||
224 | * | ||
225 | * @param car request that now permanently failed; the | ||
226 | * responsibility for the handle is now returned | ||
227 | * to CLIENTS (SESSIONS is done with it). | ||
228 | * @param drop_client #GNUNET_YES if the client violated the protocol | ||
229 | * and we should thus drop the connection | ||
230 | */ | ||
231 | void | ||
232 | GSC_CLIENTS_reject_request (struct GSC_ClientActiveRequest *car, | ||
233 | int drop_client) | ||
234 | { | ||
235 | GNUNET_assert (GNUNET_YES == | ||
236 | GNUNET_CONTAINER_multipeermap_remove (car-> | ||
237 | client_handle->requests, | ||
238 | &car->target, | ||
239 | car)); | ||
240 | if (GNUNET_YES == drop_client) | ||
241 | GNUNET_SERVICE_client_drop (car->client_handle->client); | ||
242 | GNUNET_free (car); | ||
243 | } | ||
244 | |||
245 | |||
246 | /** | ||
247 | * Tell a client that we are ready to receive the message. | ||
248 | * | ||
249 | * @param car request that is now ready; the responsibility | ||
250 | * for the handle remains shared between CLIENTS | ||
251 | * and SESSIONS after this call. | ||
252 | */ | ||
253 | void | ||
254 | GSC_CLIENTS_solicit_request (struct GSC_ClientActiveRequest *car) | ||
255 | { | ||
256 | struct GSC_Client *c; | ||
257 | struct GNUNET_MQ_Envelope *env; | ||
258 | struct SendMessageReady *smr; | ||
259 | struct GNUNET_TIME_Relative delay; | ||
260 | struct GNUNET_TIME_Relative left; | ||
261 | |||
262 | c = car->client_handle; | ||
263 | if (GNUNET_YES != | ||
264 | GNUNET_CONTAINER_multipeermap_contains (c->connectmap, | ||
265 | &car->target)) | ||
266 | { | ||
267 | /* connection has gone down since, drop request */ | ||
268 | GNUNET_assert (0 != | ||
269 | memcmp (&car->target, | ||
270 | &GSC_my_identity, | ||
271 | sizeof (struct GNUNET_PeerIdentity))); | ||
272 | GSC_SESSIONS_dequeue_request (car); | ||
273 | GSC_CLIENTS_reject_request (car, | ||
274 | GNUNET_NO); | ||
275 | return; | ||
276 | } | ||
277 | delay = GNUNET_TIME_absolute_get_duration (car->received_time); | ||
278 | left = GNUNET_TIME_absolute_get_duration (car->deadline); | ||
279 | if (delay.rel_value_us > GNUNET_CONSTANTS_LATENCY_WARN.rel_value_us) | ||
280 | GNUNET_log (GNUNET_ERROR_TYPE_WARNING, | ||
281 | "Client waited %s for permission to transmit to `%s'%s (priority %u)\n", | ||
282 | GNUNET_STRINGS_relative_time_to_string (delay, | ||
283 | GNUNET_YES), | ||
284 | GNUNET_i2s (&car->target), | ||
285 | (0 == left.rel_value_us) | ||
286 | ? " (past deadline)" | ||
287 | : "", | ||
288 | car->priority); | ||
289 | env = GNUNET_MQ_msg (smr, | ||
290 | GNUNET_MESSAGE_TYPE_CORE_SEND_READY); | ||
291 | smr->size = htons (car->msize); | ||
292 | smr->smr_id = car->smr_id; | ||
293 | smr->peer = car->target; | ||
294 | GNUNET_MQ_send (c->mq, | ||
295 | env); | ||
296 | } | ||
297 | |||
298 | |||
299 | /** | ||
300 | * Handle #GNUNET_MESSAGE_TYPE_CORE_SEND_REQUEST message. | ||
301 | * | ||
302 | * @param cls client that sent a #GNUNET_MESSAGE_TYPE_CORE_SEND_REQUEST | ||
303 | * @param req the `struct SendMessageRequest` | ||
304 | */ | ||
305 | static void | ||
306 | handle_client_send_request (void *cls, | ||
307 | const struct SendMessageRequest *req) | ||
308 | { | ||
309 | struct GSC_Client *c = cls; | ||
310 | struct GSC_ClientActiveRequest *car; | ||
311 | int is_loopback; | ||
312 | |||
313 | if (NULL == c->requests) | ||
314 | c->requests = GNUNET_CONTAINER_multipeermap_create (16, | ||
315 | GNUNET_NO); | ||
316 | GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, | ||
317 | "Client asked for transmission to `%s'\n", | ||
318 | GNUNET_i2s (&req->peer)); | ||
319 | is_loopback = | ||
320 | (0 == | ||
321 | memcmp (&req->peer, | ||
322 | &GSC_my_identity, | ||
323 | sizeof (struct GNUNET_PeerIdentity))); | ||
324 | if ((! is_loopback) && | ||
325 | (GNUNET_YES != | ||
326 | GNUNET_CONTAINER_multipeermap_contains (c->connectmap, | ||
327 | &req->peer))) | ||
328 | { | ||
329 | /* neighbour must have disconnected since request was issued, | ||
330 | * ignore (client will realize it once it processes the | ||
331 | * disconnect notification) */ | ||
332 | GNUNET_STATISTICS_update (GSC_stats, | ||
333 | gettext_noop | ||
334 | ("# send requests dropped (disconnected)"), 1, | ||
335 | GNUNET_NO); | ||
336 | GNUNET_SERVICE_client_continue (c->client); | ||
337 | return; | ||
338 | } | ||
339 | |||
340 | car = GNUNET_CONTAINER_multipeermap_get (c->requests, | ||
341 | &req->peer); | ||
342 | if (NULL == car) | ||
343 | { | ||
344 | /* create new entry */ | ||
345 | car = GNUNET_new (struct GSC_ClientActiveRequest); | ||
346 | GNUNET_assert (GNUNET_OK == | ||
347 | GNUNET_CONTAINER_multipeermap_put (c->requests, | ||
348 | &req->peer, | ||
349 | car, | ||
350 | GNUNET_CONTAINER_MULTIHASHMAPOPTION_UNIQUE_FAST)); | ||
351 | car->client_handle = c; | ||
352 | } | ||
353 | else | ||
354 | { | ||
355 | /* dequeue and recycle memory from pending request, there can only | ||
356 | be at most one per client and peer */ | ||
357 | GNUNET_STATISTICS_update (GSC_stats, | ||
358 | gettext_noop ("# dequeuing CAR (duplicate request)"), | ||
359 | 1, | ||
360 | GNUNET_NO); | ||
361 | GSC_SESSIONS_dequeue_request (car); | ||
362 | GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, | ||
363 | "Transmission request to `%s' was a duplicate!\n", | ||
364 | GNUNET_i2s (&req->peer)); | ||
365 | } | ||
366 | car->target = req->peer; | ||
367 | car->received_time = GNUNET_TIME_absolute_get (); | ||
368 | car->deadline = GNUNET_TIME_absolute_ntoh (req->deadline); | ||
369 | car->priority = (enum GNUNET_CORE_Priority) ntohl (req->priority); | ||
370 | car->msize = ntohs (req->size); | ||
371 | car->smr_id = req->smr_id; | ||
372 | car->was_solicited = GNUNET_NO; | ||
373 | GNUNET_SERVICE_client_continue (c->client); | ||
374 | if (is_loopback) | ||
375 | { | ||
376 | /* loopback, satisfy immediately */ | ||
377 | GSC_CLIENTS_solicit_request (car); | ||
378 | return; | ||
379 | } | ||
380 | GSC_SESSIONS_queue_request (car); | ||
381 | } | ||
382 | |||
383 | |||
384 | /** | ||
385 | * Closure for the #client_tokenizer_callback(). | ||
386 | */ | ||
387 | struct TokenizerContext | ||
388 | { | ||
389 | |||
390 | /** | ||
391 | * Active request handle for the message. | ||
392 | */ | ||
393 | struct GSC_ClientActiveRequest *car; | ||
394 | |||
395 | /** | ||
396 | * How important is this message. | ||
397 | */ | ||
398 | enum GNUNET_CORE_Priority priority; | ||
399 | |||
400 | /** | ||
401 | * Is corking allowed (set only once we have the real message). | ||
402 | */ | ||
403 | int cork; | ||
404 | |||
405 | }; | ||
406 | |||
407 | |||
408 | /** | ||
409 | * Functions with this signature are called whenever a complete | ||
410 | * message is received by the tokenizer. Used by | ||
411 | * #handle_client_send() for dispatching messages from clients to | ||
412 | * either the SESSION subsystem or other CLIENT (for loopback). | ||
413 | * | ||
414 | * @param cls reservation request (`struct TokenizerContext`) | ||
415 | * @param message the actual message | ||
416 | */ | ||
417 | static int | ||
418 | tokenized_cb (void *cls, | ||
419 | const struct GNUNET_MessageHeader *message) | ||
420 | { | ||
421 | struct TokenizerContext *tc = cls; | ||
422 | struct GSC_ClientActiveRequest *car = tc->car; | ||
423 | char buf[92]; | ||
424 | |||
425 | GNUNET_snprintf (buf, | ||
426 | sizeof (buf), | ||
427 | gettext_noop ("# bytes of messages of type %u received"), | ||
428 | (unsigned int) ntohs (message->type)); | ||
429 | GNUNET_STATISTICS_update (GSC_stats, | ||
430 | buf, | ||
431 | ntohs (message->size), | ||
432 | GNUNET_NO); | ||
433 | if (0 == | ||
434 | memcmp (&car->target, | ||
435 | &GSC_my_identity, | ||
436 | sizeof (struct GNUNET_PeerIdentity))) | ||
437 | { | ||
438 | GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, | ||
439 | "Delivering message of type %u to myself\n", | ||
440 | ntohs (message->type)); | ||
441 | GSC_CLIENTS_deliver_message (&GSC_my_identity, | ||
442 | message, | ||
443 | ntohs (message->size), | ||
444 | GNUNET_CORE_OPTION_SEND_FULL_OUTBOUND); | ||
445 | GSC_CLIENTS_deliver_message (&GSC_my_identity, | ||
446 | message, | ||
447 | sizeof (struct GNUNET_MessageHeader), | ||
448 | GNUNET_CORE_OPTION_SEND_HDR_OUTBOUND); | ||
449 | GSC_CLIENTS_deliver_message (&GSC_my_identity, | ||
450 | message, | ||
451 | ntohs (message->size), | ||
452 | GNUNET_CORE_OPTION_SEND_FULL_INBOUND); | ||
453 | GSC_CLIENTS_deliver_message (&GSC_my_identity, | ||
454 | message, | ||
455 | sizeof (struct GNUNET_MessageHeader), | ||
456 | GNUNET_CORE_OPTION_SEND_HDR_INBOUND); | ||
457 | } | ||
458 | else | ||
459 | { | ||
460 | GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, | ||
461 | "Delivering message of type %u and size %u to %s\n", | ||
462 | ntohs (message->type), | ||
463 | ntohs (message->size), | ||
464 | GNUNET_i2s (&car->target)); | ||
465 | GSC_CLIENTS_deliver_message (&car->target, | ||
466 | message, | ||
467 | ntohs (message->size), | ||
468 | GNUNET_CORE_OPTION_SEND_FULL_OUTBOUND); | ||
469 | GSC_CLIENTS_deliver_message (&car->target, | ||
470 | message, | ||
471 | sizeof (struct GNUNET_MessageHeader), | ||
472 | GNUNET_CORE_OPTION_SEND_HDR_OUTBOUND); | ||
473 | GSC_SESSIONS_transmit (car, | ||
474 | message, | ||
475 | tc->cork, | ||
476 | tc->priority); | ||
477 | } | ||
478 | return GNUNET_OK; | ||
479 | } | ||
480 | |||
481 | |||
482 | /** | ||
483 | * Check #GNUNET_MESSAGE_TYPE_CORE_SEND request. | ||
484 | * | ||
485 | * @param cls the `struct GSC_Client` | ||
486 | * @param sm the `struct SendMessage` | ||
487 | * @return #GNUNET_OK if @a sm is well-formed | ||
488 | */ | ||
489 | static int | ||
490 | check_client_send (void *cls, | ||
491 | const struct SendMessage *sm) | ||
492 | { | ||
493 | return GNUNET_OK; | ||
494 | } | ||
495 | |||
496 | |||
497 | /** | ||
498 | * Handle #GNUNET_MESSAGE_TYPE_CORE_SEND request. | ||
499 | * | ||
500 | * @param cls the `struct GSC_Client` | ||
501 | * @param sm the `struct SendMessage` | ||
502 | */ | ||
503 | static void | ||
504 | handle_client_send (void *cls, | ||
505 | const struct SendMessage *sm) | ||
506 | { | ||
507 | struct GSC_Client *c = cls; | ||
508 | struct TokenizerContext tc; | ||
509 | uint16_t msize; | ||
510 | struct GNUNET_TIME_Relative delay; | ||
511 | struct GNUNET_MessageStreamTokenizer *mst; | ||
512 | |||
513 | msize = ntohs (sm->header.size) - sizeof (struct SendMessage); | ||
514 | GNUNET_break (0 == ntohl (sm->reserved)); | ||
515 | tc.car = GNUNET_CONTAINER_multipeermap_get (c->requests, | ||
516 | &sm->peer); | ||
517 | if (NULL == tc.car) | ||
518 | { | ||
519 | /* Must have been that we first approved the request, then got disconnected | ||
520 | * (which triggered removal of the 'car') and now the client gives us a message | ||
521 | * just *before* the client learns about the disconnect. Theoretically, we | ||
522 | * might also now be *again* connected. So this can happen (but should be | ||
523 | * rare). If it does happen, the message is discarded. */ | ||
524 | GNUNET_STATISTICS_update (GSC_stats, | ||
525 | gettext_noop ("# messages discarded (session disconnected)"), | ||
526 | 1, | ||
527 | GNUNET_NO); | ||
528 | GNUNET_SERVICE_client_continue (c->client); | ||
529 | return; | ||
530 | } | ||
531 | delay = GNUNET_TIME_absolute_get_duration (tc.car->received_time); | ||
532 | tc.cork = ntohl (sm->cork); | ||
533 | tc.priority = (enum GNUNET_CORE_Priority) ntohl (sm->priority); | ||
534 | if (delay.rel_value_us > GNUNET_CONSTANTS_LATENCY_WARN.rel_value_us) | ||
535 | GNUNET_log (GNUNET_ERROR_TYPE_WARNING, | ||
536 | "Client waited %s for transmission of %u bytes to `%s'%s\n", | ||
537 | GNUNET_STRINGS_relative_time_to_string (delay, | ||
538 | GNUNET_YES), | ||
539 | msize, | ||
540 | GNUNET_i2s (&sm->peer), | ||
541 | tc.cork ? " (cork)" : " (uncorked)"); | ||
542 | else | ||
543 | GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, | ||
544 | "Client waited %s for transmission of %u bytes to `%s'%s\n", | ||
545 | GNUNET_STRINGS_relative_time_to_string (delay, | ||
546 | GNUNET_YES), | ||
547 | msize, | ||
548 | GNUNET_i2s (&sm->peer), | ||
549 | tc.cork ? " (cork)" : " (uncorked)"); | ||
550 | |||
551 | GNUNET_assert (GNUNET_YES == | ||
552 | GNUNET_CONTAINER_multipeermap_remove (c->requests, | ||
553 | &sm->peer, | ||
554 | tc.car)); | ||
555 | mst = GNUNET_MST_create (&tokenized_cb, | ||
556 | &tc); | ||
557 | GNUNET_MST_from_buffer (mst, | ||
558 | (const char *) &sm[1], | ||
559 | msize, | ||
560 | GNUNET_YES, | ||
561 | GNUNET_NO); | ||
562 | GNUNET_MST_destroy (mst); | ||
563 | GSC_SESSIONS_dequeue_request (tc.car); | ||
564 | GNUNET_free (tc.car); | ||
565 | GNUNET_SERVICE_client_continue (c->client); | ||
566 | } | ||
567 | |||
568 | |||
569 | /** | ||
570 | * Free client request records. | ||
571 | * | ||
572 | * @param cls NULL | ||
573 | * @param key identity of peer for which this is an active request | ||
574 | * @param value the `struct GSC_ClientActiveRequest` to free | ||
575 | * @return #GNUNET_YES (continue iteration) | ||
576 | */ | ||
577 | static int | ||
578 | destroy_active_client_request (void *cls, | ||
579 | const struct GNUNET_PeerIdentity *key, | ||
580 | void *value) | ||
581 | { | ||
582 | struct GSC_ClientActiveRequest *car = value; | ||
583 | |||
584 | GNUNET_assert (GNUNET_YES == | ||
585 | GNUNET_CONTAINER_multipeermap_remove (car-> | ||
586 | client_handle->requests, | ||
587 | &car->target, | ||
588 | car)); | ||
589 | GSC_SESSIONS_dequeue_request (car); | ||
590 | GNUNET_free (car); | ||
591 | return GNUNET_YES; | ||
592 | } | ||
593 | |||
594 | |||
595 | /** | ||
596 | * A client connected, set up. | ||
597 | * | ||
598 | * @param cls closure | ||
599 | * @param client identification of the client | ||
600 | * @param mq message queue to talk to @a client | ||
601 | * @return our client handle | ||
602 | */ | ||
603 | static void * | ||
604 | client_connect_cb (void *cls, | ||
605 | struct GNUNET_SERVICE_Client *client, | ||
606 | struct GNUNET_MQ_Handle *mq) | ||
607 | { | ||
608 | struct GSC_Client *c; | ||
609 | |||
610 | c = GNUNET_new (struct GSC_Client); | ||
611 | c->client = client; | ||
612 | c->mq = mq; | ||
613 | GNUNET_CONTAINER_DLL_insert (client_head, | ||
614 | client_tail, | ||
615 | c); | ||
616 | return c; | ||
617 | } | ||
618 | |||
619 | |||
620 | /** | ||
621 | * A client disconnected, clean up. | ||
622 | * | ||
623 | * @param cls closure | ||
624 | * @param client identification of the client | ||
625 | * @param app_ctx our `struct GST_Client` for @a client | ||
626 | */ | ||
627 | static void | ||
628 | client_disconnect_cb (void *cls, | ||
629 | struct GNUNET_SERVICE_Client *client, | ||
630 | void *app_ctx) | ||
631 | { | ||
632 | struct GSC_Client *c = app_ctx; | ||
633 | |||
634 | GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, | ||
635 | "Client %p has disconnected from core service.\n", | ||
636 | client); | ||
637 | GNUNET_CONTAINER_DLL_remove (client_head, | ||
638 | client_tail, | ||
639 | c); | ||
640 | if (NULL != c->requests) | ||
641 | { | ||
642 | GNUNET_CONTAINER_multipeermap_iterate (c->requests, | ||
643 | &destroy_active_client_request, | ||
644 | NULL); | ||
645 | GNUNET_CONTAINER_multipeermap_destroy (c->requests); | ||
646 | } | ||
647 | if (NULL != c->connectmap) | ||
648 | { | ||
649 | GNUNET_CONTAINER_multipeermap_destroy (c->connectmap); | ||
650 | c->connectmap = NULL; | ||
651 | } | ||
652 | if (NULL != c->types) | ||
653 | { | ||
654 | GSC_TYPEMAP_remove (c->types, | ||
655 | c->tcnt); | ||
656 | GNUNET_free (c->types); | ||
657 | } | ||
658 | GNUNET_free (c); | ||
659 | |||
660 | /* recalculate 'all_client_options' */ | ||
661 | all_client_options = 0; | ||
662 | for (c = client_head; NULL != c ; c = c->next) | ||
663 | all_client_options |= c->options; | ||
664 | } | ||
665 | |||
666 | |||
667 | /** | ||
668 | * Notify a particular client about a change to existing connection to | ||
669 | * one of our neighbours (check if the client is interested). Called | ||
670 | * from #GSC_SESSIONS_notify_client_about_sessions(). | ||
671 | * | ||
672 | * @param client client to notify | ||
673 | * @param neighbour identity of the neighbour that changed status | ||
674 | * @param tmap_old previous type map for the neighbour, NULL for connect | ||
675 | * @param tmap_new updated type map for the neighbour, NULL for disconnect | ||
676 | */ | ||
677 | void | ||
678 | GSC_CLIENTS_notify_client_about_neighbour (struct GSC_Client *client, | ||
679 | const struct GNUNET_PeerIdentity *neighbour, | ||
680 | const struct GSC_TypeMap *tmap_old, | ||
681 | const struct GSC_TypeMap *tmap_new) | ||
682 | { | ||
683 | struct GNUNET_MQ_Envelope *env; | ||
684 | int old_match; | ||
685 | int new_match; | ||
686 | |||
687 | old_match = GSC_TYPEMAP_test_match (tmap_old, | ||
688 | client->types, | ||
689 | client->tcnt); | ||
690 | new_match = GSC_TYPEMAP_test_match (tmap_new, | ||
691 | client->types, | ||
692 | client->tcnt); | ||
693 | if (old_match == new_match) | ||
694 | { | ||
695 | GNUNET_assert (old_match == | ||
696 | GNUNET_CONTAINER_multipeermap_contains (client->connectmap, | ||
697 | neighbour)); | ||
698 | return; /* no change */ | ||
699 | } | ||
700 | if (GNUNET_NO == old_match) | ||
701 | { | ||
702 | struct ConnectNotifyMessage *cnm; | ||
703 | |||
704 | /* send connect */ | ||
705 | GNUNET_assert (GNUNET_NO == | ||
706 | GNUNET_CONTAINER_multipeermap_contains (client->connectmap, | ||
707 | neighbour)); | ||
708 | GNUNET_assert (GNUNET_YES == | ||
709 | GNUNET_CONTAINER_multipeermap_put (client->connectmap, | ||
710 | neighbour, | ||
711 | NULL, | ||
712 | GNUNET_CONTAINER_MULTIHASHMAPOPTION_UNIQUE_ONLY)); | ||
713 | env = GNUNET_MQ_msg (cnm, | ||
714 | GNUNET_MESSAGE_TYPE_CORE_NOTIFY_CONNECT); | ||
715 | cnm->reserved = htonl (0); | ||
716 | GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, | ||
717 | "Sending NOTIFY_CONNECT message to client.\n"); | ||
718 | cnm->peer = *neighbour; | ||
719 | GNUNET_MQ_send (client->mq, | ||
720 | env); | ||
721 | } | ||
722 | else | ||
723 | { | ||
724 | struct DisconnectNotifyMessage *dcm; | ||
725 | |||
726 | /* send disconnect */ | ||
727 | GNUNET_assert (GNUNET_YES == | ||
728 | GNUNET_CONTAINER_multipeermap_contains (client->connectmap, | ||
729 | neighbour)); | ||
730 | GNUNET_assert (GNUNET_YES == | ||
731 | GNUNET_CONTAINER_multipeermap_remove (client->connectmap, | ||
732 | neighbour, | ||
733 | NULL)); | ||
734 | env = GNUNET_MQ_msg (dcm, | ||
735 | GNUNET_MESSAGE_TYPE_CORE_NOTIFY_DISCONNECT); | ||
736 | dcm->reserved = htonl (0); | ||
737 | dcm->peer = *neighbour; | ||
738 | GNUNET_MQ_send (client->mq, | ||
739 | env); | ||
740 | } | ||
741 | } | ||
742 | |||
743 | |||
744 | /** | ||
745 | * Notify all clients about a change to existing session. | ||
746 | * Called from SESSIONS whenever there is a change in sessions | ||
747 | * or types processed by the respective peer. | ||
748 | * | ||
749 | * @param neighbour identity of the neighbour that changed status | ||
750 | * @param tmap_old previous type map for the neighbour, NULL for connect | ||
751 | * @param tmap_new updated type map for the neighbour, NULL for disconnect | ||
752 | */ | ||
753 | void | ||
754 | GSC_CLIENTS_notify_clients_about_neighbour (const struct GNUNET_PeerIdentity *neighbour, | ||
755 | const struct GSC_TypeMap *tmap_old, | ||
756 | const struct GSC_TypeMap *tmap_new) | ||
757 | { | ||
758 | struct GSC_Client *c; | ||
759 | |||
760 | for (c = client_head; NULL != c; c = c->next) | ||
761 | GSC_CLIENTS_notify_client_about_neighbour (c, | ||
762 | neighbour, | ||
763 | tmap_old, | ||
764 | tmap_new); | ||
765 | } | ||
766 | |||
767 | |||
768 | /** | ||
769 | * Deliver P2P message to interested clients. Caller must have checked | ||
770 | * that the sending peer actually lists the given message type as one | ||
771 | * of its types. | ||
772 | * | ||
773 | * @param sender peer who sent us the message | ||
774 | * @param msg the message | ||
775 | * @param msize number of bytes to transmit | ||
776 | * @param options options for checking which clients should | ||
777 | * receive the message | ||
778 | */ | ||
779 | void | ||
780 | GSC_CLIENTS_deliver_message (const struct GNUNET_PeerIdentity *sender, | ||
781 | const struct GNUNET_MessageHeader *msg, | ||
782 | uint16_t msize, | ||
783 | uint32_t options) | ||
784 | { | ||
785 | size_t size = msize + sizeof (struct NotifyTrafficMessage); | ||
786 | |||
787 | if (size >= GNUNET_SERVER_MAX_MESSAGE_SIZE) | ||
788 | { | ||
789 | GNUNET_break (0); | ||
790 | return; | ||
791 | } | ||
792 | if (! ( (0 != (all_client_options & options)) || | ||
793 | (0 != (options & GNUNET_CORE_OPTION_SEND_FULL_INBOUND)) )) | ||
794 | return; /* no client cares about this message notification */ | ||
795 | GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, | ||
796 | "Core service passes message from `%s' of type %u to client.\n", | ||
797 | GNUNET_i2s (sender), | ||
798 | (unsigned int) ntohs (msg->type)); | ||
799 | GSC_SESSIONS_add_to_typemap (sender, | ||
800 | ntohs (msg->type)); | ||
801 | |||
802 | for (struct GSC_Client *c = client_head; NULL != c; c = c->next) | ||
803 | { | ||
804 | struct GNUNET_MQ_Envelope *env; | ||
805 | struct NotifyTrafficMessage *ntm; | ||
806 | uint16_t mtype; | ||
807 | int tm; | ||
808 | |||
809 | tm = type_match (ntohs (msg->type), | ||
810 | c); | ||
811 | if (! ( (0 != (c->options & options)) || | ||
812 | ( (0 != (options & GNUNET_CORE_OPTION_SEND_FULL_INBOUND)) && | ||
813 | (GNUNET_YES == tm) ) ) ) | ||
814 | continue; /* neither options nor type match permit the message */ | ||
815 | if ( (0 != (options & GNUNET_CORE_OPTION_SEND_HDR_INBOUND)) && | ||
816 | ( (0 != (c->options & GNUNET_CORE_OPTION_SEND_FULL_INBOUND)) || | ||
817 | (GNUNET_YES == tm) ) ) | ||
818 | continue; | ||
819 | if ( (0 != (options & GNUNET_CORE_OPTION_SEND_HDR_OUTBOUND)) && | ||
820 | (0 != (c->options & GNUNET_CORE_OPTION_SEND_FULL_OUTBOUND)) ) | ||
821 | continue; | ||
822 | GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, | ||
823 | "Sending %u message with %u bytes to client interested in messages of type %u.\n", | ||
824 | options, | ||
825 | ntohs (msg->size), | ||
826 | (unsigned int) ntohs (msg->type)); | ||
827 | |||
828 | if (0 != (options & (GNUNET_CORE_OPTION_SEND_FULL_INBOUND | GNUNET_CORE_OPTION_SEND_HDR_INBOUND))) | ||
829 | mtype = GNUNET_MESSAGE_TYPE_CORE_NOTIFY_INBOUND; | ||
830 | else | ||
831 | mtype = GNUNET_MESSAGE_TYPE_CORE_NOTIFY_OUTBOUND; | ||
832 | env = GNUNET_MQ_msg_extra (ntm, | ||
833 | msize, | ||
834 | mtype); | ||
835 | ntm->peer = *sender; | ||
836 | GNUNET_memcpy (&ntm[1], | ||
837 | msg, | ||
838 | msize); | ||
839 | |||
840 | GNUNET_assert ( (0 == (c->options & GNUNET_CORE_OPTION_SEND_FULL_INBOUND)) || | ||
841 | (GNUNET_YES != tm) || | ||
842 | (GNUNET_YES == | ||
843 | GNUNET_CONTAINER_multipeermap_contains (c->connectmap, | ||
844 | sender)) ); | ||
845 | GNUNET_MQ_send (c->mq, | ||
846 | env); | ||
847 | } | ||
848 | } | ||
55 | 849 | ||
56 | 850 | ||
57 | /** | 851 | /** |
@@ -63,9 +857,12 @@ static struct GNUNET_SERVER_Handle *GSC_server; | |||
63 | static void | 857 | static void |
64 | shutdown_task (void *cls) | 858 | shutdown_task (void *cls) |
65 | { | 859 | { |
860 | struct GSC_Client *c; | ||
861 | |||
66 | GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, | 862 | GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, |
67 | "Core service shutting down.\n"); | 863 | "Core service shutting down.\n"); |
68 | GSC_CLIENTS_done (); | 864 | while (NULL != (c = client_head)) |
865 | GNUNET_SERVICE_client_drop (c->client); | ||
69 | GSC_SESSIONS_done (); | 866 | GSC_SESSIONS_done (); |
70 | GSC_KX_done (); | 867 | GSC_KX_done (); |
71 | GSC_TYPEMAP_done (); | 868 | GSC_TYPEMAP_done (); |
@@ -80,22 +877,41 @@ shutdown_task (void *cls) | |||
80 | 877 | ||
81 | 878 | ||
82 | /** | 879 | /** |
880 | * Handle #GNUNET_MESSAGE_TYPE_CORE_MONITOR_PEERS request. For this | ||
881 | * request type, the client does not have to have transmitted an INIT | ||
882 | * request. All current peers are returned, regardless of which | ||
883 | * message types they accept. | ||
884 | * | ||
885 | * @param cls client sending the iteration request | ||
886 | * @param message iteration request message | ||
887 | */ | ||
888 | static void | ||
889 | handle_client_monitor_peers (void *cls, | ||
890 | const struct GNUNET_MessageHeader *message) | ||
891 | { | ||
892 | struct GSC_Client *c = cls; | ||
893 | |||
894 | GNUNET_SERVICE_client_continue (c->client); | ||
895 | GSC_KX_handle_client_monitor_peers (c->mq); | ||
896 | } | ||
897 | |||
898 | |||
899 | /** | ||
83 | * Initiate core service. | 900 | * Initiate core service. |
84 | * | 901 | * |
85 | * @param cls closure | 902 | * @param cls closure |
86 | * @param server the initialized server | ||
87 | * @param c configuration to use | 903 | * @param c configuration to use |
904 | * @param service the initialized service | ||
88 | */ | 905 | */ |
89 | static void | 906 | static void |
90 | run (void *cls, | 907 | run (void *cls, |
91 | struct GNUNET_SERVER_Handle *server, | 908 | const struct GNUNET_CONFIGURATION_Handle *c, |
92 | const struct GNUNET_CONFIGURATION_Handle *c) | 909 | struct GNUNET_SERVICE_Handle *service) |
93 | { | 910 | { |
94 | struct GNUNET_CRYPTO_EddsaPrivateKey *pk; | 911 | struct GNUNET_CRYPTO_EddsaPrivateKey *pk; |
95 | char *keyfile; | 912 | char *keyfile; |
96 | 913 | ||
97 | GSC_cfg = c; | 914 | GSC_cfg = c; |
98 | GSC_server = server; | ||
99 | if (GNUNET_OK != | 915 | if (GNUNET_OK != |
100 | GNUNET_CONFIGURATION_get_value_filename (GSC_cfg, | 916 | GNUNET_CONFIGURATION_get_value_filename (GSC_cfg, |
101 | "PEER", | 917 | "PEER", |
@@ -111,20 +927,18 @@ run (void *cls, | |||
111 | GSC_cfg); | 927 | GSC_cfg); |
112 | GNUNET_SCHEDULER_add_shutdown (&shutdown_task, | 928 | GNUNET_SCHEDULER_add_shutdown (&shutdown_task, |
113 | NULL); | 929 | NULL); |
114 | GNUNET_SERVER_suspend (server); | 930 | GNUNET_SERVICE_suspend (service); |
115 | GSC_TYPEMAP_init (); | 931 | GSC_TYPEMAP_init (); |
116 | pk = GNUNET_CRYPTO_eddsa_key_create_from_file (keyfile); | 932 | pk = GNUNET_CRYPTO_eddsa_key_create_from_file (keyfile); |
117 | GNUNET_free (keyfile); | 933 | GNUNET_free (keyfile); |
118 | GNUNET_assert (NULL != pk); | 934 | GNUNET_assert (NULL != pk); |
119 | if (GNUNET_OK != GSC_KX_init (pk, | 935 | if (GNUNET_OK != GSC_KX_init (pk)) |
120 | server)) | ||
121 | { | 936 | { |
122 | GNUNET_SCHEDULER_shutdown (); | 937 | GNUNET_SCHEDULER_shutdown (); |
123 | return; | 938 | return; |
124 | } | 939 | } |
125 | GSC_SESSIONS_init (); | 940 | GSC_SESSIONS_init (); |
126 | GSC_CLIENTS_init (GSC_server); | 941 | GNUNET_SERVICE_resume (service); |
127 | GNUNET_SERVER_resume (GSC_server); | ||
128 | GNUNET_log (GNUNET_ERROR_TYPE_INFO, | 942 | GNUNET_log (GNUNET_ERROR_TYPE_INFO, |
129 | _("Core service of `%s' ready.\n"), | 943 | _("Core service of `%s' ready.\n"), |
130 | GNUNET_i2s (&GSC_my_identity)); | 944 | GNUNET_i2s (&GSC_my_identity)); |
@@ -132,19 +946,32 @@ run (void *cls, | |||
132 | 946 | ||
133 | 947 | ||
134 | /** | 948 | /** |
135 | * The main function for the transport service. | 949 | * Define "main" method using service macro. |
136 | * | ||
137 | * @param argc number of arguments from the command line | ||
138 | * @param argv command line arguments | ||
139 | * @return 0 ok, 1 on error | ||
140 | */ | 950 | */ |
141 | int | 951 | GNUNET_SERVICE_MAIN |
142 | main (int argc, char *const *argv) | 952 | ("core", |
143 | { | 953 | GNUNET_SERVICE_OPTION_NONE, |
144 | return (GNUNET_OK == | 954 | &run, |
145 | GNUNET_SERVICE_run (argc, argv, "core", | 955 | &client_connect_cb, |
146 | GNUNET_SERVICE_OPTION_NONE, | 956 | &client_disconnect_cb, |
147 | &run, NULL)) ? 0 : 1; | 957 | NULL, |
148 | } | 958 | GNUNET_MQ_hd_var_size (client_init, |
959 | GNUNET_MESSAGE_TYPE_CORE_INIT, | ||
960 | struct InitMessage, | ||
961 | NULL), | ||
962 | GNUNET_MQ_hd_fixed_size (client_monitor_peers, | ||
963 | GNUNET_MESSAGE_TYPE_CORE_MONITOR_PEERS, | ||
964 | struct GNUNET_MessageHeader, | ||
965 | NULL), | ||
966 | GNUNET_MQ_hd_fixed_size (client_send_request, | ||
967 | GNUNET_MESSAGE_TYPE_CORE_SEND_REQUEST, | ||
968 | struct SendMessageRequest, | ||
969 | NULL), | ||
970 | GNUNET_MQ_hd_var_size (client_send, | ||
971 | GNUNET_MESSAGE_TYPE_CORE_SEND, | ||
972 | struct SendMessage, | ||
973 | NULL), | ||
974 | GNUNET_MQ_handler_end ()); | ||
975 | |||
149 | 976 | ||
150 | /* end of gnunet-service-core.c */ | 977 | /* end of gnunet-service-core.c */ |