indentation
[oweals/gnunet.git] / src / peerinfo / peerinfo_api.c
1 /*
2      This file is part of GNUnet.
3      (C) 2001, 2002, 2004, 2005, 2007, 2009, 2010 Christian Grothoff (and other contributing authors)
4
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
7      by the Free Software Foundation; either version 3, or (at your
8      option) any later version.
9
10      GNUnet is distributed in the hope that it will be useful, but
11      WITHOUT ANY WARRANTY; without even the implied warranty of
12      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13      General Public License for more details.
14
15      You should have received a copy of the GNU General Public License
16      along with GNUnet; see the file COPYING.  If not, write to the
17      Free Software Foundation, Inc., 59 Temple Place - Suite 330,
18      Boston, MA 02111-1307, USA.
19 */
20
21 /**
22  * @file peerinfo/peerinfo_api.c
23  * @brief API to access peerinfo service
24  * @author Christian Grothoff
25  */
26 #include "platform.h"
27 #include "gnunet_client_lib.h"
28 #include "gnunet_container_lib.h"
29 #include "gnunet_peerinfo_service.h"
30 #include "gnunet_protocols.h"
31 #include "gnunet_time_lib.h"
32 #include "peerinfo.h"
33
34 /**
35  * Function to call after transmission has succeeded.
36  * 
37  * @param cls closure
38  * @param success GNUNET_OK if transmission worked, GNUNET_SYSERR on error
39  */
40 typedef void (*TransmissionContinuation) (void *cls, int success);
41
42
43 /**
44  * Entry in the transmission queue to PEERINFO service.
45  */
46 struct TransmissionQueueEntry
47 {
48   /**
49    * This is a linked list.
50    */
51   struct TransmissionQueueEntry *next;
52
53   /**
54    * This is a linked list.
55    */
56   struct TransmissionQueueEntry *prev;
57
58   /**
59    * Function to call after request has been transmitted, or NULL (in which
60    * case we must consider sending the next entry immediately).
61    */
62   TransmissionContinuation cont;
63
64   /**
65    * Closure for 'cont'.
66    */
67   void *cont_cls;
68
69   /**
70    * Timeout for the operation.
71    */
72   struct GNUNET_TIME_Absolute timeout;
73
74   /**
75    * Number of bytes of the request message (follows after this struct).
76    */
77   size_t size;
78
79 };
80
81
82 /**
83  * Handle to the peerinfo service.
84  */
85 struct GNUNET_PEERINFO_Handle
86 {
87   /**
88    * Our configuration.
89    */
90   const struct GNUNET_CONFIGURATION_Handle *cfg;
91
92   /**
93    * Connection to the service.
94    */
95   struct GNUNET_CLIENT_Connection *client;
96
97   /**
98    * Head of transmission queue.
99    */
100   struct TransmissionQueueEntry *tq_head;
101
102   /**
103    * Tail of transmission queue.
104    */
105   struct TransmissionQueueEntry *tq_tail;
106
107   /**
108    * Handle for the current transmission request, or NULL if none is pending.
109    */
110   struct GNUNET_CLIENT_TransmitHandle *th;
111
112   /**
113    * ID for a reconnect task.
114    */
115   GNUNET_SCHEDULER_TaskIdentifier r_task;
116
117   /**
118    * Set to GNUNET_YES if we are currently receiving replies from the
119    * service.
120    */
121   int in_receive;
122
123 };
124
125
126 /**
127  * Connect to the peerinfo service.
128  *
129  * @param cfg configuration to use
130  * @return NULL on error (configuration related, actual connection
131  *         establishment may happen asynchronously).
132  */
133 struct GNUNET_PEERINFO_Handle *
134 GNUNET_PEERINFO_connect (const struct GNUNET_CONFIGURATION_Handle *cfg)
135 {
136   struct GNUNET_PEERINFO_Handle *ret;
137
138   ret = GNUNET_malloc (sizeof (struct GNUNET_PEERINFO_Handle));
139   ret->client = GNUNET_CLIENT_connect ("peerinfo", cfg);
140   ret->cfg = cfg;
141   return ret;
142 }
143
144
145 /**
146  * Disconnect from the peerinfo service.  Note that all iterators must
147  * have completed or have been cancelled by the time this function is
148  * called (otherwise, calling this function is a serious error).
149  * Furthermore, if 'GNUNET_PEERINFO_add_peer' operations are still
150  * pending, they will be cancelled silently on disconnect.
151  *
152  * @param h handle to disconnect
153  */
154 void
155 GNUNET_PEERINFO_disconnect (struct GNUNET_PEERINFO_Handle *h)
156 {
157   struct TransmissionQueueEntry *tqe;
158
159   while (NULL != (tqe = h->tq_head))
160   {
161     GNUNET_CONTAINER_DLL_remove (h->tq_head, h->tq_tail, tqe);
162     if (tqe->cont != NULL)
163       tqe->cont (tqe->cont_cls, GNUNET_SYSERR);
164     GNUNET_free (tqe);
165   }
166   if (h->th != NULL)
167   {
168     GNUNET_CLIENT_notify_transmit_ready_cancel (h->th);
169     h->th = NULL;
170   }
171   if (NULL != h->client)
172   {
173     GNUNET_CLIENT_disconnect (h->client, GNUNET_NO);
174     h->client = NULL;
175   }
176   if (GNUNET_SCHEDULER_NO_TASK != h->r_task)
177   {
178     GNUNET_SCHEDULER_cancel (h->r_task);
179     h->r_task = GNUNET_SCHEDULER_NO_TASK;
180   }
181   GNUNET_free (h);
182 }
183
184
185 /**
186  * Check if we have a request pending in the transmission queue and are
187  * able to transmit it right now.  If so, schedule transmission.
188  *
189  * @param h handle to the service
190  */
191 static void trigger_transmit (struct GNUNET_PEERINFO_Handle *h);
192
193
194 /**
195  * Close the existing connection to PEERINFO and reconnect.
196  *
197  * @param h handle to the service
198  */
199 static void reconnect (struct GNUNET_PEERINFO_Handle *h);
200
201 /**
202  * Task scheduled to re-try connecting to the peerinfo service.
203  *
204  * @param cls the 'struct GNUNET_PEERINFO_Handle'
205  * @param ts scheduler context
206  */
207 static void
208 reconnect_task (void *cls, const struct GNUNET_SCHEDULER_TaskContext *tc)
209 {
210   struct GNUNET_PEERINFO_Handle *h = cls;
211
212   h->r_task = GNUNET_SCHEDULER_NO_TASK;
213   reconnect (h);
214 }
215
216
217 /**
218  * Close the existing connection to PEERINFO and reconnect.
219  *
220  * @param h handle to the service
221  */
222 static void
223 reconnect (struct GNUNET_PEERINFO_Handle *h)
224 {
225   if (h->r_task != GNUNET_SCHEDULER_NO_TASK)
226   {
227     GNUNET_SCHEDULER_cancel (h->r_task);
228     h->r_task = GNUNET_SCHEDULER_NO_TASK;
229   }
230   if (NULL != h->th)
231   {
232     GNUNET_CLIENT_notify_transmit_ready_cancel (h->th);
233     h->th = NULL;
234   }
235   if (NULL != h->client)
236   {
237     GNUNET_CLIENT_disconnect (h->client, GNUNET_SYSERR);
238     h->client = NULL;
239   }
240   h->client = GNUNET_CLIENT_connect ("peerinfo", h->cfg);
241   if (NULL == h->client)
242   {
243     h->r_task =
244         GNUNET_SCHEDULER_add_delayed (GNUNET_TIME_UNIT_SECONDS, &reconnect_task,
245                                       h);
246     return;
247   }
248   trigger_transmit (h);
249 }
250
251
252 /**
253  * Transmit the request at the head of the transmission queue
254  * and trigger continuation (if any).
255  *
256  * @param cls the 'struct GNUNET_PEERINFO_Handle' (with the queue)
257  * @param size size of the buffer (0 on error)
258  * @param buf where to copy the message
259  * @return number of bytes copied to buf
260  */
261 static size_t
262 do_transmit (void *cls, size_t size, void *buf)
263 {
264   struct GNUNET_PEERINFO_Handle *h = cls;
265   struct TransmissionQueueEntry *tqe = h->tq_head;
266   size_t ret;
267
268   h->th = NULL;
269   if (tqe == NULL)
270     return 0;
271   if (buf == NULL)
272   {
273     GNUNET_log (GNUNET_ERROR_TYPE_WARNING | GNUNET_ERROR_TYPE_BULK,
274                 _("Failed to transmit message to `%s' service.\n"), "PEERINFO");
275     GNUNET_CONTAINER_DLL_remove (h->tq_head, h->tq_tail, tqe);
276     reconnect (h);
277     if (tqe->cont != NULL)
278       tqe->cont (tqe->cont_cls, GNUNET_SYSERR);
279     GNUNET_free (tqe);
280     return 0;
281   }
282   ret = tqe->size;
283   GNUNET_assert (size >= ret);
284   memcpy (buf, &tqe[1], ret);
285 #if DEBUG_PEERINFO
286   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
287               "Transmitting request of size %u to `%s' service.\n", ret,
288               "PEERINFO");
289 #endif
290   GNUNET_CONTAINER_DLL_remove (h->tq_head, h->tq_tail, tqe);
291   if (tqe->cont != NULL)
292     tqe->cont (tqe->cont_cls, GNUNET_OK);
293   else
294     trigger_transmit (h);
295   GNUNET_free (tqe);
296   return ret;
297 }
298
299
300 /**
301  * Check if we have a request pending in the transmission queue and are
302  * able to transmit it right now.  If so, schedule transmission.
303  *
304  * @param h handle to the service
305  */
306 static void
307 trigger_transmit (struct GNUNET_PEERINFO_Handle *h)
308 {
309   struct TransmissionQueueEntry *tqe;
310
311   if (NULL == (tqe = h->tq_head))
312     return;
313   if (h->th != NULL)
314     return;
315   if (h->in_receive == GNUNET_YES)
316     return;
317   if (NULL == h->client)
318   {
319     reconnect (h);
320     return;
321   }
322   h->th =
323       GNUNET_CLIENT_notify_transmit_ready (h->client, tqe->size,
324                                            GNUNET_TIME_absolute_get_remaining
325                                            (tqe->timeout), GNUNET_YES,
326                                            &do_transmit, h);
327 }
328
329
330 /**
331  * Add a host to the persistent list.  This method operates in 
332  * semi-reliable mode: if the transmission is not completed by
333  * the time 'GNUNET_PEERINFO_disconnect' is called, it will be
334  * aborted.  Furthermore, if a second HELLO is added for the
335  * same peer before the first one was transmitted, PEERINFO may
336  * merge the two HELLOs prior to transmission to the service.
337  *
338  * @param h handle to the peerinfo service
339  * @param hello the verified (!) HELLO message
340  */
341 void
342 GNUNET_PEERINFO_add_peer (struct GNUNET_PEERINFO_Handle *h,
343                           const struct GNUNET_HELLO_Message *hello)
344 {
345   uint16_t hs = GNUNET_HELLO_size (hello);
346   struct TransmissionQueueEntry *tqe;
347
348 #if DEBUG_PEERINFO
349   struct GNUNET_PeerIdentity peer;
350
351   GNUNET_assert (GNUNET_OK == GNUNET_HELLO_get_id (hello, &peer));
352   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
353               "Adding peer `%s' to PEERINFO database (%u bytes of `%s')\n",
354               GNUNET_i2s (&peer), hs, "HELLO");
355 #endif
356   tqe = GNUNET_malloc (sizeof (struct TransmissionQueueEntry) + hs);
357   tqe->size = hs;
358   tqe->timeout = GNUNET_TIME_UNIT_FOREVER_ABS;
359   memcpy (&tqe[1], hello, hs);
360   GNUNET_CONTAINER_DLL_insert_after (h->tq_head, h->tq_tail, h->tq_tail, tqe);
361   trigger_transmit (h);
362 }
363
364
365 /**
366  * Context for an iteration request.
367  */
368 struct GNUNET_PEERINFO_IteratorContext
369 {
370   /**
371    * Handle to the PEERINFO service.
372    */
373   struct GNUNET_PEERINFO_Handle *h;
374
375   /**
376    * Function to call with the results.
377    */
378   GNUNET_PEERINFO_Processor callback;
379
380   /**
381    * Closure for 'callback'.
382    */
383   void *callback_cls;
384
385   /**
386    * Our entry in the transmission queue.
387    */
388   struct TransmissionQueueEntry *tqe;
389
390   /**
391    * Task responsible for timeout.
392    */
393   GNUNET_SCHEDULER_TaskIdentifier timeout_task;
394
395   /**
396    * Timeout for the operation.
397    */
398   struct GNUNET_TIME_Absolute timeout;
399
400   /**
401    * Are we now receiving?
402    */
403   int in_receive;
404 };
405
406
407 /**
408  * Type of a function to call when we receive a message
409  * from the service.
410  *
411  * @param cls closure
412  * @param msg message received, NULL on timeout or fatal error
413  */
414 static void
415 peerinfo_handler (void *cls, const struct GNUNET_MessageHeader *msg)
416 {
417   struct GNUNET_PEERINFO_IteratorContext *ic = cls;
418   const struct InfoMessage *im;
419   const struct GNUNET_HELLO_Message *hello;
420   uint16_t ms;
421
422   ic->h->in_receive = GNUNET_NO;
423   if (msg == NULL)
424   {
425     reconnect (ic->h);
426     if (ic->timeout_task != GNUNET_SCHEDULER_NO_TASK)
427       GNUNET_SCHEDULER_cancel (ic->timeout_task);
428     if (ic->callback != NULL)
429       ic->callback (ic->callback_cls, NULL, NULL,
430                     _("Failed to receive response from `PEERINFO' service."));
431     GNUNET_free (ic);
432     return;
433   }
434   if (ntohs (msg->type) == GNUNET_MESSAGE_TYPE_PEERINFO_INFO_END)
435   {
436 #if DEBUG_PEERINFO
437     GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
438                 "Received end of list of peers from `%s' service\n",
439                 "PEERINFO");
440 #endif
441     trigger_transmit (ic->h);
442     if (ic->timeout_task != GNUNET_SCHEDULER_NO_TASK)
443       GNUNET_SCHEDULER_cancel (ic->timeout_task);
444     if (ic->callback != NULL)
445       ic->callback (ic->callback_cls, NULL, NULL, NULL);
446     GNUNET_free (ic);
447     return;
448   }
449   ms = ntohs (msg->size);
450   if ((ms < sizeof (struct InfoMessage)) ||
451       (ntohs (msg->type) != GNUNET_MESSAGE_TYPE_PEERINFO_INFO))
452   {
453     GNUNET_break (0);
454     reconnect (ic->h);
455     if (ic->timeout_task != GNUNET_SCHEDULER_NO_TASK)
456       GNUNET_SCHEDULER_cancel (ic->timeout_task);
457     if (ic->callback != NULL)
458       ic->callback (ic->callback_cls, NULL, NULL,
459                     _("Received invalid message from `PEERINFO' service.\n"));
460     GNUNET_free (ic);
461     return;
462   }
463   im = (const struct InfoMessage *) msg;
464   GNUNET_break (0 == ntohl (im->reserved));
465   hello = NULL;
466   if (ms > sizeof (struct InfoMessage) + sizeof (struct GNUNET_MessageHeader))
467   {
468     hello = (const struct GNUNET_HELLO_Message *) &im[1];
469     if (ms != sizeof (struct InfoMessage) + GNUNET_HELLO_size (hello))
470     {
471       GNUNET_break (0);
472       reconnect (ic->h);
473       if (ic->timeout_task != GNUNET_SCHEDULER_NO_TASK)
474         GNUNET_SCHEDULER_cancel (ic->timeout_task);
475       if (ic->callback != NULL)
476         ic->callback (ic->callback_cls, NULL, NULL,
477                       _("Received invalid message from `PEERINFO' service.\n"));
478       GNUNET_free (ic);
479       return;
480     }
481   }
482 #if DEBUG_PEERINFO
483   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
484               "Received %u bytes of `%s' information about peer `%s' from `%s' service\n",
485               (hello == NULL) ? 0 : (unsigned int) GNUNET_HELLO_size (hello),
486               "HELLO", GNUNET_i2s (&im->peer), "PEERINFO");
487 #endif
488   ic->h->in_receive = GNUNET_YES;
489   if (ic->callback != NULL)
490     ic->callback (ic->callback_cls, &im->peer, hello, NULL);
491   GNUNET_CLIENT_receive (ic->h->client, &peerinfo_handler, ic,
492                          GNUNET_TIME_absolute_get_remaining (ic->timeout));
493 }
494
495
496 /**
497  * We've transmitted the iteration request.  Now get ready to process
498  * the results (or handle transmission error).
499  *
500  * @param cls the 'struct GNUNET_PEERINFO_IteratorContext'
501  * @param transmit_success GNUNET_OK if transmission worked
502  */
503 static void
504 iterator_start_receive (void *cls, int transmit_success)
505 {
506   struct GNUNET_PEERINFO_IteratorContext *ic = cls;
507
508   if (GNUNET_OK != transmit_success)
509   {
510     if (ic->timeout_task != GNUNET_SCHEDULER_NO_TASK)
511     {
512       GNUNET_SCHEDULER_cancel (ic->timeout_task);
513       ic->timeout_task = GNUNET_SCHEDULER_NO_TASK;
514     }
515     reconnect (ic->h);
516     if (ic->callback != NULL)
517       ic->callback (ic->callback_cls, NULL, NULL,
518                     _
519                     ("Failed to transmit iteration request to `PEERINFO' service\n"));
520     GNUNET_free (ic);
521     return;
522   }
523 #if DEBUG_PEERINFO
524   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
525               "Waiting for response from `%s' service.\n", "PEERINFO");
526 #endif
527   ic->h->in_receive = GNUNET_YES;
528   ic->in_receive = GNUNET_YES;
529   ic->tqe = NULL;
530   GNUNET_CLIENT_receive (ic->h->client, &peerinfo_handler, ic,
531                          GNUNET_TIME_absolute_get_remaining (ic->timeout));
532 }
533
534
535 /**
536  * Peerinfo iteration request has timed out.  
537  *
538  * @param cls the 'struct GNUNET_PEERINFO_IteratorContext*'
539  * @param tc scheduler context
540  */
541 static void
542 signal_timeout (void *cls, const struct GNUNET_SCHEDULER_TaskContext *tc)
543 {
544   struct GNUNET_PEERINFO_IteratorContext *ic = cls;
545
546   ic->timeout_task = GNUNET_SCHEDULER_NO_TASK;
547   if (!ic->in_receive)
548     GNUNET_CONTAINER_DLL_remove (ic->h->tq_head, ic->h->tq_tail, ic->tqe);
549   else
550     reconnect (ic->h);
551   ic->callback (ic->callback_cls, NULL, NULL,
552                 _
553                 ("Timeout transmitting iteration request to `PEERINFO' service.\n"));
554   ic->callback = NULL;
555   GNUNET_free_non_null (ic->tqe);
556   GNUNET_free (ic);
557 }
558
559
560 /**
561  * Call a method for each known matching host and change its trust
562  * value.  The callback method will be invoked once for each matching
563  * host and then finally once with a NULL pointer.  After that final
564  * invocation, the iterator context must no longer be used.
565  *
566  * Instead of calling this function with 'peer == NULL' it is often
567  * better to use 'GNUNET_PEERINFO_notify'.
568  * 
569  * @param h handle to the peerinfo service
570  * @param peer restrict iteration to this peer only (can be NULL)
571  * @param timeout how long to wait until timing out
572  * @param callback the method to call for each peer
573  * @param callback_cls closure for callback
574  * @return iterator context
575  */
576 struct GNUNET_PEERINFO_IteratorContext *
577 GNUNET_PEERINFO_iterate (struct GNUNET_PEERINFO_Handle *h,
578                          const struct GNUNET_PeerIdentity *peer,
579                          struct GNUNET_TIME_Relative timeout,
580                          GNUNET_PEERINFO_Processor callback, void *callback_cls)
581 {
582   struct GNUNET_MessageHeader *lapm;
583   struct ListPeerMessage *lpm;
584   struct GNUNET_PEERINFO_IteratorContext *ic;
585   struct TransmissionQueueEntry *tqe;
586
587   if (peer == NULL)
588   {
589 #if DEBUG_PEERINFO
590     GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
591                 "Requesting list of peers from PEERINFO service\n");
592 #endif
593     tqe =
594         GNUNET_malloc (sizeof (struct TransmissionQueueEntry) +
595                        sizeof (struct GNUNET_MessageHeader));
596     tqe->size = sizeof (struct GNUNET_MessageHeader);
597     lapm = (struct GNUNET_MessageHeader *) &tqe[1];
598     lapm->size = htons (sizeof (struct GNUNET_MessageHeader));
599     lapm->type = htons (GNUNET_MESSAGE_TYPE_PEERINFO_GET_ALL);
600   }
601   else
602   {
603 #if DEBUG_PEERINFO
604     GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
605                 "Requesting information on peer `%4s' from PEERINFO service\n",
606                 GNUNET_i2s (peer));
607 #endif
608     tqe =
609         GNUNET_malloc (sizeof (struct TransmissionQueueEntry) +
610                        sizeof (struct ListPeerMessage));
611     tqe->size = sizeof (struct ListPeerMessage);
612     lpm = (struct ListPeerMessage *) &tqe[1];
613     lpm->header.size = htons (sizeof (struct ListPeerMessage));
614     lpm->header.type = htons (GNUNET_MESSAGE_TYPE_PEERINFO_GET);
615     memcpy (&lpm->peer, peer, sizeof (struct GNUNET_PeerIdentity));
616   }
617   ic = GNUNET_malloc (sizeof (struct GNUNET_PEERINFO_IteratorContext));
618   ic->h = h;
619   ic->tqe = tqe;
620   ic->callback = callback;
621   ic->callback_cls = callback_cls;
622   ic->timeout = GNUNET_TIME_relative_to_absolute (timeout);
623   ic->timeout_task =
624       GNUNET_SCHEDULER_add_delayed (timeout, &signal_timeout, ic);
625   tqe->timeout = ic->timeout;
626   tqe->cont = &iterator_start_receive;
627   tqe->cont_cls = ic;
628   tqe->timeout = ic->timeout;
629   GNUNET_CONTAINER_DLL_insert_after (h->tq_head, h->tq_tail, h->tq_tail, tqe);
630   trigger_transmit (h);
631   return ic;
632 }
633
634
635 /**
636  * Cancel an iteration over peer information.
637  *
638  * @param ic context of the iterator to cancel
639  */
640 void
641 GNUNET_PEERINFO_iterate_cancel (struct GNUNET_PEERINFO_IteratorContext *ic)
642 {
643   if (ic->timeout_task != GNUNET_SCHEDULER_NO_TASK)
644   {
645     GNUNET_SCHEDULER_cancel (ic->timeout_task);
646     ic->timeout_task = GNUNET_SCHEDULER_NO_TASK;
647   }
648   ic->callback = NULL;
649   if (GNUNET_YES == ic->in_receive)
650     return;                     /* need to finish processing */
651   GNUNET_CONTAINER_DLL_remove (ic->h->tq_head, ic->h->tq_tail, ic->tqe);
652   GNUNET_free (ic->tqe);
653   GNUNET_free (ic);
654 }
655
656
657 /* end of peerinfo_api.c */