2 This file is part of GNUnet.
3 (C) 2010, 2012 Christian Grothoff (and other contributing authors)
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.
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.
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.
22 * @file fs/perf_gnunet_service_fs_p2p.c
23 * @brief profile P2P routing using simple publish + download operation
24 * @author Christian Grothoff
27 #include "fs_test_lib.h"
28 #include "gnunet_testbed_service.h"
30 #define VERBOSE GNUNET_NO
33 * File-size we use for testing.
35 #define FILESIZE (1024 * 1024 * 10)
38 * How long until we give up on transmitting the message?
40 #define TIMEOUT GNUNET_TIME_relative_multiply (GNUNET_TIME_UNIT_MINUTES, 30)
46 static struct GNUNET_TESTBED_Peer *daemons[NUM_DAEMONS];
50 static struct GNUNET_TIME_Absolute start_time;
52 static const char *progname;
56 * Master context for 'stat_run'.
60 struct GNUNET_STATISTICS_Handle *stat;
61 struct GNUNET_TESTBED_Operation *op;
68 const char *subsystem;
73 * Statistics we print out.
75 static struct StatValues stats[] = {
76 {"fs", "# queries forwarded"},
77 {"fs", "# replies received and matched"},
78 {"fs", "# results found locally"},
79 {"fs", "# requests forwarded due to high load"},
80 {"fs", "# requests done for free (low load)"},
81 {"fs", "# requests dropped, priority insufficient"},
82 {"fs", "# requests done for a price (normal load)"},
83 {"fs", "# requests dropped by datastore (queue length limit)"},
84 {"fs", "# P2P searches received"},
85 {"fs", "# P2P searches discarded (queue length bound)"},
86 {"fs", "# replies received for local clients"},
87 {"fs", "# queries retransmitted to same target"},
88 {"core", "# bytes decrypted"},
89 {"core", "# bytes encrypted"},
90 {"core", "# discarded CORE_SEND requests"},
91 {"core", "# discarded CORE_SEND request bytes"},
92 {"core", "# discarded lower priority CORE_SEND requests"},
93 {"core", "# discarded lower priority CORE_SEND request bytes"},
94 {"transport", "# bytes received via TCP"},
95 {"transport", "# bytes transmitted via TCP"},
96 {"datacache", "# bytes stored"},
102 * Callback function to process statistic values.
105 * @param subsystem name of subsystem that created the statistic
106 * @param name the name of the datum
107 * @param value the current value
108 * @param is_persistent GNUNET_YES if the value is persistent, GNUNET_NO if not
109 * @return GNUNET_OK to continue, GNUNET_SYSERR to abort iteration
112 print_stat (void *cls, const char *subsystem, const char *name, uint64_t value,
115 struct StatMaster *sm = cls;
117 FPRINTF (stderr, "Peer %2u: %12s/%50s = %12llu\n", sm->daemon, subsystem,
118 name, (unsigned long long) value);
124 * Function that gathers stats from all daemons.
128 struct GNUNET_TESTBED_Operation *op,
134 * Function called when GET operation on stats is done.
137 get_done (void *cls, int success)
139 struct StatMaster *sm = cls;
141 GNUNET_break (GNUNET_OK == success);
143 stat_run (sm, sm->op, sm->stat, NULL);
148 * Adapter function called to establish a connection to
149 * statistics service.
152 * @param cfg configuration of the peer to connect to; will be available until
153 * GNUNET_TESTBED_operation_done() is called on the operation returned
154 * from GNUNET_TESTBED_service_connect()
155 * @return service handle to return in 'op_result', NULL on error
158 statistics_connect_adapter (void *cls,
159 const struct GNUNET_CONFIGURATION_Handle *cfg)
161 return GNUNET_STATISTICS_create ("<driver>",
167 * Adapter function called to destroy a connection to
168 * statistics service.
171 * @param op_result service handle returned from the connect adapter
174 statistics_disconnect_adapter (void *cls,
177 GNUNET_STATISTICS_destroy (op_result, GNUNET_NO);
182 * Function that gathers stats from all daemons.
186 struct GNUNET_TESTBED_Operation *op,
190 struct StatMaster *sm = cls;
194 GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
195 "Failed to statistics service: %s\n",
197 GNUNET_SCHEDULER_shutdown ();
200 sm->stat = ca_result;
202 if (stats[sm->value].name != NULL)
204 GNUNET_STATISTICS_get (sm->stat,
208 stats[sm->value].subsystem, stats[sm->value].name,
210 GNUNET_TIME_UNIT_FOREVER_REL, &get_done, &print_stat,
214 GNUNET_TESTBED_operation_done (sm->op);
217 if (NUM_DAEMONS == sm->daemon)
220 GNUNET_SCHEDULER_shutdown ();
224 GNUNET_TESTBED_service_connect (NULL,
228 &statistics_connect_adapter,
229 &statistics_disconnect_adapter,
235 do_report (void *cls, const struct GNUNET_SCHEDULER_TaskContext *tc)
238 struct GNUNET_TIME_Relative del;
240 struct StatMaster *sm;
244 GNUNET_DISK_directory_remove (fn);
247 if (0 != (tc->reason & GNUNET_SCHEDULER_REASON_TIMEOUT))
249 GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
250 "Timeout during download, shutting down with error\n");
252 GNUNET_SCHEDULER_shutdown ();
256 del = GNUNET_TIME_absolute_get_duration (start_time);
257 if (del.rel_value_us == 0)
258 del.rel_value_us = 1;
260 GNUNET_STRINGS_byte_size_fancy (((unsigned long long) FILESIZE) *
261 1000000LL / del.rel_value_us);
262 FPRINTF (stdout, "Download speed was %s/s\n", fancy);
264 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, "Finished download, shutting down\n",
265 (unsigned long long) FILESIZE);
266 sm = GNUNET_malloc (sizeof (struct StatMaster));
268 GNUNET_TESTBED_service_connect (NULL,
272 &statistics_connect_adapter,
273 &statistics_disconnect_adapter,
279 do_download (void *cls,
280 const struct GNUNET_FS_Uri *uri,
287 GNUNET_SCHEDULER_shutdown ();
288 GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
289 "Timeout during upload attempt, shutting down with error\n");
293 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, "Downloading %llu bytes\n",
294 (unsigned long long) FILESIZE);
295 start_time = GNUNET_TIME_absolute_get ();
296 if (NULL != strstr (progname, "dht"))
300 GNUNET_FS_TEST_download (daemons[0], TIMEOUT, anonymity, SEED, uri, VERBOSE,
302 (NULL == fn) ? NULL : GNUNET_strdup (fn));
307 do_publish (void *cls,
308 unsigned int num_peers,
309 struct GNUNET_TESTBED_Peer **peers,
310 unsigned int links_succeeded,
311 unsigned int links_failed)
317 GNUNET_assert (NUM_DAEMONS == num_peers);
318 for (i=0;i<num_peers;i++)
319 daemons[i] = peers[i];
320 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, "Publishing %llu bytes\n",
321 (unsigned long long) FILESIZE);
322 if (NULL != strstr (progname, "index"))
323 do_index = GNUNET_YES;
325 do_index = GNUNET_NO;
326 if (NULL != strstr (progname, "dht"))
330 GNUNET_FS_TEST_publish (daemons[NUM_DAEMONS - 1], TIMEOUT, anonymity,
331 do_index, FILESIZE, SEED, VERBOSE, &do_download,
337 main (int argc, char *argv[])
340 (void) GNUNET_TESTBED_test_run ("perf-gnunet-service-fs-p2p",
341 "perf_gnunet_service_fs_p2p.conf",
345 GNUNET_DISK_directory_remove ("/tmp/gnunet-test-fs-lib/");
349 /* end of perf_gnunet_service_fs_p2p.c */