01b313a1546c09a1563e3f390b0a8c3678ff6088
[oweals/gnunet.git] / src / transport / transport-testing.c
1 /*
2      This file is part of GNUnet.
3      (C) 2006, 2009 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 2, 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 transport-testing.c
23  * @brief testing lib for transport service
24  *
25  * @author Matthias Wachs
26  */
27
28 #include "transport-testing.h"
29
30 #define HOSTKEYFILESIZE 914
31
32 static const char *
33 get_host_key (struct GNUNET_TRANSPORT_TESTING_handle *tth)
34 {
35   if (tth->hostkey_data == NULL)
36   {
37     GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, "transport-testing",
38                      "No precomputed hostkeys available\n");
39     return NULL;
40   }
41   if (tth->hostkeys_total > tth->hostkeys_last)
42   {
43     tth->hostkeys_last++;
44     GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, "transport-testing",
45                      "Used hostkey %u of %u available hostkeys\n",
46                      tth->hostkeys_last, tth->hostkeys_total);
47     return &tth->hostkey_data[(tth->hostkeys_last - 1) * HOSTKEYFILESIZE];
48   }
49   GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, "transport-testing",
50                    "No hostkey available (%u of %u already used)\n",
51                    tth->hostkeys_last, tth->hostkeys_total);
52   return NULL;
53 }
54
55 static struct PeerContext *
56 find_peer_context (struct GNUNET_TRANSPORT_TESTING_handle *tth,
57                    const struct GNUNET_PeerIdentity *peer)
58 {
59   GNUNET_assert (tth != NULL);
60   struct PeerContext *t = tth->p_head;
61
62   while (t != NULL)
63   {
64     if (0 == memcmp (&t->id, peer, sizeof (struct GNUNET_PeerIdentity)))
65       break;
66     t = t->next;
67   }
68
69   return t;
70 }
71
72 struct ConnectingContext *
73 find_connecting_context (struct GNUNET_TRANSPORT_TESTING_handle *tth,
74                          struct PeerContext *p1, struct PeerContext *p2)
75 {
76   GNUNET_assert (tth != NULL);
77   struct ConnectingContext *cc = tth->cc_head;
78
79   while (cc != NULL)
80   {
81     if ((cc->p1 == p1) && (cc->p2 == p2))
82       break;
83     if ((cc->p1 == p2) && (cc->p2 == p1))
84       break;
85     cc = cc->next;
86   }
87
88   return cc;
89 }
90
91 static void
92 notify_connect (void *cls, const struct GNUNET_PeerIdentity *peer,
93                 const struct GNUNET_ATS_Information *ats, uint32_t ats_count)
94 {
95   struct PeerContext *p = cls;
96
97   /* Find PeerContext */
98   GNUNET_assert (p != 0);
99   GNUNET_assert (p->tth != NULL);
100   struct PeerContext *p2 = find_peer_context (p->tth, peer);
101
102   if (p == NULL)
103     return;
104   if (p->nc != NULL)
105     p->nc (p->cb_cls, peer, ats, ats_count);
106
107 #if VERBOSE
108   char *p2_s;
109
110   if (p2 != NULL)
111     GNUNET_asprintf (&p2_s, "%u (`%s')", p2->no, GNUNET_i2s (&p2->id));
112   else
113     GNUNET_asprintf (&p2_s, "`%s'", GNUNET_i2s (peer));
114   GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, "transport-testing",
115                    "Peers %s connected to peer %u (`%s')\n", p2_s, p->no,
116                    GNUNET_i2s (&p->id));
117   GNUNET_free (p2_s);
118 #endif
119
120
121   /* Find ConnectingContext */
122   struct ConnectingContext *cc = find_connecting_context (p->tth, p, p2);
123
124   if (cc == NULL)
125     return;
126
127   if (p == cc->p1)
128     cc->p1_c = GNUNET_YES;
129
130   if (p == cc->p2)
131     cc->p2_c = GNUNET_YES;
132
133   if ((cc->p1_c == GNUNET_YES) && (cc->p2_c == GNUNET_YES))
134   {
135     cc->cb (cc->p1, cc->p2, cc->cb_cls);
136     GNUNET_TRANSPORT_TESTING_connect_peers_cancel (p->tth, cc);
137   }
138 }
139
140 static void
141 notify_disconnect (void *cls, const struct GNUNET_PeerIdentity *peer)
142 {
143   struct PeerContext *p = cls;
144
145   /* Find PeerContext */
146   int no = 0;
147   struct PeerContext *p2 = NULL;
148
149   if (p != NULL)
150   {
151     GNUNET_assert (p->tth != NULL);
152     p2 = find_peer_context (p->tth, peer);
153     no = p->no;
154   }
155
156   char *p2_s;
157
158   if (p2 != NULL)
159     GNUNET_asprintf (&p2_s, "%u (`%s')", p2->no, GNUNET_i2s (&p2->id));
160   else
161     GNUNET_asprintf (&p2_s, "`%s'", GNUNET_i2s (peer));
162   GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, "transport-testing",
163                    "Peers %s disconnected from peer %u (`%s')\n", p2_s, no,
164                    GNUNET_i2s (&p->id));
165   GNUNET_free (p2_s);
166
167   if (p == NULL)
168     return;
169   if (p->nd != NULL)
170     p->nd (p->cb_cls, peer);
171 }
172
173 static void
174 notify_receive (void *cls, const struct GNUNET_PeerIdentity *peer,
175                 const struct GNUNET_MessageHeader *message,
176                 const struct GNUNET_ATS_Information *ats, uint32_t ats_count)
177 {
178   struct PeerContext *p = cls;
179
180   if (p == NULL)
181     return;
182   if (p->rec != NULL)
183     p->rec (p->cb_cls, peer, message, ats, ats_count);
184 }
185
186 static void
187 get_hello (void *cb_cls, const struct GNUNET_MessageHeader *message)
188 {
189   struct PeerContext *p = cb_cls;
190
191   GNUNET_assert (message != NULL);
192   GNUNET_assert (GNUNET_OK ==
193                  GNUNET_HELLO_get_id ((const struct GNUNET_HELLO_Message *)
194                                       message, &p->id));
195 #if VERBOSE
196   size_t size =
197       GNUNET_HELLO_size ((const struct GNUNET_HELLO_Message *) message);
198 #endif
199   GNUNET_free_non_null (p->hello);
200   p->hello = (struct GNUNET_HELLO_Message *) GNUNET_copy_message (message);
201
202 #if VERBOSE
203   GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, "transport-testing",
204                    "New HELLO for peer %u (`%s') with size %u\n", p->no,
205                    GNUNET_i2s (&p->id), size);
206 #endif
207
208   if (p->start_cb != NULL)
209   {
210 #if VERBOSE
211     GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, "transport-testing",
212                      "Peer %u (`%s') successfully started\n", p->no,
213                      GNUNET_i2s (&p->id));
214 #endif
215     p->start_cb (p, p->cb_cls);
216     p->start_cb = NULL;
217   }
218 }
219
220
221 static void
222 try_connect (void *cls, const struct GNUNET_SCHEDULER_TaskContext *tc)
223 {
224   struct ConnectingContext *cc = cls;
225   struct PeerContext *p1 = cc->p1;
226   struct PeerContext *p2 = cc->p2;
227
228   cc->tct = GNUNET_SCHEDULER_NO_TASK;
229   if ((tc->reason & GNUNET_SCHEDULER_REASON_SHUTDOWN) != 0)
230     return;
231
232   GNUNET_assert (cc != NULL);
233   GNUNET_assert (cc->p1 != NULL);
234   GNUNET_assert (cc->p2 != NULL);
235
236   char *p2_s = GNUNET_strdup (GNUNET_i2s (&p2->id));
237
238   GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, "transport-testing",
239                    "Asking peer %u (`%s') to connect peer %u (`%s'), providing HELLO with %u bytes\n",
240                    p1->no, GNUNET_i2s (&p1->id), p2->no, p2_s,
241                    GNUNET_HELLO_size (cc->p2->hello));
242   GNUNET_free (p2_s);
243
244   GNUNET_TRANSPORT_offer_hello (cc->th_p1,
245                                 (const struct GNUNET_MessageHeader *) cc->
246                                 p2->hello, NULL, NULL);
247   GNUNET_TRANSPORT_try_connect (cc->th_p1, &p2->id);
248
249   cc->tct =
250       GNUNET_SCHEDULER_add_delayed (GNUNET_TIME_UNIT_SECONDS, &try_connect, cc);
251 }
252
253
254 /**
255  * Start a peer with the given configuration
256  * @param tth the testing handle
257  * @param cfgname configuration file
258  * @param peer_id the peer_id
259  * @param rec receive callback
260  * @param nc connect callback
261  * @param nd disconnect callback
262  * @param start_cb start callback
263  * @param cb_cls closure for callback
264  * @return the peer context
265  */
266 struct PeerContext *
267 GNUNET_TRANSPORT_TESTING_start_peer (struct GNUNET_TRANSPORT_TESTING_handle
268                                      *tth, const char *cfgname, int peer_id,
269                                      GNUNET_TRANSPORT_ReceiveCallback rec,
270                                      GNUNET_TRANSPORT_NotifyConnect nc,
271                                      GNUNET_TRANSPORT_NotifyDisconnect nd,
272                                      GNUNET_TRANSPORT_TESTING_start_cb start_cb,
273                                      void *cb_cls)
274 {
275   const char *hostkey = NULL;
276   struct GNUNET_DISK_FileHandle *fn;
277
278   GNUNET_assert (tth != NULL);
279   if (GNUNET_DISK_file_test (cfgname) == GNUNET_NO)
280   {
281     GNUNET_log_from (GNUNET_ERROR_TYPE_ERROR, "transport-testing",
282                      "File not found: `%s' \n", cfgname);
283     return NULL;
284   }
285
286   struct PeerContext *p = GNUNET_malloc (sizeof (struct PeerContext));
287
288   p->cfg = GNUNET_CONFIGURATION_create ();
289   GNUNET_assert (GNUNET_OK == GNUNET_CONFIGURATION_load (p->cfg, cfgname));
290
291   if (GNUNET_CONFIGURATION_have_value (p->cfg, "PATHS", "SERVICEHOME"))
292     GNUNET_assert (GNUNET_OK ==
293                    GNUNET_CONFIGURATION_get_value_string (p->cfg, "PATHS",
294                                                           "SERVICEHOME",
295                                                           &p->servicehome));
296
297   if (NULL != p->servicehome)
298     GNUNET_DISK_directory_remove (p->servicehome);
299
300   hostkey = get_host_key (tth);
301   if (hostkey != NULL)
302   {
303
304     GNUNET_asprintf (&p->hostkeyfile, "%s/.hostkey", p->servicehome);
305     GNUNET_assert (GNUNET_OK ==
306                    GNUNET_DISK_directory_create_for_file (p->hostkeyfile));
307     fn = GNUNET_DISK_file_open (p->hostkeyfile,
308                                 GNUNET_DISK_OPEN_READWRITE |
309                                 GNUNET_DISK_OPEN_CREATE,
310                                 GNUNET_DISK_PERM_USER_READ |
311                                 GNUNET_DISK_PERM_USER_WRITE);
312     GNUNET_assert (fn != NULL);
313     GNUNET_assert (HOSTKEYFILESIZE ==
314                    GNUNET_DISK_file_write (fn, hostkey, HOSTKEYFILESIZE));
315     GNUNET_assert (GNUNET_OK == GNUNET_DISK_file_close (fn));
316     GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, "transport-testing",
317                      "Wrote hostkey to file: `%s' \n", p->hostkeyfile);
318   }
319
320   p->arm_proc =
321       GNUNET_OS_start_process (NULL, NULL, "gnunet-service-arm",
322                                "gnunet-service-arm", "-c", cfgname,
323 #if VERBOSE_PEERS
324                                "-L", "DEBUG",
325 #else
326                                "-L", "ERROR",
327 #endif
328                                NULL);
329
330   p->no = peer_id;
331   p->tth = tth;
332   p->nc = nc;
333   p->nd = nd;
334   p->rec = rec;
335   p->start_cb = start_cb;
336   if (cb_cls != NULL)
337     p->cb_cls = cb_cls;
338   else
339     p->cb_cls = p;
340
341   p->th =
342       GNUNET_TRANSPORT_connect (p->cfg, NULL, p, &notify_receive,
343                                 &notify_connect, &notify_disconnect);
344   GNUNET_assert (p->th != NULL);
345
346   p->ghh = GNUNET_TRANSPORT_get_hello (p->th, &get_hello, p);
347   GNUNET_assert (p->ghh != NULL);
348
349   GNUNET_CONTAINER_DLL_insert (tth->p_head, tth->p_tail, p);
350
351   return p;
352 }
353
354 /**
355 * Restart the given peer
356 * @param tth testing handle
357 * @param p the peer
358 * @param cfgname the cfg file used to restart
359 * @param restart_cb callback to call when restarted
360 * @param cb_cls callback closure
361 * @return GNUNET_OK in success otherwise GNUNET_SYSERR
362 */
363 int
364 GNUNET_TRANSPORT_TESTING_restart_peer (struct GNUNET_TRANSPORT_TESTING_handle
365                                        *tth, struct PeerContext *p,
366                                        const char *cfgname,
367                                        GNUNET_TRANSPORT_TESTING_start_cb
368                                        restart_cb, void *cb_cls)
369 {
370   struct GNUNET_DISK_FileHandle *fn;
371
372   GNUNET_assert (tth != NULL);
373   GNUNET_assert (p != NULL);
374   GNUNET_assert (p->hostkeyfile != NULL);
375   GNUNET_assert (p->servicehome != NULL);
376
377   /* shutdown */
378 #if VERBOSE
379   GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, "transport-testing",
380                    "Stopping peer %u (`%s')\n", p->no, GNUNET_i2s (&p->id));
381 #endif
382   if (p->ghh != NULL)
383     GNUNET_TRANSPORT_get_hello_cancel (p->ghh);
384   p->ghh = NULL;
385
386   if (p->th != NULL)
387     GNUNET_TRANSPORT_disconnect (p->th);
388
389   if (NULL != p->arm_proc)
390   {
391     if (0 != GNUNET_OS_process_kill (p->arm_proc, SIGTERM))
392       GNUNET_log_strerror (GNUNET_ERROR_TYPE_WARNING, "kill");
393     GNUNET_OS_process_wait (p->arm_proc);
394     GNUNET_OS_process_close (p->arm_proc);
395     p->arm_proc = NULL;
396   }
397   if (p->hello != NULL)
398     GNUNET_free (p->hello);
399   p->hello = NULL;
400
401   if (p->cfg != NULL)
402     GNUNET_CONFIGURATION_destroy (p->cfg);
403   p->cfg = NULL;
404
405
406   /* start */
407 #if VERBOSE
408   GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, "transport-testing",
409                    "Restarting peer %u (`%s')\n", p->no, GNUNET_i2s (&p->id));
410 #endif
411
412   sleep (5);                    // YUCK!
413
414   if (GNUNET_DISK_file_test (cfgname) == GNUNET_NO)
415   {
416     GNUNET_log_from (GNUNET_ERROR_TYPE_ERROR, "transport-testing",
417                      "File not found: `%s' \n", cfgname);
418     goto fail;
419   }
420
421   p->cfg = GNUNET_CONFIGURATION_create ();
422   GNUNET_assert (GNUNET_OK == GNUNET_CONFIGURATION_load (p->cfg, cfgname));
423
424   if (!GNUNET_CONFIGURATION_have_value (p->cfg, "PATHS", "SERVICEHOME"))
425     goto fail;
426
427   fn = GNUNET_DISK_file_open (p->hostkeyfile,
428                               GNUNET_DISK_OPEN_READWRITE |
429                               GNUNET_DISK_OPEN_CREATE,
430                               GNUNET_DISK_PERM_USER_READ |
431                               GNUNET_DISK_PERM_USER_WRITE);
432   if (fn == NULL)
433     goto fail;
434   if (GNUNET_OK != GNUNET_DISK_file_close (fn))
435     goto fail;
436
437   p->arm_proc =
438       GNUNET_OS_start_process (NULL, NULL, "gnunet-service-arm",
439                                "gnunet-service-arm", "-c", cfgname,
440 #if VERBOSE_PEERS
441                                "-L", "DEBUG",
442 #else
443                                "-L", "ERROR",
444 #endif
445                                NULL);
446
447   p->th =
448       GNUNET_TRANSPORT_connect (p->cfg, NULL, p, &notify_receive,
449                                 &notify_connect, &notify_disconnect);
450   GNUNET_assert (p->th != NULL);
451
452   p->start_cb = restart_cb;
453   p->cb_cls = cb_cls;
454
455   p->ghh = GNUNET_TRANSPORT_get_hello (p->th, &get_hello, p);
456   GNUNET_assert (p->ghh != NULL);
457   return GNUNET_OK;
458
459 fail:
460   GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, "transport-testing",
461                    "Restarting peer %u (`%s') failed, removing peer\n", p->no,
462                    GNUNET_i2s (&p->id));
463   GNUNET_TRANSPORT_TESTING_stop_peer (tth, p);
464   return GNUNET_SYSERR;
465 }
466
467 /**
468  * shutdown the given peer
469  * @param tth testing handle
470  * @param p the peer
471  */
472 void
473 GNUNET_TRANSPORT_TESTING_stop_peer (struct GNUNET_TRANSPORT_TESTING_handle *tth,
474                                     struct PeerContext *p)
475 {
476   GNUNET_assert (p != NULL);
477
478   if (p->ghh != NULL)
479     GNUNET_TRANSPORT_get_hello_cancel (p->ghh);
480   p->ghh = NULL;
481
482   if (p->th != NULL)
483     GNUNET_TRANSPORT_disconnect (p->th);
484
485   if (NULL != p->arm_proc)
486   {
487     if (0 != GNUNET_OS_process_kill (p->arm_proc, SIGTERM))
488       GNUNET_log_strerror (GNUNET_ERROR_TYPE_WARNING, "kill");
489     GNUNET_OS_process_wait (p->arm_proc);
490     GNUNET_OS_process_close (p->arm_proc);
491     p->arm_proc = NULL;
492   }
493
494   if (p->hostkeyfile != NULL)
495   {
496     GNUNET_DISK_directory_remove (p->hostkeyfile);
497     GNUNET_free (p->hostkeyfile);
498   }
499
500   if (p->servicehome != NULL)
501   {
502     GNUNET_DISK_directory_remove (p->servicehome);
503     GNUNET_free (p->servicehome);
504   }
505
506   if (p->hello != NULL)
507     GNUNET_free (p->hello);
508   p->hello = NULL;
509
510   if (p->cfg != NULL)
511     GNUNET_CONFIGURATION_destroy (p->cfg);
512   p->cfg = NULL;
513
514   GNUNET_CONTAINER_DLL_remove (tth->p_head, tth->p_tail, p);
515
516   GNUNET_free (p);
517   p = NULL;
518 }
519
520 /**
521  * Connect the given peers and call the callback when both peers report the
522  * inbound connection. Remarks: start_peer's notify_connect callback can be called
523  * before.
524  *
525  * @param tth transport testing handle
526  * @param p1 peer 1
527  * @param p2 peer 2
528  * @param cb the callback to call when both peers notified that they are connected
529  * @param cls callback cls
530  * @return a connect request handle
531  */
532 GNUNET_TRANSPORT_TESTING_ConnectRequest
533 GNUNET_TRANSPORT_TESTING_connect_peers (struct GNUNET_TRANSPORT_TESTING_handle *tth,
534                                         struct PeerContext *p1,
535                                         struct PeerContext *p2,
536                                         GNUNET_TRANSPORT_TESTING_connect_cb cb,
537                                         void *cls)
538 {
539   GNUNET_assert (tth != NULL);
540
541   struct ConnectingContext *cc =
542       GNUNET_malloc (sizeof (struct ConnectingContext));
543
544   GNUNET_assert (p1 != NULL);
545   GNUNET_assert (p2 != NULL);
546
547   cc->p1 = p1;
548   cc->p2 = p2;
549
550   cc->cb = cb;
551   if (cls != NULL)
552     cc->cb_cls = cls;
553   else
554     cc->cb_cls = cc;
555
556   cc->th_p1 = p1->th;
557   cc->th_p2 = p2->th;
558
559   GNUNET_assert (cc->th_p1 != NULL);
560   GNUNET_assert (cc->th_p2 != NULL);
561
562   GNUNET_CONTAINER_DLL_insert (tth->cc_head, tth->cc_tail, cc);
563
564   cc->tct = GNUNET_SCHEDULER_add_now (&try_connect, cc);
565   GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, "transport-testing",
566                    "New connect request %X\n", cc);
567
568   return cc;
569 }
570
571 /**
572  * Cancel the request to connect two peers
573  * Tou MUST cancel the request if you stop the peers before the peers connected succesfully
574  *
575  * @param tth transport testing handle
576  * @param ccr a connect request handle
577  */
578 void
579 GNUNET_TRANSPORT_TESTING_connect_peers_cancel (struct
580                                                GNUNET_TRANSPORT_TESTING_handle
581                                                *tth,
582                                                GNUNET_TRANSPORT_TESTING_ConnectRequest
583                                                ccr)
584 {
585   struct ConnectingContext *cc = ccr;
586
587   GNUNET_assert (tth != NULL);
588
589   GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, "transport-testing",
590                    "Canceling connect request %X!\n", cc);
591
592   if (cc->tct != GNUNET_SCHEDULER_NO_TASK)
593     GNUNET_SCHEDULER_cancel (cc->tct);
594   cc->tct = GNUNET_SCHEDULER_NO_TASK;
595
596   GNUNET_CONTAINER_DLL_remove (tth->cc_head, tth->cc_tail, cc);
597   GNUNET_free (cc);
598 }
599
600
601 /**
602  * Clean up the transport testing
603  * @param tth transport testing handle
604  */
605 void
606 GNUNET_TRANSPORT_TESTING_done (struct GNUNET_TRANSPORT_TESTING_handle *tth)
607 {
608   struct ConnectingContext *cc = tth->cc_head;
609   struct ConnectingContext *ct = NULL;
610   struct PeerContext *p = tth->p_head;
611   struct PeerContext *t = NULL;
612
613   GNUNET_assert (tth != NULL);
614
615   while (cc != tth->cc_tail)
616   {
617     ct = cc->next;
618     GNUNET_log_from (GNUNET_ERROR_TYPE_ERROR, "transport-testing",
619                      "Developer forgot to cancel connect request %X!\n", cc);
620     GNUNET_TRANSPORT_TESTING_connect_peers_cancel (tth, cc);
621     cc = ct;
622   }
623
624   while (p != NULL)
625   {
626     t = p->next;
627     GNUNET_log_from (GNUNET_ERROR_TYPE_ERROR, "transport-testing",
628                      "Developer forgot to stop peer!\n");
629     GNUNET_TRANSPORT_TESTING_stop_peer (tth, p);
630     p = t;
631   }
632
633   GNUNET_free_non_null (tth->hostkey_data);
634
635   GNUNET_free (tth);
636   tth = NULL;
637 }
638
639 /**
640  * Initialize the transport testing
641  * @return transport testing handle
642  */
643 struct GNUNET_TRANSPORT_TESTING_handle *
644 GNUNET_TRANSPORT_TESTING_init ()
645 {
646   struct GNUNET_TRANSPORT_TESTING_handle *tth;
647   struct GNUNET_DISK_FileHandle *fd;
648   uint64_t fs;
649   uint64_t total_hostkeys;
650
651
652   /* prepare hostkeys */
653   tth = GNUNET_malloc (sizeof (struct GNUNET_TRANSPORT_TESTING_handle));
654   tth->hostkey_data = NULL;
655   const char *hostkeys_file = "../../contrib/testing_hostkeys.dat";
656
657   if (GNUNET_YES != GNUNET_DISK_file_test (hostkeys_file))
658   {
659     GNUNET_log (GNUNET_ERROR_TYPE_ERROR, _("Could not read hostkeys file!\n"));
660   }
661   else
662   {
663     /* Check hostkey file size, read entire thing into memory */
664     fd = GNUNET_DISK_file_open (hostkeys_file, GNUNET_DISK_OPEN_READ,
665                                 GNUNET_DISK_PERM_NONE);
666     if (NULL == fd)
667     {
668       GNUNET_log_strerror_file (GNUNET_ERROR_TYPE_ERROR, "open", hostkeys_file);
669       GNUNET_free (tth);
670       return NULL;
671     }
672
673     if (GNUNET_YES != GNUNET_DISK_file_size (hostkeys_file, &fs, GNUNET_YES))
674       fs = 0;
675
676     if (0 != (fs % HOSTKEYFILESIZE))
677     {
678       GNUNET_log_from (GNUNET_ERROR_TYPE_ERROR, "transport-testing",
679                        "File size %llu seems incorrect for hostkeys...\n", fs);
680     }
681     else
682     {
683       total_hostkeys = fs / HOSTKEYFILESIZE;
684       tth->hostkey_data = GNUNET_malloc_large (fs);
685       GNUNET_assert (fs == GNUNET_DISK_file_read (fd, tth->hostkey_data, fs));
686       GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, "transport-testing",
687                        "Read %llu hostkeys from file\n", total_hostkeys);
688       tth->hostkeys_total = total_hostkeys;
689     }
690     GNUNET_assert (GNUNET_OK == GNUNET_DISK_file_close (fd));
691   }
692
693   return tth;
694 }
695
696
697 /*
698  * Some utility functions
699  */
700
701 /**
702  * Removes all directory separators from absolute filename
703  * @param file the absolute file name, e.g. as found in argv[0]
704  * @return extracted file name, has to be freed by caller
705  */
706 static char *
707 extract_filename (const char *file)
708 {
709   char *pch = GNUNET_strdup (file);
710   char *backup = pch;
711   char *filename = NULL;
712   char *res;
713
714   if (NULL != strstr (pch, "/"))
715   {
716     pch = strtok (pch, "/");
717     while (pch != NULL)
718     {
719       pch = strtok (NULL, "/");
720       if (pch != NULL)
721       {
722         filename = pch;
723       }
724     }
725   }
726   else
727     filename = pch;
728
729   res = GNUNET_strdup (filename);
730   GNUNET_free (backup);
731   return res;
732 }
733
734 /**
735  * Extracts the test filename from an absolute file name and removes the extension
736  * @param file absolute file name
737  * @param dest where to store result
738  */
739 void
740 GNUNET_TRANSPORT_TESTING_get_test_name (const char *file, char **dest)
741 {
742   char *filename = extract_filename (file);
743   char *backup = filename;
744   char *dotexe;
745
746   if (filename == NULL)
747     goto fail;
748
749   /* remove "lt-" */
750   filename = strstr (filename, "tes");
751   if (filename == NULL)
752     goto fail;
753
754   /* remove ".exe" */
755   if (NULL != (dotexe = strstr (filename, ".exe")))
756     dotexe[0] = '\0';
757
758   goto suc;
759
760 fail:
761   (*dest) = NULL;
762   return;
763
764 suc:
765   /* create filename */
766   GNUNET_asprintf (dest, "%s", filename);
767   GNUNET_free (backup);
768 }
769
770
771 /**
772  * Extracts the filename from an absolute file name and removes the extension
773  * @param file absolute file name
774  * @param dest where to store result
775  */
776 void
777 GNUNET_TRANSPORT_TESTING_get_test_source_name (const char *file, char **dest)
778 {
779   char *src = extract_filename (file);
780   char *split;
781
782   split = strstr (src, ".");
783   if (split != NULL)
784   {
785     split[0] = '\0';
786   }
787   GNUNET_asprintf (dest, "%s", src);
788   GNUNET_free (src);
789 }
790
791
792 /**
793  * Extracts the plugin anme from an absolute file name and the test name
794  * @param file absolute file name
795  * @param test test name
796  * @param dest where to store result
797  */
798 void
799 GNUNET_TRANSPORT_TESTING_get_test_plugin_name (const char *file,
800                                                const char *test, char **dest)
801 {
802   char *e = extract_filename (file);
803   char *t = extract_filename (test);
804
805   char *filename = NULL;
806   char *dotexe;
807
808   if (e == NULL)
809     goto fail;
810
811   /* remove "lt-" */
812   filename = strstr (e, "tes");
813   if (filename == NULL)
814     goto fail;
815
816   /* remove ".exe" */
817   if (NULL != (dotexe = strstr (filename, ".exe")))
818     dotexe[0] = '\0';
819
820   /* find last _ */
821   filename = strstr (filename, t);
822   if (filename == NULL)
823     goto fail;
824
825   /* copy plugin */
826   filename += strlen (t);
827   filename++;
828   GNUNET_asprintf (dest, "%s", filename);
829   goto suc;
830
831 fail:
832   (*dest) = NULL;
833 suc:
834   GNUNET_free (t);
835   GNUNET_free (e);
836
837 }
838
839 /**
840  * This function takes the filename (e.g. argv[0), removes a "lt-"-prefix and
841  * if existing ".exe"-prefix and adds the peer-number
842  *
843  * @param file filename of the test, e.g. argv[0]
844  * @param dest where to write the filename
845  * @param count peer number
846  */
847 void
848 GNUNET_TRANSPORT_TESTING_get_config_name (const char *file, char **dest,
849                                           int count)
850 {
851   char *filename = extract_filename (file);
852   char *backup = filename;
853   char *dotexe;
854
855   if (filename == NULL)
856     goto fail;
857
858   /* remove "lt-" */
859   filename = strstr (filename, "tes");
860   if (filename == NULL)
861     goto fail;
862
863   /* remove ".exe" */
864   if (NULL != (dotexe = strstr (filename, ".exe")))
865     dotexe[0] = '\0';
866
867   goto suc;
868
869 fail:
870   (*dest) = NULL;
871   return;
872
873 suc:
874   /* create cfg filename */
875   GNUNET_asprintf (dest, "%s_peer%u.conf", filename, count);
876   GNUNET_free (backup);
877 }
878
879
880
881 /* end of transport_testing.h */