2 This file is part of GNUnet.
3 (C) 2009, 2010 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 transport/gnunet-service-transport.c
23 * @brief low-level P2P messaging
24 * @author Christian Grothoff
28 #include "gnunet_client_lib.h"
29 #include "gnunet_container_lib.h"
30 #include "gnunet_constants.h"
31 #include "gnunet_getopt_lib.h"
32 #include "gnunet_hello_lib.h"
33 #include "gnunet_os_lib.h"
34 #include "gnunet_peerinfo_service.h"
35 #include "gnunet_plugin_lib.h"
36 #include "gnunet_protocols.h"
37 #include "gnunet_service_lib.h"
38 #include "gnunet_signatures.h"
39 #include "gnunet_transport_plugin.h"
40 #include "transport.h"
45 #define DEBUG_BLACKLIST GNUNET_NO
47 #define DEBUG_PING_PONG GNUNET_NO
49 #define DEBUG_TRANSPORT_HELLO GNUNET_NO
51 #define DEBUG_ATS GNUNET_NO
53 #define VERBOSE_ATS GNUNET_NO
56 * Should we do some additional checks (to validate behavior
59 #define EXTRA_CHECKS GNUNET_YES
62 * How many messages can we have pending for a given client process
63 * before we start to drop incoming messages? We typically should
64 * have only one client and so this would be the primary buffer for
65 * messages, so the number should be chosen rather generously.
67 * The expectation here is that most of the time the queue is large
68 * enough so that a drop is virtually never required. Note that
69 * this value must be about as large as 'TOTAL_MSGS' in the
70 * 'test_transport_api_reliability.c', otherwise that testcase may
73 #define MAX_PENDING (128 * 1024)
76 * Size of the per-transport blacklist hash maps.
78 #define TRANSPORT_BLACKLIST_HT_SIZE 16
81 * How often should we try to reconnect to a peer using a particular
82 * transport plugin before giving up? Note that the plugin may be
83 * added back to the list after PLUGIN_RETRY_FREQUENCY expires.
85 #define MAX_CONNECT_RETRY 3
88 * Limit on the number of ready-to-run tasks when validating
89 * HELLOs. If more tasks are ready to run, we will drop
90 * HELLOs instead of validating them.
92 #define MAX_HELLO_LOAD 4
95 * How often must a peer violate bandwidth quotas before we start
96 * to simply drop its messages?
98 #define QUOTA_VIOLATION_DROP_THRESHOLD 10
101 * How long until a HELLO verification attempt should time out?
102 * Must be rather small, otherwise a partially successful HELLO
103 * validation (some addresses working) might not be available
104 * before a client's request for a connection fails for good.
105 * Besides, if a single request to an address takes a long time,
106 * then the peer is unlikely worthwhile anyway.
108 #define HELLO_VERIFICATION_TIMEOUT GNUNET_TIME_relative_multiply (GNUNET_TIME_UNIT_SECONDS, 15)
111 * How long is a PONG signature valid? We'll recycle a signature until
112 * 1/4 of this time is remaining. PONGs should expire so that if our
113 * external addresses change an adversary cannot replay them indefinitely.
114 * OTOH, we don't want to spend too much time generating PONG signatures,
115 * so they must have some lifetime to reduce our CPU usage.
117 #define PONG_SIGNATURE_LIFETIME GNUNET_TIME_relative_multiply (GNUNET_TIME_UNIT_HOURS, 1)
120 * Priority to use for PONG messages.
122 #define TRANSPORT_PONG_PRIORITY 4
125 * How often do we re-add (cheaper) plugins to our list of plugins
126 * to try for a given connected peer?
128 #define PLUGIN_RETRY_FREQUENCY GNUNET_TIME_relative_multiply (GNUNET_TIME_UNIT_MINUTES, 15)
131 * After how long do we expire an address in a HELLO that we just
132 * validated? This value is also used for our own addresses when we
135 #define HELLO_ADDRESS_EXPIRATION GNUNET_TIME_relative_multiply (GNUNET_TIME_UNIT_HOURS, 12)
139 * How long before an existing address expires should we again try to
140 * validate it? Must be (significantly) smaller than
141 * HELLO_ADDRESS_EXPIRATION.
143 #define HELLO_REVALIDATION_START_TIME GNUNET_TIME_relative_multiply (GNUNET_TIME_UNIT_HOURS, 1)
146 * Maximum frequency for re-evaluating latencies for all transport addresses.
148 #define LATENCY_EVALUATION_MAX_DELAY GNUNET_TIME_relative_multiply (GNUNET_TIME_UNIT_HOURS, 1)
151 * Maximum frequency for re-evaluating latencies for connected addresses.
153 #define CONNECTED_LATENCY_EVALUATION_MAX_DELAY GNUNET_TIME_relative_multiply (GNUNET_TIME_UNIT_MINUTES, 1)
155 #define VERY_BIG_DOUBLE_VALUE 100000000000LL
158 #define ATS_Q_UPDATED 1
159 #define ATS_C_UPDATED 2
160 #define ATS_QC_UPDATED 3
161 #define ATS_UNMODIFIED 4
164 * List of addresses of other peers
166 struct ForeignAddressList
169 * This is a linked list.
171 struct ForeignAddressList *next;
174 * Which ready list does this entry belong to.
176 struct ReadyList *ready_list;
179 * How long until we auto-expire this address (unless it is
180 * re-confirmed by the transport)?
182 struct GNUNET_TIME_Absolute expires;
185 * Task used to re-validate addresses, updates latencies and
188 GNUNET_SCHEDULER_TaskIdentifier revalidate_task;
196 * Session (or NULL if no valid session currently exists or if the
197 * plugin does not use sessions).
199 struct Session *session;
201 struct ATS_ressource_entry * ressources;
203 struct ATS_quality_entry * quality;
206 * What was the last latency observed for this address, plugin and peer?
208 struct GNUNET_TIME_Relative latency;
211 * If we did not successfully transmit a message to the given peer
212 * via this connection during the specified time, we should consider
213 * the connection to be dead. This is used in the case that a TCP
214 * transport simply stalls writing to the stream but does not
215 * formerly get a signal that the other peer died.
217 struct GNUNET_TIME_Absolute timeout;
220 * How often have we tried to connect using this plugin? Used to
221 * discriminate against addresses that do not work well.
222 * FIXME: not yet used, but should be!
224 unsigned int connect_attempts;
227 * DV distance to this peer (1 if no DV is used).
228 * FIXME: need to set this from transport plugins!
238 * Have we ever estimated the latency of this address? Used to
239 * ensure that the first time we add an address, we immediately
245 * Are we currently connected via this address? The first time we
246 * successfully transmit or receive data to a peer via a particular
247 * address, we set this to GNUNET_YES. If we later get an error
248 * (disconnect notification, transmission failure, timeout), we set
249 * it back to GNUNET_NO.
254 * Is this plugin currently busy transmitting to the specific target?
255 * GNUNET_NO if not (initial, default state is GNUNET_NO). Internal
256 * messages do not count as 'in transmit'.
261 * Has this address been validated yet?
269 * Entry in linked list of network addresses for ourselves. Also
270 * includes a cached signature for 'struct TransportPongMessage's.
272 struct OwnAddressList
275 * This is a linked list.
277 struct OwnAddressList *next;
280 * How long until we actually auto-expire this address (unless it is
281 * re-confirmed by the transport)?
283 struct GNUNET_TIME_Absolute expires;
286 * How long until the current signature expires? (ZERO if the
287 * signature was never created).
289 struct GNUNET_TIME_Absolute pong_sig_expires;
292 * Signature for a 'struct TransportPongMessage' for this address.
294 struct GNUNET_CRYPTO_RsaSignature pong_signature;
305 * Entry in linked list of all of our plugins.
307 struct TransportPlugin
311 * This is a linked list.
313 struct TransportPlugin *next;
316 * API of the transport as returned by the plugin's
317 * initialization function.
319 struct GNUNET_TRANSPORT_PluginFunctions *api;
322 * Short name for the plugin (i.e. "tcp").
327 * Name of the library (i.e. "gnunet_plugin_transport_tcp").
332 * List of our known addresses for this transport.
334 struct OwnAddressList *addresses;
337 * Environment this transport service is using
340 struct GNUNET_TRANSPORT_PluginEnvironment env;
343 * ID of task that is used to clean up expired addresses.
345 GNUNET_SCHEDULER_TaskIdentifier address_update_task;
348 * Set to GNUNET_YES if we need to scrap the existing list of
349 * "addresses" and start fresh when we receive the next address
350 * update from a transport. Set to GNUNET_NO if we should just add
351 * the new address to the list and wait for the commit call.
355 struct ATS_plugin * rc;
358 * Hashmap of blacklisted peers for this particular transport.
360 struct GNUNET_CONTAINER_MultiHashMap *blacklist;
363 struct NeighbourList;
366 * For each neighbour we keep a list of messages
367 * that we still want to transmit to the neighbour.
373 * This is a doubly linked list.
375 struct MessageQueue *next;
378 * This is a doubly linked list.
380 struct MessageQueue *prev;
383 * The message(s) we want to transmit, GNUNET_MessageHeader(s)
384 * stuck together in memory. Allocated at the end of this struct.
386 const char *message_buf;
389 * Size of the message buf
391 size_t message_buf_size;
394 * Client responsible for queueing the message;
395 * used to check that a client has no two messages
396 * pending for the same target. Can be NULL.
398 struct TransportClient *client;
401 * Using which specific address should we send this message?
403 struct ForeignAddressList *specific_address;
406 * Peer ID of the Neighbour this entry belongs to.
408 struct GNUNET_PeerIdentity neighbour_id;
411 * Plugin that we used for the transmission.
412 * NULL until we scheduled a transmission.
414 struct TransportPlugin *plugin;
417 * At what time should we fail?
419 struct GNUNET_TIME_Absolute timeout;
422 * Internal message of the transport system that should not be
423 * included in the usual SEND-SEND_OK transmission confirmation
424 * traffic management scheme. Typically, "internal_msg" will
425 * be set whenever "client" is NULL (but it is not strictly
431 * How important is the message?
433 unsigned int priority;
439 * For a given Neighbour, which plugins are available
440 * to talk to this peer and what are their costs?
445 * This is a linked list.
447 struct ReadyList *next;
450 * Which of our transport plugins does this entry
453 struct TransportPlugin *plugin;
456 * Transport addresses, latency, and readiness for
457 * this particular plugin.
459 struct ForeignAddressList *addresses;
462 * To which neighbour does this ready list belong to?
464 struct NeighbourList *neighbour;
469 * Entry in linked list of all of our current neighbours.
475 * This is a linked list.
477 struct NeighbourList *next;
480 * Which of our transports is connected to this peer
481 * and what is their status?
483 struct ReadyList *plugins;
486 * Head of list of messages we would like to send to this peer;
487 * must contain at most one message per client.
489 struct MessageQueue *messages_head;
492 * Tail of list of messages we would like to send to this peer; must
493 * contain at most one message per client.
495 struct MessageQueue *messages_tail;
498 * Buffer for at most one payload message used when we receive
499 * payload data before our PING-PONG has succeeded. We then
500 * store such messages in this intermediary buffer until the
501 * connection is fully up.
503 struct GNUNET_MessageHeader *pre_connect_message_buffer;
506 * Context for peerinfo iteration.
507 * NULL after we are done processing peerinfo's information.
509 struct GNUNET_PEERINFO_IteratorContext *piter;
512 * Public key for this peer. Valid only if the respective flag is set below.
514 struct GNUNET_CRYPTO_RsaPublicKeyBinaryEncoded publicKey;
517 * Identity of this neighbour.
519 struct GNUNET_PeerIdentity id;
522 * ID of task scheduled to run when this peer is about to
523 * time out (will free resources associated with the peer).
525 GNUNET_SCHEDULER_TaskIdentifier timeout_task;
528 * ID of task scheduled to run when we should retry transmitting
529 * the head of the message queue. Actually triggered when the
530 * transmission is timing out (we trigger instantly when we have
531 * a chance of success).
533 GNUNET_SCHEDULER_TaskIdentifier retry_task;
536 * How long until we should consider this peer dead
537 * (if we don't receive another message in the
540 struct GNUNET_TIME_Absolute peer_timeout;
543 * Tracker for inbound bandwidth.
545 struct GNUNET_BANDWIDTH_Tracker in_tracker;
548 * The latency we have seen for this particular address for
549 * this particular peer. This latency may have been calculated
550 * over multiple transports. This value reflects how long it took
551 * us to receive a response when SENDING via this particular
552 * transport/neighbour/address combination!
554 * FIXME: we need to periodically send PINGs to update this
555 * latency (at least more often than the current "huge" (11h?)
558 struct GNUNET_TIME_Relative latency;
561 * How often has the other peer (recently) violated the
562 * inbound traffic limit? Incremented by 10 per violation,
563 * decremented by 1 per non-violation (for each
566 unsigned int quota_violation_count;
569 * DV distance to this peer (1 if no DV is used).
574 * Have we seen an PONG from this neighbour in the past (and
575 * not had a disconnect since)?
580 * Do we have a valid public key for this neighbour?
582 int public_key_valid;
585 * Performance data for the peer.
587 struct GNUNET_TRANSPORT_ATS_Information *ats;
590 * Identity of the neighbour.
592 struct GNUNET_PeerIdentity peer;
597 * Message used to ask a peer to validate receipt (to check an address
598 * from a HELLO). Followed by the address we are trying to validate,
599 * or an empty address if we are just sending a PING to confirm that a
600 * connection which the receiver (of the PING) initiated is still valid.
602 struct TransportPingMessage
606 * Type will be GNUNET_MESSAGE_TYPE_TRANSPORT_PING
608 struct GNUNET_MessageHeader header;
611 * Challenge code (to ensure fresh reply).
613 uint32_t challenge GNUNET_PACKED;
616 * Who is the intended recipient?
618 struct GNUNET_PeerIdentity target;
624 * Message used to validate a HELLO. The challenge is included in the
625 * confirmation to make matching of replies to requests possible. The
626 * signature signs our public key, an expiration time and our address.<p>
628 * This message is followed by our transport address that the PING tried
629 * to confirm (if we liked it). The address can be empty (zero bytes)
630 * if the PING had not address either (and we received the request via
631 * a connection that we initiated).
633 struct TransportPongMessage
637 * Type will be GNUNET_MESSAGE_TYPE_TRANSPORT_PONG
639 struct GNUNET_MessageHeader header;
642 * Challenge code from PING (showing freshness). Not part of what
643 * is signed so that we can re-use signatures.
645 uint32_t challenge GNUNET_PACKED;
650 struct GNUNET_CRYPTO_RsaSignature signature;
653 * What are we signing and why? Two possible reason codes can be here:
654 * GNUNET_SIGNATURE_PURPOSE_TRANSPORT_PONG_OWN to confirm that this is a
655 * plausible address for this peer (pid is set to identity of signer); or
656 * GNUNET_SIGNATURE_PURPOSE_TRANSPORT_PONG_USING to confirm that this is
657 * an address we used to connect to the peer with the given pid.
659 struct GNUNET_CRYPTO_RsaSignaturePurpose purpose;
662 * When does this signature expire?
664 struct GNUNET_TIME_AbsoluteNBO expiration;
667 * Either the identity of the peer Who signed this message, or the
668 * identity of the peer that we're connected to using the given
669 * address (depending on purpose.type).
671 struct GNUNET_PeerIdentity pid;
674 * Size of address appended to this message (part of what is
675 * being signed, hence not redundant).
683 * Linked list of messages to be transmitted to the client. Each
684 * entry is followed by the actual message.
686 struct ClientMessageQueueEntry
689 * This is a doubly-linked list.
691 struct ClientMessageQueueEntry *next;
694 * This is a doubly-linked list.
696 struct ClientMessageQueueEntry *prev;
701 * Client connected to the transport service.
703 struct TransportClient
707 * This is a linked list.
709 struct TransportClient *next;
712 * Handle to the client.
714 struct GNUNET_SERVER_Client *client;
717 * Linked list of messages yet to be transmitted to
720 struct ClientMessageQueueEntry *message_queue_head;
723 * Tail of linked list of messages yet to be transmitted to the
726 struct ClientMessageQueueEntry *message_queue_tail;
729 * Current transmit request handle.
731 struct GNUNET_CONNECTION_TransmitHandle *th;
734 * Is a call to "transmit_send_continuation" pending? If so, we
735 * must not free this struct (even if the corresponding client
736 * disconnects) and instead only remove it from the linked list and
737 * set the "client" field to NULL.
742 * Length of the list of messages pending for this client.
744 unsigned int message_count;
750 * Context of currently active requests to peerinfo
751 * for validation of HELLOs.
753 struct CheckHelloValidatedContext;
757 * Entry in map of all HELLOs awaiting validation.
759 struct ValidationEntry
763 * NULL if this entry is not part of a larger HELLO validation.
765 struct CheckHelloValidatedContext *chvc;
768 * The address, actually a pointer to the end
769 * of this struct. Do not free!
774 * Name of the transport.
776 char *transport_name;
779 * The public key of the peer.
781 struct GNUNET_CRYPTO_RsaPublicKeyBinaryEncoded publicKey;
784 * ID of task that will clean up this entry if we don't succeed
785 * with the validation first.
787 GNUNET_SCHEDULER_TaskIdentifier timeout_task;
790 * At what time did we send this validation?
792 struct GNUNET_TIME_Absolute send_time;
795 * Session being validated (or NULL for none).
797 struct Session *session;
800 * Challenge number we used.
813 * Context of currently active requests to peerinfo
814 * for validation of HELLOs.
816 struct CheckHelloValidatedContext
820 * This is a doubly-linked list.
822 struct CheckHelloValidatedContext *next;
825 * This is a doubly-linked list.
827 struct CheckHelloValidatedContext *prev;
830 * Hello that we are validating.
832 const struct GNUNET_HELLO_Message *hello;
835 * Context for peerinfo iteration.
836 * NULL after we are done processing peerinfo's information.
838 struct GNUNET_PEERINFO_IteratorContext *piter;
841 * Was a HELLO known for this peer to peerinfo?
846 * Number of validation entries currently referring to this
849 unsigned int ve_count;
852 struct ATS_quality_metric
861 struct ATS_mechanism * prev;
862 struct ATS_mechanism * next;
863 struct ForeignAddressList * addr;
864 struct TransportPlugin * plugin;
865 struct ATS_peer * peer;
868 struct ATS_ressource_cost * rc;
874 struct GNUNET_PeerIdentity peer;
875 struct NeighbourList * n;
876 struct ATS_mechanism * m_head;
877 struct ATS_mechanism * m_tail;
879 /* preference value f */
887 * result of last GLPK run
893 * Ressource costs or quality metrics changed
894 * update problem before solving
896 int modified_resources;
899 * Ressource costs or quality metrics changed, update matrix
900 * update problem before solving
902 int modified_quality;
905 * Peers have connected or disconnected
906 * problem has to be recreated
908 int recreate_problem;
911 * Was the available basis invalid and we needed to rerun simplex?
913 int simplex_rerun_required;
916 * is problem currently valid and can it be solved
921 * Number of transport mechanisms in the problem
926 * Number of transport mechanisms in the problem
931 * row index where quality related rows start
936 * row index where quality related rows end
941 * row index where ressource cost related rows start
946 * row index where ressource cost related rows end
951 * column index for objective function value d
956 * column index for objective function value u
961 * column index for objective function value r
966 * column index for objective function value quality metrics
971 * column index for objective function value cost ressources
976 struct ATS_ressource_entry
978 /* index in ressources array */
980 /* depending ATSi parameter to calculcate limits */
989 /* index in ressources array */
991 /* depending ATSi parameter to calculcate limits */
993 /* cfg option to load limits */
1000 /* cofficients for the specific plugins */
1010 static struct ATS_ressource ressources[] =
1012 /* FIXME: the coefficients for the specific plugins */
1013 {1, 7, "LAN_BW_LIMIT", 0, VERY_BIG_DOUBLE_VALUE, 0, 1, 1, 2, 2, 1, 3},
1014 {2, 7, "WAN_BW_LIMIT", 0, VERY_BIG_DOUBLE_VALUE, 0, 1, 1, 2, 2, 2, 3},
1015 {3, 4, "WLAN_ENERGY_LIMIT", 0, VERY_BIG_DOUBLE_VALUE, 0, 0, 0, 0, 0, 2, 1}
1017 {4, 4, "COST_ENERGY_CONSUMPTION", VERY_BIG_DOUBLE_VALUE},
1018 {5, 5, "COST_CONNECT", VERY_BIG_DOUBLE_VALUE},
1019 {6, 6, "COST_BANDWITH_AVAILABLE", VERY_BIG_DOUBLE_VALUE},
1020 {7, 7, "COST_NETWORK_OVERHEAD", VERY_BIG_DOUBLE_VALUE},*/
1023 static int available_ressources = 3;
1031 * Time of last execution
1033 struct GNUNET_TIME_Absolute last;
1035 * Minimum intervall between two executions
1037 struct GNUNET_TIME_Relative min_delta;
1039 * Regular intervall when execution is triggered
1041 struct GNUNET_TIME_Relative exec_interval;
1043 * Maximum execution time per calculation
1045 struct GNUNET_TIME_Relative max_exec_duration;
1049 * GLPK (MLP) problem object
1055 * task to recalculate the bandwidth assignment
1057 GNUNET_SCHEDULER_TaskIdentifier ats_task;
1060 * Current state of the GLPK problem
1062 struct ATS_stat stat;
1065 * mechanisms used in current problem
1066 * needed for problem modification
1068 struct ATS_mechanism * mechanisms;
1071 * peers used in current problem
1072 * needed for problem modification
1074 struct ATS_peer * peers;
1077 * number of successful executions
1079 int successful_executions;
1082 * number with an invalid result
1084 int invalid_executions;
1087 * Maximum number of LP iterations per calculation
1092 * Dump problem to a file?
1097 * Dump solution to a file
1102 * Dump solution when minimum peers:
1107 * Dump solution when minimum addresses:
1112 * Dump solution overwrite file:
1132 * Minimum bandwidth per peer
1137 * Minimum number of connections per peer
1144 * Our HELLO message.
1146 static struct GNUNET_HELLO_Message *our_hello;
1151 static struct GNUNET_CRYPTO_RsaPublicKeyBinaryEncoded my_public_key;
1156 static struct GNUNET_PeerIdentity my_identity;
1161 static struct GNUNET_CRYPTO_RsaPrivateKey *my_private_key;
1164 * Our configuration.
1166 const struct GNUNET_CONFIGURATION_Handle *cfg;
1169 * Linked list of all clients to this service.
1171 static struct TransportClient *clients;
1174 * All loaded plugins.
1176 static struct TransportPlugin *plugins;
1179 * Handle to peerinfo service.
1181 static struct GNUNET_PEERINFO_Handle *peerinfo;
1184 * All known neighbours and their HELLOs.
1186 static struct NeighbourList *neighbours;
1189 * Number of neighbours we'd like to have.
1191 static uint32_t max_connect_per_transport;
1194 * Head of linked list.
1196 static struct CheckHelloValidatedContext *chvc_head;
1199 * Tail of linked list.
1201 static struct CheckHelloValidatedContext *chvc_tail;
1204 * Map of PeerIdentities to 'struct ValidationEntry*'s (addresses
1205 * of the given peer that we are currently validating).
1207 static struct GNUNET_CONTAINER_MultiHashMap *validation_map;
1210 * Handle for reporting statistics.
1212 static struct GNUNET_STATISTICS_Handle *stats;
1215 * Is transport service shutting down ?
1217 static int shutdown_in_progress;
1220 * Handle for ats information
1222 static struct ATS_info *ats;
1224 struct ATS_quality_entry
1232 static struct ATS_quality_metric qm[] =
1234 {1, 1028, "QUALITY_NET_DISTANCE"},
1235 {2, 1034, "QUALITY_NET_DELAY"},
1237 static int available_quality_metrics = 2;
1241 * The peer specified by the given neighbour has timed-out or a plugin
1242 * has disconnected. We may either need to do nothing (other plugins
1243 * still up), or trigger a full disconnect and clean up. This
1244 * function updates our state and do the necessary notifications.
1245 * Also notifies our clients that the neighbour is now officially
1248 * @param n the neighbour list entry for the peer
1249 * @param check should we just check if all plugins
1250 * disconnected or must we ask all plugins to
1253 static void disconnect_neighbour (struct NeighbourList *n, int check);
1256 * Check the ready list for the given neighbour and if a plugin is
1257 * ready for transmission (and if we have a message), do so!
1259 * @param nexi target peer for which to transmit
1261 static void try_transmission_to_peer (struct NeighbourList *n);
1263 static void ats_shutdown ( );
1265 static void ats_notify_peer_connect (
1266 const struct GNUNET_PeerIdentity *peer,
1267 const struct GNUNET_TRANSPORT_ATS_Information *ats_data, int ats_count);
1269 static void ats_notify_peer_disconnect (
1270 const struct GNUNET_PeerIdentity *peer);
1273 static void ats_notify_ats_data (
1274 const struct GNUNET_PeerIdentity *peer,
1275 const struct GNUNET_TRANSPORT_ATS_Information *ats_data);
1278 struct ForeignAddressList * ats_get_preferred_address (
1279 struct NeighbourList *n);
1282 ats_calculate_bandwidth_distribution ();
1285 * Find an entry in the neighbour list for a particular peer.
1287 * @return NULL if not found.
1289 static struct NeighbourList *
1290 find_neighbour (const struct GNUNET_PeerIdentity *key)
1292 struct NeighbourList *head = neighbours;
1294 while ((head != NULL) &&
1295 (0 != memcmp (key, &head->id, sizeof (struct GNUNET_PeerIdentity))))
1300 static int update_addr_value (struct ForeignAddressList *fal, uint32_t value , int ats_index)
1303 int set = GNUNET_NO;
1304 for (c=0; c<available_quality_metrics; c++)
1306 if (ats_index == qm[c].atis_index)
1308 fal->quality[c].values[0] = fal->quality[c].values[1];
1309 fal->quality[c].values[1] = fal->quality[c].values[2];
1310 fal->quality[c].values[2] = value;
1312 ats->stat.modified_quality = GNUNET_YES;
1315 if (set == GNUNET_NO)
1317 for (c=0; c<available_ressources; c++)
1319 if (ats_index == ressources[c].atis_index)
1321 fal->ressources[c].c = value;
1323 ats->stat.modified_resources = GNUNET_YES;
1332 update_addr_ats (struct ForeignAddressList *fal,
1333 const struct GNUNET_TRANSPORT_ATS_Information *ats_data,
1338 for (c1=0; c1<ats_count; c1++)
1340 set = update_addr_value(fal, ntohl(ats_data[c1].value), ntohl(ats_data[c1].type));
1346 * Find an entry in the transport list for a particular transport.
1348 * @return NULL if not found.
1350 static struct TransportPlugin *
1351 find_transport (const char *short_name)
1353 struct TransportPlugin *head = plugins;
1354 while ((head != NULL) && (0 != strcmp (short_name, head->short_name)))
1360 * Is a particular peer blacklisted for a particular transport?
1362 * @param peer the peer to check for
1363 * @param plugin the plugin used to connect to the peer
1365 * @return GNUNET_YES if the peer is blacklisted, GNUNET_NO if not
1368 is_blacklisted (const struct GNUNET_PeerIdentity *peer, struct TransportPlugin *plugin)
1371 if (plugin->blacklist != NULL)
1373 if (GNUNET_CONTAINER_multihashmap_contains (plugin->blacklist, &peer->hashPubKey) == GNUNET_YES)
1376 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
1377 "Peer `%s:%s' is blacklisted!\n",
1378 plugin->short_name, GNUNET_i2s (peer));
1381 GNUNET_STATISTICS_update (stats, "# blacklisted peers refused", 1, GNUNET_NO);
1391 add_peer_to_blacklist (struct GNUNET_PeerIdentity *peer,
1392 char *transport_name)
1394 struct TransportPlugin *plugin;
1396 plugin = find_transport(transport_name);
1397 if (plugin == NULL) /* Nothing to do */
1400 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
1401 "Adding peer `%s' with plugin `%s' to blacklist\n",
1405 if (plugin->blacklist == NULL)
1406 plugin->blacklist = GNUNET_CONTAINER_multihashmap_create(TRANSPORT_BLACKLIST_HT_SIZE);
1407 GNUNET_assert(plugin->blacklist != NULL);
1408 GNUNET_CONTAINER_multihashmap_put(plugin->blacklist, &peer->hashPubKey,
1410 GNUNET_CONTAINER_MULTIHASHMAPOPTION_REPLACE);
1415 * Read the blacklist file, containing transport:peer entries.
1416 * Provided the transport is loaded, set up hashmap with these
1417 * entries to blacklist peers by transport.
1421 read_blacklist_file (const struct GNUNET_CONFIGURATION_Handle *cfg)
1428 struct GNUNET_PeerIdentity pid;
1430 struct GNUNET_CRYPTO_HashAsciiEncoded enc;
1431 unsigned int entries_found;
1432 char *transport_name;
1435 GNUNET_CONFIGURATION_get_value_filename (cfg,
1441 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
1442 "Option `%s' in section `%s' not specified!\n",
1448 if (GNUNET_OK != GNUNET_DISK_file_test (fn))
1449 GNUNET_DISK_fn_write (fn, NULL, 0, GNUNET_DISK_PERM_USER_READ
1450 | GNUNET_DISK_PERM_USER_WRITE);
1451 if (0 != STAT (fn, &frstat))
1453 GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
1454 _("Could not read blacklist file `%s'\n"), fn);
1458 if (frstat.st_size == 0)
1461 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
1462 _("Blacklist file `%s' is empty.\n"),
1468 /* FIXME: use mmap */
1469 data = GNUNET_malloc_large (frstat.st_size);
1470 GNUNET_assert(data != NULL);
1471 if (frstat.st_size !=
1472 GNUNET_DISK_fn_read (fn, data, frstat.st_size))
1474 GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
1475 _("Failed to read blacklist from `%s'\n"), fn);
1482 while ((pos < frstat.st_size) && isspace ( (unsigned char) data[pos]))
1484 while ((frstat.st_size >= sizeof (struct GNUNET_CRYPTO_HashAsciiEncoded)) &&
1485 (pos <= frstat.st_size - sizeof (struct GNUNET_CRYPTO_HashAsciiEncoded)))
1488 while ((colon_pos < frstat.st_size) && (data[colon_pos] != ':') && !isspace ( (unsigned char) data[colon_pos]))
1491 if (colon_pos >= frstat.st_size)
1493 GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
1494 _("Syntax error in blacklist file at offset %llu, giving up!\n"),
1495 (unsigned long long) colon_pos);
1501 if (isspace( (unsigned char) data[colon_pos]))
1503 GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
1504 _("Syntax error in blacklist file at offset %llu, skipping bytes.\n"),
1505 (unsigned long long) colon_pos);
1507 while ((pos < frstat.st_size) && isspace ( (unsigned char) data[pos]))
1511 tsize = colon_pos - pos;
1512 if ((pos >= frstat.st_size) || (pos + tsize >= frstat.st_size) || (tsize == 0))
1514 GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
1515 _("Syntax error in blacklist file at offset %llu, giving up!\n"),
1516 (unsigned long long) colon_pos);
1525 transport_name = GNUNET_malloc(tsize + 1);
1526 memcpy(transport_name, &data[pos], tsize);
1527 pos = colon_pos + 1;
1529 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
1530 "Read transport name %s in blacklist file.\n",
1533 memcpy (&enc, &data[pos], sizeof (struct GNUNET_CRYPTO_HashAsciiEncoded));
1534 if (!isspace ( (unsigned char) enc.encoding[sizeof (struct GNUNET_CRYPTO_HashAsciiEncoded) - 1]))
1536 GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
1537 _("Syntax error in blacklist file at offset %llu, skipping bytes.\n"),
1538 (unsigned long long) pos);
1540 while ((pos < frstat.st_size) && (!isspace ( (unsigned char) data[pos])))
1542 GNUNET_free_non_null(transport_name);
1545 enc.encoding[sizeof (struct GNUNET_CRYPTO_HashAsciiEncoded) - 1] = '\0';
1546 if (GNUNET_OK != GNUNET_CRYPTO_hash_from_string ((char *) &enc, &pid.hashPubKey))
1548 GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
1549 _("Syntax error in blacklist file at offset %llu, skipping bytes `%s'.\n"),
1550 (unsigned long long) pos,
1555 if (0 != memcmp (&pid,
1557 sizeof (struct GNUNET_PeerIdentity)))
1560 add_peer_to_blacklist (&pid,
1565 GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
1566 _("Found myself `%s' in blacklist (useless, ignored)\n"),
1570 pos = pos + sizeof (struct GNUNET_CRYPTO_HashAsciiEncoded);
1571 GNUNET_free_non_null(transport_name);
1572 while ((pos < frstat.st_size) && isspace ( (unsigned char) data[pos]))
1575 GNUNET_STATISTICS_update (stats, "# Transport entries blacklisted", entries_found, GNUNET_NO);
1582 * Function called to notify a client about the socket being ready to
1583 * queue more data. "buf" will be NULL and "size" zero if the socket
1584 * was closed for writing in the meantime.
1586 * @param cls closure
1587 * @param size number of bytes available in buf
1588 * @param buf where the callee should write the message
1589 * @return number of bytes written to buf
1592 transmit_to_client_callback (void *cls, size_t size, void *buf)
1594 struct TransportClient *client = cls;
1595 struct ClientMessageQueueEntry *q;
1598 const struct GNUNET_MessageHeader *msg;
1605 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
1606 "Transmission to client failed, closing connection.\n");
1608 /* fatal error with client, free message queue! */
1609 while (NULL != (q = client->message_queue_head))
1611 GNUNET_STATISTICS_update (stats,
1612 gettext_noop ("# bytes discarded (could not transmit to client)"),
1613 ntohs (((const struct GNUNET_MessageHeader*)&q[1])->size),
1615 GNUNET_CONTAINER_DLL_remove (client->message_queue_head,
1616 client->message_queue_tail,
1620 client->message_count = 0;
1625 while (NULL != (q = client->message_queue_head))
1627 msg = (const struct GNUNET_MessageHeader *) &q[1];
1628 msize = ntohs (msg->size);
1629 if (msize + tsize > size)
1632 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
1633 "Transmitting message of type %u to client.\n",
1636 GNUNET_CONTAINER_DLL_remove (client->message_queue_head,
1637 client->message_queue_tail,
1639 memcpy (&cbuf[tsize], msg, msize);
1642 client->message_count--;
1646 GNUNET_assert (msize >= sizeof (struct GNUNET_MessageHeader));
1647 client->th = GNUNET_SERVER_notify_transmit_ready (client->client,
1649 GNUNET_TIME_UNIT_FOREVER_REL,
1650 &transmit_to_client_callback,
1652 GNUNET_assert (client->th != NULL);
1659 * Convert an address to a string.
1661 * @param plugin name of the plugin responsible for the address
1662 * @param addr binary address
1663 * @param addr_len number of bytes in addr
1664 * @return NULL on error, otherwise address string
1667 a2s (const char *plugin,
1671 struct TransportPlugin *p;
1675 p = find_transport (plugin);
1676 if ((p == NULL) || (addr_len == 0) || (addr == NULL))
1678 return p->api->address_to_string (p->api->cls,
1685 * Mark the given FAL entry as 'connected' (and hence preferred for
1686 * sending); also mark all others for the same peer as 'not connected'
1687 * (since only one can be preferred).
1689 * @param fal address to set to 'connected'
1692 mark_address_connected (struct ForeignAddressList *fal)
1694 struct ForeignAddressList *pos;
1697 GNUNET_assert (GNUNET_YES == fal->validated);
1698 if (fal->connected == GNUNET_YES)
1699 return; /* nothing to do */
1701 pos = fal->ready_list->addresses;
1704 if (GNUNET_YES == pos->connected)
1707 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
1708 "Marking address `%s' as no longer connected (due to connect on other address)\n",
1709 a2s (pos->ready_list->plugin->short_name,
1713 GNUNET_break (cnt == GNUNET_YES);
1715 pos->connected = GNUNET_NO;
1716 GNUNET_STATISTICS_update (stats,
1717 gettext_noop ("# connected addresses"),
1723 fal->connected = GNUNET_YES;
1724 if (GNUNET_YES == cnt)
1726 GNUNET_STATISTICS_update (stats,
1727 gettext_noop ("# connected addresses"),
1735 * Send the specified message to the specified client. Since multiple
1736 * messages may be pending for the same client at a time, this code
1737 * makes sure that no message is lost.
1739 * @param client client to transmit the message to
1740 * @param msg the message to send
1741 * @param may_drop can this message be dropped if the
1742 * message queue for this client is getting far too large?
1745 transmit_to_client (struct TransportClient *client,
1746 const struct GNUNET_MessageHeader *msg, int may_drop)
1748 struct ClientMessageQueueEntry *q;
1751 if ((client->message_count >= MAX_PENDING) && (GNUNET_YES == may_drop))
1753 GNUNET_log (GNUNET_ERROR_TYPE_INFO,
1755 ("Dropping message of type %u and size %u, have %u messages pending (%u is the soft limit)\n"),
1758 client->message_count,
1760 GNUNET_STATISTICS_update (stats,
1761 gettext_noop ("# messages dropped due to slow client"),
1766 msize = ntohs (msg->size);
1767 GNUNET_assert (msize >= sizeof (struct GNUNET_MessageHeader));
1768 q = GNUNET_malloc (sizeof (struct ClientMessageQueueEntry) + msize);
1769 memcpy (&q[1], msg, msize);
1770 GNUNET_CONTAINER_DLL_insert_after (client->message_queue_head,
1771 client->message_queue_tail,
1772 client->message_queue_tail,
1774 client->message_count++;
1775 if (client->th == NULL)
1777 client->th = GNUNET_SERVER_notify_transmit_ready (client->client,
1779 GNUNET_TIME_UNIT_FOREVER_REL,
1780 &transmit_to_client_callback,
1782 GNUNET_assert (client->th != NULL);
1788 * Transmit a 'SEND_OK' notification to the given client for the
1791 * @param client who to notify
1792 * @param n neighbour to notify about, can be NULL (on failure)
1793 * @param target target of the transmission
1794 * @param result status code for the transmission request
1797 transmit_send_ok (struct TransportClient *client,
1798 struct NeighbourList *n,
1799 const struct GNUNET_PeerIdentity *target,
1802 struct SendOkMessage send_ok_msg;
1804 send_ok_msg.header.size = htons (sizeof (send_ok_msg));
1805 send_ok_msg.header.type = htons (GNUNET_MESSAGE_TYPE_TRANSPORT_SEND_OK);
1806 send_ok_msg.success = htonl (result);
1808 send_ok_msg.latency = GNUNET_TIME_relative_hton (n->latency);
1810 send_ok_msg.latency = GNUNET_TIME_relative_hton (GNUNET_TIME_UNIT_FOREVER_REL);
1811 send_ok_msg.peer = *target;
1812 transmit_to_client (client, &send_ok_msg.header, GNUNET_NO);
1817 * Function called by the GNUNET_TRANSPORT_TransmitFunction
1818 * upon "completion" of a send request. This tells the API
1819 * that it is now legal to send another message to the given
1822 * @param cls closure, identifies the entry on the
1823 * message queue that was transmitted and the
1824 * client responsible for queuing the message
1825 * @param target the peer receiving the message
1826 * @param result GNUNET_OK on success, if the transmission
1827 * failed, we should not tell the client to transmit
1831 transmit_send_continuation (void *cls,
1832 const struct GNUNET_PeerIdentity *target,
1835 struct MessageQueue *mq = cls;
1836 struct NeighbourList *n;
1838 GNUNET_STATISTICS_update (stats,
1839 gettext_noop ("# bytes pending with plugins"),
1840 - (int64_t) mq->message_buf_size,
1842 if (result == GNUNET_OK)
1844 GNUNET_STATISTICS_update (stats,
1845 gettext_noop ("# bytes successfully transmitted by plugins"),
1846 mq->message_buf_size,
1851 GNUNET_STATISTICS_update (stats,
1852 gettext_noop ("# bytes with transmission failure by plugins"),
1853 mq->message_buf_size,
1856 if (mq->specific_address != NULL)
1858 if (result == GNUNET_OK)
1860 mq->specific_address->timeout =
1861 GNUNET_TIME_relative_to_absolute
1862 (GNUNET_CONSTANTS_IDLE_CONNECTION_TIMEOUT);
1863 if (mq->specific_address->validated == GNUNET_YES)
1864 mark_address_connected (mq->specific_address);
1868 if (mq->specific_address->connected != GNUNET_NO)
1871 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
1872 "Marking address `%s' as no longer connected (due to transmission problem)\n",
1873 a2s (mq->specific_address->ready_list->plugin->short_name,
1874 mq->specific_address->addr,
1875 mq->specific_address->addrlen));
1877 GNUNET_STATISTICS_update (stats,
1878 gettext_noop ("# connected addresses"),
1881 mq->specific_address->connected = GNUNET_NO;
1884 if (! mq->internal_msg)
1885 mq->specific_address->in_transmit = GNUNET_NO;
1887 n = find_neighbour(&mq->neighbour_id);
1888 if (mq->client != NULL)
1889 transmit_send_ok (mq->client, n, target, result);
1892 try_transmission_to_peer (n);
1897 * Find an address in any of the available transports for
1898 * the given neighbour that would be good for message
1899 * transmission. This is essentially the transport selection
1902 * @param neighbour for whom to select an address
1903 * @return selected address, NULL if we have none
1905 struct ForeignAddressList *
1906 find_ready_address(struct NeighbourList *neighbour)
1908 struct ReadyList *head = neighbour->plugins;
1909 struct ForeignAddressList *addresses;
1910 struct GNUNET_TIME_Absolute now = GNUNET_TIME_absolute_get ();
1911 struct ForeignAddressList *best_address;
1913 /* Hack to prefer unix domain sockets */
1914 struct ForeignAddressList *unix_address = NULL;
1916 best_address = NULL;
1917 while (head != NULL)
1919 addresses = head->addresses;
1920 while (addresses != NULL)
1922 if ( (addresses->timeout.abs_value < now.abs_value) &&
1923 (addresses->connected == GNUNET_YES) )
1926 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
1927 "Marking long-time inactive connection to `%4s' as down.\n",
1928 GNUNET_i2s (&neighbour->id));
1930 GNUNET_STATISTICS_update (stats,
1931 gettext_noop ("# connected addresses"),
1934 addresses->connected = GNUNET_NO;
1936 addresses = addresses->next;
1939 addresses = head->addresses;
1940 while (addresses != NULL)
1942 #if DEBUG_TRANSPORT > 1
1943 if (addresses->addr != NULL)
1944 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
1945 "Have address `%s' for peer `%4s' (status: %d, %d, %d, %u, %llums, %u)\n",
1946 a2s (head->plugin->short_name,
1948 addresses->addrlen),
1949 GNUNET_i2s (&neighbour->id),
1950 addresses->connected,
1951 addresses->in_transmit,
1952 addresses->validated,
1953 addresses->connect_attempts,
1954 (unsigned long long) addresses->timeout.abs_value,
1955 (unsigned int) addresses->distance);
1957 if (0==strcmp(head->plugin->short_name,"unix"))
1959 if ((unix_address == NULL) || ((unix_address != NULL) &&
1960 (addresses->latency.rel_value < unix_address->latency.rel_value)))
1961 unix_address = addresses;
1963 if ( ( (best_address == NULL) ||
1964 (addresses->connected == GNUNET_YES) ||
1965 (best_address->connected == GNUNET_NO) ) &&
1966 (addresses->in_transmit == GNUNET_NO) &&
1967 ( (best_address == NULL) ||
1968 (addresses->latency.rel_value < best_address->latency.rel_value)) )
1969 best_address = addresses;
1970 /* FIXME: also give lower-latency addresses that are not
1971 connected a chance some times... */
1972 addresses = addresses->next;
1974 if (unix_address != NULL)
1978 if (unix_address != NULL)
1980 best_address = unix_address;
1982 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
1983 "Found UNIX address, forced this address\n");
1986 if (best_address != NULL)
1989 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
1990 "Best address found (`%s') has latency of %llu ms.\n",
1991 (best_address->addrlen > 0)
1992 ? a2s (best_address->ready_list->plugin->short_name,
1994 best_address->addrlen)
1996 best_address->latency.rel_value);
2001 GNUNET_STATISTICS_update (stats,
2002 gettext_noop ("# transmission attempts failed (no address)"),
2007 return best_address;
2013 * We should re-try transmitting to the given peer,
2014 * hopefully we've learned something in the meantime.
2017 retry_transmission_task (void *cls,
2018 const struct GNUNET_SCHEDULER_TaskContext *tc)
2020 struct NeighbourList *n = cls;
2022 n->retry_task = GNUNET_SCHEDULER_NO_TASK;
2023 try_transmission_to_peer (n);
2028 * Check the ready list for the given neighbour and if a plugin is
2029 * ready for transmission (and if we have a message), do so!
2031 * @param neighbour target peer for which to transmit
2034 try_transmission_to_peer (struct NeighbourList *n)
2036 struct ReadyList *rl;
2037 struct MessageQueue *mq;
2038 struct GNUNET_TIME_Relative timeout;
2042 if (n->messages_head == NULL)
2045 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
2046 "Transmission queue for `%4s' is empty\n",
2047 GNUNET_i2s (&n->id));
2049 return; /* nothing to do */
2052 mq = n->messages_head;
2053 force_address = GNUNET_YES;
2054 if (mq->specific_address == NULL)
2057 mq->specific_address = ats_get_preferred_address(n);
2058 GNUNET_STATISTICS_update (stats,
2059 gettext_noop ("# transport selected peer address freely"),
2062 force_address = GNUNET_NO;
2064 if (mq->specific_address == NULL)
2066 GNUNET_STATISTICS_update (stats,
2067 gettext_noop ("# transport failed to selected peer address"),
2070 timeout = GNUNET_TIME_absolute_get_remaining (mq->timeout);
2071 if (timeout.rel_value == 0)
2074 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
2075 "No destination address available to transmit message of size %u to peer `%4s'\n",
2076 mq->message_buf_size,
2077 GNUNET_i2s (&mq->neighbour_id));
2079 GNUNET_STATISTICS_update (stats,
2080 gettext_noop ("# bytes in message queue for other peers"),
2081 - (int64_t) mq->message_buf_size,
2083 GNUNET_STATISTICS_update (stats,
2084 gettext_noop ("# bytes discarded (no destination address available)"),
2085 mq->message_buf_size,
2087 if (mq->client != NULL)
2088 transmit_send_ok (mq->client, n, &n->id, GNUNET_NO);
2089 GNUNET_CONTAINER_DLL_remove (n->messages_head,
2093 return; /* nobody ready */
2095 GNUNET_STATISTICS_update (stats,
2096 gettext_noop ("# message delivery deferred (no address)"),
2099 if (n->retry_task != GNUNET_SCHEDULER_NO_TASK)
2100 GNUNET_SCHEDULER_cancel (n->retry_task);
2101 n->retry_task = GNUNET_SCHEDULER_add_delayed (timeout,
2102 &retry_transmission_task,
2105 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
2106 "No validated destination address available to transmit message of size %u to peer `%4s', will wait %llums to find an address.\n",
2107 mq->message_buf_size,
2108 GNUNET_i2s (&mq->neighbour_id),
2111 /* FIXME: might want to trigger peerinfo lookup here
2112 (unless that's already pending...) */
2115 GNUNET_CONTAINER_DLL_remove (n->messages_head,
2118 if (mq->specific_address->connected == GNUNET_NO)
2119 mq->specific_address->connect_attempts++;
2120 rl = mq->specific_address->ready_list;
2121 mq->plugin = rl->plugin;
2122 if (!mq->internal_msg)
2123 mq->specific_address->in_transmit = GNUNET_YES;
2125 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
2126 "Sending message of size %u for `%4s' to `%s' via plugin `%s'\n",
2127 mq->message_buf_size,
2128 GNUNET_i2s (&n->id),
2129 (mq->specific_address->addr != NULL)
2130 ? a2s (mq->plugin->short_name,
2131 mq->specific_address->addr,
2132 mq->specific_address->addrlen)
2134 rl->plugin->short_name);
2136 GNUNET_STATISTICS_update (stats,
2137 gettext_noop ("# bytes in message queue for other peers"),
2138 - (int64_t) mq->message_buf_size,
2140 GNUNET_STATISTICS_update (stats,
2141 gettext_noop ("# bytes pending with plugins"),
2142 mq->message_buf_size,
2144 ret = rl->plugin->api->send (rl->plugin->api->cls,
2147 mq->message_buf_size,
2149 GNUNET_CONSTANTS_IDLE_CONNECTION_TIMEOUT,
2150 mq->specific_address->session,
2151 mq->specific_address->addr,
2152 mq->specific_address->addrlen,
2154 &transmit_send_continuation, mq);
2157 /* failure, but 'send' would not call continuation in this case,
2158 so we need to do it here! */
2159 transmit_send_continuation (mq,
2167 * Send the specified message to the specified peer.
2169 * @param client source of the transmission request (can be NULL)
2170 * @param peer_address ForeignAddressList where we should send this message
2171 * @param priority how important is the message
2172 * @param timeout how long do we have to transmit?
2173 * @param message_buf message(s) to send GNUNET_MessageHeader(s)
2174 * @param message_buf_size total size of all messages in message_buf
2175 * @param is_internal is this an internal message; these are pre-pended and
2176 * also do not count for plugins being "ready" to transmit
2177 * @param neighbour handle to the neighbour for transmission
2180 transmit_to_peer (struct TransportClient *client,
2181 struct ForeignAddressList *peer_address,
2182 unsigned int priority,
2183 struct GNUNET_TIME_Relative timeout,
2184 const char *message_buf,
2185 size_t message_buf_size,
2186 int is_internal, struct NeighbourList *neighbour)
2188 struct MessageQueue *mq;
2193 /* check for duplicate submission */
2194 mq = neighbour->messages_head;
2197 if (mq->client == client)
2199 /* client transmitted to same peer twice
2200 before getting SEND_OK! */
2208 GNUNET_STATISTICS_update (stats,
2209 gettext_noop ("# bytes in message queue for other peers"),
2212 mq = GNUNET_malloc (sizeof (struct MessageQueue) + message_buf_size);
2213 mq->specific_address = peer_address;
2214 mq->client = client;
2215 /* FIXME: this memcpy can be up to 7% of our total runtime! */
2216 memcpy (&mq[1], message_buf, message_buf_size);
2217 mq->message_buf = (const char*) &mq[1];
2218 mq->message_buf_size = message_buf_size;
2219 memcpy(&mq->neighbour_id, &neighbour->id, sizeof(struct GNUNET_PeerIdentity));
2220 mq->internal_msg = is_internal;
2221 mq->priority = priority;
2222 mq->timeout = GNUNET_TIME_relative_to_absolute (timeout);
2224 GNUNET_CONTAINER_DLL_insert (neighbour->messages_head,
2225 neighbour->messages_tail,
2228 GNUNET_CONTAINER_DLL_insert_after (neighbour->messages_head,
2229 neighbour->messages_tail,
2230 neighbour->messages_tail,
2232 try_transmission_to_peer (neighbour);
2239 struct GeneratorContext
2241 struct TransportPlugin *plug_pos;
2242 struct OwnAddressList *addr_pos;
2243 struct GNUNET_TIME_Absolute expiration;
2251 address_generator (void *cls, size_t max, void *buf)
2253 struct GeneratorContext *gc = cls;
2256 while ((gc->addr_pos == NULL) && (gc->plug_pos != NULL))
2258 gc->plug_pos = gc->plug_pos->next;
2259 gc->addr_pos = (gc->plug_pos != NULL) ? gc->plug_pos->addresses : NULL;
2261 if (NULL == gc->plug_pos)
2266 ret = GNUNET_HELLO_add_address (gc->plug_pos->short_name,
2269 gc->addr_pos->addrlen, buf, max);
2270 gc->addr_pos = gc->addr_pos->next;
2276 * Construct our HELLO message from all of the addresses of
2277 * all of the transports.
2282 struct GNUNET_HELLO_Message *hello;
2283 struct TransportClient *cpos;
2284 struct NeighbourList *npos;
2285 struct GeneratorContext gc;
2287 gc.plug_pos = plugins;
2288 gc.addr_pos = plugins != NULL ? plugins->addresses : NULL;
2289 gc.expiration = GNUNET_TIME_relative_to_absolute (HELLO_ADDRESS_EXPIRATION);
2290 hello = GNUNET_HELLO_create (&my_public_key, &address_generator, &gc);
2292 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG | GNUNET_ERROR_TYPE_BULK,
2293 "Refreshed my `%s', new size is %d\n", "HELLO", GNUNET_HELLO_size(hello));
2295 GNUNET_STATISTICS_update (stats,
2296 gettext_noop ("# refreshed my HELLO"),
2300 while (cpos != NULL)
2302 transmit_to_client (cpos,
2303 (const struct GNUNET_MessageHeader *) hello,
2308 GNUNET_free_non_null (our_hello);
2310 GNUNET_PEERINFO_add_peer (peerinfo, our_hello);
2312 while (npos != NULL)
2315 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG | GNUNET_ERROR_TYPE_BULK,
2316 "Transmitting updated `%s' to neighbour `%4s'\n",
2317 "HELLO", GNUNET_i2s (&npos->id));
2319 GNUNET_STATISTICS_update (stats,
2320 gettext_noop ("# transmitted my HELLO to other peers"),
2323 transmit_to_peer (NULL, NULL, 0,
2324 HELLO_ADDRESS_EXPIRATION,
2325 (const char *) our_hello,
2326 GNUNET_HELLO_size(our_hello),
2334 * Task used to clean up expired addresses for a plugin.
2336 * @param cls closure
2340 expire_address_task (void *cls,
2341 const struct GNUNET_SCHEDULER_TaskContext *tc);
2345 * Update the list of addresses for this plugin,
2346 * expiring those that are past their expiration date.
2348 * @param plugin addresses of which plugin should be recomputed?
2349 * @param fresh set to GNUNET_YES if a new address was added
2350 * and we need to regenerate the HELLO even if nobody
2354 update_addresses (struct TransportPlugin *plugin,
2357 static struct GNUNET_TIME_Absolute last_update;
2358 struct GNUNET_TIME_Relative min_remaining;
2359 struct GNUNET_TIME_Relative remaining;
2360 struct GNUNET_TIME_Absolute now;
2361 struct OwnAddressList *pos;
2362 struct OwnAddressList *prev;
2363 struct OwnAddressList *next;
2366 if (plugin->address_update_task != GNUNET_SCHEDULER_NO_TASK)
2367 GNUNET_SCHEDULER_cancel (plugin->address_update_task);
2368 plugin->address_update_task = GNUNET_SCHEDULER_NO_TASK;
2369 now = GNUNET_TIME_absolute_get ();
2370 min_remaining = GNUNET_TIME_UNIT_FOREVER_REL;
2371 expired = (GNUNET_TIME_absolute_get_duration (last_update).rel_value > (HELLO_ADDRESS_EXPIRATION.rel_value / 4));
2373 pos = plugin->addresses;
2377 if (pos->expires.abs_value < now.abs_value)
2379 expired = GNUNET_YES;
2381 plugin->addresses = pos->next;
2383 prev->next = pos->next;
2388 remaining = GNUNET_TIME_absolute_get_remaining (pos->expires);
2389 if (remaining.rel_value < min_remaining.rel_value)
2390 min_remaining = remaining;
2396 if (expired || fresh)
2401 min_remaining = GNUNET_TIME_relative_min (min_remaining,
2402 GNUNET_TIME_relative_divide (HELLO_ADDRESS_EXPIRATION,
2404 plugin->address_update_task
2405 = GNUNET_SCHEDULER_add_delayed (min_remaining,
2406 &expire_address_task, plugin);
2411 * Task used to clean up expired addresses for a plugin.
2413 * @param cls closure
2417 expire_address_task (void *cls, const struct GNUNET_SCHEDULER_TaskContext *tc)
2419 struct TransportPlugin *plugin = cls;
2421 plugin->address_update_task = GNUNET_SCHEDULER_NO_TASK;
2422 if (0 == (tc->reason & GNUNET_SCHEDULER_REASON_SHUTDOWN))
2423 update_addresses (plugin, GNUNET_NO);
2428 * Iterator over hash map entries that NULLs the session of validation
2429 * entries that match the given session.
2431 * @param cls closure (the 'struct Session*' to match against)
2432 * @param key current key code (peer ID, not used)
2433 * @param value value in the hash map ('struct ValidationEntry*')
2434 * @return GNUNET_YES (we should continue to iterate)
2437 remove_session_validations (void *cls,
2438 const GNUNET_HashCode * key,
2441 struct Session *session = cls;
2442 struct ValidationEntry *ve = value;
2444 if (session == ve->session)
2451 * We've been disconnected from the other peer (for some
2452 * connection-oriented transport). Either quickly
2453 * re-establish the connection or signal the disconnect
2456 * Only signal CORE level disconnect if ALL addresses
2457 * for the peer are exhausted.
2459 * @param p overall plugin context
2460 * @param nl neighbour that was disconnected
2463 try_fast_reconnect (struct TransportPlugin *p,
2464 struct NeighbourList *nl)
2466 /* FIXME-MW: fast reconnect / transport switching not implemented... */
2467 GNUNET_log (GNUNET_ERROR_TYPE_INFO,
2468 "try_fast_reconnect not implemented!\n");
2469 /* Note: the idea here is to hide problems with transports (or
2470 switching between plugins) from the core to eliminate the need to
2471 re-negotiate session keys and the like; OTOH, we should tell core
2472 quickly (much faster than timeout) `if a connection was lost and
2473 could not be re-established (i.e. other peer went down or is
2474 unable / refuses to communicate);
2476 So we should consider:
2477 1) ideally: our own willingness / need to connect
2478 2) prior failures to connect to this peer (by plugin)
2479 3) ideally: reasons why other peer terminated (as far as knowable)
2481 Most importantly, it must be POSSIBLE for another peer to terminate
2482 a connection for a while (without us instantly re-establishing it).
2483 Similarly, if another peer is gone we should quickly notify CORE.
2484 OTOH, if there was a minor glitch (i.e. crash of gnunet-service-transport
2485 on the other end), we should reconnect in such a way that BOTH CORE
2486 services never even notice.
2487 Furthermore, the same mechanism (or small variation) could be used
2488 to switch to a better-performing plugin (ATS).
2490 Finally, this needs to be tested throughly... */
2493 * GNUNET_NO in the call below makes transport disconnect the peer,
2494 * even if only a single address (out of say, six) went away. This
2495 * function must be careful to ONLY disconnect if the peer is gone,
2496 * not just a specifi address.
2498 * More specifically, half the places it was used had it WRONG.
2501 /* No reconnect, signal disconnect instead! */
2503 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
2504 "Disconnecting peer `%4s', %s\n", GNUNET_i2s(&nl->id),
2505 "try_fast_reconnect");
2507 disconnect_neighbour (nl, GNUNET_YES);
2512 * Function that will be called whenever the plugin internally
2513 * cleans up a session pointer and hence the service needs to
2514 * discard all of those sessions as well. Plugins that do not
2515 * use sessions can simply omit calling this function and always
2516 * use NULL wherever a session pointer is needed.
2518 * @param cls closure
2519 * @param peer which peer was the session for
2520 * @param session which session is being destoyed
2523 plugin_env_session_end (void *cls,
2524 const struct GNUNET_PeerIdentity *peer,
2525 struct Session *session)
2527 struct TransportPlugin *p = cls;
2528 struct NeighbourList *nl;
2529 struct ReadyList *rl;
2530 struct ForeignAddressList *pos;
2531 struct ForeignAddressList *prev;
2534 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
2535 "Session ended with peer `%4s', %s\n",
2537 "plugin_env_session_end");
2539 GNUNET_CONTAINER_multihashmap_iterate (validation_map,
2540 &remove_session_validations,
2542 nl = find_neighbour (peer);
2546 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
2547 "No neighbour record found for peer `%4s'\n",
2550 return; /* was never marked as connected */
2555 if (rl->plugin == p)
2562 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
2563 "Plugin was associated with peer `%4s'\n",
2566 disconnect_neighbour (nl, GNUNET_YES);
2570 pos = rl->addresses;
2571 while ( (pos != NULL) &&
2572 (pos->session != session) )
2580 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
2581 "Session was never marked as ready for peer `%4s'\n",
2584 //FIXME: This conflicts with inbound tcp connections and tcp nat ... debugging in progress
2585 disconnect_neighbour (nl, GNUNET_YES);
2586 return; /* was never marked as connected */
2588 pos->session = NULL;
2589 if (pos->addrlen != 0)
2591 if (nl->received_pong != GNUNET_NO)
2592 try_fast_reconnect (p, nl);
2594 disconnect_neighbour (nl, GNUNET_YES);
2597 /* was inbound connection, free 'pos' */
2599 rl->addresses = pos->next;
2601 prev->next = pos->next;
2602 if (GNUNET_SCHEDULER_NO_TASK != pos->revalidate_task)
2604 GNUNET_SCHEDULER_cancel (pos->revalidate_task);
2605 pos->revalidate_task = GNUNET_SCHEDULER_NO_TASK;
2607 GNUNET_free_non_null(pos->ressources);
2608 GNUNET_free_non_null(pos->quality);
2610 ats->stat.recreate_problem = GNUNET_YES;
2611 if (nl->received_pong == GNUNET_NO)
2613 disconnect_neighbour (nl, GNUNET_YES);
2614 return; /* nothing to do, never connected... */
2616 /* check if we have any validated addresses left */
2617 pos = rl->addresses;
2622 try_fast_reconnect (p, nl);
2627 /* no valid addresses left, signal disconnect! */
2630 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
2631 "Disconnecting peer `%4s', %s\n",
2633 "plugin_env_session_end");
2635 /* FIXME: This doesn't mean there are no addresses left for this PEER,
2636 * it means there aren't any left for this PLUGIN/PEER combination! So
2637 * calling disconnect_neighbour here with GNUNET_NO forces disconnect
2638 * when it isn't necessary. Using GNUNET_YES at least checks to see
2639 * if there are any addresses that work first, so as not to overdo it.
2642 disconnect_neighbour (nl, GNUNET_YES);
2647 * Function that must be called by each plugin to notify the
2648 * transport service about the addresses under which the transport
2649 * provided by the plugin can be reached.
2651 * @param cls closure
2652 * @param name name of the transport that generated the address
2653 * @param addr one of the addresses of the host, NULL for the last address
2654 * the specific address format depends on the transport
2655 * @param addrlen length of the address
2656 * @param expires when should this address automatically expire?
2659 plugin_env_notify_address (void *cls,
2663 struct GNUNET_TIME_Relative expires)
2665 struct TransportPlugin *p = cls;
2666 struct OwnAddressList *al;
2667 struct GNUNET_TIME_Absolute abex;
2669 GNUNET_assert (addr != NULL);
2670 abex = GNUNET_TIME_relative_to_absolute (expires);
2671 GNUNET_assert (p == find_transport (name));
2675 if ( (addrlen == al->addrlen) &&
2676 (0 == memcmp (addr, &al[1], addrlen)) )
2679 update_addresses (p, GNUNET_NO);
2684 al = GNUNET_malloc (sizeof (struct OwnAddressList) + addrlen);
2685 al->next = p->addresses;
2688 al->addrlen = addrlen;
2689 memcpy (&al[1], addr, addrlen);
2690 update_addresses (p, GNUNET_YES);
2695 * Notify all of our clients about a peer connecting.
2698 notify_clients_connect (const struct GNUNET_PeerIdentity *peer,
2699 struct GNUNET_TIME_Relative latency,
2702 struct ConnectInfoMessage * cim;
2703 struct TransportClient *cpos;
2707 if (0 == memcmp (peer,
2709 sizeof (struct GNUNET_PeerIdentity)))
2715 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
2716 "Notifying clients about connection from `%s'\n",
2719 GNUNET_STATISTICS_update (stats,
2720 gettext_noop ("# peers connected"),
2725 size = sizeof (struct ConnectInfoMessage) + ats_count * sizeof (struct GNUNET_TRANSPORT_ATS_Information);
2726 if (size > GNUNET_SERVER_MAX_MESSAGE_SIZE)
2730 cim = GNUNET_malloc (size);
2731 cim->header.size = htons (size);
2732 cim->header.type = htons (GNUNET_MESSAGE_TYPE_TRANSPORT_CONNECT);
2733 cim->ats_count = htonl(2);
2734 (&(cim->ats))[0].type = htonl (GNUNET_TRANSPORT_ATS_QUALITY_NET_DISTANCE);
2735 (&(cim->ats))[0].value = htonl (distance);
2736 (&(cim->ats))[1].type = htonl (GNUNET_TRANSPORT_ATS_QUALITY_NET_DELAY);
2737 (&(cim->ats))[1].value = htonl ((uint32_t) latency.rel_value);
2738 (&(cim->ats))[2].type = htonl (GNUNET_TRANSPORT_ATS_ARRAY_TERMINATOR);
2739 (&(cim->ats))[2].value = htonl (0);
2740 memcpy (&cim->id, peer, sizeof (struct GNUNET_PeerIdentity));
2742 /* notify ats about connecting peer */
2743 if (shutdown_in_progress == GNUNET_NO)
2744 ats_notify_peer_connect (peer, &(cim->ats), 2);
2747 while (cpos != NULL)
2749 transmit_to_client (cpos, &(cim->header), GNUNET_NO);
2758 * Notify all of our clients about a peer disconnecting.
2761 notify_clients_disconnect (const struct GNUNET_PeerIdentity *peer)
2763 struct DisconnectInfoMessage dim;
2764 struct TransportClient *cpos;
2766 if (0 == memcmp (peer,
2768 sizeof (struct GNUNET_PeerIdentity)))
2774 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
2775 "Notifying clients about lost connection to `%s'\n",
2778 GNUNET_STATISTICS_update (stats,
2779 gettext_noop ("# peers connected"),
2782 dim.header.size = htons (sizeof (struct DisconnectInfoMessage));
2783 dim.header.type = htons (GNUNET_MESSAGE_TYPE_TRANSPORT_DISCONNECT);
2784 dim.reserved = htonl (0);
2785 memcpy (&dim.peer, peer, sizeof (struct GNUNET_PeerIdentity));
2787 /* notify ats about connecting peer */
2788 if (shutdown_in_progress == GNUNET_NO)
2789 ats_notify_peer_disconnect (peer);
2792 while (cpos != NULL)
2794 transmit_to_client (cpos, &dim.header, GNUNET_NO);
2801 * Find a ForeignAddressList entry for the given neighbour
2802 * that matches the given address and transport.
2804 * @param neighbour which peer we care about
2805 * @param tname name of the transport plugin
2806 * @param session session to look for, NULL for 'any'; otherwise
2807 * can be used for the service to "learn" this session ID
2809 * @param addr binary address
2810 * @param addrlen length of addr
2811 * @return NULL if no such entry exists
2813 static struct ForeignAddressList *
2814 find_peer_address(struct NeighbourList *neighbour,
2816 struct Session *session,
2820 struct ReadyList *head;
2821 struct ForeignAddressList *pos;
2823 head = neighbour->plugins;
2824 while (head != NULL)
2826 if (0 == strcmp (tname, head->plugin->short_name))
2832 pos = head->addresses;
2833 while ( (pos != NULL) &&
2834 ( (pos->addrlen != addrlen) ||
2835 (memcmp(pos->addr, addr, addrlen) != 0) ) )
2837 if ( (session != NULL) &&
2838 (pos->session == session) )
2842 if ( (session != NULL) && (pos != NULL) )
2843 pos->session = session; /* learn it! */
2849 * Get the peer address struct for the given neighbour and
2850 * address. If it doesn't yet exist, create it.
2852 * @param neighbour which peer we care about
2853 * @param tname name of the transport plugin
2854 * @param session session of the plugin, or NULL for none
2855 * @param addr binary address
2856 * @param addrlen length of addr
2857 * @return NULL if we do not have a transport plugin for 'tname'
2859 static struct ForeignAddressList *
2860 add_peer_address (struct NeighbourList *neighbour,
2862 struct Session *session,
2866 struct ReadyList *head;
2867 struct ForeignAddressList *ret;
2870 ret = find_peer_address (neighbour, tname, session, addr, addrlen);
2873 head = neighbour->plugins;
2875 while (head != NULL)
2877 if (0 == strcmp (tname, head->plugin->short_name))
2883 ret = GNUNET_malloc(sizeof(struct ForeignAddressList) + addrlen);
2884 ret->session = session;
2885 if ((addrlen > 0) && (addr != NULL))
2887 ret->addr = (const char*) &ret[1];
2888 memcpy (&ret[1], addr, addrlen);
2895 ret->ressources = GNUNET_malloc(available_ressources * sizeof (struct ATS_ressource_entry));
2896 for (c=0; c<available_ressources; c++)
2898 struct ATS_ressource_entry *r = ret->ressources;
2900 r[c].atis_index = ressources[c].atis_index;
2901 if (0 == strcmp(neighbour->plugins->plugin->short_name,"unix"))
2903 r[c].c = ressources[c].c_unix;
2905 else if (0 == strcmp(neighbour->plugins->plugin->short_name,"udp"))
2907 r[c].c = ressources[c].c_udp;
2909 else if (0 == strcmp(neighbour->plugins->plugin->short_name,"tcp"))
2911 r[c].c = ressources[c].c_tcp;
2913 else if (0 == strcmp(neighbour->plugins->plugin->short_name,"http"))
2915 r[c].c = ressources[c].c_http;
2917 else if (0 == strcmp(neighbour->plugins->plugin->short_name,"https"))
2919 r[c].c = ressources[c].c_https;
2921 else if (0 == strcmp(neighbour->plugins->plugin->short_name,"wlan"))
2923 r[c].c = ressources[c].c_wlan;
2927 r[c].c = ressources[c].c_default;
2928 GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
2929 "Assigning default cost to peer `%s' addr plugin `%s'! This should not happen!\n",
2930 GNUNET_i2s(&neighbour->peer),
2931 neighbour->plugins->plugin->short_name);
2935 ret->quality = GNUNET_malloc (available_quality_metrics * sizeof (struct ATS_quality_entry));
2936 ret->addrlen = addrlen;
2937 ret->expires = GNUNET_TIME_relative_to_absolute
2938 (GNUNET_CONSTANTS_IDLE_CONNECTION_TIMEOUT);
2939 ret->latency = GNUNET_TIME_relative_get_forever();
2941 ret->timeout = GNUNET_TIME_relative_to_absolute
2942 (GNUNET_CONSTANTS_IDLE_CONNECTION_TIMEOUT);
2943 ret->ready_list = head;
2944 ret->next = head->addresses;
2945 head->addresses = ret;
2951 * Closure for 'add_validated_address'.
2953 struct AddValidatedAddressContext
2956 * Entry that has been validated.
2958 const struct ValidationEntry *ve;
2961 * Flag set after we have added the address so
2962 * that we terminate the iteration next time.
2969 * Callback function used to fill a buffer of max bytes with a list of
2970 * addresses in the format used by HELLOs. Should use
2971 * "GNUNET_HELLO_add_address" as a helper function.
2973 * @param cls the 'struct AddValidatedAddressContext' with the validated address
2974 * @param max maximum number of bytes that can be written to buf
2975 * @param buf where to write the address information
2976 * @return number of bytes written, 0 to signal the
2977 * end of the iteration.
2980 add_validated_address (void *cls,
2981 size_t max, void *buf)
2983 struct AddValidatedAddressContext *avac = cls;
2984 const struct ValidationEntry *ve = avac->ve;
2986 if (GNUNET_YES == avac->done)
2988 avac->done = GNUNET_YES;
2989 return GNUNET_HELLO_add_address (ve->transport_name,
2990 GNUNET_TIME_relative_to_absolute (HELLO_ADDRESS_EXPIRATION),
3000 * Closure for 'check_address_exists'.
3002 struct CheckAddressExistsClosure
3005 * Address to check for.
3010 * Name of the transport.
3017 struct Session *session;
3020 * Set to GNUNET_YES if the address exists.
3033 * Iterator over hash map entries. Checks if the given
3034 * validation entry is for the same address as what is given
3037 * @param cls the 'struct CheckAddressExistsClosure*'
3038 * @param key current key code (ignored)
3039 * @param value value in the hash map ('struct ValidationEntry')
3040 * @return GNUNET_YES if we should continue to
3041 * iterate (mismatch), GNUNET_NO if not (entry matched)
3044 check_address_exists (void *cls,
3045 const GNUNET_HashCode * key,
3048 struct CheckAddressExistsClosure *caec = cls;
3049 struct ValidationEntry *ve = value;
3051 if ( (0 == strcmp (caec->tname,
3052 ve->transport_name)) &&
3053 (caec->addrlen == ve->addrlen) &&
3054 (0 == memcmp (caec->addr,
3058 caec->exists = GNUNET_YES;
3061 if ( (ve->session != NULL) &&
3062 (caec->session == ve->session) )
3064 caec->exists = GNUNET_YES;
3073 * Iterator to free entries in the validation_map.
3075 * @param cls closure (unused)
3076 * @param key current key code
3077 * @param value value in the hash map (validation to abort)
3078 * @return GNUNET_YES (always)
3081 abort_validation (void *cls,
3082 const GNUNET_HashCode * key,
3085 struct ValidationEntry *va = value;
3087 if (GNUNET_SCHEDULER_NO_TASK != va->timeout_task)
3088 GNUNET_SCHEDULER_cancel (va->timeout_task);
3089 GNUNET_free (va->transport_name);
3090 if (va->chvc != NULL)
3092 va->chvc->ve_count--;
3093 if (va->chvc->ve_count == 0)
3095 GNUNET_CONTAINER_DLL_remove (chvc_head,
3098 GNUNET_free (va->chvc);
3108 * HELLO validation cleanup task (validation failed).
3110 * @param cls the 'struct ValidationEntry' that failed
3111 * @param tc scheduler context (unused)
3114 timeout_hello_validation (void *cls, const struct GNUNET_SCHEDULER_TaskContext *tc)
3116 struct ValidationEntry *va = cls;
3117 struct GNUNET_PeerIdentity pid;
3119 va->timeout_task = GNUNET_SCHEDULER_NO_TASK;
3120 GNUNET_STATISTICS_update (stats,
3121 gettext_noop ("# address validation timeouts"),
3124 GNUNET_CRYPTO_hash (&va->publicKey,
3126 GNUNET_CRYPTO_RsaPublicKeyBinaryEncoded),
3128 GNUNET_break (GNUNET_OK ==
3129 GNUNET_CONTAINER_multihashmap_remove (validation_map,
3132 abort_validation (NULL, NULL, va);
3137 neighbour_timeout_task (void *cls,
3138 const struct GNUNET_SCHEDULER_TaskContext *tc)
3140 struct NeighbourList *n = cls;
3143 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG | GNUNET_ERROR_TYPE_BULK,
3144 "Neighbour `%4s' has timed out!\n", GNUNET_i2s (&n->id));
3146 GNUNET_STATISTICS_update (stats,
3147 gettext_noop ("# disconnects due to timeout"),
3150 n->timeout_task = GNUNET_SCHEDULER_NO_TASK;
3151 disconnect_neighbour (n, GNUNET_NO);
3156 * Schedule the job that will cause us to send a PING to the
3157 * foreign address to evaluate its validity and latency.
3159 * @param fal address to PING
3162 schedule_next_ping (struct ForeignAddressList *fal);
3166 * Add the given address to the list of foreign addresses
3167 * available for the given peer (check for duplicates).
3169 * @param cls the respective 'struct NeighbourList' to update
3170 * @param tname name of the transport
3171 * @param expiration expiration time
3172 * @param addr the address
3173 * @param addrlen length of the address
3174 * @return GNUNET_OK (always)
3177 add_to_foreign_address_list (void *cls,
3179 struct GNUNET_TIME_Absolute expiration,
3183 struct NeighbourList *n = cls;
3184 struct ForeignAddressList *fal;
3187 GNUNET_STATISTICS_update (stats,
3188 gettext_noop ("# valid peer addresses returned by PEERINFO"),
3192 fal = find_peer_address (n, tname, NULL, addr, addrlen);
3195 #if DEBUG_TRANSPORT_HELLO
3196 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
3197 "Adding address `%s' (%s) for peer `%4s' due to PEERINFO data for %llums.\n",
3198 a2s (tname, addr, addrlen),
3200 GNUNET_i2s (&n->id),
3201 expiration.abs_value);
3203 fal = add_peer_address (n, tname, NULL, addr, addrlen);
3206 GNUNET_STATISTICS_update (stats,
3207 gettext_noop ("# previously validated addresses lacking transport"),
3213 fal->expires = GNUNET_TIME_absolute_max (expiration,
3215 schedule_next_ping (fal);
3221 fal->expires = GNUNET_TIME_absolute_max (expiration,
3227 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
3228 "Failed to add new address for `%4s'\n",
3229 GNUNET_i2s (&n->id));
3233 if (fal->validated == GNUNET_NO)
3235 fal->validated = GNUNET_YES;
3236 GNUNET_STATISTICS_update (stats,
3237 gettext_noop ("# peer addresses considered valid"),
3241 if (try == GNUNET_YES)
3244 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
3245 "Have new addresses, will try to trigger transmissions.\n");
3247 try_transmission_to_peer (n);
3254 * Add addresses in validated HELLO "h" to the set of addresses
3255 * we have for this peer.
3257 * @param cls closure ('struct NeighbourList*')
3258 * @param peer id of the peer, NULL for last call
3259 * @param h hello message for the peer (can be NULL)
3260 * @param err_msg NULL if successful, otherwise contains error message
3263 add_hello_for_peer (void *cls,
3264 const struct GNUNET_PeerIdentity *peer,
3265 const struct GNUNET_HELLO_Message *h,
3266 const char *err_msg)
3268 struct NeighbourList *n = cls;
3270 if (err_msg != NULL)
3273 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
3274 _("Error in communication with PEERINFO service: %s\n"),
3281 GNUNET_STATISTICS_update (stats,
3282 gettext_noop ("# outstanding peerinfo iterate requests"),
3289 return; /* no HELLO available */
3291 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
3292 "Peerinfo had `%s' message for peer `%4s', adding existing addresses.\n",
3296 if (GNUNET_YES != n->public_key_valid)
3298 GNUNET_HELLO_get_key (h, &n->publicKey);
3299 n->public_key_valid = GNUNET_YES;
3301 GNUNET_HELLO_iterate_addresses (h,
3303 &add_to_foreign_address_list,
3309 * Create a fresh entry in our neighbour list for the given peer.
3310 * Will try to transmit our current HELLO to the new neighbour.
3311 * Do not call this function directly, use 'setup_peer_check_blacklist.
3313 * @param peer the peer for which we create the entry
3314 * @param do_hello should we schedule transmitting a HELLO
3315 * @return the new neighbour list entry
3317 static struct NeighbourList *
3318 setup_new_neighbour (const struct GNUNET_PeerIdentity *peer,
3321 struct NeighbourList *n;
3322 struct TransportPlugin *tp;
3323 struct ReadyList *rl;
3325 GNUNET_assert (0 != memcmp (peer,
3327 sizeof (struct GNUNET_PeerIdentity)));
3329 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
3330 "Setting up state for neighbour `%4s'\n",
3333 GNUNET_STATISTICS_update (stats,
3334 gettext_noop ("# active neighbours"),
3337 n = GNUNET_malloc (sizeof (struct NeighbourList));
3338 n->next = neighbours;
3342 GNUNET_TIME_relative_to_absolute
3343 (GNUNET_CONSTANTS_IDLE_CONNECTION_TIMEOUT);
3344 GNUNET_BANDWIDTH_tracker_init (&n->in_tracker,
3345 GNUNET_CONSTANTS_DEFAULT_BW_IN_OUT,
3346 MAX_BANDWIDTH_CARRY_S);
3350 if ((tp->api->send != NULL) && (!is_blacklisted(peer, tp)))
3352 rl = GNUNET_malloc (sizeof (struct ReadyList));
3354 rl->next = n->plugins;
3357 rl->addresses = NULL;
3361 n->latency = GNUNET_TIME_UNIT_FOREVER_REL;
3363 n->timeout_task = GNUNET_SCHEDULER_add_delayed (GNUNET_CONSTANTS_IDLE_CONNECTION_TIMEOUT,
3364 &neighbour_timeout_task, n);
3367 GNUNET_STATISTICS_update (stats,
3368 gettext_noop ("# peerinfo new neighbor iterate requests"),
3371 GNUNET_STATISTICS_update (stats,
3372 gettext_noop ("# outstanding peerinfo iterate requests"),
3375 n->piter = GNUNET_PEERINFO_iterate (peerinfo, peer,
3376 GNUNET_TIME_UNIT_FOREVER_REL,
3377 &add_hello_for_peer, n);
3379 GNUNET_STATISTICS_update (stats,
3380 gettext_noop ("# HELLO's sent to new neighbors"),
3383 if (NULL != our_hello)
3384 transmit_to_peer (NULL, NULL, 0,
3385 HELLO_ADDRESS_EXPIRATION,
3386 (const char *) our_hello, GNUNET_HELLO_size(our_hello),
3394 * Function called after we have checked if communicating
3395 * with a given peer is acceptable.
3397 * @param cls closure
3398 * @param n NULL if communication is not acceptable
3400 typedef void (*SetupContinuation)(void *cls,
3401 struct NeighbourList *n);
3405 * Information kept for each client registered to perform
3411 * This is a linked list.
3413 struct Blacklisters *next;
3416 * This is a linked list.
3418 struct Blacklisters *prev;
3421 * Client responsible for this entry.
3423 struct GNUNET_SERVER_Client *client;
3426 * Blacklist check that we're currently performing.
3428 struct BlacklistCheck *bc;
3434 * Head of DLL of blacklisting clients.
3436 static struct Blacklisters *bl_head;
3439 * Tail of DLL of blacklisting clients.
3441 static struct Blacklisters *bl_tail;
3445 * Context we use when performing a blacklist check.
3447 struct BlacklistCheck
3451 * This is a linked list.
3453 struct BlacklistCheck *next;
3456 * This is a linked list.
3458 struct BlacklistCheck *prev;
3461 * Peer being checked.
3463 struct GNUNET_PeerIdentity peer;
3466 * Option for setup neighbour afterwards.
3471 * Continuation to call with the result.
3473 SetupContinuation cont;
3481 * Current transmission request handle for this client, or NULL if no
3482 * request is pending.
3484 struct GNUNET_CONNECTION_TransmitHandle *th;
3487 * Our current position in the blacklisters list.
3489 struct Blacklisters *bl_pos;
3492 * Current task performing the check.
3494 GNUNET_SCHEDULER_TaskIdentifier task;
3499 * Head of DLL of active blacklisting queries.
3501 static struct BlacklistCheck *bc_head;
3504 * Tail of DLL of active blacklisting queries.
3506 static struct BlacklistCheck *bc_tail;
3510 * Perform next action in the blacklist check.
3512 * @param cls the 'struct BlacklistCheck*'
3516 do_blacklist_check (void *cls,
3517 const struct GNUNET_SCHEDULER_TaskContext *tc);
3520 * Transmit blacklist query to the client.
3522 * @param cls the 'struct BlacklistCheck'
3523 * @param size number of bytes allowed
3524 * @param buf where to copy the message
3525 * @return number of bytes copied to buf
3528 transmit_blacklist_message (void *cls,
3532 struct BlacklistCheck *bc = cls;
3533 struct Blacklisters *bl;
3534 struct BlacklistMessage bm;
3539 GNUNET_assert (bc->task == GNUNET_SCHEDULER_NO_TASK);
3540 bc->task = GNUNET_SCHEDULER_add_now (&do_blacklist_check,
3542 GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
3543 "Failed to send blacklist test for peer `%s' to client\n",
3544 GNUNET_i2s (&bc->peer));
3548 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
3549 "Sending blacklist test for peer `%s' to client\n",
3550 GNUNET_i2s (&bc->peer));
3553 bm.header.size = htons (sizeof (struct BlacklistMessage));
3554 bm.header.type = htons (GNUNET_MESSAGE_TYPE_TRANSPORT_BLACKLIST_QUERY);
3555 bm.is_allowed = htonl (0);
3557 memcpy (buf, &bm, sizeof (bm));
3558 GNUNET_SERVER_receive_done (bl->client, GNUNET_OK);
3564 * Perform next action in the blacklist check.
3566 * @param cls the 'struct BlacklistCheck*'
3570 do_blacklist_check (void *cls,
3571 const struct GNUNET_SCHEDULER_TaskContext *tc)
3573 struct BlacklistCheck *bc = cls;
3574 struct Blacklisters *bl;
3576 bc->task = GNUNET_SCHEDULER_NO_TASK;
3581 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
3582 "No blacklist clients active, will now setup neighbour record for peer `%s'\n",
3583 GNUNET_i2s (&bc->peer));
3585 bc->cont (bc->cont_cls,
3586 setup_new_neighbour (&bc->peer, bc->do_hello));
3593 bc->th = GNUNET_SERVER_notify_transmit_ready (bl->client,
3594 sizeof (struct BlacklistMessage),
3595 GNUNET_TIME_UNIT_FOREVER_REL,
3596 &transmit_blacklist_message,
3603 * Obtain a 'struct NeighbourList' for the given peer. If such an entry
3604 * does not yet exist, check the blacklist. If the blacklist says creating
3605 * one is acceptable, create one and call the continuation; otherwise
3606 * call the continuation with NULL.
3608 * @param peer peer to setup or look up a struct NeighbourList for
3609 * @param do_hello should we also schedule sending our HELLO to the peer
3610 * if this is a new record
3611 * @param cont function to call with the 'struct NeigbhbourList*'
3612 * @param cont_cls closure for cont
3615 setup_peer_check_blacklist (const struct GNUNET_PeerIdentity *peer,
3617 SetupContinuation cont,
3620 struct NeighbourList *n;
3621 struct BlacklistCheck *bc;
3623 n = find_neighbour(peer);
3627 GNUNET_log(GNUNET_ERROR_TYPE_DEBUG,
3628 "Neighbour record exists for peer `%s'\n",
3635 if (bl_head == NULL)
3638 cont (cont_cls, setup_new_neighbour (peer, do_hello));
3640 setup_new_neighbour(peer, do_hello);
3643 bc = GNUNET_malloc (sizeof (struct BlacklistCheck));
3644 GNUNET_CONTAINER_DLL_insert (bc_head, bc_tail, bc);
3646 bc->do_hello = do_hello;
3648 bc->cont_cls = cont_cls;
3649 bc->bl_pos = bl_head;
3650 bc->task = GNUNET_SCHEDULER_add_now (&do_blacklist_check,
3656 * Function called with the result of querying a new blacklister about
3657 * it being allowed (or not) to continue to talk to an existing neighbour.
3659 * @param cls the original 'struct NeighbourList'
3660 * @param n NULL if we need to disconnect
3663 confirm_or_drop_neighbour (void *cls,
3664 struct NeighbourList *n)
3666 struct NeighbourList * orig = cls;
3671 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
3672 "Disconnecting peer `%4s', %s\n", GNUNET_i2s(&orig->id),
3673 "confirm_or_drop_neighboUr");
3675 disconnect_neighbour (orig, GNUNET_NO);
3681 * Handle a request to start a blacklist.
3683 * @param cls closure (always NULL)
3684 * @param client identification of the client
3685 * @param message the actual message
3688 handle_blacklist_init (void *cls,
3689 struct GNUNET_SERVER_Client *client,
3690 const struct GNUNET_MessageHeader *message)
3692 struct Blacklisters *bl;
3693 struct BlacklistCheck *bc;
3694 struct NeighbourList *n;
3699 if (bl->client == client)
3702 GNUNET_SERVER_receive_done (client, GNUNET_SYSERR);
3707 bl = GNUNET_malloc (sizeof (struct Blacklisters));
3708 bl->client = client;
3709 GNUNET_SERVER_client_keep (client);
3710 GNUNET_CONTAINER_DLL_insert_after (bl_head, bl_tail, bl_tail, bl);
3711 /* confirm that all existing connections are OK! */
3715 bc = GNUNET_malloc (sizeof (struct BlacklistCheck));
3716 GNUNET_CONTAINER_DLL_insert (bc_head, bc_tail, bc);
3718 bc->do_hello = GNUNET_NO;
3719 bc->cont = &confirm_or_drop_neighbour;
3722 if (n == neighbours) /* all would wait for the same client, no need to
3723 create more than just the first task right now */
3724 bc->task = GNUNET_SCHEDULER_add_now (&do_blacklist_check,
3732 * Handle a request to blacklist a peer.
3734 * @param cls closure (always NULL)
3735 * @param client identification of the client
3736 * @param message the actual message
3739 handle_blacklist_reply (void *cls,
3740 struct GNUNET_SERVER_Client *client,
3741 const struct GNUNET_MessageHeader *message)
3743 const struct BlacklistMessage *msg = (const struct BlacklistMessage*) message;
3744 struct Blacklisters *bl;
3745 struct BlacklistCheck *bc;
3748 while ( (bl != NULL) &&
3749 (bl->client != client) )
3754 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
3755 "Blacklist client disconnected\n");
3757 /* FIXME: other error handling here!? */
3758 GNUNET_SERVER_receive_done (client, GNUNET_SYSERR);
3763 if (ntohl (msg->is_allowed) == GNUNET_SYSERR)
3766 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
3767 "Blacklist check failed, peer not allowed\n");
3769 bc->cont (bc->cont_cls, NULL);
3770 GNUNET_CONTAINER_DLL_remove (bc_head, bc_tail, bc);
3776 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
3777 "Blacklist check succeeded, continuing with checks\n");
3779 bc->bl_pos = bc->bl_pos->next;
3780 bc->task = GNUNET_SCHEDULER_add_now (&do_blacklist_check,
3783 /* check if any other bc's are waiting for this blacklister */
3787 if ( (bc->bl_pos == bl) &&
3788 (GNUNET_SCHEDULER_NO_TASK == bc->task) )
3789 bc->task = GNUNET_SCHEDULER_add_now (&do_blacklist_check,
3797 * Send periodic PING messages to a given foreign address.
3799 * @param cls our 'struct PeriodicValidationContext*'
3800 * @param tc task context
3803 send_periodic_ping (void *cls,
3804 const struct GNUNET_SCHEDULER_TaskContext *tc)
3806 struct ForeignAddressList *peer_address = cls;
3807 struct TransportPlugin *tp;
3808 struct ValidationEntry *va;
3809 struct NeighbourList *neighbour;
3810 struct TransportPingMessage ping;
3811 struct CheckAddressExistsClosure caec;
3813 uint16_t hello_size;
3817 peer_address->revalidate_task = GNUNET_SCHEDULER_NO_TASK;
3818 if ( (tc->reason & GNUNET_SCHEDULER_REASON_SHUTDOWN) != 0)
3820 tp = peer_address->ready_list->plugin;
3821 neighbour = peer_address->ready_list->neighbour;
3822 if (GNUNET_YES != neighbour->public_key_valid)
3824 /* no public key yet, try again later */
3825 schedule_next_ping (peer_address);
3828 caec.addr = peer_address->addr;
3829 caec.addrlen = peer_address->addrlen;
3830 caec.tname = tp->short_name;
3831 caec.session = peer_address->session;
3832 caec.exists = GNUNET_NO;
3833 GNUNET_CONTAINER_multihashmap_iterate (validation_map,
3834 &check_address_exists,
3836 if (caec.exists == GNUNET_YES)
3838 /* During validation attempts we will likely trigger the other
3839 peer trying to validate our address which in turn will cause
3840 it to send us its HELLO, so we expect to hit this case rather
3841 frequently. Only print something if we are very verbose. */
3842 #if DEBUG_TRANSPORT > 1
3843 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
3844 "Some validation of address `%s' via `%s' for peer `%4s' already in progress.\n",
3845 (peer_address->addr != NULL)
3846 ? a2s (tp->short_name,
3848 peer_address->addrlen)
3851 GNUNET_i2s (&neighbour->id));
3853 schedule_next_ping (peer_address);
3856 va = GNUNET_malloc (sizeof (struct ValidationEntry) + peer_address->addrlen);
3857 va->transport_name = GNUNET_strdup (tp->short_name);
3858 va->challenge = GNUNET_CRYPTO_random_u32 (GNUNET_CRYPTO_QUALITY_NONCE,
3860 va->send_time = GNUNET_TIME_absolute_get();
3861 va->session = peer_address->session;
3862 if (peer_address->addr != NULL)
3864 va->addr = (const void*) &va[1];
3865 memcpy (&va[1], peer_address->addr, peer_address->addrlen);
3866 va->addrlen = peer_address->addrlen;
3868 memcpy(&va->publicKey,
3869 &neighbour->publicKey,
3870 sizeof(struct GNUNET_CRYPTO_RsaPublicKeyBinaryEncoded));
3872 va->timeout_task = GNUNET_SCHEDULER_add_delayed (HELLO_VERIFICATION_TIMEOUT,
3873 &timeout_hello_validation,
3875 GNUNET_CONTAINER_multihashmap_put (validation_map,
3876 &neighbour->id.hashPubKey,
3878 GNUNET_CONTAINER_MULTIHASHMAPOPTION_MULTIPLE);
3880 if (peer_address->validated != GNUNET_YES)
3881 hello_size = GNUNET_HELLO_size(our_hello);
3885 tsize = sizeof(struct TransportPingMessage) + hello_size;
3887 if (peer_address->addr != NULL)
3889 slen = strlen (tp->short_name) + 1;
3890 tsize += slen + peer_address->addrlen;
3894 slen = 0; /* make gcc happy */
3896 message_buf = GNUNET_malloc(tsize);
3897 ping.header.type = htons(GNUNET_MESSAGE_TYPE_TRANSPORT_PING);
3898 ping.challenge = htonl(va->challenge);
3899 memcpy(&ping.target, &neighbour->id, sizeof(struct GNUNET_PeerIdentity));
3900 if (peer_address->validated != GNUNET_YES)
3902 memcpy(message_buf, our_hello, hello_size);
3905 if (peer_address->addr != NULL)
3907 ping.header.size = htons(sizeof(struct TransportPingMessage) +
3908 peer_address->addrlen +
3910 memcpy(&message_buf[hello_size + sizeof (struct TransportPingMessage)],
3913 memcpy(&message_buf[hello_size + sizeof (struct TransportPingMessage) + slen],
3915 peer_address->addrlen);
3919 ping.header.size = htons(sizeof(struct TransportPingMessage));
3922 memcpy(&message_buf[hello_size],
3924 sizeof(struct TransportPingMessage));
3926 #if DEBUG_TRANSPORT_REVALIDATION
3927 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
3928 "Performing re-validation of address `%s' via `%s' for peer `%4s' sending `%s' (%u bytes) and `%s'\n",
3929 (peer_address->addr != NULL)
3930 ? a2s (peer_address->plugin->short_name,
3932 peer_address->addrlen)
3935 GNUNET_i2s (&neighbour->id),
3936 "HELLO", hello_size,
3939 if (peer_address->validated != GNUNET_YES)
3940 GNUNET_STATISTICS_update (stats,
3941 gettext_noop ("# PING with HELLO messages sent"),
3945 GNUNET_STATISTICS_update (stats,
3946 gettext_noop ("# PING without HELLO messages sent"),
3949 GNUNET_STATISTICS_update (stats,
3950 gettext_noop ("# PING messages sent for re-validation"),
3953 transmit_to_peer (NULL, peer_address,
3954 GNUNET_SCHEDULER_PRIORITY_DEFAULT,
3955 HELLO_VERIFICATION_TIMEOUT,
3957 GNUNET_YES, neighbour);
3958 GNUNET_free(message_buf);
3959 schedule_next_ping (peer_address);
3964 * Schedule the job that will cause us to send a PING to the
3965 * foreign address to evaluate its validity and latency.
3967 * @param fal address to PING
3970 schedule_next_ping (struct ForeignAddressList *fal)
3972 struct GNUNET_TIME_Relative delay;
3974 if (fal->revalidate_task != GNUNET_SCHEDULER_NO_TASK)
3976 delay = GNUNET_TIME_absolute_get_remaining (fal->expires);
3977 delay.rel_value /= 2; /* do before expiration */
3978 delay = GNUNET_TIME_relative_min (delay,
3979 LATENCY_EVALUATION_MAX_DELAY);
3980 if (GNUNET_YES != fal->estimated)
3982 delay = GNUNET_TIME_UNIT_ZERO;
3983 fal->estimated = GNUNET_YES;
3985 if (GNUNET_YES == fal->connected)
3987 delay = GNUNET_TIME_relative_min (delay,
3988 CONNECTED_LATENCY_EVALUATION_MAX_DELAY);
3990 /* FIXME: also adjust delay based on how close the last
3991 observed latency is to the latency of the best alternative */
3992 /* bound how fast we can go */
3993 delay = GNUNET_TIME_relative_max (delay,
3994 GNUNET_TIME_UNIT_SECONDS);
3995 /* randomize a bit (to avoid doing all at the same time) */
3996 delay.rel_value += GNUNET_CRYPTO_random_u32 (GNUNET_CRYPTO_QUALITY_WEAK, 1000);
3997 fal->revalidate_task = GNUNET_SCHEDULER_add_delayed(delay,
3998 &send_periodic_ping,
4006 * Function that will be called if we receive some payload
4007 * from another peer.
4009 * @param message the payload
4010 * @param n peer who claimed to be the sender
4013 handle_payload_message (const struct GNUNET_MessageHeader *message,
4014 struct NeighbourList *n)
4016 struct InboundMessage *im;
4017 struct TransportClient *cpos;
4020 msize = ntohs (message->size);
4021 if (n->received_pong == GNUNET_NO)
4024 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
4025 "Received message of type %u and size %u from `%4s', but no pong yet!\n",
4026 ntohs (message->type),
4027 ntohs (message->size),
4028 GNUNET_i2s (&n->id));
4030 GNUNET_free_non_null (n->pre_connect_message_buffer);
4031 n->pre_connect_message_buffer = GNUNET_malloc (msize);
4032 memcpy (n->pre_connect_message_buffer, message, msize);
4037 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
4038 "Received message of type %u and size %u from `%4s', sending to all clients.\n",
4039 ntohs (message->type),
4040 ntohs (message->size),
4041 GNUNET_i2s (&n->id));
4043 if (GNUNET_YES == GNUNET_BANDWIDTH_tracker_consume (&n->in_tracker,
4046 n->quota_violation_count++;
4048 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
4049 "Bandwidth quota (%u b/s) violation detected (total of %u).\n",
4050 n->in_tracker.available_bytes_per_s__,
4051 n->quota_violation_count);
4053 /* Discount 32k per violation */
4054 GNUNET_BANDWIDTH_tracker_consume (&n->in_tracker,
4059 if (n->quota_violation_count > 0)
4061 /* try to add 32k back */
4062 GNUNET_BANDWIDTH_tracker_consume (&n->in_tracker,
4064 n->quota_violation_count--;
4067 GNUNET_STATISTICS_update (stats,
4068 gettext_noop ("# payload received from other peers"),
4071 /* transmit message to all clients */
4072 uint32_t ats_count = 2;
4073 size_t size = sizeof (struct InboundMessage) + ats_count * sizeof (struct GNUNET_TRANSPORT_ATS_Information) + msize;
4074 if (size > GNUNET_SERVER_MAX_MESSAGE_SIZE)
4077 im = GNUNET_malloc (size);
4078 im->header.size = htons (size);
4079 im->header.type = htons (GNUNET_MESSAGE_TYPE_TRANSPORT_RECV);
4081 im->ats_count = htonl(ats_count);
4082 /* Setting ATS data */
4083 (&(im->ats))[0].type = htonl (GNUNET_TRANSPORT_ATS_QUALITY_NET_DISTANCE);
4084 (&(im->ats))[0].value = htonl (n->distance);
4085 (&(im->ats))[1].type = htonl (GNUNET_TRANSPORT_ATS_QUALITY_NET_DELAY);
4086 (&(im->ats))[1].value = htonl ((uint32_t) n->latency.rel_value);
4087 (&(im->ats))[ats_count].type = htonl (GNUNET_TRANSPORT_ATS_ARRAY_TERMINATOR);
4088 (&(im->ats))[ats_count].value = htonl (0);
4090 memcpy (&((&(im->ats))[ats_count+1]), message, msize);
4092 while (cpos != NULL)
4094 transmit_to_client (cpos, &im->header, GNUNET_YES);
4102 * Iterator over hash map entries. Checks if the given validation
4103 * entry is for the same challenge as what is given in the PONG.
4105 * @param cls the 'struct TransportPongMessage*'
4106 * @param key peer identity
4107 * @param value value in the hash map ('struct ValidationEntry')
4108 * @return GNUNET_YES if we should continue to
4109 * iterate (mismatch), GNUNET_NO if not (entry matched)
4112 check_pending_validation (void *cls,
4113 const GNUNET_HashCode * key,
4116 const struct TransportPongMessage *pong = cls;
4117 struct ValidationEntry *ve = value;
4118 struct AddValidatedAddressContext avac;
4119 unsigned int challenge = ntohl(pong->challenge);
4120 struct GNUNET_HELLO_Message *hello;
4121 struct GNUNET_PeerIdentity target;
4122 struct NeighbourList *n;
4123 struct ForeignAddressList *fal;
4124 struct OwnAddressList *oal;
4125 struct TransportPlugin *tp;
4126 struct GNUNET_MessageHeader *prem;
4132 ps = ntohs (pong->header.size);
4133 if (ps < sizeof (struct TransportPongMessage))
4135 GNUNET_break_op (0);
4138 addr = (const char*) &pong[1];
4139 slen = strlen (ve->transport_name) + 1;
4140 if ( (ps - sizeof (struct TransportPongMessage) < slen) ||
4141 (ve->challenge != challenge) ||
4142 (addr[slen-1] != '\0') ||
4143 (0 != strcmp (addr, ve->transport_name)) ||
4144 (ntohl (pong->purpose.size)
4145 != sizeof (struct GNUNET_CRYPTO_RsaSignaturePurpose) +
4147 sizeof (struct GNUNET_TIME_AbsoluteNBO) +
4148 sizeof (struct GNUNET_PeerIdentity) + ps - sizeof (struct TransportPongMessage)) )
4153 alen = ps - sizeof (struct TransportPongMessage) - slen;
4154 switch (ntohl (pong->purpose.purpose))
4156 case GNUNET_SIGNATURE_PURPOSE_TRANSPORT_PONG_OWN:
4157 if ( (ve->addrlen + slen != ntohl (pong->addrlen)) ||
4158 (0 != memcmp (&addr[slen],
4162 return GNUNET_YES; /* different entry, keep trying! */
4164 if (0 != memcmp (&pong->pid,
4166 sizeof (struct GNUNET_PeerIdentity)))
4168 GNUNET_break_op (0);
4172 GNUNET_CRYPTO_rsa_verify (GNUNET_SIGNATURE_PURPOSE_TRANSPORT_PONG_OWN,
4177 GNUNET_break_op (0);
4182 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
4183 "Confirmed validity of address, peer `%4s' has address `%s' (%s).\n",
4185 a2s (ve->transport_name,
4186 (const struct sockaddr *) ve->addr,
4188 ve->transport_name);
4191 case GNUNET_SIGNATURE_PURPOSE_TRANSPORT_PONG_USING:
4192 if (0 != memcmp (&pong->pid,
4194 sizeof (struct GNUNET_PeerIdentity)))
4197 GNUNET_asprintf(&peer, "%s",GNUNET_i2s (&pong->pid));
4199 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
4200 "Received PONG for different identity: I am `%s', PONG identity: `%s'\n",
4201 GNUNET_i2s (&my_identity),
4207 if (ve->addrlen != 0)
4209 /* must have been for a different validation entry */
4212 tp = find_transport (ve->transport_name);
4218 oal = tp->addresses;
4221 if ( (oal->addrlen == alen) &&
4222 (0 == memcmp (&oal[1],
4230 GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
4231 _("Not accepting PONG with address `%s' since I cannot confirm having this address.\n"),
4232 a2s (ve->transport_name,
4238 GNUNET_CRYPTO_rsa_verify (GNUNET_SIGNATURE_PURPOSE_TRANSPORT_PONG_USING,
4243 GNUNET_break_op (0);
4248 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
4249 "Confirmed that peer `%4s' is talking to us using address `%s' (%s) for us.\n",
4251 a2s (ve->transport_name,
4254 ve->transport_name);
4258 GNUNET_break_op (0);
4261 if (GNUNET_TIME_absolute_get_remaining (GNUNET_TIME_absolute_ntoh (pong->expiration)).rel_value == 0)
4263 GNUNET_log (GNUNET_ERROR_TYPE_INFO,
4264 _("Received expired signature. Check system time.\n"));
4267 GNUNET_STATISTICS_update (stats,
4268 gettext_noop ("# address validation successes"),
4271 /* create the updated HELLO */
4272 GNUNET_CRYPTO_hash (&ve->publicKey,
4273 sizeof (struct GNUNET_CRYPTO_RsaPublicKeyBinaryEncoded),
4274 &target.hashPubKey);
4275 if (ve->addr != NULL)
4277 avac.done = GNUNET_NO;
4279 hello = GNUNET_HELLO_create (&ve->publicKey,
4280 &add_validated_address,
4282 GNUNET_PEERINFO_add_peer (peerinfo,
4284 GNUNET_free (hello);
4286 n = find_neighbour (&target);
4289 n->publicKey = ve->publicKey;
4290 n->public_key_valid = GNUNET_YES;
4291 fal = add_peer_address (n,
4296 GNUNET_assert (fal != NULL);
4297 fal->expires = GNUNET_TIME_relative_to_absolute (HELLO_ADDRESS_EXPIRATION);
4298 fal->validated = GNUNET_YES;
4299 mark_address_connected (fal);
4300 GNUNET_STATISTICS_update (stats,
4301 gettext_noop ("# peer addresses considered valid"),
4304 fal->latency = GNUNET_TIME_absolute_get_duration (ve->send_time);
4305 update_addr_value (fal, GNUNET_TIME_absolute_get_duration (ve->send_time).rel_value, GNUNET_TRANSPORT_ATS_QUALITY_NET_DELAY);
4307 schedule_next_ping (fal);
4308 if (n->latency.rel_value == GNUNET_TIME_UNIT_FOREVER_REL.rel_value)
4309 n->latency = fal->latency;
4311 n->latency.rel_value = (fal->latency.rel_value + n->latency.rel_value) / 2;
4313 n->distance = fal->distance;
4314 if (GNUNET_NO == n->received_pong)
4316 n->received_pong = GNUNET_YES;
4318 notify_clients_connect (&target, n->latency, n->distance);
4319 if (NULL != (prem = n->pre_connect_message_buffer))
4321 n->pre_connect_message_buffer = NULL;
4322 handle_payload_message (prem, n);
4326 if (n->retry_task != GNUNET_SCHEDULER_NO_TASK)
4328 GNUNET_SCHEDULER_cancel (n->retry_task);
4329 n->retry_task = GNUNET_SCHEDULER_NO_TASK;
4330 try_transmission_to_peer (n);
4334 /* clean up validation entry */
4335 GNUNET_assert (GNUNET_YES ==
4336 GNUNET_CONTAINER_multihashmap_remove (validation_map,
4339 abort_validation (NULL, NULL, ve);
4345 * Function that will be called if we receive a validation
4346 * of an address challenge that we transmitted to another
4347 * peer. Note that the validation should only be considered
4348 * acceptable if the challenge matches AND if the sender
4349 * address is at least a plausible address for this peer
4350 * (otherwise we may be seeing a MiM attack).
4352 * @param cls closure
4353 * @param message the pong message
4354 * @param peer who responded to our challenge
4355 * @param sender_address string describing our sender address (as observed
4356 * by the other peer in binary format)
4357 * @param sender_address_len number of bytes in 'sender_address'
4360 handle_pong (void *cls, const struct GNUNET_MessageHeader *message,
4361 const struct GNUNET_PeerIdentity *peer,
4362 const char *sender_address,
4363 size_t sender_address_len)
4365 if (0 == memcmp (peer,
4367 sizeof (struct GNUNET_PeerIdentity)))
4369 /* PONG send to self, ignore */
4373 #if DEBUG_TRANSPORT > 1
4374 /* we get tons of these that just get discarded, only log
4375 if we are quite verbose */
4376 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
4377 "Receiving `%s' message from `%4s'.\n", "PONG",
4380 GNUNET_STATISTICS_update (stats,
4381 gettext_noop ("# PONG messages received"),
4384 if (GNUNET_SYSERR !=
4385 GNUNET_CONTAINER_multihashmap_get_multiple (validation_map,
4387 &check_pending_validation,
4390 /* This is *expected* to happen a lot since we send
4391 PONGs to *all* known addresses of the sender of
4392 the PING, so most likely we get multiple PONGs
4393 per PING, and all but the first PONG will end up
4394 here. So really we should not print anything here
4395 unless we want to be very, very verbose... */
4396 #if DEBUG_TRANSPORT > 2
4397 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
4398 "Received `%s' message from `%4s' but have no record of a matching `%s' message. Ignoring.\n",
4410 * Try to validate a neighbour's address by sending him our HELLO and a PING.
4412 * @param cls the 'struct ValidationEntry*'
4413 * @param neighbour neighbour to validate, NULL if validation failed
4416 transmit_hello_and_ping (void *cls,
4417 struct NeighbourList *neighbour)
4419 struct ValidationEntry *va = cls;
4420 struct ForeignAddressList *peer_address;
4421 struct TransportPingMessage ping;
4422 uint16_t hello_size;
4425 struct GNUNET_PeerIdentity id;
4428 GNUNET_CRYPTO_hash (&va->publicKey,
4429 sizeof (struct GNUNET_CRYPTO_RsaPublicKeyBinaryEncoded),
4431 if (neighbour == NULL)
4433 /* FIXME: stats... */
4434 GNUNET_break (GNUNET_OK ==
4435 GNUNET_CONTAINER_multihashmap_remove (validation_map,
4438 abort_validation (NULL, NULL, va);
4441 neighbour->publicKey = va->publicKey;
4442 neighbour->public_key_valid = GNUNET_YES;
4443 peer_address = add_peer_address (neighbour,
4444 va->transport_name, NULL,
4445 (const void*) &va[1],
4447 if (peer_address == NULL)
4449 GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
4450 "Failed to add peer `%4s' for plugin `%s'\n",
4451 GNUNET_i2s (&neighbour->id),
4452 va->transport_name);
4453 GNUNET_break (GNUNET_OK ==
4454 GNUNET_CONTAINER_multihashmap_remove (validation_map,
4457 abort_validation (NULL, NULL, va);
4460 hello_size = GNUNET_HELLO_size(our_hello);
4461 slen = strlen(va->transport_name) + 1;
4462 tsize = sizeof(struct TransportPingMessage) + hello_size + va->addrlen + slen;
4463 message_buf = GNUNET_malloc(tsize);
4464 ping.challenge = htonl(va->challenge);
4465 ping.header.size = htons(sizeof(struct TransportPingMessage) + slen + va->addrlen);
4466 ping.header.type = htons(GNUNET_MESSAGE_TYPE_TRANSPORT_PING);
4467 memcpy(&ping.target, &neighbour->id, sizeof(struct GNUNET_PeerIdentity));
4468 memcpy(message_buf, our_hello, hello_size);
4469 memcpy(&message_buf[hello_size],
4471 sizeof(struct TransportPingMessage));
4472 memcpy(&message_buf[hello_size + sizeof (struct TransportPingMessage)],
4475 memcpy(&message_buf[hello_size + sizeof (struct TransportPingMessage) + slen],
4479 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
4480 "Performing validation of address `%s' via `%s' for peer `%4s' sending `%s' (%u bytes) and `%s' (%u bytes)\n",
4483 : a2s (va->transport_name,
4484 (const void*) &va[1], va->addrlen),
4486 GNUNET_i2s (&neighbour->id),
4487 "HELLO", hello_size,
4488 "PING", sizeof (struct TransportPingMessage) + va->addrlen + slen);
4491 GNUNET_STATISTICS_update (stats,
4492 gettext_noop ("# PING messages sent for initial validation"),
4495 transmit_to_peer (NULL, peer_address,
4496 GNUNET_SCHEDULER_PRIORITY_DEFAULT,
4497 HELLO_VERIFICATION_TIMEOUT,
4499 GNUNET_YES, neighbour);
4500 GNUNET_free(message_buf);
4505 * Check if the given address is already being validated; if not,
4506 * append the given address to the list of entries that are being be
4507 * validated and initiate validation.
4509 * @param cls closure ('struct CheckHelloValidatedContext *')
4510 * @param tname name of the transport
4511 * @param expiration expiration time
4512 * @param addr the address
4513 * @param addrlen length of the address
4514 * @return GNUNET_OK (always)
4517 run_validation (void *cls,
4519 struct GNUNET_TIME_Absolute expiration,
4523 struct CheckHelloValidatedContext *chvc = cls;
4524 struct GNUNET_PeerIdentity id;
4525 struct TransportPlugin *tp;
4526 struct ValidationEntry *va;
4527 struct GNUNET_CRYPTO_RsaPublicKeyBinaryEncoded pk;
4528 struct CheckAddressExistsClosure caec;
4529 struct OwnAddressList *oal;
4531 GNUNET_assert (addr != NULL);
4533 GNUNET_STATISTICS_update (stats,
4534 gettext_noop ("# peer addresses scheduled for validation"),
4537 tp = find_transport (tname);
4540 GNUNET_log (GNUNET_ERROR_TYPE_INFO |
4541 GNUNET_ERROR_TYPE_BULK,
4543 ("Transport `%s' not loaded, will not try to validate peer address using this transport.\n"),
4545 GNUNET_STATISTICS_update (stats,
4546 gettext_noop ("# peer addresses not validated (plugin not available)"),
4551 /* check if this is one of our own addresses */
4552 oal = tp->addresses;
4555 if ( (oal->addrlen == addrlen) &&
4556 (0 == memcmp (&oal[1],
4560 /* not plausible, this address is equivalent to our own address! */
4561 GNUNET_STATISTICS_update (stats,
4562 gettext_noop ("# peer addresses not validated (loopback)"),
4569 GNUNET_HELLO_get_key (chvc->hello, &pk);
4570 GNUNET_CRYPTO_hash (&pk,
4572 GNUNET_CRYPTO_RsaPublicKeyBinaryEncoded),
4575 if (is_blacklisted(&id, tp))
4578 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
4579 "Attempted to validate blacklisted peer `%s' using `%s'!\n",
4587 caec.addrlen = addrlen;
4588 caec.session = NULL;
4590 caec.exists = GNUNET_NO;
4591 GNUNET_CONTAINER_multihashmap_iterate (validation_map,
4592 &check_address_exists,
4594 if (caec.exists == GNUNET_YES)
4596 /* During validation attempts we will likely trigger the other
4597 peer trying to validate our address which in turn will cause
4598 it to send us its HELLO, so we expect to hit this case rather
4599 frequently. Only print something if we are very verbose. */
4600 #if DEBUG_TRANSPORT > 1
4601 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
4602 "Validation of address `%s' via `%s' for peer `%4s' already in progress.\n",
4603 a2s (tname, addr, addrlen),
4607 GNUNET_STATISTICS_update (stats,
4608 gettext_noop ("# peer addresses not validated (in progress)"),
4613 va = GNUNET_malloc (sizeof (struct ValidationEntry) + addrlen);
4616 va->transport_name = GNUNET_strdup (tname);
4617 va->challenge = GNUNET_CRYPTO_random_u32 (GNUNET_CRYPTO_QUALITY_NONCE,
4619 va->send_time = GNUNET_TIME_absolute_get();
4620 va->addr = (const void*) &va[1];
4621 memcpy (&va[1], addr, addrlen);
4622 va->addrlen = addrlen;
4623 GNUNET_HELLO_get_key (chvc->hello,
4625 va->timeout_task = GNUNET_SCHEDULER_add_delayed (HELLO_VERIFICATION_TIMEOUT,
4626 &timeout_hello_validation,
4628 GNUNET_CONTAINER_multihashmap_put (validation_map,
4631 GNUNET_CONTAINER_MULTIHASHMAPOPTION_MULTIPLE);
4632 setup_peer_check_blacklist (&id, GNUNET_NO,
4633 &transmit_hello_and_ping,
4640 * Check if addresses in validated hello "h" overlap with
4641 * those in "chvc->hello" and validate the rest.
4643 * @param cls closure
4644 * @param peer id of the peer, NULL for last call
4645 * @param h hello message for the peer (can be NULL)
4646 * @param err_msg NULL if successful, otherwise contains error message
4649 check_hello_validated (void *cls,
4650 const struct GNUNET_PeerIdentity *peer,
4651 const struct GNUNET_HELLO_Message *h,
4652 const char *err_msg)
4654 struct CheckHelloValidatedContext *chvc = cls;
4655 struct GNUNET_HELLO_Message *plain_hello;
4656 struct GNUNET_CRYPTO_RsaPublicKeyBinaryEncoded pk;
4657 struct GNUNET_PeerIdentity target;
4658 struct NeighbourList *n;
4660 if (err_msg != NULL)
4663 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
4664 _("Error in communication with PEERINFO service: %s\n"),
4672 GNUNET_STATISTICS_update (stats,
4673 gettext_noop ("# outstanding peerinfo iterate requests"),
4677 if (GNUNET_NO == chvc->hello_known)
4679 /* notify PEERINFO about the peer now, so that we at least
4680 have the public key if some other component needs it */
4681 GNUNET_HELLO_get_key (chvc->hello, &pk);
4682 GNUNET_CRYPTO_hash (&pk,
4683 sizeof (struct GNUNET_CRYPTO_RsaPublicKeyBinaryEncoded),
4684 &target.hashPubKey);
4685 plain_hello = GNUNET_HELLO_create (&pk,
4688 GNUNET_PEERINFO_add_peer (peerinfo, plain_hello);
4689 GNUNET_free (plain_hello);
4690 #if DEBUG_TRANSPORT_HELLO
4691 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
4692 "PEERINFO had no `%s' message for peer `%4s', full validation needed.\n",
4694 GNUNET_i2s (&target));
4696 GNUNET_STATISTICS_update (stats,
4697 gettext_noop ("# new HELLOs requiring full validation"),
4700 GNUNET_HELLO_iterate_addresses (chvc->hello,
4707 GNUNET_STATISTICS_update (stats,
4708 gettext_noop ("# duplicate HELLO (peer known)"),
4713 if (chvc->ve_count == 0)
4715 GNUNET_CONTAINER_DLL_remove (chvc_head,
4724 #if DEBUG_TRANSPORT_HELLO
4725 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
4726 "PEERINFO had `%s' message for peer `%4s', validating only new addresses.\n",
4730 chvc->hello_known = GNUNET_YES;
4731 n = find_neighbour (peer);
4734 #if DEBUG_TRANSPORT_HELLO
4735 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
4736 "Calling hello_iterate_addresses for %s!\n",
4739 GNUNET_HELLO_iterate_addresses (h,
4741 &add_to_foreign_address_list,
4743 try_transmission_to_peer (n);
4747 #if DEBUG_TRANSPORT_HELLO
4748 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
4749 "No existing neighbor record for %s!\n",
4752 GNUNET_STATISTICS_update (stats,
4753 gettext_noop ("# no existing neighbour record (validating HELLO)"),
4757 GNUNET_STATISTICS_update (stats,
4758 gettext_noop ("# HELLO validations (update case)"),
4761 GNUNET_HELLO_iterate_new_addresses (chvc->hello,
4763 GNUNET_TIME_relative_to_absolute (HELLO_REVALIDATION_START_TIME),
4770 * Process HELLO-message.
4772 * @param plugin transport involved, may be NULL
4773 * @param message the actual message
4774 * @return GNUNET_OK if the HELLO was well-formed, GNUNET_SYSERR otherwise
4777 process_hello (struct TransportPlugin *plugin,
4778 const struct GNUNET_MessageHeader *message)
4781 struct GNUNET_PeerIdentity target;
4782 const struct GNUNET_HELLO_Message *hello;
4783 struct CheckHelloValidatedContext *chvc;
4784 struct GNUNET_CRYPTO_RsaPublicKeyBinaryEncoded publicKey;
4785 #if DEBUG_TRANSPORT_HELLO > 2
4788 hsize = ntohs (message->size);
4789 if ((ntohs (message->type) != GNUNET_MESSAGE_TYPE_HELLO) ||
4790 (hsize < sizeof (struct GNUNET_MessageHeader)))
4793 return GNUNET_SYSERR;
4795 GNUNET_STATISTICS_update (stats,
4796 gettext_noop ("# HELLOs received for validation"),
4800 /* first, check if load is too high */
4801 if (GNUNET_SCHEDULER_get_load (GNUNET_SCHEDULER_PRIORITY_BACKGROUND) > MAX_HELLO_LOAD)
4803 GNUNET_STATISTICS_update (stats,
4804 gettext_noop ("# HELLOs ignored due to high load"),
4807 #if DEBUG_TRANSPORT_HELLO
4808 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
4809 "Ignoring `%s' for `%4s', load too high.\n",
4811 GNUNET_i2s (&target));
4815 hello = (const struct GNUNET_HELLO_Message *) message;
4816 if (GNUNET_OK != GNUNET_HELLO_get_key (hello, &publicKey))
4818 #if DEBUG_TRANSPORT_HELLO
4819 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
4820 "Unable to get public key from `%s' for `%4s'!\n",
4822 GNUNET_i2s (&target));
4824 GNUNET_break_op (0);
4825 return GNUNET_SYSERR;
4828 GNUNET_CRYPTO_hash (&publicKey,
4829 sizeof (struct GNUNET_CRYPTO_RsaPublicKeyBinaryEncoded),
4830 &target.hashPubKey);
4832 #if DEBUG_TRANSPORT_HELLO
4833 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
4834 "Received `%s' message for `%4s'\n",
4836 GNUNET_i2s (&target));
4839 if (0 == memcmp (&my_identity,
4841 sizeof (struct GNUNET_PeerIdentity)))
4843 GNUNET_STATISTICS_update (stats,
4844 gettext_noop ("# HELLOs ignored for validation (is my own HELLO)"),
4850 while (NULL != chvc)
4852 if (GNUNET_HELLO_equals (hello,
4854 GNUNET_TIME_absolute_get ()).abs_value > 0)
4856 #if DEBUG_TRANSPORT_HELLO > 2
4857 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
4858 "Received duplicate `%s' message for `%4s'; ignored\n",
4860 GNUNET_i2s (&target));
4862 return GNUNET_OK; /* validation already pending */
4864 if (GNUNET_HELLO_size(hello) == GNUNET_HELLO_size (chvc->hello))
4865 GNUNET_break (0 != memcmp (hello, chvc->hello,
4866 GNUNET_HELLO_size(hello)));
4871 struct NeighbourList *temp_neighbor = find_neighbour(&target);
4872 if ((NULL != temp_neighbor))
4874 fprintf(stderr, "Already know peer, ignoring hello\n");
4879 #if DEBUG_TRANSPORT_HELLO > 2
4882 my_id = GNUNET_strdup(GNUNET_i2s(plugin->env.my_identity));
4884 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
4885 "%s: Starting validation of `%s' message for `%4s' via '%s' of size %u\n",
4888 GNUNET_i2s (&target),
4890 GNUNET_HELLO_size(hello));
4895 chvc = GNUNET_malloc (sizeof (struct CheckHelloValidatedContext) + hsize);
4897 chvc->hello = (const struct GNUNET_HELLO_Message *) &chvc[1];
4898 memcpy (&chvc[1], hello, hsize);
4899 GNUNET_CONTAINER_DLL_insert (chvc_head,
4902 /* finally, check if HELLO was previously validated
4903 (continuation will then schedule actual validation) */
4904 GNUNET_STATISTICS_update (stats,
4905 gettext_noop ("# peerinfo process hello iterate requests"),
4908 GNUNET_STATISTICS_update (stats,
4909 gettext_noop ("# outstanding peerinfo iterate requests"),
4912 chvc->piter = GNUNET_PEERINFO_iterate (peerinfo,
4914 HELLO_VERIFICATION_TIMEOUT,
4915 &check_hello_validated, chvc);
4921 * The peer specified by the given neighbour has timed-out or a plugin
4922 * has disconnected. We may either need to do nothing (other plugins
4923 * still up), or trigger a full disconnect and clean up. This
4924 * function updates our state and does the necessary notifications.
4925 * Also notifies our clients that the neighbour is now officially
4928 * @param n the neighbour list entry for the peer
4929 * @param check GNUNET_YES to check if ALL addresses for this peer
4930 * are gone, GNUNET_NO to force a disconnect of the peer
4931 * regardless of whether other addresses exist.
4934 disconnect_neighbour (struct NeighbourList *n, int check)
4936 struct ReadyList *rpos;
4937 struct NeighbourList *npos;
4938 struct NeighbourList *nprev;
4939 struct MessageQueue *mq;
4940 struct ForeignAddressList *peer_addresses;
4941 struct ForeignAddressList *peer_pos;
4943 if (GNUNET_YES == check)
4946 while (NULL != rpos)
4948 peer_addresses = rpos->addresses;
4949 while (peer_addresses != NULL)
4951 // Do not disconnect if: an address is connected or an inbound address exists
4952 if ((GNUNET_YES == peer_addresses->connected) || (peer_addresses->addrlen == 0))
4955 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
4956 "NOT Disconnecting from `%4s', still have live addresses!\n",
4957 GNUNET_i2s (&n->id));
4959 return; /* still connected */
4961 peer_addresses = peer_addresses->next;
4967 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG | GNUNET_ERROR_TYPE_BULK,
4968 "Disconnecting from `%4s'\n",
4969 GNUNET_i2s (&n->id));
4971 /* remove n from neighbours list */
4974 while ((npos != NULL) && (npos != n))
4979 GNUNET_assert (npos != NULL);
4981 neighbours = n->next;
4983 nprev->next = n->next;
4985 /* notify all clients about disconnect */
4986 if (GNUNET_YES == n->received_pong)
4987 notify_clients_disconnect (&n->id);
4989 /* clean up all plugins, cancel connections and pending transmissions */
4990 while (NULL != (rpos = n->plugins))
4992 n->plugins = rpos->next;
4993 rpos->plugin->api->disconnect (rpos->plugin->api->cls, &n->id);
4994 while (rpos->addresses != NULL)
4996 peer_pos = rpos->addresses;
4997 rpos->addresses = peer_pos->next;
4998 if (peer_pos->connected == GNUNET_YES)
4999 GNUNET_STATISTICS_update (stats,
5000 gettext_noop ("# connected addresses"),
5003 if (GNUNET_YES == peer_pos->validated)
5004 GNUNET_STATISTICS_update (stats,
5005 gettext_noop ("# peer addresses considered valid"),
5008 if (GNUNET_SCHEDULER_NO_TASK != peer_pos->revalidate_task)
5010 GNUNET_SCHEDULER_cancel (peer_pos->revalidate_task);
5011 peer_pos->revalidate_task = GNUNET_SCHEDULER_NO_TASK;
5013 GNUNET_free(peer_pos->ressources);
5014 peer_pos->ressources = NULL;
5015 GNUNET_free(peer_pos->quality);
5016 peer_pos->ressources = NULL;
5017 GNUNET_free(peer_pos);
5018 ats->stat.recreate_problem = GNUNET_YES;
5023 /* free all messages on the queue */
5024 while (NULL != (mq = n->messages_head))
5026 GNUNET_STATISTICS_update (stats,
5027 gettext_noop ("# bytes in message queue for other peers"),
5028 - (int64_t) mq->message_buf_size,
5030 GNUNET_STATISTICS_update (stats,
5031 gettext_noop ("# bytes discarded due to disconnect"),
5032 mq->message_buf_size,
5034 GNUNET_CONTAINER_DLL_remove (n->messages_head,
5037 GNUNET_assert (0 == memcmp(&mq->neighbour_id,
5039 sizeof(struct GNUNET_PeerIdentity)));
5042 if (n->timeout_task != GNUNET_SCHEDULER_NO_TASK)
5044 GNUNET_SCHEDULER_cancel (n->timeout_task);
5045 n->timeout_task = GNUNET_SCHEDULER_NO_TASK;
5047 if (n->retry_task != GNUNET_SCHEDULER_NO_TASK)
5049 GNUNET_SCHEDULER_cancel (n->retry_task);
5050 n->retry_task = GNUNET_SCHEDULER_NO_TASK;
5052 if (n->piter != NULL)
5054 GNUNET_PEERINFO_iterate_cancel (n->piter);
5055 GNUNET_STATISTICS_update (stats,
5056 gettext_noop ("# outstanding peerinfo iterate requests"),
5061 /* finally, free n itself */
5062 GNUNET_STATISTICS_update (stats,
5063 gettext_noop ("# active neighbours"),
5066 GNUNET_free_non_null (n->pre_connect_message_buffer);
5072 * We have received a PING message from someone. Need to send a PONG message
5073 * in response to the peer by any means necessary.
5076 handle_ping(void *cls, const struct GNUNET_MessageHeader *message,
5077 const struct GNUNET_PeerIdentity *peer,
5078 struct Session *session,
5079 const char *sender_address,
5080 uint16_t sender_address_len)
5082 struct TransportPlugin *plugin = cls;
5083 struct SessionHeader *session_header = (struct SessionHeader*) session;
5084 struct TransportPingMessage *ping;
5085 struct TransportPongMessage *pong;
5086 struct NeighbourList *n;
5087 struct ReadyList *rl;
5088 struct ForeignAddressList *fal;
5089 struct OwnAddressList *oal;
5094 if (ntohs (message->size) < sizeof (struct TransportPingMessage))
5096 GNUNET_break_op (0);
5097 return GNUNET_SYSERR;
5100 ping = (struct TransportPingMessage *) message;
5101 if (0 != memcmp (&ping->target,
5102 plugin->env.my_identity,
5103 sizeof (struct GNUNET_PeerIdentity)))
5106 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
5107 _("Received `%s' message from `%s' destined for `%s' which is not me!\n"),
5109 (sender_address != NULL)
5110 ? a2s (plugin->short_name,
5111 (const struct sockaddr *)sender_address,
5114 GNUNET_i2s (&ping->target));
5116 return GNUNET_SYSERR;
5119 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG | GNUNET_ERROR_TYPE_BULK,
5120 "Processing `%s' from `%s'\n",
5122 (sender_address != NULL)
5123 ? a2s (plugin->short_name,
5124 (const struct sockaddr *)sender_address,
5128 GNUNET_STATISTICS_update (stats,
5129 gettext_noop ("# PING messages received"),
5132 addr = (const char*) &ping[1];
5133 alen = ntohs (message->size) - sizeof (struct TransportPingMessage);
5134 slen = strlen (plugin->short_name) + 1;
5137 /* peer wants to confirm that we have an outbound connection to him */
5138 if (session == NULL)
5140 GNUNET_log (GNUNET_ERROR_TYPE_INFO,
5141 _("Refusing to create PONG since I do not have a session with `%s'.\n"),
5143 return GNUNET_SYSERR;
5145 pong = GNUNET_malloc (sizeof (struct TransportPongMessage) + sender_address_len + slen);
5146 pong->header.size = htons (sizeof (struct TransportPongMessage) + sender_address_len + slen);
5147 pong->header.type = htons (GNUNET_MESSAGE_TYPE_TRANSPORT_PONG);
5148 pong->purpose.size =
5149 htonl (sizeof (struct GNUNET_CRYPTO_RsaSignaturePurpose) +
5151 sizeof (struct GNUNET_TIME_AbsoluteNBO) +
5152 sizeof (struct GNUNET_PeerIdentity) + sender_address_len + slen);
5153 pong->purpose.purpose = htonl (GNUNET_SIGNATURE_PURPOSE_TRANSPORT_PONG_USING);
5154 pong->challenge = ping->challenge;
5155 pong->addrlen = htonl(sender_address_len + slen);
5158 sizeof(struct GNUNET_PeerIdentity));
5162 if ((sender_address!=NULL) && (sender_address_len > 0))
5163 memcpy (&((char*)&pong[1])[slen],
5165 sender_address_len);
5166 if (GNUNET_TIME_absolute_get_remaining (session_header->pong_sig_expires).rel_value < PONG_SIGNATURE_LIFETIME.rel_value / 4)
5168 /* create / update cached sig */
5170 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
5171 "Creating PONG signature to indicate active connection.\n");
5173 session_header->pong_sig_expires = GNUNET_TIME_relative_to_absolute (PONG_SIGNATURE_LIFETIME);
5174 pong->expiration = GNUNET_TIME_absolute_hton (session_header->pong_sig_expires);
5175 GNUNET_assert (GNUNET_OK ==
5176 GNUNET_CRYPTO_rsa_sign (my_private_key,
5178 &session_header->pong_signature));
5182 pong->expiration = GNUNET_TIME_absolute_hton (session_header->pong_sig_expires);
5184 memcpy (&pong->signature,
5185 &session_header->pong_signature,
5186 sizeof (struct GNUNET_CRYPTO_RsaSignature));
5192 /* peer wants to confirm that this is one of our addresses */
5196 plugin->api->check_address (plugin->api->cls,
5200 GNUNET_log (GNUNET_ERROR_TYPE_INFO,
5201 _("Not confirming PING with address `%s' since I cannot confirm having this address.\n"),
5202 a2s (plugin->short_name,
5207 oal = plugin->addresses;
5210 if ( (oal->addrlen == alen) &&
5217 pong = GNUNET_malloc (sizeof (struct TransportPongMessage) + alen + slen);
5218 pong->header.size = htons (sizeof (struct TransportPongMessage) + alen + slen);
5219 pong->header.type = htons (GNUNET_MESSAGE_TYPE_TRANSPORT_PONG);
5220 pong->purpose.size =
5221 htonl (sizeof (struct GNUNET_CRYPTO_RsaSignaturePurpose) +
5223 sizeof (struct GNUNET_TIME_AbsoluteNBO) +
5224 sizeof (struct GNUNET_PeerIdentity) + alen + slen);
5225 pong->purpose.purpose = htonl (GNUNET_SIGNATURE_PURPOSE_TRANSPORT_PONG_OWN);
5226 pong->challenge = ping->challenge;
5227 pong->addrlen = htonl(alen + slen);
5230 sizeof(struct GNUNET_PeerIdentity));
5231 memcpy (&pong[1], plugin->short_name, slen);
5232 memcpy (&((char*)&pong[1])[slen], addr, alen);
5233 if ( (oal != NULL) &&
5234 (GNUNET_TIME_absolute_get_remaining (oal->pong_sig_expires).rel_value < PONG_SIGNATURE_LIFETIME.rel_value / 4) )
5236 /* create / update cached sig */
5238 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
5239 "Creating PONG signature to indicate ownership.\n");
5241 oal->pong_sig_expires = GNUNET_TIME_absolute_min (oal->expires,
5242 GNUNET_TIME_relative_to_absolute (PONG_SIGNATURE_LIFETIME));
5243 pong->expiration = GNUNET_TIME_absolute_hton (oal->pong_sig_expires);
5244 GNUNET_assert (GNUNET_OK ==
5245 GNUNET_CRYPTO_rsa_sign (my_private_key,
5247 &oal->pong_signature));
5248 memcpy (&pong->signature,
5249 &oal->pong_signature,
5250 sizeof (struct GNUNET_CRYPTO_RsaSignature));
5252 else if (oal == NULL)
5254 /* not using cache (typically DV-only) */
5255 pong->expiration = GNUNET_TIME_absolute_hton (GNUNET_TIME_relative_to_absolute (PONG_SIGNATURE_LIFETIME));
5256 GNUNET_assert (GNUNET_OK ==
5257 GNUNET_CRYPTO_rsa_sign (my_private_key,
5263 /* can used cached version */
5264 pong->expiration = GNUNET_TIME_absolute_hton (oal->pong_sig_expires);
5265 memcpy (&pong->signature,
5266 &oal->pong_signature,
5267 sizeof (struct GNUNET_CRYPTO_RsaSignature));
5270 n = find_neighbour(peer);
5271 GNUNET_assert (n != NULL);
5272 /* first try reliable response transmission */
5276 fal = rl->addresses;
5279 if (-1 != rl->plugin->api->send (rl->plugin->api->cls,
5282 ntohs (pong->header.size),
5283 TRANSPORT_PONG_PRIORITY,
5284 HELLO_VERIFICATION_TIMEOUT,
5292 GNUNET_STATISTICS_update (stats,
5293 gettext_noop ("# PONGs unicast via reliable transport"),
5303 /* no reliable method found, do multicast */
5304 GNUNET_STATISTICS_update (stats,
5305 gettext_noop ("# PONGs multicast to all available addresses"),
5311 fal = rl->addresses;
5314 transmit_to_peer(NULL, fal,
5315 TRANSPORT_PONG_PRIORITY,
5316 HELLO_VERIFICATION_TIMEOUT,
5318 ntohs(pong->header.size),
5331 * Function called by the plugin for each received message. Update
5332 * data volumes, possibly notify plugins about reducing the rate at
5333 * which they read from the socket and generally forward to our
5336 * @param cls the "struct TransportPlugin *" we gave to the plugin
5337 * @param peer (claimed) identity of the other peer
5338 * @param message the message, NULL if we only care about
5339 * learning about the delay until we should receive again
5340 * @param ats_data information for automatic transport selection
5341 * @param ats_count number of elements in ats not including 0-terminator
5342 * @param session identifier used for this session (can be NULL)
5343 * @param sender_address binary address of the sender (if observed)
5344 * @param sender_address_len number of bytes in sender_address
5345 * @return how long in ms the plugin should wait until receiving more data
5346 * (plugins that do not support this, can ignore the return value)
5348 static struct GNUNET_TIME_Relative
5349 plugin_env_receive (void *cls, const struct GNUNET_PeerIdentity *peer,
5350 const struct GNUNET_MessageHeader *message,
5351 const struct GNUNET_TRANSPORT_ATS_Information *ats_data,
5353 struct Session *session,
5354 const char *sender_address,
5355 uint16_t sender_address_len)
5357 struct TransportPlugin *plugin = cls;
5358 struct ReadyList *service_context;
5359 struct ForeignAddressList *peer_address;
5361 struct NeighbourList *n;
5362 struct GNUNET_TIME_Relative ret;
5366 if (0 == memcmp (peer,
5368 sizeof (struct GNUNET_PeerIdentity)))
5370 /* refuse to receive from myself */
5372 return GNUNET_TIME_UNIT_FOREVER_REL;
5374 if (is_blacklisted (peer, plugin))
5375 return GNUNET_TIME_UNIT_FOREVER_REL;
5376 n = find_neighbour (peer);
5378 n = setup_new_neighbour (peer, GNUNET_YES);
5379 service_context = n->plugins;
5380 while ((service_context != NULL) && (plugin != service_context->plugin))
5381 service_context = service_context->next;
5382 GNUNET_assert ((plugin->api->send == NULL) || (service_context != NULL));
5383 peer_address = NULL;
5386 for (c=0; c<ats_count; c++)
5387 if (ntohl(ats_data[c].type) == GNUNET_TRANSPORT_ATS_QUALITY_NET_DISTANCE)
5388 distance = ntohl(ats_data[c].value);
5390 /* notify ATS about incoming data */
5391 //ats_notify_ats_data(peer, ats_data);
5393 if (message != NULL)
5395 if ( (session != NULL) ||
5396 (sender_address != NULL) )
5397 peer_address = add_peer_address (n,
5401 sender_address_len);
5402 if (peer_address != NULL)
5404 update_addr_ats(peer_address, ats_data, ats_count);
5405 update_addr_value(peer_address, distance, GNUNET_TRANSPORT_ATS_QUALITY_NET_DISTANCE);
5407 peer_address->distance = distance;
5408 if (GNUNET_YES == peer_address->validated)
5409 mark_address_connected (peer_address);
5410 peer_address->timeout
5411 = GNUNET_TIME_relative_to_absolute (GNUNET_CONSTANTS_IDLE_CONNECTION_TIMEOUT);
5412 schedule_next_ping (peer_address);
5414 /* update traffic received amount ... */
5415 msize = ntohs (message->size);
5417 GNUNET_STATISTICS_update (stats,
5418 gettext_noop ("# bytes received from other peers"),
5421 n->distance = distance;
5423 GNUNET_TIME_relative_to_absolute
5424 (GNUNET_CONSTANTS_IDLE_CONNECTION_TIMEOUT);
5425 GNUNET_SCHEDULER_cancel (n->timeout_task);
5427 GNUNET_SCHEDULER_add_delayed (GNUNET_CONSTANTS_IDLE_CONNECTION_TIMEOUT,
5428 &neighbour_timeout_task, n);
5429 if (n->quota_violation_count > QUOTA_VIOLATION_DROP_THRESHOLD)
5431 /* dropping message due to frequent inbound volume violations! */
5432 GNUNET_log (GNUNET_ERROR_TYPE_WARNING |
5433 GNUNET_ERROR_TYPE_BULK,
5435 ("Dropping incoming message due to repeated bandwidth quota (%u b/s) violations (total of %u).\n"),
5436 n->in_tracker.available_bytes_per_s__,
5437 n->quota_violation_count);
5438 GNUNET_STATISTICS_update (stats,
5439 gettext_noop ("# bandwidth quota violations by other peers"),
5442 return GNUNET_CONSTANTS_QUOTA_VIOLATION_TIMEOUT;
5444 if ((ntohs(message->type) == GNUNET_MESSAGE_TYPE_TRANSPORT_ATS) &&
5445 (ntohs(message->size) == (sizeof (struct GNUNET_MessageHeader) + sizeof (uint32_t))))
5447 uint32_t value = ntohl(*((uint32_t *) &message[1]));
5448 //GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "GNUNET_MESSAGE_TYPE_TRANSPORT_ATS: %i \n", value);
5449 /* Force ressource and quality update */
5452 ats->stat.modified_resources = GNUNET_YES;
5453 ats->stat.modified_quality = GNUNET_YES;
5455 /* Force cost update */
5457 ats->stat.modified_resources = GNUNET_YES;
5458 /* Force quality update */
5460 ats->stat.modified_quality = GNUNET_YES;
5461 /* Force full rebuild */
5463 ats->stat.recreate_problem = GNUNET_YES;
5467 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
5468 "Received message of type %u and size %u from `%4s', sending to all clients.\n",
5469 ntohs (message->type),
5470 ntohs (message->size),
5473 switch (ntohs (message->type))
5475 case GNUNET_MESSAGE_TYPE_HELLO:
5476 GNUNET_STATISTICS_update (stats,
5477 gettext_noop ("# HELLO messages received from other peers"),
5480 process_hello (plugin, message);
5482 case GNUNET_MESSAGE_TYPE_TRANSPORT_PING:
5483 handle_ping (plugin, message, peer, session, sender_address, sender_address_len);
5485 case GNUNET_MESSAGE_TYPE_TRANSPORT_PONG:
5486 handle_pong (plugin, message, peer, sender_address, sender_address_len);
5488 case GNUNET_MESSAGE_TYPE_TRANSPORT_ATS:
5491 handle_payload_message (message, n);
5495 ret = GNUNET_BANDWIDTH_tracker_get_delay (&n->in_tracker, 0);
5496 if (ret.rel_value > 0)
5499 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
5500 "Throttling read (%llu bytes excess at %u b/s), waiting %llu ms before reading more.\n",
5501 (unsigned long long) n->in_tracker.consumption_since_last_update__,
5502 (unsigned int) n->in_tracker.available_bytes_per_s__,
5503 (unsigned long long) ret.rel_value);
5505 GNUNET_STATISTICS_update (stats,
5506 gettext_noop ("# ms throttling suggested"),
5507 (int64_t) ret.rel_value,
5514 * Handle START-message. This is the first message sent to us
5515 * by any client which causes us to add it to our list.
5517 * @param cls closure (always NULL)
5518 * @param client identification of the client
5519 * @param message the actual message
5522 handle_start (void *cls,
5523 struct GNUNET_SERVER_Client *client,
5524 const struct GNUNET_MessageHeader *message)
5526 const struct StartMessage *start;
5527 struct TransportClient *c;
5528 struct ConnectInfoMessage * cim;
5529 struct NeighbourList *n;
5533 start = (const struct StartMessage*) message;
5535 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
5536 "Received `%s' request from client\n", "START");
5541 if (c->client == client)
5543 /* client already on our list! */
5545 GNUNET_SERVER_receive_done (client, GNUNET_SYSERR);
5550 if ( (GNUNET_NO != ntohl (start->do_check)) &&
5551 (0 != memcmp (&start->self,
5553 sizeof (struct GNUNET_PeerIdentity))) )
5555 GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
5556 _("Rejecting control connection from peer `%s', which is not me!\n"),
5557 GNUNET_i2s (&start->self));
5558 GNUNET_SERVER_receive_done (client, GNUNET_SYSERR);
5561 c = GNUNET_malloc (sizeof (struct TransportClient));
5565 if (our_hello != NULL)
5568 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
5569 "Sending our own `%s' to new client\n", "HELLO");
5571 transmit_to_client (c,
5572 (const struct GNUNET_MessageHeader *) our_hello,
5574 /* tell new client about all existing connections */
5576 size = sizeof (struct ConnectInfoMessage) + ats_count * sizeof (struct GNUNET_TRANSPORT_ATS_Information);
5577 if (size > GNUNET_SERVER_MAX_MESSAGE_SIZE)
5581 cim = GNUNET_malloc (size);
5582 cim->header.size = htons (size);
5583 cim->header.type = htons (GNUNET_MESSAGE_TYPE_TRANSPORT_CONNECT);
5584 cim->ats_count = htonl(ats_count);
5585 (&(cim->ats))[2].type = htonl (GNUNET_TRANSPORT_ATS_ARRAY_TERMINATOR);
5586 (&(cim->ats))[2].value = htonl (0);
5590 if (GNUNET_YES == n->received_pong)
5592 (&(cim->ats))[0].type = htonl (GNUNET_TRANSPORT_ATS_QUALITY_NET_DISTANCE);
5593 (&(cim->ats))[0].value = htonl (n->distance);
5594 (&(cim->ats))[1].type = htonl (GNUNET_TRANSPORT_ATS_QUALITY_NET_DELAY);
5595 (&(cim->ats))[1].value = htonl ((uint32_t) n->latency.rel_value);
5597 transmit_to_client (c, &cim->header, GNUNET_NO);
5603 GNUNET_SERVER_receive_done (client, GNUNET_OK);
5608 * Handle HELLO-message.
5610 * @param cls closure (always NULL)
5611 * @param client identification of the client
5612 * @param message the actual message
5615 handle_hello (void *cls,
5616 struct GNUNET_SERVER_Client *client,
5617 const struct GNUNET_MessageHeader *message)
5621 GNUNET_STATISTICS_update (stats,
5622 gettext_noop ("# HELLOs received from clients"),
5625 ret = process_hello (NULL, message);
5626 GNUNET_SERVER_receive_done (client, ret);
5631 * Closure for 'transmit_client_message'; followed by
5632 * 'msize' bytes of the actual message.
5634 struct TransmitClientMessageContext
5637 * Client on whom's behalf we are sending.
5639 struct GNUNET_SERVER_Client *client;
5642 * Timeout for the transmission.
5644 struct GNUNET_TIME_Absolute timeout;
5652 * Size of the message in bytes.
5659 * Schedule transmission of a message we got from a client to a peer.
5661 * @param cls the 'struct TransmitClientMessageContext*'
5662 * @param n destination, or NULL on error (in that case, drop the message)
5665 transmit_client_message (void *cls,
5666 struct NeighbourList *n)
5668 struct TransmitClientMessageContext *tcmc = cls;
5669 struct TransportClient *tc;
5672 while ((tc != NULL) && (tc->client != tcmc->client))
5677 transmit_to_peer (tc, NULL, tcmc->priority,
5678 GNUNET_TIME_absolute_get_remaining (tcmc->timeout),
5680 tcmc->msize, GNUNET_NO, n);
5682 GNUNET_SERVER_receive_done (tcmc->client, GNUNET_OK);
5683 GNUNET_SERVER_client_drop (tcmc->client);
5689 * Handle SEND-message.
5691 * @param cls closure (always NULL)
5692 * @param client identification of the client
5693 * @param message the actual message
5696 handle_send (void *cls,
5697 struct GNUNET_SERVER_Client *client,
5698 const struct GNUNET_MessageHeader *message)
5700 const struct OutboundMessage *obm;
5701 const struct GNUNET_MessageHeader *obmm;
5702 struct TransmitClientMessageContext *tcmc;
5706 size = ntohs (message->size);
5708 sizeof (struct OutboundMessage) + sizeof (struct GNUNET_MessageHeader))
5711 GNUNET_SERVER_receive_done (client, GNUNET_SYSERR);
5714 GNUNET_STATISTICS_update (stats,
5715 gettext_noop ("# payload received for other peers"),
5718 obm = (const struct OutboundMessage *) message;
5719 obmm = (const struct GNUNET_MessageHeader *) &obm[1];
5720 msize = size - sizeof (struct OutboundMessage);
5722 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
5723 "Received `%s' request from client with target `%4s' and message of type %u and size %u\n",
5724 "SEND", GNUNET_i2s (&obm->peer),
5728 tcmc = GNUNET_malloc (sizeof (struct TransmitClientMessageContext) + msize);
5729 tcmc->client = client;
5730 tcmc->priority = ntohl (obm->priority);
5731 tcmc->timeout = GNUNET_TIME_relative_to_absolute (GNUNET_TIME_relative_ntoh (obm->timeout));
5732 tcmc->msize = msize;
5733 /* FIXME: this memcpy can be up to 7% of our total runtime */
5734 memcpy (&tcmc[1], obmm, msize);
5735 GNUNET_SERVER_client_keep (client);
5736 setup_peer_check_blacklist (&obm->peer, GNUNET_YES,
5737 &transmit_client_message,
5743 * Handle request connect message
5745 * @param cls closure (always NULL)
5746 * @param client identification of the client
5747 * @param message the actual message
5750 handle_request_connect (void *cls,
5751 struct GNUNET_SERVER_Client *client,
5752 const struct GNUNET_MessageHeader *message)
5754 const struct TransportRequestConnectMessage *trcm =
5755 (const struct TransportRequestConnectMessage *) message;
5757 GNUNET_STATISTICS_update (stats,
5758 gettext_noop ("# REQUEST CONNECT messages received"),
5762 GNUNET_log(GNUNET_ERROR_TYPE_DEBUG,
5763 "Received a request connect message for peer `%s'\n",
5764 GNUNET_i2s(&trcm->peer));
5766 setup_peer_check_blacklist (&trcm->peer, GNUNET_YES,
5768 GNUNET_SERVER_receive_done (client, GNUNET_OK);
5773 * Handle SET_QUOTA-message.
5775 * @param cls closure (always NULL)
5776 * @param client identification of the client
5777 * @param message the actual message
5780 handle_set_quota (void *cls,
5781 struct GNUNET_SERVER_Client *client,
5782 const struct GNUNET_MessageHeader *message)
5784 const struct QuotaSetMessage *qsm =
5785 (const struct QuotaSetMessage *) message;
5786 struct NeighbourList *n;
5788 GNUNET_STATISTICS_update (stats,
5789 gettext_noop ("# SET QUOTA messages received"),
5792 n = find_neighbour (&qsm->peer);
5795 GNUNET_SERVER_receive_done (client, GNUNET_OK);
5796 GNUNET_STATISTICS_update (stats,
5797 gettext_noop ("# SET QUOTA messages ignored (no such peer)"),
5803 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
5804 "Received `%s' request (new quota %u, old quota %u) from client for peer `%4s'\n",
5806 (unsigned int) ntohl (qsm->quota.value__),
5807 (unsigned int) n->in_tracker.available_bytes_per_s__,
5808 GNUNET_i2s (&qsm->peer));
5810 GNUNET_BANDWIDTH_tracker_update_quota (&n->in_tracker,
5812 if (0 == ntohl (qsm->quota.value__))
5815 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
5816 "Disconnecting peer `%4s', %s\n", GNUNET_i2s(&n->id),
5819 disconnect_neighbour (n, GNUNET_NO);
5821 GNUNET_SERVER_receive_done (client, GNUNET_OK);
5826 * Take the given address and append it to the set of results sent back to
5829 * @param cls the transmission context used ('struct GNUNET_SERVER_TransmitContext*')
5830 * @param address the resolved name, NULL to indicate the last response
5833 transmit_address_to_client (void *cls, const char *address)
5835 struct GNUNET_SERVER_TransmitContext *tc = cls;
5838 if (NULL != address)
5840 slen = strlen (address) + 1;
5841 GNUNET_SERVER_transmit_context_append_data (tc, address, slen,
5842 GNUNET_MESSAGE_TYPE_TRANSPORT_ADDRESS_REPLY);
5846 GNUNET_SERVER_transmit_context_run (tc, GNUNET_TIME_UNIT_FOREVER_REL);
5852 * Handle AddressLookup-message.
5854 * @param cls closure (always NULL)
5855 * @param client identification of the client
5856 * @param message the actual message
5859 handle_address_lookup (void *cls,
5860 struct GNUNET_SERVER_Client *client,
5861 const struct GNUNET_MessageHeader *message)
5863 const struct AddressLookupMessage *alum;
5864 struct TransportPlugin *lsPlugin;
5865 const char *nameTransport;
5866 const char *address;
5868 struct GNUNET_SERVER_TransmitContext *tc;
5869 struct GNUNET_TIME_Absolute timeout;
5870 struct GNUNET_TIME_Relative rtimeout;
5873 size = ntohs (message->size);
5874 if (size < sizeof (struct AddressLookupMessage))
5876 GNUNET_break_op (0);
5877 GNUNET_SERVER_receive_done (client, GNUNET_SYSERR);
5880 alum = (const struct AddressLookupMessage *) message;
5881 uint32_t addressLen = ntohl (alum->addrlen);
5882 if (size <= sizeof (struct AddressLookupMessage) + addressLen)
5884 GNUNET_break_op (0);
5885 GNUNET_SERVER_receive_done (client, GNUNET_SYSERR);
5888 address = (const char *) &alum[1];
5889 nameTransport = (const char *) &address[addressLen];
5891 [size - sizeof (struct AddressLookupMessage) - addressLen - 1] != '\0')
5893 GNUNET_break_op (0);
5894 GNUNET_SERVER_receive_done (client, GNUNET_SYSERR);
5897 timeout = GNUNET_TIME_absolute_ntoh (alum->timeout);
5898 rtimeout = GNUNET_TIME_absolute_get_remaining (timeout);
5899 numeric = ntohl (alum->numeric_only);
5900 lsPlugin = find_transport (nameTransport);
5901 if (NULL == lsPlugin)
5903 tc = GNUNET_SERVER_transmit_context_create (client);
5904 GNUNET_SERVER_transmit_context_append_data (tc, NULL, 0,
5905 GNUNET_MESSAGE_TYPE_TRANSPORT_ADDRESS_REPLY);
5906 GNUNET_SERVER_transmit_context_run (tc, rtimeout);
5909 GNUNET_SERVER_disable_receive_done_warning (client);
5910 tc = GNUNET_SERVER_transmit_context_create (client);
5911 lsPlugin->api->address_pretty_printer (lsPlugin->api->cls,
5913 address, addressLen,
5916 &transmit_address_to_client, tc);
5921 * Setup the environment for this plugin.
5924 create_environment (struct TransportPlugin *plug)
5926 plug->env.cfg = cfg;
5927 plug->env.my_identity = &my_identity;
5928 plug->env.our_hello = &our_hello;
5929 plug->env.cls = plug;
5930 plug->env.receive = &plugin_env_receive;
5931 plug->env.notify_address = &plugin_env_notify_address;
5932 plug->env.session_end = &plugin_env_session_end;
5933 plug->env.max_connections = max_connect_per_transport;
5934 plug->env.stats = stats;
5939 * Start the specified transport (load the plugin).
5942 start_transport (struct GNUNET_SERVER_Handle *server,
5945 struct TransportPlugin *plug;
5948 GNUNET_log (GNUNET_ERROR_TYPE_INFO,
5949 _("Loading `%s' transport plugin\n"), name);
5950 GNUNET_asprintf (&libname, "libgnunet_plugin_transport_%s", name);
5951 plug = GNUNET_malloc (sizeof (struct TransportPlugin));
5952 create_environment (plug);
5953 plug->short_name = GNUNET_strdup (name);
5954 plug->lib_name = libname;
5955 plug->next = plugins;
5957 plug->api = GNUNET_PLUGIN_load (libname, &plug->env);
5958 if (plug->api == NULL)
5960 GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
5961 _("Failed to load transport plugin for `%s'\n"), name);
5962 GNUNET_free (plug->short_name);
5963 plugins = plug->next;
5964 GNUNET_free (libname);
5971 * Called whenever a client is disconnected. Frees our
5972 * resources associated with that client.
5974 * @param cls closure
5975 * @param client identification of the client
5978 client_disconnect_notification (void *cls,
5979 struct GNUNET_SERVER_Client *client)
5981 struct TransportClient *pos;
5982 struct TransportClient *prev;
5983 struct ClientMessageQueueEntry *mqe;
5984 struct Blacklisters *bl;
5985 struct BlacklistCheck *bc;
5990 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG | GNUNET_ERROR_TYPE_BULK,
5991 "Client disconnected, cleaning up.\n");
5993 /* clean up blacklister */
5997 if (bl->client == client)
6002 if (bc->bl_pos == bl)
6004 bc->bl_pos = bl->next;
6007 GNUNET_CONNECTION_notify_transmit_ready_cancel (bc->th);
6010 if (bc->task == GNUNET_SCHEDULER_NO_TASK)
6011 bc->task = GNUNET_SCHEDULER_add_now (&do_blacklist_check,
6017 GNUNET_CONTAINER_DLL_remove (bl_head,
6020 GNUNET_SERVER_client_drop (bl->client);
6026 /* clean up 'normal' clients */
6029 while ((pos != NULL) && (pos->client != client))
6036 while (NULL != (mqe = pos->message_queue_head))
6038 GNUNET_CONTAINER_DLL_remove (pos->message_queue_head,
6039 pos->message_queue_tail,
6041 pos->message_count--;
6045 clients = pos->next;
6047 prev->next = pos->next;
6048 if (GNUNET_YES == pos->tcs_pending)
6053 if (pos->th != NULL)
6055 GNUNET_CONNECTION_notify_transmit_ready_cancel (pos->th);
6058 GNUNET_break (0 == pos->message_count);
6064 * Function called when the service shuts down. Unloads our plugins
6065 * and cancels pending validations.
6067 * @param cls closure, unused
6068 * @param tc task context (unused)
6071 shutdown_task (void *cls, const struct GNUNET_SCHEDULER_TaskContext *tc)
6073 struct TransportPlugin *plug;
6074 struct OwnAddressList *al;
6075 struct CheckHelloValidatedContext *chvc;
6077 shutdown_in_progress = GNUNET_YES;
6078 while (neighbours != NULL)
6081 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
6082 "Disconnecting peer `%4s', %s\n", GNUNET_i2s(&neighbours->id),
6085 disconnect_neighbour (neighbours, GNUNET_NO);
6088 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
6089 "Transport service is unloading plugins...\n");
6091 while (NULL != (plug = plugins))
6093 plugins = plug->next;
6094 if (plug->address_update_task != GNUNET_SCHEDULER_NO_TASK)
6096 GNUNET_SCHEDULER_cancel (plug->address_update_task);
6097 plug->address_update_task = GNUNET_SCHEDULER_NO_TASK;
6099 GNUNET_break (NULL == GNUNET_PLUGIN_unload (plug->lib_name, plug->api));
6100 GNUNET_free (plug->lib_name);
6101 GNUNET_free (plug->short_name);
6102 while (NULL != (al = plug->addresses))
6104 plug->addresses = al->next;
6109 if (my_private_key != NULL)
6110 GNUNET_CRYPTO_rsa_key_free (my_private_key);
6111 GNUNET_free_non_null (our_hello);
6113 GNUNET_CONTAINER_multihashmap_iterate (validation_map,
6116 GNUNET_CONTAINER_multihashmap_destroy (validation_map);
6117 validation_map = NULL;
6121 /* free 'chvc' data structure */
6122 while (NULL != (chvc = chvc_head))
6124 chvc_head = chvc->next;
6125 if (chvc->piter != NULL)
6127 GNUNET_PEERINFO_iterate_cancel (chvc->piter);
6128 GNUNET_STATISTICS_update (stats,
6129 gettext_noop ("# outstanding peerinfo iterate requests"),
6136 GNUNET_assert (chvc->ve_count == 0);
6143 GNUNET_STATISTICS_destroy (stats, GNUNET_NO);
6146 if (peerinfo != NULL)
6148 GNUNET_PEERINFO_disconnect (peerinfo);
6151 /* Can we assume those are gone by now, or do we need to clean up
6153 GNUNET_break (bl_head == NULL);
6154 GNUNET_break (bc_head == NULL);
6158 static int ats_evaluate_results (int result, int solution, char * problem)
6160 int cont = GNUNET_NO;
6161 #if DEBUG_ATS || VERBOSE_ATS
6162 int error_kind = GNUNET_ERROR_TYPE_DEBUG;
6165 error_kind = GNUNET_ERROR_TYPE_ERROR;
6169 case GNUNET_SYSERR : /* GNUNET problem, not GLPK related */
6170 #if DEBUG_ATS || VERBOSE_ATS
6171 GNUNET_log (error_kind, "%s , GLPK solving not executed\n", problem);
6174 case GLP_ESTOP : /* search terminated by application */
6175 #if DEBUG_ATS || VERBOSE_ATS
6176 GNUNET_log (error_kind, "%s , Search terminated by application\n", problem);
6179 case GLP_EITLIM : /* iteration limit exceeded */
6180 #if DEBUG_ATS || VERBOSE_ATS
6181 GNUNET_log (GNUNET_ERROR_TYPE_WARNING, "%s Iteration limit exceeded\n", problem);
6184 case GLP_ETMLIM : /* time limit exceeded */
6185 #if DEBUG_ATS || VERBOSE_ATS
6186 GNUNET_log (GNUNET_ERROR_TYPE_WARNING, "%s Time limit exceeded\n", problem);
6189 case GLP_ENOPFS : /* no primal feasible solution */
6190 case GLP_ENODFS : /* no dual feasible solution */
6191 #if DEBUG_ATS || VERBOSE_ATS
6192 GNUNET_log (error_kind, "%s No feasible solution\n", problem);
6196 case GLP_EBADB : /* invalid basis */
6197 case GLP_ESING : /* singular matrix */
6198 case GLP_ECOND : /* ill-conditioned matrix */
6199 case GLP_EBOUND : /* invalid bounds */
6200 case GLP_EFAIL : /* solver failed */
6201 case GLP_EOBJLL : /* objective lower limit reached */
6202 case GLP_EOBJUL : /* objective upper limit reached */
6203 case GLP_EROOT : /* root LP optimum not provided */
6204 #if DEBUG_ATS || VERBOSE_ATS
6205 GNUNET_log (error_kind, "%s Invalid Input data: %i\n", problem, result);
6210 #if DEBUG_ATS || VERBOSE_ATS
6211 GNUNET_log (error_kind, "%s Problem has been solved\n", problem);
6218 #if DEBUG_ATS || VERBOSE_ATS
6219 GNUNET_log (error_kind, "%s solution is undefined\n", problem);
6223 #if DEBUG_ATS || VERBOSE_ATS
6224 GNUNET_log (error_kind, "%s solution is optimal\n", problem);
6229 #if DEBUG_ATS || VERBOSE_ATS
6230 GNUNET_log (error_kind, "%s solution is %s feasible, however, its optimality (or non-optimality) has not been proven, \n", problem, (0==strcmp(problem,"LP")?"":"integer"));
6235 #if DEBUG_ATS || VERBOSE_ATS
6236 GNUNET_log (error_kind, "%s problem has no %sfeasible solution\n", problem, (0==strcmp(problem,"LP")?"":"integer "));
6240 #if DEBUG_ATS || VERBOSE_ATS
6241 GNUNET_log (error_kind, "%s problem is infeasible \n", problem);
6245 #if DEBUG_ATS || VERBOSE_ATS
6246 GNUNET_log (error_kind, "%s problem is unbounded \n", problem);
6254 static void ats_solve_problem (unsigned int max_it, unsigned int max_dur, unsigned int c_peers, unsigned int c_mechs, struct ATS_stat *stat)
6256 int result = GNUNET_SYSERR;
6257 int lp_solution = GNUNET_SYSERR;
6258 int mlp_solution = GNUNET_SYSERR;
6262 glp_init_smcp(&opt_lp);
6264 opt_lp.msg_lev = GLP_MSG_ALL;
6266 opt_lp.msg_lev = GLP_MSG_OFF;
6269 // setting iteration limit
6270 opt_lp.it_lim = max_it;
6272 opt_lp.tm_lim = max_dur;
6274 if (ats->stat.recreate_problem == GNUNET_YES)
6275 opt_lp.presolve = GLP_ON;
6276 result = glp_simplex(ats->prob, &opt_lp);
6277 lp_solution = glp_get_status (ats->prob);
6279 if ((result == GLP_ETMLIM) || (result == GLP_EITLIM))
6281 ats->stat.valid = GNUNET_NO;
6282 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "ATS exceeded time or iteration limit!\n");
6286 if (ats_evaluate_results(result, lp_solution, "LP") == GNUNET_YES)
6288 stat->valid = GNUNET_YES;
6292 ats->stat.simplex_rerun_required = GNUNET_YES;
6293 opt_lp.presolve = GLP_ON;
6294 result = glp_simplex(ats->prob, &opt_lp);
6295 lp_solution = glp_get_status (ats->prob);
6297 // TODO: Remove if this does not appear until release
6298 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "EXECUTED SIMPLEX WITH PRESOLVER! %i \n", lp_solution);
6300 if (ats_evaluate_results(result, lp_solution, "LP") != GNUNET_YES)
6302 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "After execution simplex with presolver: STILL INVALID!\n");
6304 GNUNET_asprintf (&filename, "ats_mlp_p%i_m%i_%llu.mlp",ats->stat.c_peers, ats->stat.c_mechs, GNUNET_TIME_absolute_get().abs_value);
6305 glp_write_lp (ats->prob, NULL, filename);
6306 GNUNET_free (filename);
6307 stat->valid = GNUNET_NO;
6308 ats->stat.recreate_problem = GNUNET_YES;
6311 stat->valid = GNUNET_YES;
6316 glp_init_iocp(&opt_mlp);
6318 opt_mlp.tm_lim = max_dur;
6321 opt_mlp.msg_lev = GLP_MSG_ALL;
6323 opt_mlp.msg_lev = GLP_MSG_OFF;
6326 result = glp_intopt (ats->prob, &opt_mlp);
6327 mlp_solution = glp_mip_status (ats->prob);
6328 stat->solution = mlp_solution;
6330 if (ats_evaluate_results(result, mlp_solution, "MLP") == GNUNET_YES)
6332 stat->valid = GNUNET_YES;
6336 // TODO: Remove if this does not appear until release
6337 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "MLP solution for %i peers, %i mechs is invalid: %i\n", ats->stat.c_peers, ats->stat.c_mechs, mlp_solution);
6338 stat->valid = GNUNET_NO;
6343 int error = GNUNET_NO;
6345 struct ATS_mechanism *t = NULL;
6346 for (c=1; c<= (c_peers); c++ )
6349 t = peers[c].m_head;
6352 bw = glp_get_col_prim(prob, t->col_index);
6356 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "[%i][%i] `%s' %s %s %f\n", c, t->col_index, GNUNET_h2s(&peers[c].peer.hashPubKey), t->plugin->short_name, glp_get_col_name(prob,t->col_index), bw);
6358 if (check ==GNUNET_YES)
6360 glp_write_sol(prob, "invalid_solution.mlp");
6361 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "Invalid solution, check invalid_solution.mlp");
6362 GNUNET_STATISTICS_update (stats, "ATS invalid solutions", 1, GNUNET_NO);
6365 if (check ==GNUNET_NO)
6373 if (glp_get_col_prim(ats->prob,2*c_mechs+1) != 1)
6376 for (c=1; c<= available_quality_metrics; c++ )
6378 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "%s %f\n", glp_get_col_name(ats->prob,2*c_mechs+3+c), glp_get_col_prim(ats->prob,2*c_mechs+3+c));
6380 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "%s %f\n", glp_get_col_name(ats->prob,2*c_mechs+1), glp_get_col_prim(ats->prob,2*c_mechs+1));
6381 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "%s %f\n", glp_get_col_name(ats->prob,2*c_mechs+2), glp_get_col_prim(ats->prob,2*c_mechs+2));
6382 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "%s %f\n", glp_get_col_name(ats->prob,2*c_mechs+3), glp_get_col_prim(ats->prob,2*c_mechs+3));
6383 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "objective value: %f\n", glp_mip_obj_val(ats->prob));
6388 static void ats_delete_problem ()
6391 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "Deleting problem\n");
6395 for (c=0; c< (ats->stat).c_mechs; c++)
6396 GNUNET_free_non_null (ats->mechanisms[c].rc);
6399 if (ats->mechanisms!=NULL)
6401 GNUNET_free(ats->mechanisms);
6402 ats->mechanisms = NULL;
6405 if (ats->peers!=NULL)
6407 GNUNET_free(ats->peers);
6411 if (ats->prob != NULL)
6413 glp_delete_prob(ats->prob);
6417 ats->stat.begin_cr = GNUNET_SYSERR;
6418 ats->stat.begin_qm = GNUNET_SYSERR;
6419 ats->stat.c_mechs = 0;
6420 ats->stat.c_peers = 0;
6421 ats->stat.end_cr = GNUNET_SYSERR;
6422 ats->stat.end_qm = GNUNET_SYSERR;
6423 ats->stat.solution = GNUNET_SYSERR;
6424 ats->stat.valid = GNUNET_SYSERR;
6428 static void ats_update_problem_qm ()
6433 int c_q_metrics = available_quality_metrics;
6435 int *ja = GNUNET_malloc ((1 + ats->stat.c_mechs*2 + 3 + available_quality_metrics) * sizeof (int));
6436 double *ar = GNUNET_malloc ((1 + ats->stat.c_mechs*2 + 3 + available_quality_metrics) * sizeof (double));
6438 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "Updating problem quality metrics\n");
6440 row_index = ats->stat.begin_qm;
6442 for (c=1; c <= c_q_metrics; c++)
6447 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "bounds [row]=[%i] \n",row_index);
6450 glp_set_row_bnds(ats->prob, row_index, GLP_FX, 0.0, 0.0);
6451 for (c2=1; c2<=ats->stat.c_mechs; c2++)
6453 ja[array_index] = c2;
6455 GNUNET_assert (ats->mechanisms[c2].addr != NULL);
6456 GNUNET_assert (ats->mechanisms[c2].peer != NULL);
6458 if (qm[c-1].atis_index == GNUNET_TRANSPORT_ATS_QUALITY_NET_DELAY)
6460 double v0 = 0, v1 = 0, v2 = 0;
6462 v0 = ats->mechanisms[c2].addr->quality[c-1].values[0];
6463 if (v1 < 1) v0 = 0.1;
6464 v1 = ats->mechanisms[c2].addr->quality[c-1].values[1];
6465 if (v1 < 1) v0 = 0.1;
6466 v2 = ats->mechanisms[c2].addr->quality[c-1].values[2];
6467 if (v1 < 1) v0 = 0.1;
6468 value = 100.0 / ((v0 + 2 * v1 + 3 * v2) / 6.0);
6471 if (qm[c-1].atis_index == GNUNET_TRANSPORT_ATS_QUALITY_NET_DISTANCE)
6473 double v0 = 0, v1 = 0, v2 = 0;
6474 v0 = ats->mechanisms[c2].addr->quality[c-1].values[0];
6476 v1 = ats->mechanisms[c2].addr->quality[c-1].values[1];
6478 v2 = ats->mechanisms[c2].addr->quality[c-1].values[2];
6480 value = (v0 + 2 * v1 + 3 * v2) / 6.0;
6482 value = (double) 10 / value;
6486 ar[array_index] = (ats->mechanisms[c2].peer->f) * value;
6488 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "[index]=[%i]: %s [%i,%i]=%f \n",array_index, qm[c-1].name, row_index, ja[array_index], ar[array_index]);
6492 ja[array_index] = ats->stat.col_qm + c - 1;
6493 ar[array_index] = -1;
6496 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "[index]=[%i]: [%i,%i]=%f \n",array_index, row_index, ja[array_index], ar[array_index]);
6498 glp_set_mat_row (ats->prob, row_index, array_index, ja, ar);
6504 GNUNET_free_non_null (ja);
6505 GNUNET_free_non_null (ar);
6509 static void ats_update_problem_cr ()
6515 double ct_max, ct_min;
6517 int *ja = GNUNET_malloc ((1 + ats->stat.c_mechs*2 + 3 + available_quality_metrics) * sizeof (int));
6518 double *ar = GNUNET_malloc ((1 + ats->stat.c_mechs*2 + 3 + available_quality_metrics) * sizeof (double));
6520 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "Updating problem quality metrics\n");
6521 row_index = ats->stat.begin_cr;
6524 for (c=0; c<available_ressources; c++)
6526 ct_max = ressources[c].c_max;
6527 ct_min = ressources[c].c_min;
6529 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "bounds [row]=[%i] %f..%f\n",row_index, ct_min, ct_max);
6531 glp_set_row_bnds(ats->prob, row_index, GLP_DB, ct_min, ct_max);
6533 for (c2=1; c2<=ats->stat.c_mechs; c2++)
6537 GNUNET_assert (ats->mechanisms[c2].addr != NULL);
6538 GNUNET_assert (ats->mechanisms[c2].peer != NULL);
6540 ja[array_index] = c2;
6541 value = ats->mechanisms[c2].addr->ressources[c].c;
6542 ar[array_index] = value;
6544 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "[index]=[%i]: [%i,%i]=%f \n",array_index, row_index, ja[array_index], ar[array_index]);
6548 glp_set_mat_row (ats->prob, row_index, array_index, ja, ar);
6554 GNUNET_free_non_null (ja);
6555 GNUNET_free_non_null (ar);
6560 static void ats_update_problem_qm_TEST ()
6565 int old_ja[ats->stat.c_mechs + 2];
6566 double old_ar[ats->stat.c_mechs + 2];
6570 int *ja = GNUNET_malloc ((1 + ats->stat.c_mechs*2 + 3 + available_quality_metrics) * sizeof (int));
6571 double *ar = GNUNET_malloc ((1 + ats->stat.c_mechs*2 + 3 + available_quality_metrics) * sizeof (double));
6573 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "Updating problem quality metrics TEST\n");
6575 if (ats->stat.begin_qm >0)
6576 row_index = ats->stat.begin_qm;
6581 for (c=0; c<available_quality_metrics; c++)
6584 c_old = glp_get_mat_row (ats->prob, row_index, old_ja, old_ar);
6586 glp_set_row_bnds(ats->prob, row_index, GLP_FX, 0.0, 0.0);
6588 for (c2=1; c2<=c_old; c2++)
6590 ja[c2] = old_ja[c2];
6591 if ((changed < 3) && (c2>2) && (old_ar[c2] != -1))
6593 ar[c2] = old_ar[c2] + 5 - changed;
6597 ar[c2] = old_ar[c2];
6599 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "[index]=[%i]: old [%i,%i]=%f new [%i,%i]=%f\n",c2, row_index, old_ja[c2], old_ar[c2], row_index, ja[c2], ar[c2]);
6602 glp_set_mat_row (ats->prob, row_index, c_old, ja, ar);
6607 GNUNET_free_non_null (ja);
6608 GNUNET_free_non_null (ar);
6610 #endif //END: HAVE_LIBGLPK
6612 /** solve the bandwidth distribution problem
6613 * @param max_it maximum iterations
6614 * @param max_dur maximum duration in ms
6615 * @param D weight for diversity
6616 * @param U weight for utility
6617 * @param R weight for relativity
6618 * @param v_b_min minimal bandwidth per peer
6619 * @param v_n_min minimum number of connections
6620 * @param stat result struct
6621 * @return GNUNET_SYSERR if glpk is not available, number of mechanisms used
6623 static int ats_create_problem (double D, double U, double R, int v_b_min, int v_n_min, struct ATS_stat *stat)
6625 ats->prob = glp_create_prob();
6631 int c_c_ressources = available_ressources;
6632 int c_q_metrics = available_quality_metrics;
6634 double M = VERY_BIG_DOUBLE_VALUE;
6635 double Q[c_q_metrics+1];
6636 for (c=1; c<=c_q_metrics; c++)
6641 struct NeighbourList *next = neighbours;
6644 int found_addresses = GNUNET_NO;
6645 struct ReadyList *r_next = next->plugins;
6646 while (r_next != NULL)
6648 struct ForeignAddressList * a_next = r_next->addresses;
6649 while (a_next != NULL)
6652 found_addresses = GNUNET_YES;
6653 a_next = a_next->next;
6655 r_next = r_next->next;
6657 if (found_addresses) c_peers++;
6664 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, "No addresses for bw distribution available\n", c_peers);
6666 stat->valid = GNUNET_NO;
6669 return GNUNET_SYSERR;
6672 GNUNET_assert (ats->mechanisms == NULL);
6673 ats->mechanisms = GNUNET_malloc((1+c_mechs) * sizeof (struct ATS_mechanism));
6674 GNUNET_assert (ats->peers == NULL);
6675 ats->peers = GNUNET_malloc((1+c_peers) * sizeof (struct ATS_peer));
6677 struct ATS_mechanism * mechanisms = ats->mechanisms;
6678 struct ATS_peer * peers = ats->peers;
6686 int found_addresses = GNUNET_NO;
6687 struct ReadyList *r_next = next->plugins;
6688 while (r_next != NULL)
6690 struct ForeignAddressList * a_next = r_next->addresses;
6691 while (a_next != NULL)
6693 if (found_addresses == GNUNET_NO)
6695 peers[c_peers].peer = next->id;
6696 peers[c_peers].m_head = NULL;
6697 peers[c_peers].m_tail = NULL;
6698 peers[c_peers].f = 1.0 / c_mechs;
6701 mechanisms[c_mechs].addr = a_next;
6702 mechanisms[c_mechs].col_index = c_mechs;
6703 mechanisms[c_mechs].peer = &peers[c_peers];
6704 mechanisms[c_mechs].next = NULL;
6705 mechanisms[c_mechs].plugin = r_next->plugin;
6707 GNUNET_CONTAINER_DLL_insert_tail(peers[c_peers].m_head, peers[c_peers].m_tail, &mechanisms[c_mechs]);
6708 found_addresses = GNUNET_YES;
6711 a_next = a_next->next;
6713 r_next = r_next->next;
6715 if (found_addresses == GNUNET_YES)
6722 if (v_n_min > c_peers)
6726 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "Creating problem with: %i peers, %i mechanisms, %i resource entries, %i quality metrics \n", c_peers, c_mechs, c_c_ressources, c_q_metrics);
6729 int size = 1 + 3 + 10 *c_mechs + c_peers + (c_q_metrics*c_mechs)+ c_q_metrics + c_c_ressources * c_mechs ;
6732 int * ia = GNUNET_malloc (size * sizeof (int));
6733 int * ja = GNUNET_malloc (size * sizeof (int));
6734 double * ar = GNUNET_malloc(size* sizeof (double));
6736 glp_set_prob_name(ats->prob, "gnunet ats bandwidth distribution");
6737 glp_set_obj_dir(ats->prob, GLP_MAX);
6739 /* adding columns */
6741 glp_add_cols(ats->prob, 2 * c_mechs);
6742 /* adding b_t cols */
6743 for (c=1; c <= c_mechs; c++)
6746 GNUNET_asprintf(&name, "p_%s_b%i",GNUNET_i2s(&(mechanisms[c].peer->peer)), c);
6747 glp_set_col_name(ats->prob, c, name);
6749 glp_set_col_bnds(ats->prob, c, GLP_LO, 0.0, 0.0);
6750 glp_set_col_kind(ats->prob, c, GLP_CV);
6751 glp_set_obj_coef(ats->prob, c, 0);
6754 /* adding n_t cols */
6755 for (c=c_mechs+1; c <= 2*c_mechs; c++)
6757 GNUNET_asprintf(&name, "p_%s_n%i",GNUNET_i2s(&(mechanisms[c-c_mechs].peer->peer)),(c-c_mechs));
6758 glp_set_col_name(ats->prob, c, name);
6760 glp_set_col_bnds(ats->prob, c, GLP_DB, 0.0, 1.0);
6761 glp_set_col_kind(ats->prob, c, GLP_IV);
6762 glp_set_obj_coef(ats->prob, c, 0);
6765 /* feasibility constraints */
6766 /* Constraint 1: one address per peer*/
6768 glp_add_rows(ats->prob, c_peers);
6769 for (c=1; c<=c_peers; c++)
6772 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "bounds [row]=[%i] \n",row_index);
6774 glp_set_row_bnds(ats->prob, row_index, GLP_FX, 1.0, 1.0);
6776 struct ATS_mechanism *m = peers[c].m_head;
6779 ia[array_index] = row_index;
6780 ja[array_index] = (c_mechs + m->col_index);
6781 ar[array_index] = 1;
6783 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "[index]=[%i]: [%i,%i]=%f \n",array_index, ia[array_index], ja[array_index], ar[array_index]);
6791 /* Constraint 2: only active mechanism gets bandwidth assigned */
6792 glp_add_rows(ats->prob, c_mechs);
6793 for (c=1; c<=c_mechs; c++)
6795 /* b_t - n_t * M <= 0 */
6797 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "bounds [row]=[%i] \n",row_index);
6799 glp_set_row_bnds(ats->prob, row_index, GLP_UP, 0.0, 0.0);
6801 ia[array_index] = row_index;
6802 ja[array_index] = mechanisms[c].col_index;
6803 ar[array_index] = 1;
6805 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "[index]=[%i]: [%i,%i]=%f \n",array_index, ia[array_index], ja[array_index], ar[array_index]);
6808 ia[array_index] = row_index;
6809 ja[array_index] = c_mechs + mechanisms[c].col_index;
6810 ar[array_index] = -M;
6812 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "[index]=[%i]: [%i,%i]=%f \n",array_index, ia[array_index], ja[array_index], ar[array_index]);
6818 /* Constraint 3: minimum bandwidth*/
6819 glp_add_rows(ats->prob, c_mechs);
6820 for (c=1; c<=c_mechs; c++)
6822 /* b_t - n_t * b_min <= 0 */
6824 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "bounds [row]=[%i] \n",row_index);
6826 glp_set_row_bnds(ats->prob, row_index, GLP_LO, 0.0, 0.0);
6828 ia[array_index] = row_index;
6829 ja[array_index] = mechanisms[c].col_index;
6830 ar[array_index] = 1;
6832 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "[index]=[%i]: [%i,%i]=%f \n",array_index, ia[array_index], ja[array_index], ar[array_index]);
6835 ia[array_index] = row_index;
6836 ja[array_index] = c_mechs + mechanisms[c].col_index;
6837 ar[array_index] = -v_b_min;
6839 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "[index]=[%i]: [%i,%i]=%f \n",array_index, ia[array_index], ja[array_index], ar[array_index]);
6845 /* Constraint 4: max ressource capacity */
6846 /* V cr: bt * ct_r <= cr_max
6848 glp_add_rows(ats->prob, available_ressources);
6849 double ct_max = VERY_BIG_DOUBLE_VALUE;
6850 double ct_min = 0.0;
6852 stat->begin_cr = array_index;
6854 for (c=0; c<available_ressources; c++)
6856 ct_max = ressources[c].c_max;
6857 ct_min = ressources[c].c_min;
6859 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "bounds [row]=[%i] %f..%f\n",row_index, ct_min, ct_max);
6861 glp_set_row_bnds(ats->prob, row_index, GLP_DB, ct_min, ct_max);
6863 for (c2=1; c2<=c_mechs; c2++)
6866 ia[array_index] = row_index;
6867 ja[array_index] = c2;
6868 value = mechanisms[c2].addr->ressources[c].c;
6869 ar[array_index] = value;
6871 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "[index]=[%i]: [%i,%i]=%f \n",array_index, ia[array_index], ja[array_index], ar[array_index]);
6877 stat->end_cr = array_index--;
6879 /* Constraint 5: min number of connections*/
6880 glp_add_rows(ats->prob, 1);
6881 for (c=1; c<=c_mechs; c++)
6883 // b_t - n_t * b_min >= 0
6885 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "bounds [row]=[%i] \n",row_index);
6887 glp_set_row_bnds(ats->prob, row_index, GLP_LO, v_n_min, 0.0);
6889 ia[array_index] = row_index;
6890 ja[array_index] = c_mechs + mechanisms[c].col_index;
6891 ar[array_index] = 1;
6893 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "[index]=[%i]: [%i,%i]=%f \n",array_index, ia[array_index], ja[array_index], ar[array_index]);
6899 // optimisation constraints
6903 // Constraint 6: optimize for diversity
6905 col_d = glp_add_cols(ats->prob, 1);
6906 stat->col_d = col_d;
6907 //GNUNET_assert (col_d == (2*c_mechs) + 1);
6908 glp_set_col_name(ats->prob, col_d, "d");
6909 glp_set_obj_coef(ats->prob, col_d, D);
6910 glp_set_col_bnds(ats->prob, col_d, GLP_LO, 0.0, 0.0);
6911 glp_add_rows(ats->prob, 1);
6913 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "bounds [row]=[%i] \n",row_index);
6915 glp_set_row_bnds(ats->prob, row_index, GLP_FX, 0.0, 0.0);
6916 for (c=1; c<=c_mechs; c++)
6918 ia[array_index] = row_index;
6919 ja[array_index] = c_mechs + mechanisms[c].col_index;
6920 ar[array_index] = 1;
6922 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "[index]=[%i]: [%i,%i]=%f \n",array_index, ia[array_index], ja[array_index], ar[array_index]);
6926 ia[array_index] = row_index;
6927 ja[array_index] = col_d;
6928 ar[array_index] = -1;
6930 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "[index]=[%i]: [%i,%i]=%f \n",array_index, ia[array_index], ja[array_index], ar[array_index]);
6936 // Constraint 7: optimize for quality
6938 col_qm = glp_add_cols(ats->prob, c_q_metrics);
6939 stat->col_qm = col_qm;
6940 //GNUNET_assert (col_qm == (2*c_mechs) + 3 + 1);
6941 for (c=0; c< c_q_metrics; c++)
6943 GNUNET_asprintf(&name, "Q_%s",qm[c].name);
6944 glp_set_col_name(ats->prob, col_qm + c, name);
6945 glp_set_col_bnds(ats->prob, col_qm + c, GLP_LO, 0.0, 0.0);
6947 glp_set_obj_coef(ats->prob, col_qm + c, Q[c]);
6949 glp_add_rows(ats->prob, available_quality_metrics);
6950 stat->begin_qm = row_index;
6951 for (c=1; c <= c_q_metrics; c++)
6954 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "bounds [row]=[%i] \n",row_index);
6957 glp_set_row_bnds(ats->prob, row_index, GLP_FX, 0.0, 0.0);
6958 for (c2=1; c2<=c_mechs; c2++)
6961 ia[array_index] = row_index;
6962 ja[array_index] = c2;
6963 if (qm[c-1].atis_index == GNUNET_TRANSPORT_ATS_QUALITY_NET_DELAY)
6965 double v0 = 0, v1 = 0, v2 = 0;
6966 v0 = mechanisms[c2].addr->quality[c-1].values[0];
6967 if (v1 < 1) v0 = 0.1;
6968 v1 = mechanisms[c2].addr->quality[c-1].values[1];
6969 if (v1 < 1) v0 = 0.1;
6970 v2 = mechanisms[c2].addr->quality[c-1].values[2];
6971 if (v1 < 1) v0 = 0.1;
6972 value = 100.0 / ((v0 + 2 * v1 + 3 * v2) / 6.0);
6975 if (qm[c-1].atis_index == GNUNET_TRANSPORT_ATS_QUALITY_NET_DISTANCE)
6977 double v0 = 0, v1 = 0, v2 = 0;
6978 v0 = mechanisms[c2].addr->quality[c-1].values[0];
6980 v1 = mechanisms[c2].addr->quality[c-1].values[1];
6982 v2 = mechanisms[c2].addr->quality[c-1].values[2];
6984 value = (v0 + 2 * v1 + 3 * v2) / 6.0;
6986 value = (double) 10 / value;
6990 ar[array_index] = (mechanisms[c2].peer->f) * value ;
6992 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "[index]=[%i]: %s [%i,%i]=%f \n",array_index, qm[c-1].name, ia[array_index], ja[array_index], ar[array_index]);
6997 ia[array_index] = row_index;
6998 ja[array_index] = col_qm + c - 1;
6999 ar[array_index] = -1;
7001 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "[index]=[%i]: [%i,%i]=%f \n",array_index, ia[array_index], ja[array_index], ar[array_index]);
7006 stat->end_qm = row_index-1;
7008 // Constraint 8: optimize bandwidth utility
7010 col_u = glp_add_cols(ats->prob, 1);
7011 stat->col_u = col_u;
7012 //GNUNET_assert (col_u == (2*c_mechs) + 2);
7013 glp_set_col_name(ats->prob, col_u, "u");
7014 glp_set_obj_coef(ats->prob, col_u, U);
7015 glp_set_col_bnds(ats->prob, col_u, GLP_LO, 0.0, 0.0);
7016 glp_add_rows(ats->prob, 1);
7018 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "bounds [row]=[%i] \n",row_index);
7020 glp_set_row_bnds(ats->prob, row_index, GLP_FX, 0.0, 0.0);
7021 for (c=1; c<=c_mechs; c++)
7023 ia[array_index] = row_index;
7024 ja[array_index] = c;
7025 ar[array_index] = mechanisms[c].peer->f;
7027 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "[index]=[%i]: [%i,%i]=%f \n",array_index, ia[array_index], ja[array_index], ar[array_index]);
7031 ia[array_index] = row_index;
7032 ja[array_index] = col_u;
7033 ar[array_index] = -1;
7035 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "[index]=[%i]: [%i,%i]=%f \n",array_index, ia[array_index], ja[array_index], ar[array_index]);
7041 // Constraint 9: optimize relativity
7043 col_r = glp_add_cols(ats->prob, 1);
7044 stat->col_r = col_r;
7045 //GNUNET_assert (col_r == (2*c_mechs) + 3);
7046 glp_set_col_name(ats->prob, col_r, "r");
7047 glp_set_obj_coef(ats->prob, col_r, R);
7048 glp_set_col_bnds(ats->prob, col_r, GLP_LO, 0.0, 0.0);
7049 glp_add_rows(ats->prob, c_peers);
7050 for (c=1; c<=c_peers; c++)
7052 glp_set_row_bnds(ats->prob, row_index, GLP_LO, 0.0, 0.0);
7054 struct ATS_mechanism *m = peers[c].m_head;
7057 ia[array_index] = row_index;
7058 ja[array_index] = m->col_index;
7059 ar[array_index] = 1 / mechanisms[c].peer->f;
7061 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "[index]=[%i]: [%i,%i]=%f \n",array_index, ia[array_index], ja[array_index], ar[array_index]);
7066 ia[array_index] = row_index;
7067 ja[array_index] = col_r;
7068 ar[array_index] = -1;
7070 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "[index]=[%i]: [%i,%i]=%f \n",array_index, ia[array_index], ja[array_index], ar[array_index]);
7077 /* Loading the matrix */
7078 glp_load_matrix(ats->prob, array_index-1, ia, ja, ar);
7080 stat->c_mechs = c_mechs;
7081 stat->c_peers = c_peers;
7083 stat->valid = GNUNET_YES;
7095 void ats_notify_ats_data (
7096 const struct GNUNET_PeerIdentity *peer,
7097 const struct GNUNET_TRANSPORT_ATS_Information *ats_data)
7100 GNUNET_log (GNUNET_ERROR_TYPE_BULK, "ATS_notify_ats_data: %s\n",GNUNET_i2s(peer));
7102 if (shutdown_in_progress == GNUNET_NO)
7103 ats_calculate_bandwidth_distribution();
7105 #endif //END: HAVE_LIBGLPK
7108 ats_calculate_bandwidth_distribution ()
7112 struct GNUNET_TIME_Absolute start;
7113 struct GNUNET_TIME_Relative creation;
7114 struct GNUNET_TIME_Relative solving;
7115 char *text = "unmodified";
7117 struct GNUNET_TIME_Relative delta = GNUNET_TIME_absolute_get_difference (ats->last, GNUNET_TIME_absolute_get());
7118 if (delta.rel_value < ats->min_delta.rel_value)
7121 GNUNET_log (GNUNET_ERROR_TYPE_BULK, "Minimum time between cycles not reached\n");
7126 if (shutdown_in_progress == GNUNET_YES)
7129 GNUNET_log (GNUNET_ERROR_TYPE_BULK, "Transport service is shutting down\n");
7136 if (INT_MAX < ats->max_exec_duration.rel_value)
7139 dur = (int) ats->max_exec_duration.rel_value;
7142 ats->stat.simplex_rerun_required = GNUNET_NO;
7143 start = GNUNET_TIME_absolute_get();
7144 if ((ats->stat.recreate_problem == GNUNET_YES) || (ats->prob==NULL) || (ats->stat.valid == GNUNET_NO))
7147 ats->stat.recreate_problem = GNUNET_YES;
7148 ats_delete_problem ();
7149 ats_create_problem (ats->D, ats->U, ats->R, ats->v_b_min, ats->v_n_min, &ats->stat);
7151 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "Peers/Addresses were modified... new problem: %i peer, %i mechs\n", ats->stat.c_peers, ats->stat.c_mechs);
7155 else if ((ats->stat.recreate_problem == GNUNET_NO) && (ats->stat.modified_resources == GNUNET_YES) && (ats->stat.valid == GNUNET_YES))
7157 text = "modified resources";
7158 ats_update_problem_cr();
7160 else if ((ats->stat.recreate_problem == GNUNET_NO) && (ats->stat.modified_quality == GNUNET_YES) && (ats->stat.valid == GNUNET_YES))
7162 text = "modified quality";
7163 ats_update_problem_qm();
7164 //ats_update_problem_qm_TEST ();
7168 else GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "Problem is unmodified\n");
7171 creation = GNUNET_TIME_absolute_get_difference(start,GNUNET_TIME_absolute_get());
7172 start = GNUNET_TIME_absolute_get();
7174 ats->stat.solution = GLP_UNDEF;
7175 if (ats->stat.valid == GNUNET_YES)
7177 ats_solve_problem(ats->max_iterations, ats->max_exec_duration.rel_value, ats->stat.c_peers, ats->stat.c_mechs, &ats->stat);
7179 solving = GNUNET_TIME_absolute_get_difference(start,GNUNET_TIME_absolute_get());
7181 if (ats->stat.valid == GNUNET_YES)
7183 int msg_type = GNUNET_ERROR_TYPE_DEBUG;
7185 msg_type = GNUNET_ERROR_TYPE_ERROR;
7187 GNUNET_log (msg_type, "MLP %s: creation time: %llu, execution time: %llu, %i mechanisms, simplex rerun: %s, solution %s\n",
7188 text, creation.rel_value, solving.rel_value,
7190 (ats->stat.simplex_rerun_required == GNUNET_NO) ? "NO" : "YES", (ats->stat.solution == 5) ? "OPTIMAL" : "INVALID");
7191 ats->successful_executions ++;
7192 GNUNET_STATISTICS_set (stats, "# ATS successful executions", ats->successful_executions, GNUNET_NO);
7194 if ((ats->stat.recreate_problem == GNUNET_YES) || (ats->prob==NULL))
7195 GNUNET_STATISTICS_set (stats, "ATS state",ATS_NEW, GNUNET_NO);
7196 else if ((ats->stat.modified_resources == GNUNET_YES) &&
7197 (ats->stat.modified_quality == GNUNET_NO))
7198 GNUNET_STATISTICS_set (stats, "ATS state", ATS_C_UPDATED, GNUNET_NO);
7199 else if ((ats->stat.modified_resources == GNUNET_NO) &&
7200 (ats->stat.modified_quality == GNUNET_YES) &&
7201 (ats->stat.simplex_rerun_required == GNUNET_NO))
7202 GNUNET_STATISTICS_set (stats, "ATS state", ATS_Q_UPDATED, GNUNET_NO);
7203 else if ((ats->stat.modified_resources == GNUNET_YES) &&
7204 (ats->stat.modified_quality == GNUNET_YES) &&
7205 (ats->stat.simplex_rerun_required == GNUNET_NO))
7206 GNUNET_STATISTICS_set (stats, "ATS state", ATS_QC_UPDATED, GNUNET_NO);
7207 else if (ats->stat.simplex_rerun_required == GNUNET_NO)
7208 GNUNET_STATISTICS_set (stats, "ATS state", ATS_UNMODIFIED, GNUNET_NO);
7212 if (ats->stat.c_peers != 0)
7214 ats->invalid_executions ++;
7215 GNUNET_STATISTICS_set (stats, "# ATS invalid executions", ats->invalid_executions, GNUNET_NO);
7219 GNUNET_STATISTICS_set (stats, "# ATS successful executions", ats->successful_executions, GNUNET_NO);
7223 GNUNET_STATISTICS_set (stats, "ATS duration", solving.rel_value + creation.rel_value, GNUNET_NO);
7224 GNUNET_STATISTICS_set (stats, "ATS mechanisms", ats->stat.c_mechs, GNUNET_NO);
7225 GNUNET_STATISTICS_set (stats, "ATS peers", ats->stat.c_peers, GNUNET_NO);
7226 GNUNET_STATISTICS_set (stats, "ATS solution", ats->stat.solution, GNUNET_NO);
7227 GNUNET_STATISTICS_set (stats, "ATS timestamp", start.abs_value, GNUNET_NO);
7229 if ((ats->save_mlp == GNUNET_YES) && (ats->stat.c_mechs >= ats->dump_min_peers) && (ats->stat.c_mechs >= ats->dump_min_addr))
7232 if (ats->dump_overwrite == GNUNET_NO)
7234 GNUNET_asprintf (&filename, "ats_mlp_p%i_m%i_%s_%llu.mlp",
7235 ats->stat.c_peers, ats->stat.c_mechs, text, GNUNET_TIME_absolute_get().abs_value);
7236 glp_write_lp (ats->prob, NULL, filename);
7240 GNUNET_asprintf (&filename, "ats_mlp_p%i_m%i.mlp",
7241 ats->stat.c_peers, ats->stat.c_mechs );
7242 glp_write_lp (ats->prob, NULL, filename);
7244 GNUNET_free (filename);
7246 if ((ats->save_solution == GNUNET_YES) && (ats->stat.c_mechs >= ats->dump_min_peers) && (ats->stat.c_mechs >= ats->dump_min_addr))
7249 if (ats->dump_overwrite == GNUNET_NO)
7251 GNUNET_asprintf (&filename, "ats_mlp_p%i_m%i_%s_%llu.sol",
7252 ats->stat.c_peers, ats->stat.c_mechs, text, GNUNET_TIME_absolute_get().abs_value);
7253 glp_print_sol (ats->prob, filename);
7257 GNUNET_asprintf (&filename, "ats_mlp_p%i_m%i.sol",
7258 ats->stat.c_peers, ats->stat.c_mechs);
7259 glp_print_sol (ats->prob, filename);
7261 GNUNET_free (filename);
7264 ats->last = GNUNET_TIME_absolute_get();
7265 ats->stat.recreate_problem = GNUNET_NO;
7266 ats->stat.modified_resources = GNUNET_NO;
7267 ats->stat.modified_quality = GNUNET_NO;
7272 ats_schedule_calculation (void *cls,
7273 const struct GNUNET_SCHEDULER_TaskContext *tc)
7275 struct ATS_info *ats = (struct ATS_info *) cls;
7276 if (ats==NULL) return;
7278 ats->ats_task = GNUNET_SCHEDULER_NO_TASK;
7279 if ( (tc->reason & GNUNET_SCHEDULER_REASON_SHUTDOWN) != 0)
7282 if (shutdown_in_progress == GNUNET_YES)
7286 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "Running scheduled calculation\n");
7289 ats_calculate_bandwidth_distribution (ats);
7291 ats->ats_task = GNUNET_SCHEDULER_add_delayed (ats->exec_interval,
7292 &ats_schedule_calculation, ats);
7298 unsigned long long value;
7301 ats = GNUNET_malloc(sizeof (struct ATS_info));
7303 ats->min_delta = ATS_MIN_INTERVAL;
7304 ats->exec_interval = ATS_EXEC_INTERVAL;
7305 ats->max_exec_duration = ATS_MAX_EXEC_DURATION;
7306 ats->max_iterations = ATS_MAX_ITERATIONS;
7307 ats->ats_task = GNUNET_SCHEDULER_NO_TASK;
7310 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, "ATS not active\n");
7317 ats->v_b_min = 64000;
7319 ats->dump_min_peers = 1;
7320 ats->dump_min_addr = 1;
7321 ats->dump_overwrite = GNUNET_NO;
7322 ats->mechanisms = NULL;
7324 ats->successful_executions = 0;
7325 ats->invalid_executions = 0;
7331 /* loading cost ressources */
7332 for (c=0; c<available_ressources; c++)
7334 GNUNET_asprintf(§ion,"%s_UP",ressources[c].cfg_param);
7335 if (GNUNET_CONFIGURATION_have_value(cfg, "transport", section))
7337 if (GNUNET_OK == GNUNET_CONFIGURATION_get_value_number(cfg, "transport",section, &value))
7340 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "Found ressource cost: [%s] = %llu\n", section, value);
7342 ressources[c].c_max = value;
7345 GNUNET_free (section);
7346 GNUNET_asprintf(§ion,"%s_DOWN",ressources[c].cfg_param);
7347 if (GNUNET_CONFIGURATION_have_value(cfg, "transport", section))
7349 if (GNUNET_OK == GNUNET_CONFIGURATION_get_value_number(cfg, "transport",section, &value))
7352 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "Found ressource cost: [%s] = %llu\n", section, value);
7354 ressources[c].c_min = value;
7357 GNUNET_free (section);
7360 if (GNUNET_CONFIGURATION_have_value(cfg, "transport", "DUMP_MLP"))
7361 ats->save_mlp = GNUNET_CONFIGURATION_get_value_yesno (cfg, "transport","DUMP_MLP");
7363 if (GNUNET_CONFIGURATION_have_value(cfg, "transport", "DUMP_SOLUTION"))
7364 ats->save_solution = GNUNET_CONFIGURATION_get_value_yesno (cfg, "transport","DUMP_SOLUTION");
7365 if (GNUNET_CONFIGURATION_have_value(cfg, "transport", "DUMP_OVERWRITE"))
7366 ats->dump_overwrite = GNUNET_CONFIGURATION_get_value_yesno (cfg, "transport","DUMP_OVERWRITE");
7367 if (GNUNET_CONFIGURATION_have_value(cfg, "transport", "DUMP_MIN_PEERS"))
7369 GNUNET_CONFIGURATION_get_value_number(cfg, "transport","DUMP_MIN_PEERS", &value);
7370 ats->dump_min_peers= value;
7372 if (GNUNET_CONFIGURATION_have_value(cfg, "transport", "DUMP_MIN_ADDRS"))
7374 GNUNET_CONFIGURATION_get_value_number(cfg, "transport","DUMP_MIN_ADDRS", &value);
7375 ats->dump_min_addr= value;
7377 if (GNUNET_CONFIGURATION_have_value(cfg, "transport", "DUMP_OVERWRITE"))
7379 GNUNET_CONFIGURATION_get_value_number(cfg, "transport","DUMP_OVERWRITE", &value);
7380 ats->min_delta.rel_value = value;
7383 if (GNUNET_CONFIGURATION_have_value(cfg, "transport", "ATS_MIN_INTERVAL"))
7385 GNUNET_CONFIGURATION_get_value_number(cfg, "transport","ATS_MIN_INTERVAL", &value);
7386 ats->min_delta.rel_value = value;
7389 if (GNUNET_CONFIGURATION_have_value(cfg, "transport", "ATS_EXEC_INTERVAL"))
7391 GNUNET_CONFIGURATION_get_value_number(cfg, "transport","ATS_EXEC_INTERVAL", &value);
7392 ats->exec_interval.rel_value = value;
7394 if (GNUNET_CONFIGURATION_have_value(cfg, "transport", "ATS_MIN_INTERVAL"))
7396 GNUNET_CONFIGURATION_get_value_number(cfg, "transport","ATS_MIN_INTERVAL", &value);
7397 ats->min_delta.rel_value = value;
7400 ats->ats_task = GNUNET_SCHEDULER_add_now(&ats_schedule_calculation, ats);
7404 static void ats_shutdown ()
7407 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "ats_destroy\n");
7409 if (ats->ats_task != GNUNET_SCHEDULER_NO_TASK)
7410 GNUNET_SCHEDULER_cancel(ats->ats_task);
7411 ats->ats_task = GNUNET_SCHEDULER_NO_TASK;
7414 ats_delete_problem ();
7421 void ats_notify_peer_connect (
7422 const struct GNUNET_PeerIdentity *peer,
7423 const struct GNUNET_TRANSPORT_ATS_Information *ats_data, int ats_count)
7426 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "ats_notify_peer_connect: %s\n",GNUNET_i2s(peer));
7428 //update_addr_ats();
7429 ats->stat.recreate_problem = GNUNET_YES;
7430 ats_calculate_bandwidth_distribution(ats);
7433 void ats_notify_peer_disconnect (
7434 const struct GNUNET_PeerIdentity *peer)
7437 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "ats_notify_peer_disconnect: %s\n",GNUNET_i2s(peer));
7439 ats->stat.recreate_problem = GNUNET_YES;
7440 ats_calculate_bandwidth_distribution (ats);
7443 struct ForeignAddressList * ats_get_preferred_address (
7444 struct NeighbourList *n)
7447 //GNUNET_log (GNUNET_ERROR_TYPE_BULK, "ats_get_prefered_transport for peer: %s\n",GNUNET_i2s(&n->id));
7449 struct ReadyList *next = n->plugins;
7450 while (next != NULL)
7453 //GNUNET_log (GNUNET_ERROR_TYPE_BULK, "plugin: %s %i\n",next->plugin->short_name,strcmp(next->plugin->short_name,"unix"));
7457 return find_ready_address(n);
7461 * Initiate transport service.
7463 * @param cls closure
7464 * @param server the initialized server
7465 * @param c configuration to use
7469 struct GNUNET_SERVER_Handle *server,
7470 const struct GNUNET_CONFIGURATION_Handle *c)
7472 static const struct GNUNET_SERVER_MessageHandler handlers[] = {
7473 {&handle_start, NULL,
7474 GNUNET_MESSAGE_TYPE_TRANSPORT_START, sizeof (struct StartMessage)},
7475 {&handle_hello, NULL,
7476 GNUNET_MESSAGE_TYPE_HELLO, 0},
7477 {&handle_send, NULL,
7478 GNUNET_MESSAGE_TYPE_TRANSPORT_SEND, 0},
7479 {&handle_request_connect, NULL,
7480 GNUNET_MESSAGE_TYPE_TRANSPORT_REQUEST_CONNECT, sizeof(struct TransportRequestConnectMessage)},
7481 {&handle_set_quota, NULL,
7482 GNUNET_MESSAGE_TYPE_TRANSPORT_SET_QUOTA, sizeof (struct QuotaSetMessage)},
7483 {&handle_address_lookup, NULL,
7484 GNUNET_MESSAGE_TYPE_TRANSPORT_ADDRESS_LOOKUP,
7486 {&handle_blacklist_init, NULL,
7487 GNUNET_MESSAGE_TYPE_TRANSPORT_BLACKLIST_INIT, sizeof (struct GNUNET_MessageHeader)},
7488 {&handle_blacklist_reply, NULL,
7489 GNUNET_MESSAGE_TYPE_TRANSPORT_BLACKLIST_REPLY, sizeof (struct BlacklistMessage)},
7495 unsigned long long tneigh;
7498 shutdown_in_progress = GNUNET_NO;
7500 stats = GNUNET_STATISTICS_create ("transport", cfg);
7501 validation_map = GNUNET_CONTAINER_multihashmap_create (64);
7502 /* parse configuration */
7504 GNUNET_CONFIGURATION_get_value_number (c,
7509 GNUNET_CONFIGURATION_get_value_filename (c,
7511 "HOSTKEY", &keyfile)))
7513 GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
7515 ("Transport service is lacking key configuration settings. Exiting.\n"));
7516 GNUNET_SCHEDULER_shutdown ();
7519 GNUNET_STATISTICS_destroy (stats, GNUNET_NO);
7522 GNUNET_CONTAINER_multihashmap_destroy (validation_map);
7523 validation_map = NULL;
7527 max_connect_per_transport = (uint32_t) tneigh;
7528 peerinfo = GNUNET_PEERINFO_connect (cfg);
7529 if (peerinfo == NULL)
7531 GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
7532 _("Could not access PEERINFO service. Exiting.\n"));
7533 GNUNET_SCHEDULER_shutdown ();
7536 GNUNET_STATISTICS_destroy (stats, GNUNET_NO);
7539 GNUNET_CONTAINER_multihashmap_destroy (validation_map);
7540 validation_map = NULL;
7541 GNUNET_free (keyfile);
7544 my_private_key = GNUNET_CRYPTO_rsa_key_create_from_file (keyfile);
7545 GNUNET_free (keyfile);
7546 if (my_private_key == NULL)
7548 GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
7550 ("Transport service could not access hostkey. Exiting.\n"));
7551 GNUNET_SCHEDULER_shutdown ();
7554 GNUNET_STATISTICS_destroy (stats, GNUNET_NO);
7557 GNUNET_CONTAINER_multihashmap_destroy (validation_map);
7558 validation_map = NULL;
7561 GNUNET_CRYPTO_rsa_key_get_public (my_private_key, &my_public_key);
7562 GNUNET_CRYPTO_hash (&my_public_key,
7563 sizeof (my_public_key), &my_identity.hashPubKey);
7564 /* setup notification */
7565 GNUNET_SERVER_disconnect_notify (server,
7566 &client_disconnect_notification, NULL);
7567 /* load plugins... */
7570 GNUNET_CONFIGURATION_get_value_string (c,
7571 "TRANSPORT", "PLUGINS", &plugs))
7573 GNUNET_log (GNUNET_ERROR_TYPE_INFO,
7574 _("Starting transport plugins `%s'\n"), plugs);
7575 pos = strtok (plugs, " ");
7578 start_transport (server, pos);
7580 pos = strtok (NULL, " ");
7582 GNUNET_free (plugs);
7584 GNUNET_SCHEDULER_add_delayed (GNUNET_TIME_UNIT_FOREVER_REL,
7585 &shutdown_task, NULL);
7592 GNUNET_log (GNUNET_ERROR_TYPE_INFO, _("Transport service ready.\n"));
7594 /* If we have a blacklist file, read from it */
7595 read_blacklist_file(cfg);
7596 /* process client requests */
7597 GNUNET_SERVER_add_handlers (server, handlers);
7602 * The main function for the transport service.
7604 * @param argc number of arguments from the command line
7605 * @param argv command line arguments
7606 * @return 0 ok, 1 on error
7609 main (int argc, char *const *argv)
7611 a2s (NULL, NULL, 0); /* make compiler happy */
7612 return (GNUNET_OK ==
7613 GNUNET_SERVICE_run (argc,
7616 GNUNET_SERVICE_OPTION_NONE,
7617 &run, NULL)) ? 0 : 1;
7620 /* end of gnunet-service-transport.c */