-fix #2378
[oweals/gnunet.git] / src / fs / gnunet-service-fs_lc.c
1 /*
2      This file is part of GNUnet.
3      (C) 2011 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 fs/gnunet-service-fs_lc.c
23  * @brief API to handle 'local clients'
24  * @author Christian Grothoff
25  */
26
27 #include "platform.h"
28 #include "gnunet-service-fs.h"
29 #include "gnunet-service-fs_lc.h"
30 #include "gnunet-service-fs_cp.h"
31 #include "gnunet-service-fs_pr.h"
32
33
34 /**
35  * Doubly-linked list of requests we are performing
36  * on behalf of the same client.
37  */
38 struct ClientRequest
39 {
40
41   /**
42    * This is a doubly-linked list.
43    */
44   struct ClientRequest *next;
45
46   /**
47    * This is a doubly-linked list.
48    */
49   struct ClientRequest *prev;
50
51   /**
52    * Request this entry represents.
53    */
54   struct GSF_PendingRequest *pr;
55
56   /**
57    * Client list this request belongs to.
58    */
59   struct GSF_LocalClient *lc;
60
61   /**
62    * Task scheduled to destroy the request.
63    */
64   GNUNET_SCHEDULER_TaskIdentifier kill_task;
65
66 };
67
68
69 /**
70  * Replies to be transmitted to the client.  The actual
71  * response message is allocated after this struct.
72  */
73 struct ClientResponse
74 {
75   /**
76    * This is a doubly-linked list.
77    */
78   struct ClientResponse *next;
79
80   /**
81    * This is a doubly-linked list.
82    */
83   struct ClientResponse *prev;
84
85   /**
86    * Client list entry this response belongs to.
87    */
88   struct GSF_LocalClient *lc;
89
90   /**
91    * Number of bytes in the response.
92    */
93   size_t msize;
94 };
95
96
97 /**
98  * A local client.
99  */
100 struct GSF_LocalClient
101 {
102
103   /**
104    * We keep clients in a DLL.
105    */
106   struct GSF_LocalClient *next;
107
108   /**
109    * We keep clients in a DLL.
110    */
111   struct GSF_LocalClient *prev;
112
113   /**
114    * ID of the client.
115    */
116   struct GNUNET_SERVER_Client *client;
117
118   /**
119    * Head of list of requests performed on behalf
120    * of this client right now.
121    */
122   struct ClientRequest *cr_head;
123
124   /**
125    * Tail of list of requests performed on behalf
126    * of this client right now.
127    */
128   struct ClientRequest *cr_tail;
129
130   /**
131    * Head of linked list of responses.
132    */
133   struct ClientResponse *res_head;
134
135   /**
136    * Tail of linked list of responses.
137    */
138   struct ClientResponse *res_tail;
139
140   /**
141    * Context for sending replies.
142    */
143   struct GNUNET_SERVER_TransmitHandle *th;
144
145 };
146
147
148 /**
149  * Head of linked list of our local clients.
150  */
151 static struct GSF_LocalClient *client_head;
152
153
154 /**
155  * Head of linked list of our local clients.
156  */
157 static struct GSF_LocalClient *client_tail;
158
159
160 /**
161  * Look up a local client record or create one if it
162  * doesn't exist yet.
163  *
164  * @param client handle of the client
165  * @return handle to local client entry
166  */
167 struct GSF_LocalClient *
168 GSF_local_client_lookup_ (struct GNUNET_SERVER_Client *client)
169 {
170   struct GSF_LocalClient *pos;
171
172   pos = client_head;
173   while ((pos != NULL) && (pos->client != client))
174     pos = pos->next;
175   if (pos != NULL)
176     return pos;
177   pos = GNUNET_malloc (sizeof (struct GSF_LocalClient));
178   pos->client = client;
179   GNUNET_CONTAINER_DLL_insert (client_head, client_tail, pos);
180   return pos;
181 }
182
183
184 /**
185  * Free the given client request.
186  *
187  * @param cls the client request to free
188  * @param tc task context
189  */
190 static void
191 client_request_destroy (void *cls,
192                         const struct GNUNET_SCHEDULER_TaskContext *tc)
193 {
194   struct ClientRequest *cr = cls;
195   struct GSF_LocalClient *lc;
196
197   cr->kill_task = GNUNET_SCHEDULER_NO_TASK;
198   lc = cr->lc;
199   GNUNET_CONTAINER_DLL_remove (lc->cr_head, lc->cr_tail, cr);
200   GSF_pending_request_cancel_ (cr->pr, GNUNET_NO);
201   GNUNET_STATISTICS_update (GSF_stats,
202                             gettext_noop ("# client searches active"), -1,
203                             GNUNET_NO);
204   GNUNET_free (cr);
205 }
206
207
208 /**
209  * Handle a reply to a pending request.  Also called if a request
210  * expires (then with data == NULL).  The handler may be called
211  * many times (depending on the request type), but will not be
212  * called during or after a call to GSF_pending_request_cancel
213  * and will also not be called anymore after a call signalling
214  * expiration.
215  *
216  * @param cls user-specified closure
217  * @param eval evaluation of the result
218  * @param pr handle to the original pending request
219  * @param reply_anonymity_level anonymity level for the reply, UINT32_MAX for "unknown"
220  * @param expiration when does 'data' expire?
221  * @param last_transmission when was the last time we've tried to download this block? (FOREVER if unknown)
222  * @param type type of the block
223  * @param data response data, NULL on request expiration
224  * @param data_len number of bytes in data
225  */
226 static void
227 client_response_handler (void *cls, enum GNUNET_BLOCK_EvaluationResult eval,
228                          struct GSF_PendingRequest *pr,
229                          uint32_t reply_anonymity_level,
230                          struct GNUNET_TIME_Absolute expiration,
231                          struct GNUNET_TIME_Absolute last_transmission,
232                          enum GNUNET_BLOCK_Type type, const void *data,
233                          size_t data_len)
234 {
235   struct ClientRequest *cr = cls;
236   struct GSF_LocalClient *lc;
237   struct ClientPutMessage *pm;
238   const struct GSF_PendingRequestData *prd;
239   size_t msize;
240
241   if (NULL == data)
242   {
243     /* ugh, request 'timed out' -- how can this be? */
244     GNUNET_break (0);
245     return;
246   }
247   prd = GSF_pending_request_get_data_ (pr);
248   GNUNET_break (type != GNUNET_BLOCK_TYPE_ANY);
249   if ((prd->type != type) && (prd->type != GNUNET_BLOCK_TYPE_ANY))
250   {
251     GNUNET_break (0);
252     return;
253   }
254   GNUNET_STATISTICS_update (GSF_stats,
255                             gettext_noop
256                             ("# replies received for local clients"), 1,
257                             GNUNET_NO);
258   GNUNET_assert (pr == cr->pr);
259   lc = cr->lc;
260   msize = sizeof (struct ClientPutMessage) + data_len;
261   {
262     char buf[msize] GNUNET_ALIGN;
263
264     pm = (struct ClientPutMessage *) buf;
265     pm->header.type = htons (GNUNET_MESSAGE_TYPE_FS_PUT);
266     pm->header.size = htons (msize);
267     pm->type = htonl (type);
268     pm->expiration = GNUNET_TIME_absolute_hton (expiration);
269     pm->last_transmission = GNUNET_TIME_absolute_hton (last_transmission);
270     memcpy (&pm[1], data, data_len);
271     GSF_local_client_transmit_ (lc, &pm->header);
272   }
273   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
274               "Queued reply to query `%s' for local client\n",
275               GNUNET_h2s (&prd->query), (unsigned int) prd->type);
276   if (eval != GNUNET_BLOCK_EVALUATION_OK_LAST)
277     return;
278   if (GNUNET_SCHEDULER_NO_TASK != cr->kill_task)
279     cr->kill_task = GNUNET_SCHEDULER_add_now (&client_request_destroy, cr);
280 }
281
282
283 /**
284  * Handle START_SEARCH-message (search request from local client).
285  * Only responsible for creating the request entry itself and setting
286  * up reply callback and cancellation on client disconnect.  Does NOT
287  * execute the actual request strategy (planning).
288  *
289  * @param client identification of the client
290  * @param message the actual message
291  * @param prptr where to store the pending request handle for the request
292  * @return GNUNET_YES to start local processing,
293  *         GNUNET_NO to not (yet) start local processing,
294  *         GNUNET_SYSERR on error
295  */
296 int
297 GSF_local_client_start_search_handler_ (struct GNUNET_SERVER_Client *client,
298                                         const struct GNUNET_MessageHeader
299                                         *message,
300                                         struct GSF_PendingRequest **prptr)
301 {
302   static GNUNET_HashCode all_zeros;
303   const struct SearchMessage *sm;
304   struct GSF_LocalClient *lc;
305   struct ClientRequest *cr;
306   struct GSF_PendingRequestData *prd;
307   uint16_t msize;
308   unsigned int sc;
309   enum GNUNET_BLOCK_Type type;
310   enum GSF_PendingRequestOptions options;
311
312   msize = ntohs (message->size);
313   if ((msize < sizeof (struct SearchMessage)) ||
314       (0 != (msize - sizeof (struct SearchMessage)) % sizeof (GNUNET_HashCode)))
315   {
316     GNUNET_break (0);
317     *prptr = NULL;
318     return GNUNET_SYSERR;
319   }
320   GNUNET_STATISTICS_update (GSF_stats,
321                             gettext_noop ("# client searches received"), 1,
322                             GNUNET_NO);
323   sc = (msize - sizeof (struct SearchMessage)) / sizeof (GNUNET_HashCode);
324   sm = (const struct SearchMessage *) message;
325   type = ntohl (sm->type);
326   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
327               "Received request for `%s' of type %u from local client\n",
328               GNUNET_h2s (&sm->query), (unsigned int) type);
329   lc = GSF_local_client_lookup_ (client);
330   cr = NULL;
331   /* detect duplicate KBLOCK requests */
332   if ((type == GNUNET_BLOCK_TYPE_FS_KBLOCK) ||
333       (type == GNUNET_BLOCK_TYPE_FS_NBLOCK) || (type == GNUNET_BLOCK_TYPE_ANY))
334   {
335     cr = lc->cr_head;
336     while (cr != NULL)
337     {
338       prd = GSF_pending_request_get_data_ (cr->pr);
339       /* only unify with queries that hae not yet started local processing
340          (SEARCH_MESSAGE_OPTION_CONTINUED was always set) and that have a
341          matching query and type */
342       if ((GNUNET_YES != prd->has_started) &&
343           (0 != memcmp (&prd->query, &sm->query, sizeof (GNUNET_HashCode))) &&
344           (prd->type == type))
345         break;
346       cr = cr->next;
347     }
348   }
349   if (cr != NULL)
350   {
351     GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
352                 "Have existing request, merging content-seen lists.\n");
353     GSF_pending_request_update_ (cr->pr, (const GNUNET_HashCode *) &sm[1], sc);
354     GNUNET_STATISTICS_update (GSF_stats,
355                               gettext_noop
356                               ("# client searches updated (merged content seen list)"),
357                               1, GNUNET_NO);
358   }
359   else
360   {
361     GNUNET_STATISTICS_update (GSF_stats,
362                               gettext_noop ("# client searches active"), 1,
363                               GNUNET_NO);
364     cr = GNUNET_malloc (sizeof (struct ClientRequest));
365     cr->lc = lc;
366     GNUNET_CONTAINER_DLL_insert (lc->cr_head, lc->cr_tail, cr);
367     options = GSF_PRO_LOCAL_REQUEST;
368     if (0 != (SEARCH_MESSAGE_OPTION_LOOPBACK_ONLY & ntohl (sm->options)))
369       options |= GSF_PRO_LOCAL_ONLY;
370     cr->pr = GSF_pending_request_create_ (options, type, &sm->query, (type == GNUNET_BLOCK_TYPE_FS_SBLOCK) ? &sm->target        /* namespace */
371                                           : NULL,
372                                           (0 !=
373                                            memcmp (&sm->target, &all_zeros,
374                                                    sizeof (GNUNET_HashCode)))
375                                           ? (const struct GNUNET_PeerIdentity *)
376                                           &sm->target : NULL, NULL, 0,
377                                           0 /* bf */ ,
378                                           ntohl (sm->anonymity_level),
379                                           0 /* priority */ ,
380                                           0 /* ttl */ ,
381                                           0 /* sender PID */ ,
382                                           0 /* origin PID */ ,
383                                           (const GNUNET_HashCode *) &sm[1], sc,
384                                           &client_response_handler, cr);
385   }
386   *prptr = cr->pr;
387   return (0 !=
388           (SEARCH_MESSAGE_OPTION_CONTINUED & ntohl (sm->options))) ? GNUNET_NO :
389       GNUNET_YES;
390 }
391
392
393 /**
394  * Transmit the given message by copying it to the target buffer
395  * "buf".  "buf" will be NULL and "size" zero if the socket was closed
396  * for writing in the meantime.  In that case, do nothing
397  * (the disconnect or shutdown handler will take care of the rest).
398  * If we were able to transmit messages and there are still more
399  * pending, ask core again for further calls to this function.
400  *
401  * @param cls closure, pointer to the 'struct GSF_LocalClient'
402  * @param size number of bytes available in buf
403  * @param buf where the callee should write the message
404  * @return number of bytes written to buf
405  */
406 static size_t
407 transmit_to_client (void *cls, size_t size, void *buf)
408 {
409   struct GSF_LocalClient *lc = cls;
410   char *cbuf = buf;
411   struct ClientResponse *res;
412   size_t msize;
413
414   lc->th = NULL;
415   if (NULL == buf)
416     return 0;
417   msize = 0;
418   while ((NULL != (res = lc->res_head)) && (res->msize <= size))
419   {
420     memcpy (&cbuf[msize], &res[1], res->msize);
421     msize += res->msize;
422     size -= res->msize;
423     GNUNET_CONTAINER_DLL_remove (lc->res_head, lc->res_tail, res);
424     GNUNET_free (res);
425   }
426   if (NULL != res)
427     lc->th =
428         GNUNET_SERVER_notify_transmit_ready (lc->client, res->msize,
429                                              GNUNET_TIME_UNIT_FOREVER_REL,
430                                              &transmit_to_client, lc);
431   return msize;
432 }
433
434
435 /**
436  * Transmit a message to the given local client as soon as possible.
437  * If the client disconnects before transmission, the message is
438  * simply discarded.
439  *
440  * @param lc recipient
441  * @param msg message to transmit to client
442  */
443 void
444 GSF_local_client_transmit_ (struct GSF_LocalClient *lc,
445                             const struct GNUNET_MessageHeader *msg)
446 {
447   struct ClientResponse *res;
448   size_t msize;
449
450   msize = ntohs (msg->size);
451   res = GNUNET_malloc (sizeof (struct ClientResponse) + msize);
452   res->lc = lc;
453   res->msize = msize;
454   memcpy (&res[1], msg, msize);
455   GNUNET_CONTAINER_DLL_insert_tail (lc->res_head, lc->res_tail, res);
456   if (NULL == lc->th)
457     lc->th =
458         GNUNET_SERVER_notify_transmit_ready (lc->client, msize,
459                                              GNUNET_TIME_UNIT_FOREVER_REL,
460                                              &transmit_to_client, lc);
461 }
462
463
464 /**
465  * A client disconnected from us.  Tear down the local client
466  * record.
467  *
468  * @param cls unused
469  * @param client handle of the client
470  */
471 void
472 GSF_client_disconnect_handler_ (void *cls, struct GNUNET_SERVER_Client *client)
473 {
474   struct GSF_LocalClient *pos;
475   struct ClientRequest *cr;
476   struct ClientResponse *res;
477
478   pos = client_head;
479   while ((pos != NULL) && (pos->client != client))
480     pos = pos->next;
481   if (pos == NULL)
482     return;
483   while (NULL != (cr = pos->cr_head))
484   {
485     GNUNET_CONTAINER_DLL_remove (pos->cr_head, pos->cr_tail, cr);
486     GSF_pending_request_cancel_ (cr->pr, GNUNET_NO);
487     GNUNET_STATISTICS_update (GSF_stats,
488                               gettext_noop ("# client searches active"), -1,
489                               GNUNET_NO);
490     if (GNUNET_SCHEDULER_NO_TASK != cr->kill_task)
491       GNUNET_SCHEDULER_cancel (cr->kill_task);
492     GNUNET_free (cr);
493   }
494   while (NULL != (res = pos->res_head))
495   {
496     GNUNET_CONTAINER_DLL_remove (pos->res_head, pos->res_tail, res);
497     GNUNET_free (res);
498   }
499   if (pos->th != NULL)
500   {
501     GNUNET_SERVER_notify_transmit_ready_cancel (pos->th);
502     pos->th = NULL;
503   }
504   GSF_handle_local_client_disconnect_ (pos);
505   GNUNET_CONTAINER_DLL_remove (client_head, client_tail, pos);
506   GNUNET_free (pos);
507 }
508
509
510 /* end of gnunet-service-fs_lc.c */