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 specific 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 GNUNET_STATISTICS_update (stats,
2508 gettext_noop ("# disconnects due to try_fast_reconnect"),
2512 disconnect_neighbour (nl, GNUNET_YES);
2518 * Function that will be called whenever the plugin internally
2519 * cleans up a session pointer and hence the service needs to
2520 * discard all of those sessions as well. Plugins that do not
2521 * use sessions can simply omit calling this function and always
2522 * use NULL wherever a session pointer is needed.
2524 * @param cls closure
2525 * @param peer which peer was the session for
2526 * @param session which session is being destoyed
2529 plugin_env_session_end (void *cls,
2530 const struct GNUNET_PeerIdentity *peer,
2531 struct Session *session)
2533 struct TransportPlugin *p = cls;
2534 struct NeighbourList *nl;
2535 struct ReadyList *rl;
2536 struct ForeignAddressList *pos;
2537 struct ForeignAddressList *prev;
2540 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
2541 "Session ended with peer `%4s', %s\n",
2543 "plugin_env_session_end");
2545 GNUNET_CONTAINER_multihashmap_iterate (validation_map,
2546 &remove_session_validations,
2548 nl = find_neighbour (peer);
2552 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
2553 "No neighbour record found for peer `%4s'\n",
2556 return; /* was never marked as connected */
2561 if (rl->plugin == p)
2568 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
2569 "Plugin was associated with peer `%4s'\n",
2572 GNUNET_STATISTICS_update (stats,
2573 gettext_noop ("# disconnects due to session end"),
2576 disconnect_neighbour (nl, GNUNET_YES);
2580 pos = rl->addresses;
2581 while ( (pos != NULL) &&
2582 (pos->session != session) )
2590 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
2591 "Session was never marked as ready for peer `%4s'\n",
2594 //FIXME: This conflicts with inbound tcp connections and tcp nat ... debugging in progress
2595 GNUNET_STATISTICS_update (stats,
2596 gettext_noop ("# disconnects due to unready session"),
2599 disconnect_neighbour (nl, GNUNET_YES);
2600 return; /* was never marked as connected */
2602 pos->session = NULL;
2603 if (pos->addrlen != 0)
2605 if (nl->received_pong != GNUNET_NO)
2607 GNUNET_STATISTICS_update (stats,
2608 gettext_noop ("# try_fast_reconnect thanks to plugin_env_session_end"),
2611 if (GNUNET_YES == pos->connected)
2612 try_fast_reconnect (p, nl);
2616 GNUNET_STATISTICS_update (stats,
2617 gettext_noop ("# disconnects due to missing pong"),
2620 if (GNUNET_YES == pos->connected)
2621 disconnect_neighbour (nl, GNUNET_YES);
2625 /* was inbound connection, free 'pos' */
2627 rl->addresses = pos->next;
2629 prev->next = pos->next;
2630 if (GNUNET_SCHEDULER_NO_TASK != pos->revalidate_task)
2632 GNUNET_SCHEDULER_cancel (pos->revalidate_task);
2633 pos->revalidate_task = GNUNET_SCHEDULER_NO_TASK;
2635 GNUNET_free_non_null(pos->ressources);
2636 GNUNET_free_non_null(pos->quality);
2637 if (GNUNET_YES != pos->connected)
2639 /* nothing else to do, connection was never up... */
2644 ats->stat.recreate_problem = GNUNET_YES;
2645 if (nl->received_pong == GNUNET_NO)
2647 GNUNET_STATISTICS_update (stats,
2648 gettext_noop ("# disconnects due to NO pong"),
2651 disconnect_neighbour (nl, GNUNET_YES);
2652 return; /* nothing to do, never connected... */
2654 /* check if we have any validated addresses left */
2655 pos = rl->addresses;
2658 if (GNUNET_YES == pos->validated)
2660 GNUNET_STATISTICS_update (stats,
2661 gettext_noop ("# try_fast_reconnect thanks to validated_address"),
2664 try_fast_reconnect (p, nl);
2669 /* no valid addresses left, signal disconnect! */
2672 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
2673 "Disconnecting peer `%4s', %s\n",
2675 "plugin_env_session_end");
2677 /* FIXME: This doesn't mean there are no addresses left for this PEER,
2678 * it means there aren't any left for this PLUGIN/PEER combination! So
2679 * calling disconnect_neighbour here with GNUNET_NO forces disconnect
2680 * when it isn't necessary. Using GNUNET_YES at least checks to see
2681 * if there are any addresses that work first, so as not to overdo it.
2684 GNUNET_STATISTICS_update (stats,
2685 gettext_noop ("# disconnects due to plugin_env_session_end"),
2688 disconnect_neighbour (nl, GNUNET_YES);
2693 * Function that must be called by each plugin to notify the
2694 * transport service about the addresses under which the transport
2695 * provided by the plugin can be reached.
2697 * @param cls closure
2698 * @param name name of the transport that generated the address
2699 * @param addr one of the addresses of the host, NULL for the last address
2700 * the specific address format depends on the transport
2701 * @param addrlen length of the address
2702 * @param expires when should this address automatically expire?
2705 plugin_env_notify_address (void *cls,
2709 struct GNUNET_TIME_Relative expires)
2711 struct TransportPlugin *p = cls;
2712 struct OwnAddressList *al;
2713 struct GNUNET_TIME_Absolute abex;
2715 GNUNET_assert (addr != NULL);
2716 abex = GNUNET_TIME_relative_to_absolute (expires);
2717 GNUNET_assert (p == find_transport (name));
2721 if ( (addrlen == al->addrlen) &&
2722 (0 == memcmp (addr, &al[1], addrlen)) )
2725 update_addresses (p, GNUNET_NO);
2730 al = GNUNET_malloc (sizeof (struct OwnAddressList) + addrlen);
2731 al->next = p->addresses;
2734 al->addrlen = addrlen;
2735 memcpy (&al[1], addr, addrlen);
2736 update_addresses (p, GNUNET_YES);
2741 * Notify all of our clients about a peer connecting.
2744 notify_clients_connect (const struct GNUNET_PeerIdentity *peer,
2745 struct GNUNET_TIME_Relative latency,
2748 struct ConnectInfoMessage * cim;
2749 struct TransportClient *cpos;
2753 if (0 == memcmp (peer,
2755 sizeof (struct GNUNET_PeerIdentity)))
2761 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
2762 "Notifying clients about connection from `%s'\n",
2765 GNUNET_STATISTICS_update (stats,
2766 gettext_noop ("# peers connected"),
2771 size = sizeof (struct ConnectInfoMessage) + ats_count * sizeof (struct GNUNET_TRANSPORT_ATS_Information);
2772 if (size > GNUNET_SERVER_MAX_MESSAGE_SIZE)
2776 cim = GNUNET_malloc (size);
2777 cim->header.size = htons (size);
2778 cim->header.type = htons (GNUNET_MESSAGE_TYPE_TRANSPORT_CONNECT);
2779 cim->ats_count = htonl(2);
2780 (&(cim->ats))[0].type = htonl (GNUNET_TRANSPORT_ATS_QUALITY_NET_DISTANCE);
2781 (&(cim->ats))[0].value = htonl (distance);
2782 (&(cim->ats))[1].type = htonl (GNUNET_TRANSPORT_ATS_QUALITY_NET_DELAY);
2783 (&(cim->ats))[1].value = htonl ((uint32_t) latency.rel_value);
2784 (&(cim->ats))[2].type = htonl (GNUNET_TRANSPORT_ATS_ARRAY_TERMINATOR);
2785 (&(cim->ats))[2].value = htonl (0);
2786 memcpy (&cim->id, peer, sizeof (struct GNUNET_PeerIdentity));
2788 /* notify ats about connecting peer */
2789 if (shutdown_in_progress == GNUNET_NO)
2790 ats_notify_peer_connect (peer, &(cim->ats), 2);
2793 while (cpos != NULL)
2795 transmit_to_client (cpos, &(cim->header), GNUNET_NO);
2804 * Notify all of our clients about a peer disconnecting.
2807 notify_clients_disconnect (const struct GNUNET_PeerIdentity *peer)
2809 struct DisconnectInfoMessage dim;
2810 struct TransportClient *cpos;
2812 if (0 == memcmp (peer,
2814 sizeof (struct GNUNET_PeerIdentity)))
2820 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
2821 "Notifying clients about lost connection to `%s'\n",
2824 GNUNET_STATISTICS_update (stats,
2825 gettext_noop ("# peers connected"),
2828 dim.header.size = htons (sizeof (struct DisconnectInfoMessage));
2829 dim.header.type = htons (GNUNET_MESSAGE_TYPE_TRANSPORT_DISCONNECT);
2830 dim.reserved = htonl (0);
2831 memcpy (&dim.peer, peer, sizeof (struct GNUNET_PeerIdentity));
2833 /* notify ats about connecting peer */
2834 if (shutdown_in_progress == GNUNET_NO)
2835 ats_notify_peer_disconnect (peer);
2838 while (cpos != NULL)
2840 transmit_to_client (cpos, &dim.header, GNUNET_NO);
2847 * Find a ForeignAddressList entry for the given neighbour
2848 * that matches the given address and transport.
2850 * @param neighbour which peer we care about
2851 * @param tname name of the transport plugin
2852 * @param session session to look for, NULL for 'any'; otherwise
2853 * can be used for the service to "learn" this session ID
2855 * @param addr binary address
2856 * @param addrlen length of addr
2857 * @return NULL if no such entry exists
2859 static struct ForeignAddressList *
2860 find_peer_address(struct NeighbourList *neighbour,
2862 struct Session *session,
2866 struct ReadyList *head;
2867 struct ForeignAddressList *pos;
2869 head = neighbour->plugins;
2870 while (head != NULL)
2872 if (0 == strcmp (tname, head->plugin->short_name))
2878 pos = head->addresses;
2879 while ( (pos != NULL) &&
2880 ( (pos->addrlen != addrlen) ||
2881 (memcmp(pos->addr, addr, addrlen) != 0) ) )
2883 if ( (session != NULL) &&
2884 (pos->session == session) )
2888 if ( (session != NULL) && (pos != NULL) )
2889 pos->session = session; /* learn it! */
2895 * Get the peer address struct for the given neighbour and
2896 * address. If it doesn't yet exist, create it.
2898 * @param neighbour which peer we care about
2899 * @param tname name of the transport plugin
2900 * @param session session of the plugin, or NULL for none
2901 * @param addr binary address
2902 * @param addrlen length of addr
2903 * @return NULL if we do not have a transport plugin for 'tname'
2905 static struct ForeignAddressList *
2906 add_peer_address (struct NeighbourList *neighbour,
2908 struct Session *session,
2912 struct ReadyList *head;
2913 struct ForeignAddressList *ret;
2916 ret = find_peer_address (neighbour, tname, session, addr, addrlen);
2919 head = neighbour->plugins;
2921 while (head != NULL)
2923 if (0 == strcmp (tname, head->plugin->short_name))
2929 ret = GNUNET_malloc(sizeof(struct ForeignAddressList) + addrlen);
2930 ret->session = session;
2931 if ((addrlen > 0) && (addr != NULL))
2933 ret->addr = (const char*) &ret[1];
2934 memcpy (&ret[1], addr, addrlen);
2941 ret->ressources = GNUNET_malloc(available_ressources * sizeof (struct ATS_ressource_entry));
2942 for (c=0; c<available_ressources; c++)
2944 struct ATS_ressource_entry *r = ret->ressources;
2946 r[c].atis_index = ressources[c].atis_index;
2947 if (0 == strcmp(neighbour->plugins->plugin->short_name,"unix"))
2949 r[c].c = ressources[c].c_unix;
2951 else if (0 == strcmp(neighbour->plugins->plugin->short_name,"udp"))
2953 r[c].c = ressources[c].c_udp;
2955 else if (0 == strcmp(neighbour->plugins->plugin->short_name,"tcp"))
2957 r[c].c = ressources[c].c_tcp;
2959 else if (0 == strcmp(neighbour->plugins->plugin->short_name,"http"))
2961 r[c].c = ressources[c].c_http;
2963 else if (0 == strcmp(neighbour->plugins->plugin->short_name,"https"))
2965 r[c].c = ressources[c].c_https;
2967 else if (0 == strcmp(neighbour->plugins->plugin->short_name,"wlan"))
2969 r[c].c = ressources[c].c_wlan;
2973 r[c].c = ressources[c].c_default;
2974 GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
2975 "Assigning default cost to peer `%s' addr plugin `%s'! This should not happen!\n",
2976 GNUNET_i2s(&neighbour->peer),
2977 neighbour->plugins->plugin->short_name);
2981 ret->quality = GNUNET_malloc (available_quality_metrics * sizeof (struct ATS_quality_entry));
2982 ret->addrlen = addrlen;
2983 ret->expires = GNUNET_TIME_relative_to_absolute
2984 (GNUNET_CONSTANTS_IDLE_CONNECTION_TIMEOUT);
2985 ret->latency = GNUNET_TIME_relative_get_forever();
2987 ret->timeout = GNUNET_TIME_relative_to_absolute
2988 (GNUNET_CONSTANTS_IDLE_CONNECTION_TIMEOUT);
2989 ret->ready_list = head;
2990 ret->next = head->addresses;
2991 head->addresses = ret;
2997 * Closure for 'add_validated_address'.
2999 struct AddValidatedAddressContext
3002 * Entry that has been validated.
3004 const struct ValidationEntry *ve;
3007 * Flag set after we have added the address so
3008 * that we terminate the iteration next time.
3015 * Callback function used to fill a buffer of max bytes with a list of
3016 * addresses in the format used by HELLOs. Should use
3017 * "GNUNET_HELLO_add_address" as a helper function.
3019 * @param cls the 'struct AddValidatedAddressContext' with the validated address
3020 * @param max maximum number of bytes that can be written to buf
3021 * @param buf where to write the address information
3022 * @return number of bytes written, 0 to signal the
3023 * end of the iteration.
3026 add_validated_address (void *cls,
3027 size_t max, void *buf)
3029 struct AddValidatedAddressContext *avac = cls;
3030 const struct ValidationEntry *ve = avac->ve;
3032 if (GNUNET_YES == avac->done)
3034 avac->done = GNUNET_YES;
3035 return GNUNET_HELLO_add_address (ve->transport_name,
3036 GNUNET_TIME_relative_to_absolute (HELLO_ADDRESS_EXPIRATION),
3046 * Closure for 'check_address_exists'.
3048 struct CheckAddressExistsClosure
3051 * Address to check for.
3056 * Name of the transport.
3063 struct Session *session;
3066 * Set to GNUNET_YES if the address exists.
3079 * Iterator over hash map entries. Checks if the given
3080 * validation entry is for the same address as what is given
3083 * @param cls the 'struct CheckAddressExistsClosure*'
3084 * @param key current key code (ignored)
3085 * @param value value in the hash map ('struct ValidationEntry')
3086 * @return GNUNET_YES if we should continue to
3087 * iterate (mismatch), GNUNET_NO if not (entry matched)
3090 check_address_exists (void *cls,
3091 const GNUNET_HashCode * key,
3094 struct CheckAddressExistsClosure *caec = cls;
3095 struct ValidationEntry *ve = value;
3097 if ( (0 == strcmp (caec->tname,
3098 ve->transport_name)) &&
3099 (caec->addrlen == ve->addrlen) &&
3100 (0 == memcmp (caec->addr,
3104 caec->exists = GNUNET_YES;
3107 if ( (ve->session != NULL) &&
3108 (caec->session == ve->session) )
3110 caec->exists = GNUNET_YES;
3119 * Iterator to free entries in the validation_map.
3121 * @param cls closure (unused)
3122 * @param key current key code
3123 * @param value value in the hash map (validation to abort)
3124 * @return GNUNET_YES (always)
3127 abort_validation (void *cls,
3128 const GNUNET_HashCode * key,
3131 struct ValidationEntry *va = value;
3133 if (GNUNET_SCHEDULER_NO_TASK != va->timeout_task)
3134 GNUNET_SCHEDULER_cancel (va->timeout_task);
3135 GNUNET_free (va->transport_name);
3136 if (va->chvc != NULL)
3138 va->chvc->ve_count--;
3139 if (va->chvc->ve_count == 0)
3141 GNUNET_CONTAINER_DLL_remove (chvc_head,
3144 GNUNET_free (va->chvc);
3154 * HELLO validation cleanup task (validation failed).
3156 * @param cls the 'struct ValidationEntry' that failed
3157 * @param tc scheduler context (unused)
3160 timeout_hello_validation (void *cls, const struct GNUNET_SCHEDULER_TaskContext *tc)
3162 struct ValidationEntry *va = cls;
3163 struct GNUNET_PeerIdentity pid;
3165 va->timeout_task = GNUNET_SCHEDULER_NO_TASK;
3166 GNUNET_STATISTICS_update (stats,
3167 gettext_noop ("# address validation timeouts"),
3170 GNUNET_CRYPTO_hash (&va->publicKey,
3172 GNUNET_CRYPTO_RsaPublicKeyBinaryEncoded),
3174 GNUNET_break (GNUNET_OK ==
3175 GNUNET_CONTAINER_multihashmap_remove (validation_map,
3178 abort_validation (NULL, NULL, va);
3183 neighbour_timeout_task (void *cls,
3184 const struct GNUNET_SCHEDULER_TaskContext *tc)
3186 struct NeighbourList *n = cls;
3189 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG | GNUNET_ERROR_TYPE_BULK,
3190 "Neighbour `%4s' has timed out!\n", GNUNET_i2s (&n->id));
3192 GNUNET_STATISTICS_update (stats,
3193 gettext_noop ("# disconnects due to timeout"),
3196 n->timeout_task = GNUNET_SCHEDULER_NO_TASK;
3197 disconnect_neighbour (n, GNUNET_NO);
3202 * Schedule the job that will cause us to send a PING to the
3203 * foreign address to evaluate its validity and latency.
3205 * @param fal address to PING
3208 schedule_next_ping (struct ForeignAddressList *fal);
3212 * Add the given address to the list of foreign addresses
3213 * available for the given peer (check for duplicates).
3215 * @param cls the respective 'struct NeighbourList' to update
3216 * @param tname name of the transport
3217 * @param expiration expiration time
3218 * @param addr the address
3219 * @param addrlen length of the address
3220 * @return GNUNET_OK (always)
3223 add_to_foreign_address_list (void *cls,
3225 struct GNUNET_TIME_Absolute expiration,
3229 struct NeighbourList *n = cls;
3230 struct ForeignAddressList *fal;
3233 GNUNET_STATISTICS_update (stats,
3234 gettext_noop ("# valid peer addresses returned by PEERINFO"),
3238 fal = find_peer_address (n, tname, NULL, addr, addrlen);
3241 #if DEBUG_TRANSPORT_HELLO
3242 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
3243 "Adding address `%s' (%s) for peer `%4s' due to PEERINFO data for %llums.\n",
3244 a2s (tname, addr, addrlen),
3246 GNUNET_i2s (&n->id),
3247 expiration.abs_value);
3249 fal = add_peer_address (n, tname, NULL, addr, addrlen);
3252 GNUNET_STATISTICS_update (stats,
3253 gettext_noop ("# previously validated addresses lacking transport"),
3259 fal->expires = GNUNET_TIME_absolute_max (expiration,
3261 schedule_next_ping (fal);
3267 fal->expires = GNUNET_TIME_absolute_max (expiration,
3273 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
3274 "Failed to add new address for `%4s'\n",
3275 GNUNET_i2s (&n->id));
3279 if (fal->validated == GNUNET_NO)
3281 fal->validated = GNUNET_YES;
3282 GNUNET_STATISTICS_update (stats,
3283 gettext_noop ("# peer addresses considered valid"),
3287 if (try == GNUNET_YES)
3290 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
3291 "Have new addresses, will try to trigger transmissions.\n");
3293 try_transmission_to_peer (n);
3300 * Add addresses in validated HELLO "h" to the set of addresses
3301 * we have for this peer.
3303 * @param cls closure ('struct NeighbourList*')
3304 * @param peer id of the peer, NULL for last call
3305 * @param h hello message for the peer (can be NULL)
3306 * @param err_msg NULL if successful, otherwise contains error message
3309 add_hello_for_peer (void *cls,
3310 const struct GNUNET_PeerIdentity *peer,
3311 const struct GNUNET_HELLO_Message *h,
3312 const char *err_msg)
3314 struct NeighbourList *n = cls;
3316 if (err_msg != NULL)
3319 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
3320 _("Error in communication with PEERINFO service: %s\n"),
3327 GNUNET_STATISTICS_update (stats,
3328 gettext_noop ("# outstanding peerinfo iterate requests"),
3335 return; /* no HELLO available */
3337 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
3338 "Peerinfo had `%s' message for peer `%4s', adding existing addresses.\n",
3342 if (GNUNET_YES != n->public_key_valid)
3344 GNUNET_HELLO_get_key (h, &n->publicKey);
3345 n->public_key_valid = GNUNET_YES;
3347 GNUNET_HELLO_iterate_addresses (h,
3349 &add_to_foreign_address_list,
3355 * Create a fresh entry in our neighbour list for the given peer.
3356 * Will try to transmit our current HELLO to the new neighbour.
3357 * Do not call this function directly, use 'setup_peer_check_blacklist.
3359 * @param peer the peer for which we create the entry
3360 * @param do_hello should we schedule transmitting a HELLO
3361 * @return the new neighbour list entry
3363 static struct NeighbourList *
3364 setup_new_neighbour (const struct GNUNET_PeerIdentity *peer,
3367 struct NeighbourList *n;
3368 struct TransportPlugin *tp;
3369 struct ReadyList *rl;
3371 GNUNET_assert (0 != memcmp (peer,
3373 sizeof (struct GNUNET_PeerIdentity)));
3375 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
3376 "Setting up state for neighbour `%4s'\n",
3379 GNUNET_STATISTICS_update (stats,
3380 gettext_noop ("# active neighbours"),
3383 n = GNUNET_malloc (sizeof (struct NeighbourList));
3384 n->next = neighbours;
3388 GNUNET_TIME_relative_to_absolute
3389 (GNUNET_CONSTANTS_IDLE_CONNECTION_TIMEOUT);
3390 GNUNET_BANDWIDTH_tracker_init (&n->in_tracker,
3391 GNUNET_CONSTANTS_DEFAULT_BW_IN_OUT,
3392 MAX_BANDWIDTH_CARRY_S);
3396 if ((tp->api->send != NULL) && (!is_blacklisted(peer, tp)))
3398 rl = GNUNET_malloc (sizeof (struct ReadyList));
3400 rl->next = n->plugins;
3403 rl->addresses = NULL;
3407 n->latency = GNUNET_TIME_UNIT_FOREVER_REL;
3409 n->timeout_task = GNUNET_SCHEDULER_add_delayed (GNUNET_CONSTANTS_IDLE_CONNECTION_TIMEOUT,
3410 &neighbour_timeout_task, n);
3413 GNUNET_STATISTICS_update (stats,
3414 gettext_noop ("# peerinfo new neighbor iterate requests"),
3417 GNUNET_STATISTICS_update (stats,
3418 gettext_noop ("# outstanding peerinfo iterate requests"),
3421 n->piter = GNUNET_PEERINFO_iterate (peerinfo, peer,
3422 GNUNET_TIME_UNIT_FOREVER_REL,
3423 &add_hello_for_peer, n);
3425 GNUNET_STATISTICS_update (stats,
3426 gettext_noop ("# HELLO's sent to new neighbors"),
3429 if (NULL != our_hello)
3430 transmit_to_peer (NULL, NULL, 0,
3431 HELLO_ADDRESS_EXPIRATION,
3432 (const char *) our_hello, GNUNET_HELLO_size(our_hello),
3440 * Function called after we have checked if communicating
3441 * with a given peer is acceptable.
3443 * @param cls closure
3444 * @param n NULL if communication is not acceptable
3446 typedef void (*SetupContinuation)(void *cls,
3447 struct NeighbourList *n);
3451 * Information kept for each client registered to perform
3457 * This is a linked list.
3459 struct Blacklisters *next;
3462 * This is a linked list.
3464 struct Blacklisters *prev;
3467 * Client responsible for this entry.
3469 struct GNUNET_SERVER_Client *client;
3472 * Blacklist check that we're currently performing.
3474 struct BlacklistCheck *bc;
3480 * Head of DLL of blacklisting clients.
3482 static struct Blacklisters *bl_head;
3485 * Tail of DLL of blacklisting clients.
3487 static struct Blacklisters *bl_tail;
3491 * Context we use when performing a blacklist check.
3493 struct BlacklistCheck
3497 * This is a linked list.
3499 struct BlacklistCheck *next;
3502 * This is a linked list.
3504 struct BlacklistCheck *prev;
3507 * Peer being checked.
3509 struct GNUNET_PeerIdentity peer;
3512 * Option for setup neighbour afterwards.
3517 * Continuation to call with the result.
3519 SetupContinuation cont;
3527 * Current transmission request handle for this client, or NULL if no
3528 * request is pending.
3530 struct GNUNET_CONNECTION_TransmitHandle *th;
3533 * Our current position in the blacklisters list.
3535 struct Blacklisters *bl_pos;
3538 * Current task performing the check.
3540 GNUNET_SCHEDULER_TaskIdentifier task;
3545 * Head of DLL of active blacklisting queries.
3547 static struct BlacklistCheck *bc_head;
3550 * Tail of DLL of active blacklisting queries.
3552 static struct BlacklistCheck *bc_tail;
3556 * Perform next action in the blacklist check.
3558 * @param cls the 'struct BlacklistCheck*'
3562 do_blacklist_check (void *cls,
3563 const struct GNUNET_SCHEDULER_TaskContext *tc);
3566 * Transmit blacklist query to the client.
3568 * @param cls the 'struct BlacklistCheck'
3569 * @param size number of bytes allowed
3570 * @param buf where to copy the message
3571 * @return number of bytes copied to buf
3574 transmit_blacklist_message (void *cls,
3578 struct BlacklistCheck *bc = cls;
3579 struct Blacklisters *bl;
3580 struct BlacklistMessage bm;
3585 GNUNET_assert (bc->task == GNUNET_SCHEDULER_NO_TASK);
3586 bc->task = GNUNET_SCHEDULER_add_now (&do_blacklist_check,
3588 GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
3589 "Failed to send blacklist test for peer `%s' to client\n",
3590 GNUNET_i2s (&bc->peer));
3594 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
3595 "Sending blacklist test for peer `%s' to client\n",
3596 GNUNET_i2s (&bc->peer));
3599 bm.header.size = htons (sizeof (struct BlacklistMessage));
3600 bm.header.type = htons (GNUNET_MESSAGE_TYPE_TRANSPORT_BLACKLIST_QUERY);
3601 bm.is_allowed = htonl (0);
3603 memcpy (buf, &bm, sizeof (bm));
3604 GNUNET_SERVER_receive_done (bl->client, GNUNET_OK);
3610 * Perform next action in the blacklist check.
3612 * @param cls the 'struct BlacklistCheck*'
3616 do_blacklist_check (void *cls,
3617 const struct GNUNET_SCHEDULER_TaskContext *tc)
3619 struct BlacklistCheck *bc = cls;
3620 struct Blacklisters *bl;
3622 bc->task = GNUNET_SCHEDULER_NO_TASK;
3627 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
3628 "No blacklist clients active, will now setup neighbour record for peer `%s'\n",
3629 GNUNET_i2s (&bc->peer));
3631 bc->cont (bc->cont_cls,
3632 setup_new_neighbour (&bc->peer, bc->do_hello));
3639 bc->th = GNUNET_SERVER_notify_transmit_ready (bl->client,
3640 sizeof (struct BlacklistMessage),
3641 GNUNET_TIME_UNIT_FOREVER_REL,
3642 &transmit_blacklist_message,
3649 * Obtain a 'struct NeighbourList' for the given peer. If such an entry
3650 * does not yet exist, check the blacklist. If the blacklist says creating
3651 * one is acceptable, create one and call the continuation; otherwise
3652 * call the continuation with NULL.
3654 * @param peer peer to setup or look up a struct NeighbourList for
3655 * @param do_hello should we also schedule sending our HELLO to the peer
3656 * if this is a new record
3657 * @param cont function to call with the 'struct NeigbhbourList*'
3658 * @param cont_cls closure for cont
3661 setup_peer_check_blacklist (const struct GNUNET_PeerIdentity *peer,
3663 SetupContinuation cont,
3666 struct NeighbourList *n;
3667 struct BlacklistCheck *bc;
3669 n = find_neighbour(peer);
3673 GNUNET_log(GNUNET_ERROR_TYPE_DEBUG,
3674 "Neighbour record exists for peer `%s'\n",
3681 if (bl_head == NULL)
3684 cont (cont_cls, setup_new_neighbour (peer, do_hello));
3686 setup_new_neighbour(peer, do_hello);
3689 bc = GNUNET_malloc (sizeof (struct BlacklistCheck));
3690 GNUNET_CONTAINER_DLL_insert (bc_head, bc_tail, bc);
3692 bc->do_hello = do_hello;
3694 bc->cont_cls = cont_cls;
3695 bc->bl_pos = bl_head;
3696 bc->task = GNUNET_SCHEDULER_add_now (&do_blacklist_check,
3702 * Function called with the result of querying a new blacklister about
3703 * it being allowed (or not) to continue to talk to an existing neighbour.
3705 * @param cls the original 'struct NeighbourList'
3706 * @param n NULL if we need to disconnect
3709 confirm_or_drop_neighbour (void *cls,
3710 struct NeighbourList *n)
3712 struct NeighbourList * orig = cls;
3717 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
3718 "Disconnecting peer `%4s', %s\n", GNUNET_i2s(&orig->id),
3719 "confirm_or_drop_neighboUr");
3721 GNUNET_STATISTICS_update (stats,
3722 gettext_noop ("# disconnects due to blacklist"),
3725 disconnect_neighbour (orig, GNUNET_NO);
3731 * Handle a request to start a blacklist.
3733 * @param cls closure (always NULL)
3734 * @param client identification of the client
3735 * @param message the actual message
3738 handle_blacklist_init (void *cls,
3739 struct GNUNET_SERVER_Client *client,
3740 const struct GNUNET_MessageHeader *message)
3742 struct Blacklisters *bl;
3743 struct BlacklistCheck *bc;
3744 struct NeighbourList *n;
3749 if (bl->client == client)
3752 GNUNET_SERVER_receive_done (client, GNUNET_SYSERR);
3757 bl = GNUNET_malloc (sizeof (struct Blacklisters));
3758 bl->client = client;
3759 GNUNET_SERVER_client_keep (client);
3760 GNUNET_CONTAINER_DLL_insert_after (bl_head, bl_tail, bl_tail, bl);
3761 /* confirm that all existing connections are OK! */
3765 bc = GNUNET_malloc (sizeof (struct BlacklistCheck));
3766 GNUNET_CONTAINER_DLL_insert (bc_head, bc_tail, bc);
3768 bc->do_hello = GNUNET_NO;
3769 bc->cont = &confirm_or_drop_neighbour;
3772 if (n == neighbours) /* all would wait for the same client, no need to
3773 create more than just the first task right now */
3774 bc->task = GNUNET_SCHEDULER_add_now (&do_blacklist_check,
3782 * Handle a request to blacklist a peer.
3784 * @param cls closure (always NULL)
3785 * @param client identification of the client
3786 * @param message the actual message
3789 handle_blacklist_reply (void *cls,
3790 struct GNUNET_SERVER_Client *client,
3791 const struct GNUNET_MessageHeader *message)
3793 const struct BlacklistMessage *msg = (const struct BlacklistMessage*) message;
3794 struct Blacklisters *bl;
3795 struct BlacklistCheck *bc;
3798 while ( (bl != NULL) &&
3799 (bl->client != client) )
3804 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
3805 "Blacklist client disconnected\n");
3807 /* FIXME: other error handling here!? */
3808 GNUNET_SERVER_receive_done (client, GNUNET_SYSERR);
3813 if (ntohl (msg->is_allowed) == GNUNET_SYSERR)
3816 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
3817 "Blacklist check failed, peer not allowed\n");
3819 bc->cont (bc->cont_cls, NULL);
3820 GNUNET_CONTAINER_DLL_remove (bc_head, bc_tail, bc);
3826 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
3827 "Blacklist check succeeded, continuing with checks\n");
3829 bc->bl_pos = bc->bl_pos->next;
3830 bc->task = GNUNET_SCHEDULER_add_now (&do_blacklist_check,
3833 /* check if any other bc's are waiting for this blacklister */
3837 if ( (bc->bl_pos == bl) &&
3838 (GNUNET_SCHEDULER_NO_TASK == bc->task) )
3839 bc->task = GNUNET_SCHEDULER_add_now (&do_blacklist_check,
3847 * Send periodic PING messages to a given foreign address.
3849 * @param cls our 'struct PeriodicValidationContext*'
3850 * @param tc task context
3853 send_periodic_ping (void *cls,
3854 const struct GNUNET_SCHEDULER_TaskContext *tc)
3856 struct ForeignAddressList *peer_address = cls;
3857 struct TransportPlugin *tp;
3858 struct ValidationEntry *va;
3859 struct NeighbourList *neighbour;
3860 struct TransportPingMessage ping;
3861 struct CheckAddressExistsClosure caec;
3863 uint16_t hello_size;
3867 peer_address->revalidate_task = GNUNET_SCHEDULER_NO_TASK;
3868 if ( (tc->reason & GNUNET_SCHEDULER_REASON_SHUTDOWN) != 0)
3870 tp = peer_address->ready_list->plugin;
3871 neighbour = peer_address->ready_list->neighbour;
3872 if (GNUNET_YES != neighbour->public_key_valid)
3874 /* no public key yet, try again later */
3875 schedule_next_ping (peer_address);
3878 caec.addr = peer_address->addr;
3879 caec.addrlen = peer_address->addrlen;
3880 caec.tname = tp->short_name;
3881 caec.session = peer_address->session;
3882 caec.exists = GNUNET_NO;
3883 GNUNET_CONTAINER_multihashmap_iterate (validation_map,
3884 &check_address_exists,
3886 if (caec.exists == GNUNET_YES)
3888 /* During validation attempts we will likely trigger the other
3889 peer trying to validate our address which in turn will cause
3890 it to send us its HELLO, so we expect to hit this case rather
3891 frequently. Only print something if we are very verbose. */
3892 #if DEBUG_TRANSPORT > 1
3893 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
3894 "Some validation of address `%s' via `%s' for peer `%4s' already in progress.\n",
3895 (peer_address->addr != NULL)
3896 ? a2s (tp->short_name,
3898 peer_address->addrlen)
3901 GNUNET_i2s (&neighbour->id));
3903 schedule_next_ping (peer_address);
3906 va = GNUNET_malloc (sizeof (struct ValidationEntry) + peer_address->addrlen);
3907 va->transport_name = GNUNET_strdup (tp->short_name);
3908 va->challenge = GNUNET_CRYPTO_random_u32 (GNUNET_CRYPTO_QUALITY_NONCE,
3910 va->send_time = GNUNET_TIME_absolute_get();
3911 va->session = peer_address->session;
3912 if (peer_address->addr != NULL)
3914 va->addr = (const void*) &va[1];
3915 memcpy (&va[1], peer_address->addr, peer_address->addrlen);
3916 va->addrlen = peer_address->addrlen;
3918 memcpy(&va->publicKey,
3919 &neighbour->publicKey,
3920 sizeof(struct GNUNET_CRYPTO_RsaPublicKeyBinaryEncoded));
3922 va->timeout_task = GNUNET_SCHEDULER_add_delayed (HELLO_VERIFICATION_TIMEOUT,
3923 &timeout_hello_validation,
3925 GNUNET_CONTAINER_multihashmap_put (validation_map,
3926 &neighbour->id.hashPubKey,
3928 GNUNET_CONTAINER_MULTIHASHMAPOPTION_MULTIPLE);
3930 if (peer_address->validated != GNUNET_YES)
3931 hello_size = GNUNET_HELLO_size(our_hello);
3935 tsize = sizeof(struct TransportPingMessage) + hello_size;
3937 if (peer_address->addr != NULL)
3939 slen = strlen (tp->short_name) + 1;
3940 tsize += slen + peer_address->addrlen;
3944 slen = 0; /* make gcc happy */
3946 message_buf = GNUNET_malloc(tsize);
3947 ping.header.type = htons(GNUNET_MESSAGE_TYPE_TRANSPORT_PING);
3948 ping.challenge = htonl(va->challenge);
3949 memcpy(&ping.target, &neighbour->id, sizeof(struct GNUNET_PeerIdentity));
3950 if (peer_address->validated != GNUNET_YES)
3952 memcpy(message_buf, our_hello, hello_size);
3955 if (peer_address->addr != NULL)
3957 ping.header.size = htons(sizeof(struct TransportPingMessage) +
3958 peer_address->addrlen +
3960 memcpy(&message_buf[hello_size + sizeof (struct TransportPingMessage)],
3963 memcpy(&message_buf[hello_size + sizeof (struct TransportPingMessage) + slen],
3965 peer_address->addrlen);
3969 ping.header.size = htons(sizeof(struct TransportPingMessage));
3972 memcpy(&message_buf[hello_size],
3974 sizeof(struct TransportPingMessage));
3976 #if DEBUG_TRANSPORT_REVALIDATION
3977 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
3978 "Performing re-validation of address `%s' via `%s' for peer `%4s' sending `%s' (%u bytes) and `%s'\n",
3979 (peer_address->addr != NULL)
3980 ? a2s (peer_address->plugin->short_name,
3982 peer_address->addrlen)
3985 GNUNET_i2s (&neighbour->id),
3986 "HELLO", hello_size,
3989 if (peer_address->validated != GNUNET_YES)
3990 GNUNET_STATISTICS_update (stats,
3991 gettext_noop ("# PING with HELLO messages sent"),
3995 GNUNET_STATISTICS_update (stats,
3996 gettext_noop ("# PING without HELLO messages sent"),
3999 GNUNET_STATISTICS_update (stats,
4000 gettext_noop ("# PING messages sent for re-validation"),
4003 transmit_to_peer (NULL, peer_address,
4004 GNUNET_SCHEDULER_PRIORITY_DEFAULT,
4005 HELLO_VERIFICATION_TIMEOUT,
4007 GNUNET_YES, neighbour);
4008 GNUNET_free(message_buf);
4009 schedule_next_ping (peer_address);
4014 * Schedule the job that will cause us to send a PING to the
4015 * foreign address to evaluate its validity and latency.
4017 * @param fal address to PING
4020 schedule_next_ping (struct ForeignAddressList *fal)
4022 struct GNUNET_TIME_Relative delay;
4024 if (fal->revalidate_task != GNUNET_SCHEDULER_NO_TASK)
4026 delay = GNUNET_TIME_absolute_get_remaining (fal->expires);
4027 delay.rel_value /= 2; /* do before expiration */
4028 delay = GNUNET_TIME_relative_min (delay,
4029 LATENCY_EVALUATION_MAX_DELAY);
4030 if (GNUNET_YES != fal->estimated)
4032 delay = GNUNET_TIME_UNIT_ZERO;
4033 fal->estimated = GNUNET_YES;
4035 if (GNUNET_YES == fal->connected)
4037 delay = GNUNET_TIME_relative_min (delay,
4038 CONNECTED_LATENCY_EVALUATION_MAX_DELAY);
4040 /* FIXME: also adjust delay based on how close the last
4041 observed latency is to the latency of the best alternative */
4042 /* bound how fast we can go */
4043 delay = GNUNET_TIME_relative_max (delay,
4044 GNUNET_TIME_UNIT_SECONDS);
4045 /* randomize a bit (to avoid doing all at the same time) */
4046 delay.rel_value += GNUNET_CRYPTO_random_u32 (GNUNET_CRYPTO_QUALITY_WEAK, 1000);
4047 fal->revalidate_task = GNUNET_SCHEDULER_add_delayed(delay,
4048 &send_periodic_ping,
4056 * Function that will be called if we receive some payload
4057 * from another peer.
4059 * @param message the payload
4060 * @param n peer who claimed to be the sender
4063 handle_payload_message (const struct GNUNET_MessageHeader *message,
4064 struct NeighbourList *n)
4066 struct InboundMessage *im;
4067 struct TransportClient *cpos;
4070 msize = ntohs (message->size);
4071 if (n->received_pong == GNUNET_NO)
4074 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
4075 "Received message of type %u and size %u from `%4s', but no pong yet!\n",
4076 ntohs (message->type),
4077 ntohs (message->size),
4078 GNUNET_i2s (&n->id));
4080 GNUNET_free_non_null (n->pre_connect_message_buffer);
4081 n->pre_connect_message_buffer = GNUNET_malloc (msize);
4082 memcpy (n->pre_connect_message_buffer, message, msize);
4087 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
4088 "Received message of type %u and size %u from `%4s', sending to all clients.\n",
4089 ntohs (message->type),
4090 ntohs (message->size),
4091 GNUNET_i2s (&n->id));
4093 if (GNUNET_YES == GNUNET_BANDWIDTH_tracker_consume (&n->in_tracker,
4096 n->quota_violation_count++;
4098 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
4099 "Bandwidth quota (%u b/s) violation detected (total of %u).\n",
4100 n->in_tracker.available_bytes_per_s__,
4101 n->quota_violation_count);
4103 /* Discount 32k per violation */
4104 GNUNET_BANDWIDTH_tracker_consume (&n->in_tracker,
4109 if (n->quota_violation_count > 0)
4111 /* try to add 32k back */
4112 GNUNET_BANDWIDTH_tracker_consume (&n->in_tracker,
4114 n->quota_violation_count--;
4117 GNUNET_STATISTICS_update (stats,
4118 gettext_noop ("# payload received from other peers"),
4121 /* transmit message to all clients */
4122 uint32_t ats_count = 2;
4123 size_t size = sizeof (struct InboundMessage) + ats_count * sizeof (struct GNUNET_TRANSPORT_ATS_Information) + msize;
4124 if (size > GNUNET_SERVER_MAX_MESSAGE_SIZE)
4127 im = GNUNET_malloc (size);
4128 im->header.size = htons (size);
4129 im->header.type = htons (GNUNET_MESSAGE_TYPE_TRANSPORT_RECV);
4131 im->ats_count = htonl(ats_count);
4132 /* Setting ATS data */
4133 (&(im->ats))[0].type = htonl (GNUNET_TRANSPORT_ATS_QUALITY_NET_DISTANCE);
4134 (&(im->ats))[0].value = htonl (n->distance);
4135 (&(im->ats))[1].type = htonl (GNUNET_TRANSPORT_ATS_QUALITY_NET_DELAY);
4136 (&(im->ats))[1].value = htonl ((uint32_t) n->latency.rel_value);
4137 (&(im->ats))[ats_count].type = htonl (GNUNET_TRANSPORT_ATS_ARRAY_TERMINATOR);
4138 (&(im->ats))[ats_count].value = htonl (0);
4140 memcpy (&((&(im->ats))[ats_count+1]), message, msize);
4142 while (cpos != NULL)
4144 transmit_to_client (cpos, &im->header, GNUNET_YES);
4152 * Iterator over hash map entries. Checks if the given validation
4153 * entry is for the same challenge as what is given in the PONG.
4155 * @param cls the 'struct TransportPongMessage*'
4156 * @param key peer identity
4157 * @param value value in the hash map ('struct ValidationEntry')
4158 * @return GNUNET_YES if we should continue to
4159 * iterate (mismatch), GNUNET_NO if not (entry matched)
4162 check_pending_validation (void *cls,
4163 const GNUNET_HashCode * key,
4166 const struct TransportPongMessage *pong = cls;
4167 struct ValidationEntry *ve = value;
4168 struct AddValidatedAddressContext avac;
4169 unsigned int challenge = ntohl(pong->challenge);
4170 struct GNUNET_HELLO_Message *hello;
4171 struct GNUNET_PeerIdentity target;
4172 struct NeighbourList *n;
4173 struct ForeignAddressList *fal;
4174 struct OwnAddressList *oal;
4175 struct TransportPlugin *tp;
4176 struct GNUNET_MessageHeader *prem;
4182 ps = ntohs (pong->header.size);
4183 if (ps < sizeof (struct TransportPongMessage))
4185 GNUNET_break_op (0);
4188 addr = (const char*) &pong[1];
4189 slen = strlen (ve->transport_name) + 1;
4190 if ( (ps - sizeof (struct TransportPongMessage) < slen) ||
4191 (ve->challenge != challenge) ||
4192 (addr[slen-1] != '\0') ||
4193 (0 != strcmp (addr, ve->transport_name)) ||
4194 (ntohl (pong->purpose.size)
4195 != sizeof (struct GNUNET_CRYPTO_RsaSignaturePurpose) +
4197 sizeof (struct GNUNET_TIME_AbsoluteNBO) +
4198 sizeof (struct GNUNET_PeerIdentity) + ps - sizeof (struct TransportPongMessage)) )
4203 alen = ps - sizeof (struct TransportPongMessage) - slen;
4204 switch (ntohl (pong->purpose.purpose))
4206 case GNUNET_SIGNATURE_PURPOSE_TRANSPORT_PONG_OWN:
4207 if ( (ve->addrlen + slen != ntohl (pong->addrlen)) ||
4208 (0 != memcmp (&addr[slen],
4212 return GNUNET_YES; /* different entry, keep trying! */
4214 if (0 != memcmp (&pong->pid,
4216 sizeof (struct GNUNET_PeerIdentity)))
4218 GNUNET_break_op (0);
4222 GNUNET_CRYPTO_rsa_verify (GNUNET_SIGNATURE_PURPOSE_TRANSPORT_PONG_OWN,
4227 GNUNET_break_op (0);
4232 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
4233 "Confirmed validity of address, peer `%4s' has address `%s' (%s).\n",
4235 a2s (ve->transport_name,
4236 (const struct sockaddr *) ve->addr,
4238 ve->transport_name);
4241 case GNUNET_SIGNATURE_PURPOSE_TRANSPORT_PONG_USING:
4242 if (0 != memcmp (&pong->pid,
4244 sizeof (struct GNUNET_PeerIdentity)))
4247 GNUNET_asprintf(&peer, "%s",GNUNET_i2s (&pong->pid));
4249 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
4250 "Received PONG for different identity: I am `%s', PONG identity: `%s'\n",
4251 GNUNET_i2s (&my_identity),
4257 if (ve->addrlen != 0)
4259 /* must have been for a different validation entry */
4262 tp = find_transport (ve->transport_name);
4268 oal = tp->addresses;
4271 if ( (oal->addrlen == alen) &&
4272 (0 == memcmp (&oal[1],
4280 GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
4281 _("Not accepting PONG with address `%s' since I cannot confirm having this address.\n"),
4282 a2s (ve->transport_name,
4288 GNUNET_CRYPTO_rsa_verify (GNUNET_SIGNATURE_PURPOSE_TRANSPORT_PONG_USING,
4293 GNUNET_break_op (0);
4298 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
4299 "Confirmed that peer `%4s' is talking to us using address `%s' (%s) for us.\n",
4301 a2s (ve->transport_name,
4304 ve->transport_name);
4308 GNUNET_break_op (0);
4311 if (GNUNET_TIME_absolute_get_remaining (GNUNET_TIME_absolute_ntoh (pong->expiration)).rel_value == 0)
4313 GNUNET_log (GNUNET_ERROR_TYPE_INFO,
4314 _("Received expired signature. Check system time.\n"));
4317 GNUNET_STATISTICS_update (stats,
4318 gettext_noop ("# address validation successes"),
4321 /* create the updated HELLO */
4322 GNUNET_CRYPTO_hash (&ve->publicKey,
4323 sizeof (struct GNUNET_CRYPTO_RsaPublicKeyBinaryEncoded),
4324 &target.hashPubKey);
4325 if (ve->addr != NULL)
4327 avac.done = GNUNET_NO;
4329 hello = GNUNET_HELLO_create (&ve->publicKey,
4330 &add_validated_address,
4332 GNUNET_PEERINFO_add_peer (peerinfo,
4334 GNUNET_free (hello);
4336 n = find_neighbour (&target);
4339 n->publicKey = ve->publicKey;
4340 n->public_key_valid = GNUNET_YES;
4341 fal = add_peer_address (n,
4346 GNUNET_assert (fal != NULL);
4347 fal->expires = GNUNET_TIME_relative_to_absolute (HELLO_ADDRESS_EXPIRATION);
4348 fal->validated = GNUNET_YES;
4349 mark_address_connected (fal);
4350 GNUNET_STATISTICS_update (stats,
4351 gettext_noop ("# peer addresses considered valid"),
4354 fal->latency = GNUNET_TIME_absolute_get_duration (ve->send_time);
4355 update_addr_value (fal, GNUNET_TIME_absolute_get_duration (ve->send_time).rel_value, GNUNET_TRANSPORT_ATS_QUALITY_NET_DELAY);
4357 schedule_next_ping (fal);
4358 if (n->latency.rel_value == GNUNET_TIME_UNIT_FOREVER_REL.rel_value)
4359 n->latency = fal->latency;
4361 n->latency.rel_value = (fal->latency.rel_value + n->latency.rel_value) / 2;
4363 n->distance = fal->distance;
4364 if (GNUNET_NO == n->received_pong)
4366 n->received_pong = GNUNET_YES;
4368 notify_clients_connect (&target, n->latency, n->distance);
4369 if (NULL != (prem = n->pre_connect_message_buffer))
4371 n->pre_connect_message_buffer = NULL;
4372 handle_payload_message (prem, n);
4376 if (n->retry_task != GNUNET_SCHEDULER_NO_TASK)
4378 GNUNET_SCHEDULER_cancel (n->retry_task);
4379 n->retry_task = GNUNET_SCHEDULER_NO_TASK;
4380 try_transmission_to_peer (n);
4384 /* clean up validation entry */
4385 GNUNET_assert (GNUNET_YES ==
4386 GNUNET_CONTAINER_multihashmap_remove (validation_map,
4389 abort_validation (NULL, NULL, ve);
4395 * Function that will be called if we receive a validation
4396 * of an address challenge that we transmitted to another
4397 * peer. Note that the validation should only be considered
4398 * acceptable if the challenge matches AND if the sender
4399 * address is at least a plausible address for this peer
4400 * (otherwise we may be seeing a MiM attack).
4402 * @param cls closure
4403 * @param message the pong message
4404 * @param peer who responded to our challenge
4405 * @param sender_address string describing our sender address (as observed
4406 * by the other peer in binary format)
4407 * @param sender_address_len number of bytes in 'sender_address'
4410 handle_pong (void *cls, const struct GNUNET_MessageHeader *message,
4411 const struct GNUNET_PeerIdentity *peer,
4412 const char *sender_address,
4413 size_t sender_address_len)
4415 if (0 == memcmp (peer,
4417 sizeof (struct GNUNET_PeerIdentity)))
4419 /* PONG send to self, ignore */
4423 #if DEBUG_TRANSPORT > 1
4424 /* we get tons of these that just get discarded, only log
4425 if we are quite verbose */
4426 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
4427 "Receiving `%s' message from `%4s'.\n", "PONG",
4430 GNUNET_STATISTICS_update (stats,
4431 gettext_noop ("# PONG messages received"),
4434 if (GNUNET_SYSERR !=
4435 GNUNET_CONTAINER_multihashmap_get_multiple (validation_map,
4437 &check_pending_validation,
4440 /* This is *expected* to happen a lot since we send
4441 PONGs to *all* known addresses of the sender of
4442 the PING, so most likely we get multiple PONGs
4443 per PING, and all but the first PONG will end up
4444 here. So really we should not print anything here
4445 unless we want to be very, very verbose... */
4446 #if DEBUG_TRANSPORT > 2
4447 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
4448 "Received `%s' message from `%4s' but have no record of a matching `%s' message. Ignoring.\n",
4460 * Try to validate a neighbour's address by sending him our HELLO and a PING.
4462 * @param cls the 'struct ValidationEntry*'
4463 * @param neighbour neighbour to validate, NULL if validation failed
4466 transmit_hello_and_ping (void *cls,
4467 struct NeighbourList *neighbour)
4469 struct ValidationEntry *va = cls;
4470 struct ForeignAddressList *peer_address;
4471 struct TransportPingMessage ping;
4472 uint16_t hello_size;
4475 struct GNUNET_PeerIdentity id;
4478 GNUNET_CRYPTO_hash (&va->publicKey,
4479 sizeof (struct GNUNET_CRYPTO_RsaPublicKeyBinaryEncoded),
4481 if (neighbour == NULL)
4483 /* FIXME: stats... */
4484 GNUNET_break (GNUNET_OK ==
4485 GNUNET_CONTAINER_multihashmap_remove (validation_map,
4488 abort_validation (NULL, NULL, va);
4491 neighbour->publicKey = va->publicKey;
4492 neighbour->public_key_valid = GNUNET_YES;
4493 peer_address = add_peer_address (neighbour,
4494 va->transport_name, NULL,
4495 (const void*) &va[1],
4497 if (peer_address == NULL)
4499 GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
4500 "Failed to add peer `%4s' for plugin `%s'\n",
4501 GNUNET_i2s (&neighbour->id),
4502 va->transport_name);
4503 GNUNET_break (GNUNET_OK ==
4504 GNUNET_CONTAINER_multihashmap_remove (validation_map,
4507 abort_validation (NULL, NULL, va);
4510 hello_size = GNUNET_HELLO_size(our_hello);
4511 slen = strlen(va->transport_name) + 1;
4512 tsize = sizeof(struct TransportPingMessage) + hello_size + va->addrlen + slen;
4513 message_buf = GNUNET_malloc(tsize);
4514 ping.challenge = htonl(va->challenge);
4515 ping.header.size = htons(sizeof(struct TransportPingMessage) + slen + va->addrlen);
4516 ping.header.type = htons(GNUNET_MESSAGE_TYPE_TRANSPORT_PING);
4517 memcpy(&ping.target, &neighbour->id, sizeof(struct GNUNET_PeerIdentity));
4518 memcpy(message_buf, our_hello, hello_size);
4519 memcpy(&message_buf[hello_size],
4521 sizeof(struct TransportPingMessage));
4522 memcpy(&message_buf[hello_size + sizeof (struct TransportPingMessage)],
4525 memcpy(&message_buf[hello_size + sizeof (struct TransportPingMessage) + slen],
4529 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
4530 "Performing validation of address `%s' via `%s' for peer `%4s' sending `%s' (%u bytes) and `%s' (%u bytes)\n",
4533 : a2s (va->transport_name,
4534 (const void*) &va[1], va->addrlen),
4536 GNUNET_i2s (&neighbour->id),
4537 "HELLO", hello_size,
4538 "PING", sizeof (struct TransportPingMessage) + va->addrlen + slen);
4541 GNUNET_STATISTICS_update (stats,
4542 gettext_noop ("# PING messages sent for initial validation"),
4545 transmit_to_peer (NULL, peer_address,
4546 GNUNET_SCHEDULER_PRIORITY_DEFAULT,
4547 HELLO_VERIFICATION_TIMEOUT,
4549 GNUNET_YES, neighbour);
4550 GNUNET_free(message_buf);
4555 * Check if the given address is already being validated; if not,
4556 * append the given address to the list of entries that are being be
4557 * validated and initiate validation.
4559 * @param cls closure ('struct CheckHelloValidatedContext *')
4560 * @param tname name of the transport
4561 * @param expiration expiration time
4562 * @param addr the address
4563 * @param addrlen length of the address
4564 * @return GNUNET_OK (always)
4567 run_validation (void *cls,
4569 struct GNUNET_TIME_Absolute expiration,
4573 struct CheckHelloValidatedContext *chvc = cls;
4574 struct GNUNET_PeerIdentity id;
4575 struct TransportPlugin *tp;
4576 struct ValidationEntry *va;
4577 struct GNUNET_CRYPTO_RsaPublicKeyBinaryEncoded pk;
4578 struct CheckAddressExistsClosure caec;
4579 struct OwnAddressList *oal;
4581 GNUNET_assert (addr != NULL);
4583 GNUNET_STATISTICS_update (stats,
4584 gettext_noop ("# peer addresses scheduled for validation"),
4587 tp = find_transport (tname);
4590 GNUNET_log (GNUNET_ERROR_TYPE_INFO |
4591 GNUNET_ERROR_TYPE_BULK,
4593 ("Transport `%s' not loaded, will not try to validate peer address using this transport.\n"),
4595 GNUNET_STATISTICS_update (stats,
4596 gettext_noop ("# peer addresses not validated (plugin not available)"),
4601 /* check if this is one of our own addresses */
4602 oal = tp->addresses;
4605 if ( (oal->addrlen == addrlen) &&
4606 (0 == memcmp (&oal[1],
4610 /* not plausible, this address is equivalent to our own address! */
4611 GNUNET_STATISTICS_update (stats,
4612 gettext_noop ("# peer addresses not validated (loopback)"),
4619 GNUNET_HELLO_get_key (chvc->hello, &pk);
4620 GNUNET_CRYPTO_hash (&pk,
4622 GNUNET_CRYPTO_RsaPublicKeyBinaryEncoded),
4625 if (is_blacklisted(&id, tp))
4628 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
4629 "Attempted to validate blacklisted peer `%s' using `%s'!\n",
4637 caec.addrlen = addrlen;
4638 caec.session = NULL;
4640 caec.exists = GNUNET_NO;
4641 GNUNET_CONTAINER_multihashmap_iterate (validation_map,
4642 &check_address_exists,
4644 if (caec.exists == GNUNET_YES)
4646 /* During validation attempts we will likely trigger the other
4647 peer trying to validate our address which in turn will cause
4648 it to send us its HELLO, so we expect to hit this case rather
4649 frequently. Only print something if we are very verbose. */
4650 #if DEBUG_TRANSPORT > 1
4651 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
4652 "Validation of address `%s' via `%s' for peer `%4s' already in progress.\n",
4653 a2s (tname, addr, addrlen),
4657 GNUNET_STATISTICS_update (stats,
4658 gettext_noop ("# peer addresses not validated (in progress)"),
4663 va = GNUNET_malloc (sizeof (struct ValidationEntry) + addrlen);
4666 va->transport_name = GNUNET_strdup (tname);
4667 va->challenge = GNUNET_CRYPTO_random_u32 (GNUNET_CRYPTO_QUALITY_NONCE,
4669 va->send_time = GNUNET_TIME_absolute_get();
4670 va->addr = (const void*) &va[1];
4671 memcpy (&va[1], addr, addrlen);
4672 va->addrlen = addrlen;
4673 GNUNET_HELLO_get_key (chvc->hello,
4675 va->timeout_task = GNUNET_SCHEDULER_add_delayed (HELLO_VERIFICATION_TIMEOUT,
4676 &timeout_hello_validation,
4678 GNUNET_CONTAINER_multihashmap_put (validation_map,
4681 GNUNET_CONTAINER_MULTIHASHMAPOPTION_MULTIPLE);
4682 setup_peer_check_blacklist (&id, GNUNET_NO,
4683 &transmit_hello_and_ping,
4690 * Check if addresses in validated hello "h" overlap with
4691 * those in "chvc->hello" and validate the rest.
4693 * @param cls closure
4694 * @param peer id of the peer, NULL for last call
4695 * @param h hello message for the peer (can be NULL)
4696 * @param err_msg NULL if successful, otherwise contains error message
4699 check_hello_validated (void *cls,
4700 const struct GNUNET_PeerIdentity *peer,
4701 const struct GNUNET_HELLO_Message *h,
4702 const char *err_msg)
4704 struct CheckHelloValidatedContext *chvc = cls;
4705 struct GNUNET_HELLO_Message *plain_hello;
4706 struct GNUNET_CRYPTO_RsaPublicKeyBinaryEncoded pk;
4707 struct GNUNET_PeerIdentity target;
4708 struct NeighbourList *n;
4710 if (err_msg != NULL)
4713 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
4714 _("Error in communication with PEERINFO service: %s\n"),
4722 GNUNET_STATISTICS_update (stats,
4723 gettext_noop ("# outstanding peerinfo iterate requests"),
4727 if (GNUNET_NO == chvc->hello_known)
4729 /* notify PEERINFO about the peer now, so that we at least
4730 have the public key if some other component needs it */
4731 GNUNET_HELLO_get_key (chvc->hello, &pk);
4732 GNUNET_CRYPTO_hash (&pk,
4733 sizeof (struct GNUNET_CRYPTO_RsaPublicKeyBinaryEncoded),
4734 &target.hashPubKey);
4735 plain_hello = GNUNET_HELLO_create (&pk,
4738 GNUNET_PEERINFO_add_peer (peerinfo, plain_hello);
4739 GNUNET_free (plain_hello);
4740 #if DEBUG_TRANSPORT_HELLO
4741 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
4742 "PEERINFO had no `%s' message for peer `%4s', full validation needed.\n",
4744 GNUNET_i2s (&target));
4746 GNUNET_STATISTICS_update (stats,
4747 gettext_noop ("# new HELLOs requiring full validation"),
4750 GNUNET_HELLO_iterate_addresses (chvc->hello,
4757 GNUNET_STATISTICS_update (stats,
4758 gettext_noop ("# duplicate HELLO (peer known)"),
4763 if (chvc->ve_count == 0)
4765 GNUNET_CONTAINER_DLL_remove (chvc_head,
4774 #if DEBUG_TRANSPORT_HELLO
4775 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
4776 "PEERINFO had `%s' message for peer `%4s', validating only new addresses.\n",
4780 chvc->hello_known = GNUNET_YES;
4781 n = find_neighbour (peer);
4784 #if DEBUG_TRANSPORT_HELLO
4785 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
4786 "Calling hello_iterate_addresses for %s!\n",
4789 GNUNET_HELLO_iterate_addresses (h,
4791 &add_to_foreign_address_list,
4793 try_transmission_to_peer (n);
4797 #if DEBUG_TRANSPORT_HELLO
4798 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
4799 "No existing neighbor record for %s!\n",
4802 GNUNET_STATISTICS_update (stats,
4803 gettext_noop ("# no existing neighbour record (validating HELLO)"),
4807 GNUNET_STATISTICS_update (stats,
4808 gettext_noop ("# HELLO validations (update case)"),
4811 GNUNET_HELLO_iterate_new_addresses (chvc->hello,
4813 GNUNET_TIME_relative_to_absolute (HELLO_REVALIDATION_START_TIME),
4820 * Process HELLO-message.
4822 * @param plugin transport involved, may be NULL
4823 * @param message the actual message
4824 * @return GNUNET_OK if the HELLO was well-formed, GNUNET_SYSERR otherwise
4827 process_hello (struct TransportPlugin *plugin,
4828 const struct GNUNET_MessageHeader *message)
4831 struct GNUNET_PeerIdentity target;
4832 const struct GNUNET_HELLO_Message *hello;
4833 struct CheckHelloValidatedContext *chvc;
4834 struct GNUNET_CRYPTO_RsaPublicKeyBinaryEncoded publicKey;
4835 #if DEBUG_TRANSPORT_HELLO > 2
4838 hsize = ntohs (message->size);
4839 if ((ntohs (message->type) != GNUNET_MESSAGE_TYPE_HELLO) ||
4840 (hsize < sizeof (struct GNUNET_MessageHeader)))
4843 return GNUNET_SYSERR;
4845 GNUNET_STATISTICS_update (stats,
4846 gettext_noop ("# HELLOs received for validation"),
4850 /* first, check if load is too high */
4851 if (GNUNET_SCHEDULER_get_load (GNUNET_SCHEDULER_PRIORITY_BACKGROUND) > MAX_HELLO_LOAD)
4853 GNUNET_STATISTICS_update (stats,
4854 gettext_noop ("# HELLOs ignored due to high load"),
4857 #if DEBUG_TRANSPORT_HELLO
4858 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
4859 "Ignoring `%s' for `%4s', load too high.\n",
4861 GNUNET_i2s (&target));
4865 hello = (const struct GNUNET_HELLO_Message *) message;
4866 if (GNUNET_OK != GNUNET_HELLO_get_key (hello, &publicKey))
4868 #if DEBUG_TRANSPORT_HELLO
4869 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
4870 "Unable to get public key from `%s' for `%4s'!\n",
4872 GNUNET_i2s (&target));
4874 GNUNET_break_op (0);
4875 return GNUNET_SYSERR;
4878 GNUNET_CRYPTO_hash (&publicKey,
4879 sizeof (struct GNUNET_CRYPTO_RsaPublicKeyBinaryEncoded),
4880 &target.hashPubKey);
4882 #if DEBUG_TRANSPORT_HELLO
4883 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
4884 "Received `%s' message for `%4s'\n",
4886 GNUNET_i2s (&target));
4889 if (0 == memcmp (&my_identity,
4891 sizeof (struct GNUNET_PeerIdentity)))
4893 GNUNET_STATISTICS_update (stats,
4894 gettext_noop ("# HELLOs ignored for validation (is my own HELLO)"),
4900 while (NULL != chvc)
4902 if (GNUNET_HELLO_equals (hello,
4904 GNUNET_TIME_absolute_get ()).abs_value > 0)
4906 #if DEBUG_TRANSPORT_HELLO > 2
4907 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
4908 "Received duplicate `%s' message for `%4s'; ignored\n",
4910 GNUNET_i2s (&target));
4912 return GNUNET_OK; /* validation already pending */
4914 if (GNUNET_HELLO_size(hello) == GNUNET_HELLO_size (chvc->hello))
4915 GNUNET_break (0 != memcmp (hello, chvc->hello,
4916 GNUNET_HELLO_size(hello)));
4921 struct NeighbourList *temp_neighbor = find_neighbour(&target);
4922 if ((NULL != temp_neighbor))
4924 fprintf(stderr, "Already know peer, ignoring hello\n");
4929 #if DEBUG_TRANSPORT_HELLO > 2
4932 my_id = GNUNET_strdup(GNUNET_i2s(plugin->env.my_identity));
4934 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
4935 "%s: Starting validation of `%s' message for `%4s' via '%s' of size %u\n",
4938 GNUNET_i2s (&target),
4940 GNUNET_HELLO_size(hello));
4945 chvc = GNUNET_malloc (sizeof (struct CheckHelloValidatedContext) + hsize);
4947 chvc->hello = (const struct GNUNET_HELLO_Message *) &chvc[1];
4948 memcpy (&chvc[1], hello, hsize);
4949 GNUNET_CONTAINER_DLL_insert (chvc_head,
4952 /* finally, check if HELLO was previously validated
4953 (continuation will then schedule actual validation) */
4954 GNUNET_STATISTICS_update (stats,
4955 gettext_noop ("# peerinfo process hello iterate requests"),
4958 GNUNET_STATISTICS_update (stats,
4959 gettext_noop ("# outstanding peerinfo iterate requests"),
4962 chvc->piter = GNUNET_PEERINFO_iterate (peerinfo,
4964 HELLO_VERIFICATION_TIMEOUT,
4965 &check_hello_validated, chvc);
4971 * The peer specified by the given neighbour has timed-out or a plugin
4972 * has disconnected. We may either need to do nothing (other plugins
4973 * still up), or trigger a full disconnect and clean up. This
4974 * function updates our state and does the necessary notifications.
4975 * Also notifies our clients that the neighbour is now officially
4978 * @param n the neighbour list entry for the peer
4979 * @param check GNUNET_YES to check if ALL addresses for this peer
4980 * are gone, GNUNET_NO to force a disconnect of the peer
4981 * regardless of whether other addresses exist.
4984 disconnect_neighbour (struct NeighbourList *n, int check)
4986 struct ReadyList *rpos;
4987 struct NeighbourList *npos;
4988 struct NeighbourList *nprev;
4989 struct MessageQueue *mq;
4990 struct ForeignAddressList *peer_addresses;
4991 struct ForeignAddressList *peer_pos;
4993 if (GNUNET_YES == check)
4996 while (NULL != rpos)
4998 peer_addresses = rpos->addresses;
4999 while (peer_addresses != NULL)
5001 // Do not disconnect if: an address is connected or an inbound address exists
5002 if ((GNUNET_YES == peer_addresses->connected) || (peer_addresses->addrlen == 0))
5005 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
5006 "NOT Disconnecting from `%4s', still have live addresses!\n",
5007 GNUNET_i2s (&n->id));
5009 return; /* still connected */
5011 peer_addresses = peer_addresses->next;
5017 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG | GNUNET_ERROR_TYPE_BULK,
5018 "Disconnecting from `%4s'\n",
5019 GNUNET_i2s (&n->id));
5021 /* remove n from neighbours list */
5024 while ((npos != NULL) && (npos != n))
5029 GNUNET_assert (npos != NULL);
5031 neighbours = n->next;
5033 nprev->next = n->next;
5035 /* notify all clients about disconnect */
5036 if (GNUNET_YES == n->received_pong)
5037 notify_clients_disconnect (&n->id);
5039 /* clean up all plugins, cancel connections and pending transmissions */
5040 while (NULL != (rpos = n->plugins))
5042 n->plugins = rpos->next;
5043 rpos->plugin->api->disconnect (rpos->plugin->api->cls, &n->id);
5044 while (rpos->addresses != NULL)
5046 peer_pos = rpos->addresses;
5047 rpos->addresses = peer_pos->next;
5048 if (peer_pos->connected == GNUNET_YES)
5049 GNUNET_STATISTICS_update (stats,
5050 gettext_noop ("# connected addresses"),
5053 if (GNUNET_YES == peer_pos->validated)
5054 GNUNET_STATISTICS_update (stats,
5055 gettext_noop ("# peer addresses considered valid"),
5058 if (GNUNET_SCHEDULER_NO_TASK != peer_pos->revalidate_task)
5060 GNUNET_SCHEDULER_cancel (peer_pos->revalidate_task);
5061 peer_pos->revalidate_task = GNUNET_SCHEDULER_NO_TASK;
5063 GNUNET_free(peer_pos->ressources);
5064 peer_pos->ressources = NULL;
5065 GNUNET_free(peer_pos->quality);
5066 peer_pos->ressources = NULL;
5067 GNUNET_free(peer_pos);
5068 ats->stat.recreate_problem = GNUNET_YES;
5073 /* free all messages on the queue */
5074 while (NULL != (mq = n->messages_head))
5076 GNUNET_STATISTICS_update (stats,
5077 gettext_noop ("# bytes in message queue for other peers"),
5078 - (int64_t) mq->message_buf_size,
5080 GNUNET_STATISTICS_update (stats,
5081 gettext_noop ("# bytes discarded due to disconnect"),
5082 mq->message_buf_size,
5084 GNUNET_CONTAINER_DLL_remove (n->messages_head,
5087 GNUNET_assert (0 == memcmp(&mq->neighbour_id,
5089 sizeof(struct GNUNET_PeerIdentity)));
5092 if (n->timeout_task != GNUNET_SCHEDULER_NO_TASK)
5094 GNUNET_SCHEDULER_cancel (n->timeout_task);
5095 n->timeout_task = GNUNET_SCHEDULER_NO_TASK;
5097 if (n->retry_task != GNUNET_SCHEDULER_NO_TASK)
5099 GNUNET_SCHEDULER_cancel (n->retry_task);
5100 n->retry_task = GNUNET_SCHEDULER_NO_TASK;
5102 if (n->piter != NULL)
5104 GNUNET_PEERINFO_iterate_cancel (n->piter);
5105 GNUNET_STATISTICS_update (stats,
5106 gettext_noop ("# outstanding peerinfo iterate requests"),
5111 /* finally, free n itself */
5112 GNUNET_STATISTICS_update (stats,
5113 gettext_noop ("# active neighbours"),
5116 GNUNET_free_non_null (n->pre_connect_message_buffer);
5122 * We have received a PING message from someone. Need to send a PONG message
5123 * in response to the peer by any means necessary.
5126 handle_ping(void *cls, const struct GNUNET_MessageHeader *message,
5127 const struct GNUNET_PeerIdentity *peer,
5128 struct Session *session,
5129 const char *sender_address,
5130 uint16_t sender_address_len)
5132 struct TransportPlugin *plugin = cls;
5133 struct SessionHeader *session_header = (struct SessionHeader*) session;
5134 struct TransportPingMessage *ping;
5135 struct TransportPongMessage *pong;
5136 struct NeighbourList *n;
5137 struct ReadyList *rl;
5138 struct ForeignAddressList *fal;
5139 struct OwnAddressList *oal;
5144 if (ntohs (message->size) < sizeof (struct TransportPingMessage))
5146 GNUNET_break_op (0);
5147 return GNUNET_SYSERR;
5150 ping = (struct TransportPingMessage *) message;
5151 if (0 != memcmp (&ping->target,
5152 plugin->env.my_identity,
5153 sizeof (struct GNUNET_PeerIdentity)))
5156 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
5157 _("Received `%s' message from `%s' destined for `%s' which is not me!\n"),
5159 (sender_address != NULL)
5160 ? a2s (plugin->short_name,
5161 (const struct sockaddr *)sender_address,
5164 GNUNET_i2s (&ping->target));
5166 return GNUNET_SYSERR;
5169 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG | GNUNET_ERROR_TYPE_BULK,
5170 "Processing `%s' from `%s'\n",
5172 (sender_address != NULL)
5173 ? a2s (plugin->short_name,
5174 (const struct sockaddr *)sender_address,
5178 GNUNET_STATISTICS_update (stats,
5179 gettext_noop ("# PING messages received"),
5182 addr = (const char*) &ping[1];
5183 alen = ntohs (message->size) - sizeof (struct TransportPingMessage);
5184 slen = strlen (plugin->short_name) + 1;
5187 /* peer wants to confirm that we have an outbound connection to him */
5188 if (session == NULL)
5190 GNUNET_log (GNUNET_ERROR_TYPE_INFO,
5191 _("Refusing to create PONG since I do not have a session with `%s'.\n"),
5193 return GNUNET_SYSERR;
5195 pong = GNUNET_malloc (sizeof (struct TransportPongMessage) + sender_address_len + slen);
5196 pong->header.size = htons (sizeof (struct TransportPongMessage) + sender_address_len + slen);
5197 pong->header.type = htons (GNUNET_MESSAGE_TYPE_TRANSPORT_PONG);
5198 pong->purpose.size =
5199 htonl (sizeof (struct GNUNET_CRYPTO_RsaSignaturePurpose) +
5201 sizeof (struct GNUNET_TIME_AbsoluteNBO) +
5202 sizeof (struct GNUNET_PeerIdentity) + sender_address_len + slen);
5203 pong->purpose.purpose = htonl (GNUNET_SIGNATURE_PURPOSE_TRANSPORT_PONG_USING);
5204 pong->challenge = ping->challenge;
5205 pong->addrlen = htonl(sender_address_len + slen);
5208 sizeof(struct GNUNET_PeerIdentity));
5212 if ((sender_address!=NULL) && (sender_address_len > 0))
5213 memcpy (&((char*)&pong[1])[slen],
5215 sender_address_len);
5216 if (GNUNET_TIME_absolute_get_remaining (session_header->pong_sig_expires).rel_value < PONG_SIGNATURE_LIFETIME.rel_value / 4)
5218 /* create / update cached sig */
5220 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
5221 "Creating PONG signature to indicate active connection.\n");
5223 session_header->pong_sig_expires = GNUNET_TIME_relative_to_absolute (PONG_SIGNATURE_LIFETIME);
5224 pong->expiration = GNUNET_TIME_absolute_hton (session_header->pong_sig_expires);
5225 GNUNET_assert (GNUNET_OK ==
5226 GNUNET_CRYPTO_rsa_sign (my_private_key,
5228 &session_header->pong_signature));
5232 pong->expiration = GNUNET_TIME_absolute_hton (session_header->pong_sig_expires);
5234 memcpy (&pong->signature,
5235 &session_header->pong_signature,
5236 sizeof (struct GNUNET_CRYPTO_RsaSignature));
5242 /* peer wants to confirm that this is one of our addresses */
5246 plugin->api->check_address (plugin->api->cls,
5250 GNUNET_log (GNUNET_ERROR_TYPE_INFO,
5251 _("Not confirming PING with address `%s' since I cannot confirm having this address.\n"),
5252 a2s (plugin->short_name,
5257 oal = plugin->addresses;
5260 if ( (oal->addrlen == alen) &&
5267 pong = GNUNET_malloc (sizeof (struct TransportPongMessage) + alen + slen);
5268 pong->header.size = htons (sizeof (struct TransportPongMessage) + alen + slen);
5269 pong->header.type = htons (GNUNET_MESSAGE_TYPE_TRANSPORT_PONG);
5270 pong->purpose.size =
5271 htonl (sizeof (struct GNUNET_CRYPTO_RsaSignaturePurpose) +
5273 sizeof (struct GNUNET_TIME_AbsoluteNBO) +
5274 sizeof (struct GNUNET_PeerIdentity) + alen + slen);
5275 pong->purpose.purpose = htonl (GNUNET_SIGNATURE_PURPOSE_TRANSPORT_PONG_OWN);
5276 pong->challenge = ping->challenge;
5277 pong->addrlen = htonl(alen + slen);
5280 sizeof(struct GNUNET_PeerIdentity));
5281 memcpy (&pong[1], plugin->short_name, slen);
5282 memcpy (&((char*)&pong[1])[slen], addr, alen);
5283 if ( (oal != NULL) &&
5284 (GNUNET_TIME_absolute_get_remaining (oal->pong_sig_expires).rel_value < PONG_SIGNATURE_LIFETIME.rel_value / 4) )
5286 /* create / update cached sig */
5288 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
5289 "Creating PONG signature to indicate ownership.\n");
5291 oal->pong_sig_expires = GNUNET_TIME_absolute_min (oal->expires,
5292 GNUNET_TIME_relative_to_absolute (PONG_SIGNATURE_LIFETIME));
5293 pong->expiration = GNUNET_TIME_absolute_hton (oal->pong_sig_expires);
5294 GNUNET_assert (GNUNET_OK ==
5295 GNUNET_CRYPTO_rsa_sign (my_private_key,
5297 &oal->pong_signature));
5298 memcpy (&pong->signature,
5299 &oal->pong_signature,
5300 sizeof (struct GNUNET_CRYPTO_RsaSignature));
5302 else if (oal == NULL)
5304 /* not using cache (typically DV-only) */
5305 pong->expiration = GNUNET_TIME_absolute_hton (GNUNET_TIME_relative_to_absolute (PONG_SIGNATURE_LIFETIME));
5306 GNUNET_assert (GNUNET_OK ==
5307 GNUNET_CRYPTO_rsa_sign (my_private_key,
5313 /* can used cached version */
5314 pong->expiration = GNUNET_TIME_absolute_hton (oal->pong_sig_expires);
5315 memcpy (&pong->signature,
5316 &oal->pong_signature,
5317 sizeof (struct GNUNET_CRYPTO_RsaSignature));
5320 n = find_neighbour(peer);
5321 GNUNET_assert (n != NULL);
5322 /* first try reliable response transmission */
5326 fal = rl->addresses;
5329 if (-1 != rl->plugin->api->send (rl->plugin->api->cls,
5332 ntohs (pong->header.size),
5333 TRANSPORT_PONG_PRIORITY,
5334 HELLO_VERIFICATION_TIMEOUT,
5342 GNUNET_STATISTICS_update (stats,
5343 gettext_noop ("# PONGs unicast via reliable transport"),
5353 /* no reliable method found, do multicast */
5354 GNUNET_STATISTICS_update (stats,
5355 gettext_noop ("# PONGs multicast to all available addresses"),
5361 fal = rl->addresses;
5364 transmit_to_peer(NULL, fal,
5365 TRANSPORT_PONG_PRIORITY,
5366 HELLO_VERIFICATION_TIMEOUT,
5368 ntohs(pong->header.size),
5381 * Function called by the plugin for each received message. Update
5382 * data volumes, possibly notify plugins about reducing the rate at
5383 * which they read from the socket and generally forward to our
5386 * @param cls the "struct TransportPlugin *" we gave to the plugin
5387 * @param peer (claimed) identity of the other peer
5388 * @param message the message, NULL if we only care about
5389 * learning about the delay until we should receive again
5390 * @param ats_data information for automatic transport selection
5391 * @param ats_count number of elements in ats not including 0-terminator
5392 * @param session identifier used for this session (can be NULL)
5393 * @param sender_address binary address of the sender (if observed)
5394 * @param sender_address_len number of bytes in sender_address
5395 * @return how long in ms the plugin should wait until receiving more data
5396 * (plugins that do not support this, can ignore the return value)
5398 static struct GNUNET_TIME_Relative
5399 plugin_env_receive (void *cls, const struct GNUNET_PeerIdentity *peer,
5400 const struct GNUNET_MessageHeader *message,
5401 const struct GNUNET_TRANSPORT_ATS_Information *ats_data,
5403 struct Session *session,
5404 const char *sender_address,
5405 uint16_t sender_address_len)
5407 struct TransportPlugin *plugin = cls;
5408 struct ReadyList *service_context;
5409 struct ForeignAddressList *peer_address;
5411 struct NeighbourList *n;
5412 struct GNUNET_TIME_Relative ret;
5416 if (0 == memcmp (peer,
5418 sizeof (struct GNUNET_PeerIdentity)))
5420 /* refuse to receive from myself */
5422 return GNUNET_TIME_UNIT_FOREVER_REL;
5424 if (is_blacklisted (peer, plugin))
5425 return GNUNET_TIME_UNIT_FOREVER_REL;
5426 n = find_neighbour (peer);
5428 n = setup_new_neighbour (peer, GNUNET_YES);
5429 service_context = n->plugins;
5430 while ((service_context != NULL) && (plugin != service_context->plugin))
5431 service_context = service_context->next;
5432 GNUNET_assert ((plugin->api->send == NULL) || (service_context != NULL));
5433 peer_address = NULL;
5436 for (c=0; c<ats_count; c++)
5437 if (ntohl(ats_data[c].type) == GNUNET_TRANSPORT_ATS_QUALITY_NET_DISTANCE)
5438 distance = ntohl(ats_data[c].value);
5440 /* notify ATS about incoming data */
5441 //ats_notify_ats_data(peer, ats_data);
5443 if (message != NULL)
5445 if ( (session != NULL) ||
5446 (sender_address != NULL) )
5447 peer_address = add_peer_address (n,
5451 sender_address_len);
5452 if (peer_address != NULL)
5454 update_addr_ats(peer_address, ats_data, ats_count);
5455 update_addr_value(peer_address, distance, GNUNET_TRANSPORT_ATS_QUALITY_NET_DISTANCE);
5457 peer_address->distance = distance;
5458 if (GNUNET_YES == peer_address->validated)
5459 mark_address_connected (peer_address);
5460 peer_address->timeout
5461 = GNUNET_TIME_relative_to_absolute (GNUNET_CONSTANTS_IDLE_CONNECTION_TIMEOUT);
5462 schedule_next_ping (peer_address);
5464 /* update traffic received amount ... */
5465 msize = ntohs (message->size);
5467 GNUNET_STATISTICS_update (stats,
5468 gettext_noop ("# bytes received from other peers"),
5471 n->distance = distance;
5473 GNUNET_TIME_relative_to_absolute
5474 (GNUNET_CONSTANTS_IDLE_CONNECTION_TIMEOUT);
5475 GNUNET_SCHEDULER_cancel (n->timeout_task);
5477 GNUNET_SCHEDULER_add_delayed (GNUNET_CONSTANTS_IDLE_CONNECTION_TIMEOUT,
5478 &neighbour_timeout_task, n);
5479 if (n->quota_violation_count > QUOTA_VIOLATION_DROP_THRESHOLD)
5481 /* dropping message due to frequent inbound volume violations! */
5482 GNUNET_log (GNUNET_ERROR_TYPE_WARNING |
5483 GNUNET_ERROR_TYPE_BULK,
5485 ("Dropping incoming message due to repeated bandwidth quota (%u b/s) violations (total of %u).\n"),
5486 n->in_tracker.available_bytes_per_s__,
5487 n->quota_violation_count);
5488 GNUNET_STATISTICS_update (stats,
5489 gettext_noop ("# bandwidth quota violations by other peers"),
5492 return GNUNET_CONSTANTS_QUOTA_VIOLATION_TIMEOUT;
5494 if ((ntohs(message->type) == GNUNET_MESSAGE_TYPE_TRANSPORT_ATS) &&
5495 (ntohs(message->size) == (sizeof (struct GNUNET_MessageHeader) + sizeof (uint32_t))))
5497 uint32_t value = ntohl(*((uint32_t *) &message[1]));
5498 //GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "GNUNET_MESSAGE_TYPE_TRANSPORT_ATS: %i \n", value);
5499 /* Force ressource and quality update */
5502 ats->stat.modified_resources = GNUNET_YES;
5503 ats->stat.modified_quality = GNUNET_YES;
5505 /* Force cost update */
5507 ats->stat.modified_resources = GNUNET_YES;
5508 /* Force quality update */
5510 ats->stat.modified_quality = GNUNET_YES;
5511 /* Force full rebuild */
5513 ats->stat.recreate_problem = GNUNET_YES;
5517 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
5518 "Received message of type %u and size %u from `%4s', sending to all clients.\n",
5519 ntohs (message->type),
5520 ntohs (message->size),
5523 switch (ntohs (message->type))
5525 case GNUNET_MESSAGE_TYPE_HELLO:
5526 GNUNET_STATISTICS_update (stats,
5527 gettext_noop ("# HELLO messages received from other peers"),
5530 process_hello (plugin, message);
5532 case GNUNET_MESSAGE_TYPE_TRANSPORT_PING:
5533 handle_ping (plugin, message, peer, session, sender_address, sender_address_len);
5535 case GNUNET_MESSAGE_TYPE_TRANSPORT_PONG:
5536 handle_pong (plugin, message, peer, sender_address, sender_address_len);
5538 case GNUNET_MESSAGE_TYPE_TRANSPORT_ATS:
5541 handle_payload_message (message, n);
5545 ret = GNUNET_BANDWIDTH_tracker_get_delay (&n->in_tracker, 0);
5546 if (ret.rel_value > 0)
5549 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
5550 "Throttling read (%llu bytes excess at %u b/s), waiting %llu ms before reading more.\n",
5551 (unsigned long long) n->in_tracker.consumption_since_last_update__,
5552 (unsigned int) n->in_tracker.available_bytes_per_s__,
5553 (unsigned long long) ret.rel_value);
5555 GNUNET_STATISTICS_update (stats,
5556 gettext_noop ("# ms throttling suggested"),
5557 (int64_t) ret.rel_value,
5564 * Handle START-message. This is the first message sent to us
5565 * by any client which causes us to add it to our list.
5567 * @param cls closure (always NULL)
5568 * @param client identification of the client
5569 * @param message the actual message
5572 handle_start (void *cls,
5573 struct GNUNET_SERVER_Client *client,
5574 const struct GNUNET_MessageHeader *message)
5576 const struct StartMessage *start;
5577 struct TransportClient *c;
5578 struct ConnectInfoMessage * cim;
5579 struct NeighbourList *n;
5583 start = (const struct StartMessage*) message;
5585 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
5586 "Received `%s' request from client\n", "START");
5591 if (c->client == client)
5593 /* client already on our list! */
5595 GNUNET_SERVER_receive_done (client, GNUNET_SYSERR);
5600 if ( (GNUNET_NO != ntohl (start->do_check)) &&
5601 (0 != memcmp (&start->self,
5603 sizeof (struct GNUNET_PeerIdentity))) )
5605 GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
5606 _("Rejecting control connection from peer `%s', which is not me!\n"),
5607 GNUNET_i2s (&start->self));
5608 GNUNET_SERVER_receive_done (client, GNUNET_SYSERR);
5611 c = GNUNET_malloc (sizeof (struct TransportClient));
5615 if (our_hello != NULL)
5618 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
5619 "Sending our own `%s' to new client\n", "HELLO");
5621 transmit_to_client (c,
5622 (const struct GNUNET_MessageHeader *) our_hello,
5624 /* tell new client about all existing connections */
5626 size = sizeof (struct ConnectInfoMessage) + ats_count * sizeof (struct GNUNET_TRANSPORT_ATS_Information);
5627 if (size > GNUNET_SERVER_MAX_MESSAGE_SIZE)
5631 cim = GNUNET_malloc (size);
5632 cim->header.size = htons (size);
5633 cim->header.type = htons (GNUNET_MESSAGE_TYPE_TRANSPORT_CONNECT);
5634 cim->ats_count = htonl(ats_count);
5635 (&(cim->ats))[2].type = htonl (GNUNET_TRANSPORT_ATS_ARRAY_TERMINATOR);
5636 (&(cim->ats))[2].value = htonl (0);
5640 if (GNUNET_YES == n->received_pong)
5642 (&(cim->ats))[0].type = htonl (GNUNET_TRANSPORT_ATS_QUALITY_NET_DISTANCE);
5643 (&(cim->ats))[0].value = htonl (n->distance);
5644 (&(cim->ats))[1].type = htonl (GNUNET_TRANSPORT_ATS_QUALITY_NET_DELAY);
5645 (&(cim->ats))[1].value = htonl ((uint32_t) n->latency.rel_value);
5647 transmit_to_client (c, &cim->header, GNUNET_NO);
5653 GNUNET_SERVER_receive_done (client, GNUNET_OK);
5658 * Handle HELLO-message.
5660 * @param cls closure (always NULL)
5661 * @param client identification of the client
5662 * @param message the actual message
5665 handle_hello (void *cls,
5666 struct GNUNET_SERVER_Client *client,
5667 const struct GNUNET_MessageHeader *message)
5671 GNUNET_STATISTICS_update (stats,
5672 gettext_noop ("# HELLOs received from clients"),
5675 ret = process_hello (NULL, message);
5676 GNUNET_SERVER_receive_done (client, ret);
5681 * Closure for 'transmit_client_message'; followed by
5682 * 'msize' bytes of the actual message.
5684 struct TransmitClientMessageContext
5687 * Client on whom's behalf we are sending.
5689 struct GNUNET_SERVER_Client *client;
5692 * Timeout for the transmission.
5694 struct GNUNET_TIME_Absolute timeout;
5702 * Size of the message in bytes.
5709 * Schedule transmission of a message we got from a client to a peer.
5711 * @param cls the 'struct TransmitClientMessageContext*'
5712 * @param n destination, or NULL on error (in that case, drop the message)
5715 transmit_client_message (void *cls,
5716 struct NeighbourList *n)
5718 struct TransmitClientMessageContext *tcmc = cls;
5719 struct TransportClient *tc;
5722 while ((tc != NULL) && (tc->client != tcmc->client))
5727 transmit_to_peer (tc, NULL, tcmc->priority,
5728 GNUNET_TIME_absolute_get_remaining (tcmc->timeout),
5730 tcmc->msize, GNUNET_NO, n);
5732 GNUNET_SERVER_receive_done (tcmc->client, GNUNET_OK);
5733 GNUNET_SERVER_client_drop (tcmc->client);
5739 * Handle SEND-message.
5741 * @param cls closure (always NULL)
5742 * @param client identification of the client
5743 * @param message the actual message
5746 handle_send (void *cls,
5747 struct GNUNET_SERVER_Client *client,
5748 const struct GNUNET_MessageHeader *message)
5750 const struct OutboundMessage *obm;
5751 const struct GNUNET_MessageHeader *obmm;
5752 struct TransmitClientMessageContext *tcmc;
5756 size = ntohs (message->size);
5758 sizeof (struct OutboundMessage) + sizeof (struct GNUNET_MessageHeader))
5761 GNUNET_SERVER_receive_done (client, GNUNET_SYSERR);
5764 GNUNET_STATISTICS_update (stats,
5765 gettext_noop ("# payload received for other peers"),
5768 obm = (const struct OutboundMessage *) message;
5769 obmm = (const struct GNUNET_MessageHeader *) &obm[1];
5770 msize = size - sizeof (struct OutboundMessage);
5772 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
5773 "Received `%s' request from client with target `%4s' and message of type %u and size %u\n",
5774 "SEND", GNUNET_i2s (&obm->peer),
5778 tcmc = GNUNET_malloc (sizeof (struct TransmitClientMessageContext) + msize);
5779 tcmc->client = client;
5780 tcmc->priority = ntohl (obm->priority);
5781 tcmc->timeout = GNUNET_TIME_relative_to_absolute (GNUNET_TIME_relative_ntoh (obm->timeout));
5782 tcmc->msize = msize;
5783 /* FIXME: this memcpy can be up to 7% of our total runtime */
5784 memcpy (&tcmc[1], obmm, msize);
5785 GNUNET_SERVER_client_keep (client);
5786 setup_peer_check_blacklist (&obm->peer, GNUNET_YES,
5787 &transmit_client_message,
5793 * Handle request connect message
5795 * @param cls closure (always NULL)
5796 * @param client identification of the client
5797 * @param message the actual message
5800 handle_request_connect (void *cls,
5801 struct GNUNET_SERVER_Client *client,
5802 const struct GNUNET_MessageHeader *message)
5804 const struct TransportRequestConnectMessage *trcm =
5805 (const struct TransportRequestConnectMessage *) message;
5807 GNUNET_STATISTICS_update (stats,
5808 gettext_noop ("# REQUEST CONNECT messages received"),
5812 GNUNET_log(GNUNET_ERROR_TYPE_DEBUG,
5813 "Received a request connect message for peer `%s'\n",
5814 GNUNET_i2s(&trcm->peer));
5816 setup_peer_check_blacklist (&trcm->peer, GNUNET_YES,
5818 GNUNET_SERVER_receive_done (client, GNUNET_OK);
5823 * Handle SET_QUOTA-message.
5825 * @param cls closure (always NULL)
5826 * @param client identification of the client
5827 * @param message the actual message
5830 handle_set_quota (void *cls,
5831 struct GNUNET_SERVER_Client *client,
5832 const struct GNUNET_MessageHeader *message)
5834 const struct QuotaSetMessage *qsm =
5835 (const struct QuotaSetMessage *) message;
5836 struct NeighbourList *n;
5838 GNUNET_STATISTICS_update (stats,
5839 gettext_noop ("# SET QUOTA messages received"),
5842 n = find_neighbour (&qsm->peer);
5845 GNUNET_SERVER_receive_done (client, GNUNET_OK);
5846 GNUNET_STATISTICS_update (stats,
5847 gettext_noop ("# SET QUOTA messages ignored (no such peer)"),
5853 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
5854 "Received `%s' request (new quota %u, old quota %u) from client for peer `%4s'\n",
5856 (unsigned int) ntohl (qsm->quota.value__),
5857 (unsigned int) n->in_tracker.available_bytes_per_s__,
5858 GNUNET_i2s (&qsm->peer));
5860 GNUNET_BANDWIDTH_tracker_update_quota (&n->in_tracker,
5862 if (0 == ntohl (qsm->quota.value__))
5865 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
5866 "Disconnecting peer `%4s', %s\n", GNUNET_i2s(&n->id),
5869 GNUNET_STATISTICS_update (stats,
5870 gettext_noop ("# disconnects due to quota of 0"),
5873 disconnect_neighbour (n, GNUNET_NO);
5875 GNUNET_SERVER_receive_done (client, GNUNET_OK);
5880 * Take the given address and append it to the set of results sent back to
5883 * @param cls the transmission context used ('struct GNUNET_SERVER_TransmitContext*')
5884 * @param address the resolved name, NULL to indicate the last response
5887 transmit_address_to_client (void *cls, const char *address)
5889 struct GNUNET_SERVER_TransmitContext *tc = cls;
5892 if (NULL != address)
5894 slen = strlen (address) + 1;
5895 GNUNET_SERVER_transmit_context_append_data (tc, address, slen,
5896 GNUNET_MESSAGE_TYPE_TRANSPORT_ADDRESS_REPLY);
5900 GNUNET_SERVER_transmit_context_run (tc, GNUNET_TIME_UNIT_FOREVER_REL);
5906 * Handle AddressLookup-message.
5908 * @param cls closure (always NULL)
5909 * @param client identification of the client
5910 * @param message the actual message
5913 handle_address_lookup (void *cls,
5914 struct GNUNET_SERVER_Client *client,
5915 const struct GNUNET_MessageHeader *message)
5917 const struct AddressLookupMessage *alum;
5918 struct TransportPlugin *lsPlugin;
5919 const char *nameTransport;
5920 const char *address;
5922 struct GNUNET_SERVER_TransmitContext *tc;
5923 struct GNUNET_TIME_Absolute timeout;
5924 struct GNUNET_TIME_Relative rtimeout;
5927 size = ntohs (message->size);
5928 if (size < sizeof (struct AddressLookupMessage))
5930 GNUNET_break_op (0);
5931 GNUNET_SERVER_receive_done (client, GNUNET_SYSERR);
5934 alum = (const struct AddressLookupMessage *) message;
5935 uint32_t addressLen = ntohl (alum->addrlen);
5936 if (size <= sizeof (struct AddressLookupMessage) + addressLen)
5938 GNUNET_break_op (0);
5939 GNUNET_SERVER_receive_done (client, GNUNET_SYSERR);
5942 address = (const char *) &alum[1];
5943 nameTransport = (const char *) &address[addressLen];
5945 [size - sizeof (struct AddressLookupMessage) - addressLen - 1] != '\0')
5947 GNUNET_break_op (0);
5948 GNUNET_SERVER_receive_done (client, GNUNET_SYSERR);
5951 timeout = GNUNET_TIME_absolute_ntoh (alum->timeout);
5952 rtimeout = GNUNET_TIME_absolute_get_remaining (timeout);
5953 numeric = ntohl (alum->numeric_only);
5954 lsPlugin = find_transport (nameTransport);
5955 if (NULL == lsPlugin)
5957 tc = GNUNET_SERVER_transmit_context_create (client);
5958 GNUNET_SERVER_transmit_context_append_data (tc, NULL, 0,
5959 GNUNET_MESSAGE_TYPE_TRANSPORT_ADDRESS_REPLY);
5960 GNUNET_SERVER_transmit_context_run (tc, rtimeout);
5963 GNUNET_SERVER_disable_receive_done_warning (client);
5964 tc = GNUNET_SERVER_transmit_context_create (client);
5965 lsPlugin->api->address_pretty_printer (lsPlugin->api->cls,
5967 address, addressLen,
5970 &transmit_address_to_client, tc);
5975 * Setup the environment for this plugin.
5978 create_environment (struct TransportPlugin *plug)
5980 plug->env.cfg = cfg;
5981 plug->env.my_identity = &my_identity;
5982 plug->env.our_hello = &our_hello;
5983 plug->env.cls = plug;
5984 plug->env.receive = &plugin_env_receive;
5985 plug->env.notify_address = &plugin_env_notify_address;
5986 plug->env.session_end = &plugin_env_session_end;
5987 plug->env.max_connections = max_connect_per_transport;
5988 plug->env.stats = stats;
5993 * Start the specified transport (load the plugin).
5996 start_transport (struct GNUNET_SERVER_Handle *server,
5999 struct TransportPlugin *plug;
6002 GNUNET_log (GNUNET_ERROR_TYPE_INFO,
6003 _("Loading `%s' transport plugin\n"), name);
6004 GNUNET_asprintf (&libname, "libgnunet_plugin_transport_%s", name);
6005 plug = GNUNET_malloc (sizeof (struct TransportPlugin));
6006 create_environment (plug);
6007 plug->short_name = GNUNET_strdup (name);
6008 plug->lib_name = libname;
6009 plug->next = plugins;
6011 plug->api = GNUNET_PLUGIN_load (libname, &plug->env);
6012 if (plug->api == NULL)
6014 GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
6015 _("Failed to load transport plugin for `%s'\n"), name);
6016 GNUNET_free (plug->short_name);
6017 plugins = plug->next;
6018 GNUNET_free (libname);
6025 * Called whenever a client is disconnected. Frees our
6026 * resources associated with that client.
6028 * @param cls closure
6029 * @param client identification of the client
6032 client_disconnect_notification (void *cls,
6033 struct GNUNET_SERVER_Client *client)
6035 struct TransportClient *pos;
6036 struct TransportClient *prev;
6037 struct ClientMessageQueueEntry *mqe;
6038 struct Blacklisters *bl;
6039 struct BlacklistCheck *bc;
6044 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG | GNUNET_ERROR_TYPE_BULK,
6045 "Client disconnected, cleaning up.\n");
6047 /* clean up blacklister */
6051 if (bl->client == client)
6056 if (bc->bl_pos == bl)
6058 bc->bl_pos = bl->next;
6061 GNUNET_CONNECTION_notify_transmit_ready_cancel (bc->th);
6064 if (bc->task == GNUNET_SCHEDULER_NO_TASK)
6065 bc->task = GNUNET_SCHEDULER_add_now (&do_blacklist_check,
6071 GNUNET_CONTAINER_DLL_remove (bl_head,
6074 GNUNET_SERVER_client_drop (bl->client);
6080 /* clean up 'normal' clients */
6083 while ((pos != NULL) && (pos->client != client))
6090 while (NULL != (mqe = pos->message_queue_head))
6092 GNUNET_CONTAINER_DLL_remove (pos->message_queue_head,
6093 pos->message_queue_tail,
6095 pos->message_count--;
6099 clients = pos->next;
6101 prev->next = pos->next;
6102 if (GNUNET_YES == pos->tcs_pending)
6107 if (pos->th != NULL)
6109 GNUNET_CONNECTION_notify_transmit_ready_cancel (pos->th);
6112 GNUNET_break (0 == pos->message_count);
6118 * Function called when the service shuts down. Unloads our plugins
6119 * and cancels pending validations.
6121 * @param cls closure, unused
6122 * @param tc task context (unused)
6125 shutdown_task (void *cls, const struct GNUNET_SCHEDULER_TaskContext *tc)
6127 struct TransportPlugin *plug;
6128 struct OwnAddressList *al;
6129 struct CheckHelloValidatedContext *chvc;
6131 shutdown_in_progress = GNUNET_YES;
6132 while (neighbours != NULL)
6135 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
6136 "Disconnecting peer `%4s', %s\n", GNUNET_i2s(&neighbours->id),
6139 disconnect_neighbour (neighbours, GNUNET_NO);
6142 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
6143 "Transport service is unloading plugins...\n");
6145 while (NULL != (plug = plugins))
6147 plugins = plug->next;
6148 if (plug->address_update_task != GNUNET_SCHEDULER_NO_TASK)
6150 GNUNET_SCHEDULER_cancel (plug->address_update_task);
6151 plug->address_update_task = GNUNET_SCHEDULER_NO_TASK;
6153 GNUNET_break (NULL == GNUNET_PLUGIN_unload (plug->lib_name, plug->api));
6154 GNUNET_free (plug->lib_name);
6155 GNUNET_free (plug->short_name);
6156 while (NULL != (al = plug->addresses))
6158 plug->addresses = al->next;
6163 if (my_private_key != NULL)
6164 GNUNET_CRYPTO_rsa_key_free (my_private_key);
6165 GNUNET_free_non_null (our_hello);
6167 GNUNET_CONTAINER_multihashmap_iterate (validation_map,
6170 GNUNET_CONTAINER_multihashmap_destroy (validation_map);
6171 validation_map = NULL;
6175 /* free 'chvc' data structure */
6176 while (NULL != (chvc = chvc_head))
6178 chvc_head = chvc->next;
6179 if (chvc->piter != NULL)
6181 GNUNET_PEERINFO_iterate_cancel (chvc->piter);
6182 GNUNET_STATISTICS_update (stats,
6183 gettext_noop ("# outstanding peerinfo iterate requests"),
6190 GNUNET_assert (chvc->ve_count == 0);
6197 GNUNET_STATISTICS_destroy (stats, GNUNET_NO);
6200 if (peerinfo != NULL)
6202 GNUNET_PEERINFO_disconnect (peerinfo);
6205 /* Can we assume those are gone by now, or do we need to clean up
6207 GNUNET_break (bl_head == NULL);
6208 GNUNET_break (bc_head == NULL);
6212 static int ats_evaluate_results (int result, int solution, char * problem)
6214 int cont = GNUNET_NO;
6215 #if DEBUG_ATS || VERBOSE_ATS
6216 int error_kind = GNUNET_ERROR_TYPE_DEBUG;
6219 error_kind = GNUNET_ERROR_TYPE_ERROR;
6223 case GNUNET_SYSERR : /* GNUNET problem, not GLPK related */
6224 #if DEBUG_ATS || VERBOSE_ATS
6225 GNUNET_log (error_kind, "%s , GLPK solving not executed\n", problem);
6228 case GLP_ESTOP : /* search terminated by application */
6229 #if DEBUG_ATS || VERBOSE_ATS
6230 GNUNET_log (error_kind, "%s , Search terminated by application\n", problem);
6233 case GLP_EITLIM : /* iteration limit exceeded */
6234 #if DEBUG_ATS || VERBOSE_ATS
6235 GNUNET_log (GNUNET_ERROR_TYPE_WARNING, "%s Iteration limit exceeded\n", problem);
6238 case GLP_ETMLIM : /* time limit exceeded */
6239 #if DEBUG_ATS || VERBOSE_ATS
6240 GNUNET_log (GNUNET_ERROR_TYPE_WARNING, "%s Time limit exceeded\n", problem);
6243 case GLP_ENOPFS : /* no primal feasible solution */
6244 case GLP_ENODFS : /* no dual feasible solution */
6245 #if DEBUG_ATS || VERBOSE_ATS
6246 GNUNET_log (error_kind, "%s No feasible solution\n", problem);
6250 case GLP_EBADB : /* invalid basis */
6251 case GLP_ESING : /* singular matrix */
6252 case GLP_ECOND : /* ill-conditioned matrix */
6253 case GLP_EBOUND : /* invalid bounds */
6254 case GLP_EFAIL : /* solver failed */
6255 case GLP_EOBJLL : /* objective lower limit reached */
6256 case GLP_EOBJUL : /* objective upper limit reached */
6257 case GLP_EROOT : /* root LP optimum not provided */
6258 #if DEBUG_ATS || VERBOSE_ATS
6259 GNUNET_log (error_kind, "%s Invalid Input data: %i\n", problem, result);
6264 #if DEBUG_ATS || VERBOSE_ATS
6265 GNUNET_log (error_kind, "%s Problem has been solved\n", problem);
6272 #if DEBUG_ATS || VERBOSE_ATS
6273 GNUNET_log (error_kind, "%s solution is undefined\n", problem);
6277 #if DEBUG_ATS || VERBOSE_ATS
6278 GNUNET_log (error_kind, "%s solution is optimal\n", problem);
6283 #if DEBUG_ATS || VERBOSE_ATS
6284 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"));
6289 #if DEBUG_ATS || VERBOSE_ATS
6290 GNUNET_log (error_kind, "%s problem has no %sfeasible solution\n", problem, (0==strcmp(problem,"LP")?"":"integer "));
6294 #if DEBUG_ATS || VERBOSE_ATS
6295 GNUNET_log (error_kind, "%s problem is infeasible \n", problem);
6299 #if DEBUG_ATS || VERBOSE_ATS
6300 GNUNET_log (error_kind, "%s problem is unbounded \n", problem);
6308 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)
6310 int result = GNUNET_SYSERR;
6311 int lp_solution = GNUNET_SYSERR;
6312 int mlp_solution = GNUNET_SYSERR;
6316 glp_init_smcp(&opt_lp);
6318 opt_lp.msg_lev = GLP_MSG_ALL;
6320 opt_lp.msg_lev = GLP_MSG_OFF;
6323 // setting iteration limit
6324 opt_lp.it_lim = max_it;
6326 opt_lp.tm_lim = max_dur;
6328 if (ats->stat.recreate_problem == GNUNET_YES)
6329 opt_lp.presolve = GLP_ON;
6330 result = glp_simplex(ats->prob, &opt_lp);
6331 lp_solution = glp_get_status (ats->prob);
6333 if ((result == GLP_ETMLIM) || (result == GLP_EITLIM))
6335 ats->stat.valid = GNUNET_NO;
6336 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "ATS exceeded time or iteration limit!\n");
6340 if (ats_evaluate_results(result, lp_solution, "LP") == GNUNET_YES)
6342 stat->valid = GNUNET_YES;
6346 ats->stat.simplex_rerun_required = GNUNET_YES;
6347 opt_lp.presolve = GLP_ON;
6348 result = glp_simplex(ats->prob, &opt_lp);
6349 lp_solution = glp_get_status (ats->prob);
6351 // TODO: Remove if this does not appear until release
6352 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "EXECUTED SIMPLEX WITH PRESOLVER! %i \n", lp_solution);
6354 if (ats_evaluate_results(result, lp_solution, "LP") != GNUNET_YES)
6356 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "After execution simplex with presolver: STILL INVALID!\n");
6358 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);
6359 glp_write_lp (ats->prob, NULL, filename);
6360 GNUNET_free (filename);
6361 stat->valid = GNUNET_NO;
6362 ats->stat.recreate_problem = GNUNET_YES;
6365 stat->valid = GNUNET_YES;
6370 glp_init_iocp(&opt_mlp);
6372 opt_mlp.tm_lim = max_dur;
6375 opt_mlp.msg_lev = GLP_MSG_ALL;
6377 opt_mlp.msg_lev = GLP_MSG_OFF;
6380 result = glp_intopt (ats->prob, &opt_mlp);
6381 mlp_solution = glp_mip_status (ats->prob);
6382 stat->solution = mlp_solution;
6384 if (ats_evaluate_results(result, mlp_solution, "MLP") == GNUNET_YES)
6386 stat->valid = GNUNET_YES;
6390 // TODO: Remove if this does not appear until release
6391 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);
6392 stat->valid = GNUNET_NO;
6397 int error = GNUNET_NO;
6399 struct ATS_mechanism *t = NULL;
6400 for (c=1; c<= (c_peers); c++ )
6403 t = peers[c].m_head;
6406 bw = glp_get_col_prim(prob, t->col_index);
6410 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);
6412 if (check ==GNUNET_YES)
6414 glp_write_sol(prob, "invalid_solution.mlp");
6415 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "Invalid solution, check invalid_solution.mlp");
6416 GNUNET_STATISTICS_update (stats, "ATS invalid solutions", 1, GNUNET_NO);
6419 if (check ==GNUNET_NO)
6427 if (glp_get_col_prim(ats->prob,2*c_mechs+1) != 1)
6430 for (c=1; c<= available_quality_metrics; c++ )
6432 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));
6434 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));
6435 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));
6436 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));
6437 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "objective value: %f\n", glp_mip_obj_val(ats->prob));
6442 static void ats_delete_problem ()
6445 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "Deleting problem\n");
6449 for (c=0; c< (ats->stat).c_mechs; c++)
6450 GNUNET_free_non_null (ats->mechanisms[c].rc);
6453 if (ats->mechanisms!=NULL)
6455 GNUNET_free(ats->mechanisms);
6456 ats->mechanisms = NULL;
6459 if (ats->peers!=NULL)
6461 GNUNET_free(ats->peers);
6465 if (ats->prob != NULL)
6467 glp_delete_prob(ats->prob);
6471 ats->stat.begin_cr = GNUNET_SYSERR;
6472 ats->stat.begin_qm = GNUNET_SYSERR;
6473 ats->stat.c_mechs = 0;
6474 ats->stat.c_peers = 0;
6475 ats->stat.end_cr = GNUNET_SYSERR;
6476 ats->stat.end_qm = GNUNET_SYSERR;
6477 ats->stat.solution = GNUNET_SYSERR;
6478 ats->stat.valid = GNUNET_SYSERR;
6482 static void ats_update_problem_qm ()
6487 int c_q_metrics = available_quality_metrics;
6489 int *ja = GNUNET_malloc ((1 + ats->stat.c_mechs*2 + 3 + available_quality_metrics) * sizeof (int));
6490 double *ar = GNUNET_malloc ((1 + ats->stat.c_mechs*2 + 3 + available_quality_metrics) * sizeof (double));
6492 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "Updating problem quality metrics\n");
6494 row_index = ats->stat.begin_qm;
6496 for (c=1; c <= c_q_metrics; c++)
6501 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "bounds [row]=[%i] \n",row_index);
6504 glp_set_row_bnds(ats->prob, row_index, GLP_FX, 0.0, 0.0);
6505 for (c2=1; c2<=ats->stat.c_mechs; c2++)
6507 ja[array_index] = c2;
6509 GNUNET_assert (ats->mechanisms[c2].addr != NULL);
6510 GNUNET_assert (ats->mechanisms[c2].peer != NULL);
6512 if (qm[c-1].atis_index == GNUNET_TRANSPORT_ATS_QUALITY_NET_DELAY)
6514 double v0 = 0, v1 = 0, v2 = 0;
6516 v0 = ats->mechanisms[c2].addr->quality[c-1].values[0];
6517 if (v1 < 1) v0 = 0.1;
6518 v1 = ats->mechanisms[c2].addr->quality[c-1].values[1];
6519 if (v1 < 1) v0 = 0.1;
6520 v2 = ats->mechanisms[c2].addr->quality[c-1].values[2];
6521 if (v1 < 1) v0 = 0.1;
6522 value = 100.0 / ((v0 + 2 * v1 + 3 * v2) / 6.0);
6525 if (qm[c-1].atis_index == GNUNET_TRANSPORT_ATS_QUALITY_NET_DISTANCE)
6527 double v0 = 0, v1 = 0, v2 = 0;
6528 v0 = ats->mechanisms[c2].addr->quality[c-1].values[0];
6530 v1 = ats->mechanisms[c2].addr->quality[c-1].values[1];
6532 v2 = ats->mechanisms[c2].addr->quality[c-1].values[2];
6534 value = (v0 + 2 * v1 + 3 * v2) / 6.0;
6536 value = (double) 10 / value;
6540 ar[array_index] = (ats->mechanisms[c2].peer->f) * value;
6542 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]);
6546 ja[array_index] = ats->stat.col_qm + c - 1;
6547 ar[array_index] = -1;
6550 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "[index]=[%i]: [%i,%i]=%f \n",array_index, row_index, ja[array_index], ar[array_index]);
6552 glp_set_mat_row (ats->prob, row_index, array_index, ja, ar);
6558 GNUNET_free_non_null (ja);
6559 GNUNET_free_non_null (ar);
6563 static void ats_update_problem_cr ()
6569 double ct_max, ct_min;
6571 int *ja = GNUNET_malloc ((1 + ats->stat.c_mechs*2 + 3 + available_quality_metrics) * sizeof (int));
6572 double *ar = GNUNET_malloc ((1 + ats->stat.c_mechs*2 + 3 + available_quality_metrics) * sizeof (double));
6574 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "Updating problem quality metrics\n");
6575 row_index = ats->stat.begin_cr;
6578 for (c=0; c<available_ressources; c++)
6580 ct_max = ressources[c].c_max;
6581 ct_min = ressources[c].c_min;
6583 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "bounds [row]=[%i] %f..%f\n",row_index, ct_min, ct_max);
6585 glp_set_row_bnds(ats->prob, row_index, GLP_DB, ct_min, ct_max);
6587 for (c2=1; c2<=ats->stat.c_mechs; c2++)
6591 GNUNET_assert (ats->mechanisms[c2].addr != NULL);
6592 GNUNET_assert (ats->mechanisms[c2].peer != NULL);
6594 ja[array_index] = c2;
6595 value = ats->mechanisms[c2].addr->ressources[c].c;
6596 ar[array_index] = value;
6598 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "[index]=[%i]: [%i,%i]=%f \n",array_index, row_index, ja[array_index], ar[array_index]);
6602 glp_set_mat_row (ats->prob, row_index, array_index, ja, ar);
6608 GNUNET_free_non_null (ja);
6609 GNUNET_free_non_null (ar);
6614 static void ats_update_problem_qm_TEST ()
6619 int old_ja[ats->stat.c_mechs + 2];
6620 double old_ar[ats->stat.c_mechs + 2];
6624 int *ja = GNUNET_malloc ((1 + ats->stat.c_mechs*2 + 3 + available_quality_metrics) * sizeof (int));
6625 double *ar = GNUNET_malloc ((1 + ats->stat.c_mechs*2 + 3 + available_quality_metrics) * sizeof (double));
6627 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "Updating problem quality metrics TEST\n");
6629 if (ats->stat.begin_qm >0)
6630 row_index = ats->stat.begin_qm;
6635 for (c=0; c<available_quality_metrics; c++)
6638 c_old = glp_get_mat_row (ats->prob, row_index, old_ja, old_ar);
6640 glp_set_row_bnds(ats->prob, row_index, GLP_FX, 0.0, 0.0);
6642 for (c2=1; c2<=c_old; c2++)
6644 ja[c2] = old_ja[c2];
6645 if ((changed < 3) && (c2>2) && (old_ar[c2] != -1))
6647 ar[c2] = old_ar[c2] + 5 - changed;
6651 ar[c2] = old_ar[c2];
6653 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]);
6656 glp_set_mat_row (ats->prob, row_index, c_old, ja, ar);
6661 GNUNET_free_non_null (ja);
6662 GNUNET_free_non_null (ar);
6664 #endif //END: HAVE_LIBGLPK
6666 /** solve the bandwidth distribution problem
6667 * @param max_it maximum iterations
6668 * @param max_dur maximum duration in ms
6669 * @param D weight for diversity
6670 * @param U weight for utility
6671 * @param R weight for relativity
6672 * @param v_b_min minimal bandwidth per peer
6673 * @param v_n_min minimum number of connections
6674 * @param stat result struct
6675 * @return GNUNET_SYSERR if glpk is not available, number of mechanisms used
6677 static int ats_create_problem (double D, double U, double R, int v_b_min, int v_n_min, struct ATS_stat *stat)
6679 ats->prob = glp_create_prob();
6685 int c_c_ressources = available_ressources;
6686 int c_q_metrics = available_quality_metrics;
6688 double M = VERY_BIG_DOUBLE_VALUE;
6689 double Q[c_q_metrics+1];
6690 for (c=1; c<=c_q_metrics; c++)
6695 struct NeighbourList *next = neighbours;
6698 int found_addresses = GNUNET_NO;
6699 struct ReadyList *r_next = next->plugins;
6700 while (r_next != NULL)
6702 struct ForeignAddressList * a_next = r_next->addresses;
6703 while (a_next != NULL)
6706 found_addresses = GNUNET_YES;
6707 a_next = a_next->next;
6709 r_next = r_next->next;
6711 if (found_addresses) c_peers++;
6718 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, "No addresses for bw distribution available\n", c_peers);
6720 stat->valid = GNUNET_NO;
6723 return GNUNET_SYSERR;
6726 GNUNET_assert (ats->mechanisms == NULL);
6727 ats->mechanisms = GNUNET_malloc((1+c_mechs) * sizeof (struct ATS_mechanism));
6728 GNUNET_assert (ats->peers == NULL);
6729 ats->peers = GNUNET_malloc((1+c_peers) * sizeof (struct ATS_peer));
6731 struct ATS_mechanism * mechanisms = ats->mechanisms;
6732 struct ATS_peer * peers = ats->peers;
6740 int found_addresses = GNUNET_NO;
6741 struct ReadyList *r_next = next->plugins;
6742 while (r_next != NULL)
6744 struct ForeignAddressList * a_next = r_next->addresses;
6745 while (a_next != NULL)
6747 if (found_addresses == GNUNET_NO)
6749 peers[c_peers].peer = next->id;
6750 peers[c_peers].m_head = NULL;
6751 peers[c_peers].m_tail = NULL;
6752 peers[c_peers].f = 1.0 / c_mechs;
6755 mechanisms[c_mechs].addr = a_next;
6756 mechanisms[c_mechs].col_index = c_mechs;
6757 mechanisms[c_mechs].peer = &peers[c_peers];
6758 mechanisms[c_mechs].next = NULL;
6759 mechanisms[c_mechs].plugin = r_next->plugin;
6761 GNUNET_CONTAINER_DLL_insert_tail(peers[c_peers].m_head, peers[c_peers].m_tail, &mechanisms[c_mechs]);
6762 found_addresses = GNUNET_YES;
6765 a_next = a_next->next;
6767 r_next = r_next->next;
6769 if (found_addresses == GNUNET_YES)
6776 if (v_n_min > c_peers)
6780 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);
6783 int size = 1 + 3 + 10 *c_mechs + c_peers + (c_q_metrics*c_mechs)+ c_q_metrics + c_c_ressources * c_mechs ;
6786 int * ia = GNUNET_malloc (size * sizeof (int));
6787 int * ja = GNUNET_malloc (size * sizeof (int));
6788 double * ar = GNUNET_malloc(size* sizeof (double));
6790 glp_set_prob_name(ats->prob, "gnunet ats bandwidth distribution");
6791 glp_set_obj_dir(ats->prob, GLP_MAX);
6793 /* adding columns */
6795 glp_add_cols(ats->prob, 2 * c_mechs);
6796 /* adding b_t cols */
6797 for (c=1; c <= c_mechs; c++)
6800 GNUNET_asprintf(&name, "p_%s_b%i",GNUNET_i2s(&(mechanisms[c].peer->peer)), c);
6801 glp_set_col_name(ats->prob, c, name);
6803 glp_set_col_bnds(ats->prob, c, GLP_LO, 0.0, 0.0);
6804 glp_set_col_kind(ats->prob, c, GLP_CV);
6805 glp_set_obj_coef(ats->prob, c, 0);
6808 /* adding n_t cols */
6809 for (c=c_mechs+1; c <= 2*c_mechs; c++)
6811 GNUNET_asprintf(&name, "p_%s_n%i",GNUNET_i2s(&(mechanisms[c-c_mechs].peer->peer)),(c-c_mechs));
6812 glp_set_col_name(ats->prob, c, name);
6814 glp_set_col_bnds(ats->prob, c, GLP_DB, 0.0, 1.0);
6815 glp_set_col_kind(ats->prob, c, GLP_IV);
6816 glp_set_obj_coef(ats->prob, c, 0);
6819 /* feasibility constraints */
6820 /* Constraint 1: one address per peer*/
6822 glp_add_rows(ats->prob, c_peers);
6823 for (c=1; c<=c_peers; c++)
6826 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "bounds [row]=[%i] \n",row_index);
6828 glp_set_row_bnds(ats->prob, row_index, GLP_FX, 1.0, 1.0);
6830 struct ATS_mechanism *m = peers[c].m_head;
6833 ia[array_index] = row_index;
6834 ja[array_index] = (c_mechs + m->col_index);
6835 ar[array_index] = 1;
6837 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 2: only active mechanism gets bandwidth assigned */
6846 glp_add_rows(ats->prob, c_mechs);
6847 for (c=1; c<=c_mechs; c++)
6849 /* b_t - n_t * M <= 0 */
6851 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "bounds [row]=[%i] \n",row_index);
6853 glp_set_row_bnds(ats->prob, row_index, GLP_UP, 0.0, 0.0);
6855 ia[array_index] = row_index;
6856 ja[array_index] = mechanisms[c].col_index;
6857 ar[array_index] = 1;
6859 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "[index]=[%i]: [%i,%i]=%f \n",array_index, ia[array_index], ja[array_index], ar[array_index]);
6862 ia[array_index] = row_index;
6863 ja[array_index] = c_mechs + mechanisms[c].col_index;
6864 ar[array_index] = -M;
6866 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "[index]=[%i]: [%i,%i]=%f \n",array_index, ia[array_index], ja[array_index], ar[array_index]);
6872 /* Constraint 3: minimum bandwidth*/
6873 glp_add_rows(ats->prob, c_mechs);
6874 for (c=1; c<=c_mechs; c++)
6876 /* b_t - n_t * b_min <= 0 */
6878 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "bounds [row]=[%i] \n",row_index);
6880 glp_set_row_bnds(ats->prob, row_index, GLP_LO, 0.0, 0.0);
6882 ia[array_index] = row_index;
6883 ja[array_index] = mechanisms[c].col_index;
6884 ar[array_index] = 1;
6886 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "[index]=[%i]: [%i,%i]=%f \n",array_index, ia[array_index], ja[array_index], ar[array_index]);
6889 ia[array_index] = row_index;
6890 ja[array_index] = c_mechs + mechanisms[c].col_index;
6891 ar[array_index] = -v_b_min;
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 /* Constraint 4: max ressource capacity */
6900 /* V cr: bt * ct_r <= cr_max
6902 glp_add_rows(ats->prob, available_ressources);
6903 double ct_max = VERY_BIG_DOUBLE_VALUE;
6904 double ct_min = 0.0;
6906 stat->begin_cr = array_index;
6908 for (c=0; c<available_ressources; c++)
6910 ct_max = ressources[c].c_max;
6911 ct_min = ressources[c].c_min;
6913 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "bounds [row]=[%i] %f..%f\n",row_index, ct_min, ct_max);
6915 glp_set_row_bnds(ats->prob, row_index, GLP_DB, ct_min, ct_max);
6917 for (c2=1; c2<=c_mechs; c2++)
6920 ia[array_index] = row_index;
6921 ja[array_index] = c2;
6922 value = mechanisms[c2].addr->ressources[c].c;
6923 ar[array_index] = value;
6925 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "[index]=[%i]: [%i,%i]=%f \n",array_index, ia[array_index], ja[array_index], ar[array_index]);
6931 stat->end_cr = array_index--;
6933 /* Constraint 5: min number of connections*/
6934 glp_add_rows(ats->prob, 1);
6935 for (c=1; c<=c_mechs; c++)
6937 // b_t - n_t * b_min >= 0
6939 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "bounds [row]=[%i] \n",row_index);
6941 glp_set_row_bnds(ats->prob, row_index, GLP_LO, v_n_min, 0.0);
6943 ia[array_index] = row_index;
6944 ja[array_index] = c_mechs + mechanisms[c].col_index;
6945 ar[array_index] = 1;
6947 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "[index]=[%i]: [%i,%i]=%f \n",array_index, ia[array_index], ja[array_index], ar[array_index]);
6953 // optimisation constraints
6957 // Constraint 6: optimize for diversity
6959 col_d = glp_add_cols(ats->prob, 1);
6960 stat->col_d = col_d;
6961 //GNUNET_assert (col_d == (2*c_mechs) + 1);
6962 glp_set_col_name(ats->prob, col_d, "d");
6963 glp_set_obj_coef(ats->prob, col_d, D);
6964 glp_set_col_bnds(ats->prob, col_d, GLP_LO, 0.0, 0.0);
6965 glp_add_rows(ats->prob, 1);
6967 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "bounds [row]=[%i] \n",row_index);
6969 glp_set_row_bnds(ats->prob, row_index, GLP_FX, 0.0, 0.0);
6970 for (c=1; c<=c_mechs; c++)
6972 ia[array_index] = row_index;
6973 ja[array_index] = c_mechs + mechanisms[c].col_index;
6974 ar[array_index] = 1;
6976 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "[index]=[%i]: [%i,%i]=%f \n",array_index, ia[array_index], ja[array_index], ar[array_index]);
6980 ia[array_index] = row_index;
6981 ja[array_index] = col_d;
6982 ar[array_index] = -1;
6984 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "[index]=[%i]: [%i,%i]=%f \n",array_index, ia[array_index], ja[array_index], ar[array_index]);
6990 // Constraint 7: optimize for quality
6992 col_qm = glp_add_cols(ats->prob, c_q_metrics);
6993 stat->col_qm = col_qm;
6994 //GNUNET_assert (col_qm == (2*c_mechs) + 3 + 1);
6995 for (c=0; c< c_q_metrics; c++)
6997 GNUNET_asprintf(&name, "Q_%s",qm[c].name);
6998 glp_set_col_name(ats->prob, col_qm + c, name);
6999 glp_set_col_bnds(ats->prob, col_qm + c, GLP_LO, 0.0, 0.0);
7001 glp_set_obj_coef(ats->prob, col_qm + c, Q[c]);
7003 glp_add_rows(ats->prob, available_quality_metrics);
7004 stat->begin_qm = row_index;
7005 for (c=1; c <= c_q_metrics; c++)
7008 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "bounds [row]=[%i] \n",row_index);
7011 glp_set_row_bnds(ats->prob, row_index, GLP_FX, 0.0, 0.0);
7012 for (c2=1; c2<=c_mechs; c2++)
7015 ia[array_index] = row_index;
7016 ja[array_index] = c2;
7017 if (qm[c-1].atis_index == GNUNET_TRANSPORT_ATS_QUALITY_NET_DELAY)
7019 double v0 = 0, v1 = 0, v2 = 0;
7020 v0 = mechanisms[c2].addr->quality[c-1].values[0];
7021 if (v1 < 1) v0 = 0.1;
7022 v1 = mechanisms[c2].addr->quality[c-1].values[1];
7023 if (v1 < 1) v0 = 0.1;
7024 v2 = mechanisms[c2].addr->quality[c-1].values[2];
7025 if (v1 < 1) v0 = 0.1;
7026 value = 100.0 / ((v0 + 2 * v1 + 3 * v2) / 6.0);
7029 if (qm[c-1].atis_index == GNUNET_TRANSPORT_ATS_QUALITY_NET_DISTANCE)
7031 double v0 = 0, v1 = 0, v2 = 0;
7032 v0 = mechanisms[c2].addr->quality[c-1].values[0];
7034 v1 = mechanisms[c2].addr->quality[c-1].values[1];
7036 v2 = mechanisms[c2].addr->quality[c-1].values[2];
7038 value = (v0 + 2 * v1 + 3 * v2) / 6.0;
7040 value = (double) 10 / value;
7044 ar[array_index] = (mechanisms[c2].peer->f) * value ;
7046 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]);
7051 ia[array_index] = row_index;
7052 ja[array_index] = col_qm + c - 1;
7053 ar[array_index] = -1;
7055 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "[index]=[%i]: [%i,%i]=%f \n",array_index, ia[array_index], ja[array_index], ar[array_index]);
7060 stat->end_qm = row_index-1;
7062 // Constraint 8: optimize bandwidth utility
7064 col_u = glp_add_cols(ats->prob, 1);
7065 stat->col_u = col_u;
7066 //GNUNET_assert (col_u == (2*c_mechs) + 2);
7067 glp_set_col_name(ats->prob, col_u, "u");
7068 glp_set_obj_coef(ats->prob, col_u, U);
7069 glp_set_col_bnds(ats->prob, col_u, GLP_LO, 0.0, 0.0);
7070 glp_add_rows(ats->prob, 1);
7072 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "bounds [row]=[%i] \n",row_index);
7074 glp_set_row_bnds(ats->prob, row_index, GLP_FX, 0.0, 0.0);
7075 for (c=1; c<=c_mechs; c++)
7077 ia[array_index] = row_index;
7078 ja[array_index] = c;
7079 ar[array_index] = mechanisms[c].peer->f;
7081 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "[index]=[%i]: [%i,%i]=%f \n",array_index, ia[array_index], ja[array_index], ar[array_index]);
7085 ia[array_index] = row_index;
7086 ja[array_index] = col_u;
7087 ar[array_index] = -1;
7089 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "[index]=[%i]: [%i,%i]=%f \n",array_index, ia[array_index], ja[array_index], ar[array_index]);
7095 // Constraint 9: optimize relativity
7097 col_r = glp_add_cols(ats->prob, 1);
7098 stat->col_r = col_r;
7099 //GNUNET_assert (col_r == (2*c_mechs) + 3);
7100 glp_set_col_name(ats->prob, col_r, "r");
7101 glp_set_obj_coef(ats->prob, col_r, R);
7102 glp_set_col_bnds(ats->prob, col_r, GLP_LO, 0.0, 0.0);
7103 glp_add_rows(ats->prob, c_peers);
7104 for (c=1; c<=c_peers; c++)
7106 glp_set_row_bnds(ats->prob, row_index, GLP_LO, 0.0, 0.0);
7108 struct ATS_mechanism *m = peers[c].m_head;
7111 ia[array_index] = row_index;
7112 ja[array_index] = m->col_index;
7113 ar[array_index] = 1 / mechanisms[c].peer->f;
7115 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "[index]=[%i]: [%i,%i]=%f \n",array_index, ia[array_index], ja[array_index], ar[array_index]);
7120 ia[array_index] = row_index;
7121 ja[array_index] = col_r;
7122 ar[array_index] = -1;
7124 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "[index]=[%i]: [%i,%i]=%f \n",array_index, ia[array_index], ja[array_index], ar[array_index]);
7131 /* Loading the matrix */
7132 glp_load_matrix(ats->prob, array_index-1, ia, ja, ar);
7134 stat->c_mechs = c_mechs;
7135 stat->c_peers = c_peers;
7137 stat->valid = GNUNET_YES;
7149 void ats_notify_ats_data (
7150 const struct GNUNET_PeerIdentity *peer,
7151 const struct GNUNET_TRANSPORT_ATS_Information *ats_data)
7154 GNUNET_log (GNUNET_ERROR_TYPE_BULK, "ATS_notify_ats_data: %s\n",GNUNET_i2s(peer));
7156 if (shutdown_in_progress == GNUNET_NO)
7157 ats_calculate_bandwidth_distribution();
7159 #endif //END: HAVE_LIBGLPK
7162 ats_calculate_bandwidth_distribution ()
7166 struct GNUNET_TIME_Absolute start;
7167 struct GNUNET_TIME_Relative creation;
7168 struct GNUNET_TIME_Relative solving;
7169 char *text = "unmodified";
7171 struct GNUNET_TIME_Relative delta = GNUNET_TIME_absolute_get_difference (ats->last, GNUNET_TIME_absolute_get());
7172 if (delta.rel_value < ats->min_delta.rel_value)
7175 GNUNET_log (GNUNET_ERROR_TYPE_BULK, "Minimum time between cycles not reached\n");
7180 if (shutdown_in_progress == GNUNET_YES)
7183 GNUNET_log (GNUNET_ERROR_TYPE_BULK, "Transport service is shutting down\n");
7190 if (INT_MAX < ats->max_exec_duration.rel_value)
7193 dur = (int) ats->max_exec_duration.rel_value;
7196 ats->stat.simplex_rerun_required = GNUNET_NO;
7197 start = GNUNET_TIME_absolute_get();
7198 if ((ats->stat.recreate_problem == GNUNET_YES) || (ats->prob==NULL) || (ats->stat.valid == GNUNET_NO))
7201 ats->stat.recreate_problem = GNUNET_YES;
7202 ats_delete_problem ();
7203 ats_create_problem (ats->D, ats->U, ats->R, ats->v_b_min, ats->v_n_min, &ats->stat);
7205 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);
7209 else if ((ats->stat.recreate_problem == GNUNET_NO) && (ats->stat.modified_resources == GNUNET_YES) && (ats->stat.valid == GNUNET_YES))
7211 text = "modified resources";
7212 ats_update_problem_cr();
7214 else if ((ats->stat.recreate_problem == GNUNET_NO) && (ats->stat.modified_quality == GNUNET_YES) && (ats->stat.valid == GNUNET_YES))
7216 text = "modified quality";
7217 ats_update_problem_qm();
7218 //ats_update_problem_qm_TEST ();
7222 else GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "Problem is unmodified\n");
7225 creation = GNUNET_TIME_absolute_get_difference(start,GNUNET_TIME_absolute_get());
7226 start = GNUNET_TIME_absolute_get();
7228 ats->stat.solution = GLP_UNDEF;
7229 if (ats->stat.valid == GNUNET_YES)
7231 ats_solve_problem(ats->max_iterations, ats->max_exec_duration.rel_value, ats->stat.c_peers, ats->stat.c_mechs, &ats->stat);
7233 solving = GNUNET_TIME_absolute_get_difference(start,GNUNET_TIME_absolute_get());
7235 if (ats->stat.valid == GNUNET_YES)
7237 int msg_type = GNUNET_ERROR_TYPE_DEBUG;
7239 msg_type = GNUNET_ERROR_TYPE_ERROR;
7241 GNUNET_log (msg_type, "MLP %s: creation time: %llu, execution time: %llu, %i mechanisms, simplex rerun: %s, solution %s\n",
7242 text, creation.rel_value, solving.rel_value,
7244 (ats->stat.simplex_rerun_required == GNUNET_NO) ? "NO" : "YES", (ats->stat.solution == 5) ? "OPTIMAL" : "INVALID");
7245 ats->successful_executions ++;
7246 GNUNET_STATISTICS_set (stats, "# ATS successful executions", ats->successful_executions, GNUNET_NO);
7248 if ((ats->stat.recreate_problem == GNUNET_YES) || (ats->prob==NULL))
7249 GNUNET_STATISTICS_set (stats, "ATS state",ATS_NEW, GNUNET_NO);
7250 else if ((ats->stat.modified_resources == GNUNET_YES) &&
7251 (ats->stat.modified_quality == GNUNET_NO))
7252 GNUNET_STATISTICS_set (stats, "ATS state", ATS_C_UPDATED, GNUNET_NO);
7253 else if ((ats->stat.modified_resources == GNUNET_NO) &&
7254 (ats->stat.modified_quality == GNUNET_YES) &&
7255 (ats->stat.simplex_rerun_required == GNUNET_NO))
7256 GNUNET_STATISTICS_set (stats, "ATS state", ATS_Q_UPDATED, GNUNET_NO);
7257 else if ((ats->stat.modified_resources == GNUNET_YES) &&
7258 (ats->stat.modified_quality == GNUNET_YES) &&
7259 (ats->stat.simplex_rerun_required == GNUNET_NO))
7260 GNUNET_STATISTICS_set (stats, "ATS state", ATS_QC_UPDATED, GNUNET_NO);
7261 else if (ats->stat.simplex_rerun_required == GNUNET_NO)
7262 GNUNET_STATISTICS_set (stats, "ATS state", ATS_UNMODIFIED, GNUNET_NO);
7266 if (ats->stat.c_peers != 0)
7268 ats->invalid_executions ++;
7269 GNUNET_STATISTICS_set (stats, "# ATS invalid executions", ats->invalid_executions, GNUNET_NO);
7273 GNUNET_STATISTICS_set (stats, "# ATS successful executions", ats->successful_executions, GNUNET_NO);
7277 GNUNET_STATISTICS_set (stats, "ATS duration", solving.rel_value + creation.rel_value, GNUNET_NO);
7278 GNUNET_STATISTICS_set (stats, "ATS mechanisms", ats->stat.c_mechs, GNUNET_NO);
7279 GNUNET_STATISTICS_set (stats, "ATS peers", ats->stat.c_peers, GNUNET_NO);
7280 GNUNET_STATISTICS_set (stats, "ATS solution", ats->stat.solution, GNUNET_NO);
7281 GNUNET_STATISTICS_set (stats, "ATS timestamp", start.abs_value, GNUNET_NO);
7283 if ((ats->save_mlp == GNUNET_YES) && (ats->stat.c_mechs >= ats->dump_min_peers) && (ats->stat.c_mechs >= ats->dump_min_addr))
7286 if (ats->dump_overwrite == GNUNET_NO)
7288 GNUNET_asprintf (&filename, "ats_mlp_p%i_m%i_%s_%llu.mlp",
7289 ats->stat.c_peers, ats->stat.c_mechs, text, GNUNET_TIME_absolute_get().abs_value);
7290 glp_write_lp (ats->prob, NULL, filename);
7294 GNUNET_asprintf (&filename, "ats_mlp_p%i_m%i.mlp",
7295 ats->stat.c_peers, ats->stat.c_mechs );
7296 glp_write_lp (ats->prob, NULL, filename);
7298 GNUNET_free (filename);
7300 if ((ats->save_solution == GNUNET_YES) && (ats->stat.c_mechs >= ats->dump_min_peers) && (ats->stat.c_mechs >= ats->dump_min_addr))
7303 if (ats->dump_overwrite == GNUNET_NO)
7305 GNUNET_asprintf (&filename, "ats_mlp_p%i_m%i_%s_%llu.sol",
7306 ats->stat.c_peers, ats->stat.c_mechs, text, GNUNET_TIME_absolute_get().abs_value);
7307 glp_print_sol (ats->prob, filename);
7311 GNUNET_asprintf (&filename, "ats_mlp_p%i_m%i.sol",
7312 ats->stat.c_peers, ats->stat.c_mechs);
7313 glp_print_sol (ats->prob, filename);
7315 GNUNET_free (filename);
7318 ats->last = GNUNET_TIME_absolute_get();
7319 ats->stat.recreate_problem = GNUNET_NO;
7320 ats->stat.modified_resources = GNUNET_NO;
7321 ats->stat.modified_quality = GNUNET_NO;
7326 ats_schedule_calculation (void *cls,
7327 const struct GNUNET_SCHEDULER_TaskContext *tc)
7329 struct ATS_info *ats = (struct ATS_info *) cls;
7330 if (ats==NULL) return;
7332 ats->ats_task = GNUNET_SCHEDULER_NO_TASK;
7333 if ( (tc->reason & GNUNET_SCHEDULER_REASON_SHUTDOWN) != 0)
7336 if (shutdown_in_progress == GNUNET_YES)
7340 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "Running scheduled calculation\n");
7343 ats_calculate_bandwidth_distribution (ats);
7345 ats->ats_task = GNUNET_SCHEDULER_add_delayed (ats->exec_interval,
7346 &ats_schedule_calculation, ats);
7352 unsigned long long value;
7355 ats = GNUNET_malloc(sizeof (struct ATS_info));
7357 ats->min_delta = ATS_MIN_INTERVAL;
7358 ats->exec_interval = ATS_EXEC_INTERVAL;
7359 ats->max_exec_duration = ATS_MAX_EXEC_DURATION;
7360 ats->max_iterations = ATS_MAX_ITERATIONS;
7361 ats->ats_task = GNUNET_SCHEDULER_NO_TASK;
7364 GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, "ATS not active\n");
7371 ats->v_b_min = 64000;
7373 ats->dump_min_peers = 1;
7374 ats->dump_min_addr = 1;
7375 ats->dump_overwrite = GNUNET_NO;
7376 ats->mechanisms = NULL;
7378 ats->successful_executions = 0;
7379 ats->invalid_executions = 0;
7385 /* loading cost ressources */
7386 for (c=0; c<available_ressources; c++)
7388 GNUNET_asprintf(§ion,"%s_UP",ressources[c].cfg_param);
7389 if (GNUNET_CONFIGURATION_have_value(cfg, "transport", section))
7391 if (GNUNET_OK == GNUNET_CONFIGURATION_get_value_number(cfg, "transport",section, &value))
7394 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "Found ressource cost: [%s] = %llu\n", section, value);
7396 ressources[c].c_max = value;
7399 GNUNET_free (section);
7400 GNUNET_asprintf(§ion,"%s_DOWN",ressources[c].cfg_param);
7401 if (GNUNET_CONFIGURATION_have_value(cfg, "transport", section))
7403 if (GNUNET_OK == GNUNET_CONFIGURATION_get_value_number(cfg, "transport",section, &value))
7406 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "Found ressource cost: [%s] = %llu\n", section, value);
7408 ressources[c].c_min = value;
7411 GNUNET_free (section);
7414 if (GNUNET_CONFIGURATION_have_value(cfg, "transport", "DUMP_MLP"))
7415 ats->save_mlp = GNUNET_CONFIGURATION_get_value_yesno (cfg, "transport","DUMP_MLP");
7417 if (GNUNET_CONFIGURATION_have_value(cfg, "transport", "DUMP_SOLUTION"))
7418 ats->save_solution = GNUNET_CONFIGURATION_get_value_yesno (cfg, "transport","DUMP_SOLUTION");
7419 if (GNUNET_CONFIGURATION_have_value(cfg, "transport", "DUMP_OVERWRITE"))
7420 ats->dump_overwrite = GNUNET_CONFIGURATION_get_value_yesno (cfg, "transport","DUMP_OVERWRITE");
7421 if (GNUNET_CONFIGURATION_have_value(cfg, "transport", "DUMP_MIN_PEERS"))
7423 GNUNET_CONFIGURATION_get_value_number(cfg, "transport","DUMP_MIN_PEERS", &value);
7424 ats->dump_min_peers= value;
7426 if (GNUNET_CONFIGURATION_have_value(cfg, "transport", "DUMP_MIN_ADDRS"))
7428 GNUNET_CONFIGURATION_get_value_number(cfg, "transport","DUMP_MIN_ADDRS", &value);
7429 ats->dump_min_addr= value;
7431 if (GNUNET_CONFIGURATION_have_value(cfg, "transport", "DUMP_OVERWRITE"))
7433 GNUNET_CONFIGURATION_get_value_number(cfg, "transport","DUMP_OVERWRITE", &value);
7434 ats->min_delta.rel_value = value;
7437 if (GNUNET_CONFIGURATION_have_value(cfg, "transport", "ATS_MIN_INTERVAL"))
7439 GNUNET_CONFIGURATION_get_value_number(cfg, "transport","ATS_MIN_INTERVAL", &value);
7440 ats->min_delta.rel_value = value;
7443 if (GNUNET_CONFIGURATION_have_value(cfg, "transport", "ATS_EXEC_INTERVAL"))
7445 GNUNET_CONFIGURATION_get_value_number(cfg, "transport","ATS_EXEC_INTERVAL", &value);
7446 ats->exec_interval.rel_value = value;
7448 if (GNUNET_CONFIGURATION_have_value(cfg, "transport", "ATS_MIN_INTERVAL"))
7450 GNUNET_CONFIGURATION_get_value_number(cfg, "transport","ATS_MIN_INTERVAL", &value);
7451 ats->min_delta.rel_value = value;
7454 ats->ats_task = GNUNET_SCHEDULER_add_now(&ats_schedule_calculation, ats);
7458 static void ats_shutdown ()
7461 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "ats_destroy\n");
7463 if (ats->ats_task != GNUNET_SCHEDULER_NO_TASK)
7464 GNUNET_SCHEDULER_cancel(ats->ats_task);
7465 ats->ats_task = GNUNET_SCHEDULER_NO_TASK;
7468 ats_delete_problem ();
7475 void ats_notify_peer_connect (
7476 const struct GNUNET_PeerIdentity *peer,
7477 const struct GNUNET_TRANSPORT_ATS_Information *ats_data, int ats_count)
7480 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "ats_notify_peer_connect: %s\n",GNUNET_i2s(peer));
7482 //update_addr_ats();
7483 ats->stat.recreate_problem = GNUNET_YES;
7484 ats_calculate_bandwidth_distribution(ats);
7487 void ats_notify_peer_disconnect (
7488 const struct GNUNET_PeerIdentity *peer)
7491 GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "ats_notify_peer_disconnect: %s\n",GNUNET_i2s(peer));
7493 ats->stat.recreate_problem = GNUNET_YES;
7494 ats_calculate_bandwidth_distribution (ats);
7497 struct ForeignAddressList * ats_get_preferred_address (
7498 struct NeighbourList *n)
7501 //GNUNET_log (GNUNET_ERROR_TYPE_BULK, "ats_get_prefered_transport for peer: %s\n",GNUNET_i2s(&n->id));
7503 struct ReadyList *next = n->plugins;
7504 while (next != NULL)
7507 //GNUNET_log (GNUNET_ERROR_TYPE_BULK, "plugin: %s %i\n",next->plugin->short_name,strcmp(next->plugin->short_name,"unix"));
7511 return find_ready_address(n);
7515 * Initiate transport service.
7517 * @param cls closure
7518 * @param server the initialized server
7519 * @param c configuration to use
7523 struct GNUNET_SERVER_Handle *server,
7524 const struct GNUNET_CONFIGURATION_Handle *c)
7526 static const struct GNUNET_SERVER_MessageHandler handlers[] = {
7527 {&handle_start, NULL,
7528 GNUNET_MESSAGE_TYPE_TRANSPORT_START, sizeof (struct StartMessage)},
7529 {&handle_hello, NULL,
7530 GNUNET_MESSAGE_TYPE_HELLO, 0},
7531 {&handle_send, NULL,
7532 GNUNET_MESSAGE_TYPE_TRANSPORT_SEND, 0},
7533 {&handle_request_connect, NULL,
7534 GNUNET_MESSAGE_TYPE_TRANSPORT_REQUEST_CONNECT, sizeof(struct TransportRequestConnectMessage)},
7535 {&handle_set_quota, NULL,
7536 GNUNET_MESSAGE_TYPE_TRANSPORT_SET_QUOTA, sizeof (struct QuotaSetMessage)},
7537 {&handle_address_lookup, NULL,
7538 GNUNET_MESSAGE_TYPE_TRANSPORT_ADDRESS_LOOKUP,
7540 {&handle_blacklist_init, NULL,
7541 GNUNET_MESSAGE_TYPE_TRANSPORT_BLACKLIST_INIT, sizeof (struct GNUNET_MessageHeader)},
7542 {&handle_blacklist_reply, NULL,
7543 GNUNET_MESSAGE_TYPE_TRANSPORT_BLACKLIST_REPLY, sizeof (struct BlacklistMessage)},
7549 unsigned long long tneigh;
7552 shutdown_in_progress = GNUNET_NO;
7554 stats = GNUNET_STATISTICS_create ("transport", cfg);
7555 validation_map = GNUNET_CONTAINER_multihashmap_create (64);
7556 /* parse configuration */
7558 GNUNET_CONFIGURATION_get_value_number (c,
7563 GNUNET_CONFIGURATION_get_value_filename (c,
7565 "HOSTKEY", &keyfile)))
7567 GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
7569 ("Transport service is lacking key configuration settings. Exiting.\n"));
7570 GNUNET_SCHEDULER_shutdown ();
7573 GNUNET_STATISTICS_destroy (stats, GNUNET_NO);
7576 GNUNET_CONTAINER_multihashmap_destroy (validation_map);
7577 validation_map = NULL;
7581 max_connect_per_transport = (uint32_t) tneigh;
7582 peerinfo = GNUNET_PEERINFO_connect (cfg);
7583 if (peerinfo == NULL)
7585 GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
7586 _("Could not access PEERINFO service. Exiting.\n"));
7587 GNUNET_SCHEDULER_shutdown ();
7590 GNUNET_STATISTICS_destroy (stats, GNUNET_NO);
7593 GNUNET_CONTAINER_multihashmap_destroy (validation_map);
7594 validation_map = NULL;
7595 GNUNET_free (keyfile);
7598 my_private_key = GNUNET_CRYPTO_rsa_key_create_from_file (keyfile);
7599 GNUNET_free (keyfile);
7600 if (my_private_key == NULL)
7602 GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
7604 ("Transport service could not access hostkey. Exiting.\n"));
7605 GNUNET_SCHEDULER_shutdown ();
7608 GNUNET_STATISTICS_destroy (stats, GNUNET_NO);
7611 GNUNET_CONTAINER_multihashmap_destroy (validation_map);
7612 validation_map = NULL;
7615 GNUNET_CRYPTO_rsa_key_get_public (my_private_key, &my_public_key);
7616 GNUNET_CRYPTO_hash (&my_public_key,
7617 sizeof (my_public_key), &my_identity.hashPubKey);
7618 /* setup notification */
7619 GNUNET_SERVER_disconnect_notify (server,
7620 &client_disconnect_notification, NULL);
7621 /* load plugins... */
7624 GNUNET_CONFIGURATION_get_value_string (c,
7625 "TRANSPORT", "PLUGINS", &plugs))
7627 GNUNET_log (GNUNET_ERROR_TYPE_INFO,
7628 _("Starting transport plugins `%s'\n"), plugs);
7629 pos = strtok (plugs, " ");
7632 start_transport (server, pos);
7634 pos = strtok (NULL, " ");
7636 GNUNET_free (plugs);
7638 GNUNET_SCHEDULER_add_delayed (GNUNET_TIME_UNIT_FOREVER_REL,
7639 &shutdown_task, NULL);
7646 GNUNET_log (GNUNET_ERROR_TYPE_INFO, _("Transport service ready.\n"));
7648 /* If we have a blacklist file, read from it */
7649 read_blacklist_file(cfg);
7650 /* process client requests */
7651 GNUNET_SERVER_add_handlers (server, handlers);
7656 * The main function for the transport service.
7658 * @param argc number of arguments from the command line
7659 * @param argv command line arguments
7660 * @return 0 ok, 1 on error
7663 main (int argc, char *const *argv)
7665 a2s (NULL, NULL, 0); /* make compiler happy */
7666 return (GNUNET_OK ==
7667 GNUNET_SERVICE_run (argc,
7670 GNUNET_SERVICE_OPTION_NONE,
7671 &run, NULL)) ? 0 : 1;
7674 /* end of gnunet-service-transport.c */