src/dht/gnunet-service-dht_neighbours.c

   1 /*
   2      This file is part of GNUnet.
   3      (C) 2009, 2010, 2011 Christian Grothoff (and other contributing authors)
   4
   5      GNUnet is free software; you can redistribute it and/or modify
   6      it under the terms of the GNU General Public License as published
   7      by the Free Software Foundation; either version 3, or (at your
   8      option) any later version.
   9
  10      GNUnet is distributed in the hope that it will be useful, but
  11      WITHOUT ANY WARRANTY; without even the implied warranty of
  12      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13      General Public License for more details.
  14
  15      You should have received a copy of the GNU General Public License
  16      along with GNUnet; see the file COPYING.  If not, write to the
  17      Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  18      Boston, MA 02111-1307, USA.
  19 */
  20
  21 /**
  22  * @file dht/gnunet-service-dht_neighbours.c
  23  * @brief GNUnet DHT service's bucket and neighbour management code
  24  * @author Christian Grothoff
  25  * @author Nathan Evans
  26  */
  27
  28 #include "platform.h"
  29 #include "gnunet_block_lib.h"
  30 #include "gnunet_util_lib.h"
  31 #include "gnunet_hello_lib.h"
  32 #include "gnunet_constants.h"
  33 #include "gnunet_protocols.h"
  34 #include "gnunet_nse_service.h"
  35 #include "gnunet_ats_service.h"
  36 #include "gnunet_core_service.h"
  37 #include "gnunet_datacache_lib.h"
  38 #include "gnunet_transport_service.h"
  39 #include "gnunet_hello_lib.h"
  40 #include "gnunet_dht_service.h"
  41 #include "gnunet_statistics_service.h"
  42 #include "gnunet-service-dht.h"
  43 #include "gnunet-service-dht_clients.h"
  44 #include "gnunet-service-dht_datacache.h"
  45 #include "gnunet-service-dht_hello.h"
  46 #include "gnunet-service-dht_neighbours.h"
  47 #include "gnunet-service-dht_nse.h"
  48 #include "gnunet-service-dht_routing.h"
  49 #include <fenv.h>
  50 #include "dht.h"
  51
  52 #include "../regex/regex_block_lib.h"
  53
  54
  55 #define LOG_TRAFFIC(kind,...) GNUNET_log_from (kind, "dht-traffic",__VA_ARGS__)
  56
  57 /**
  58  * How many buckets will we allow total.
  59  */
  60 #define MAX_BUCKETS sizeof (struct GNUNET_HashCode) * 8
  61
  62 /**
  63  * What is the maximum number of peers in a given bucket.
  64  */
  65 #define DEFAULT_BUCKET_SIZE 8
  66
  67 /**
  68  * Desired replication level for FIND PEER requests
  69  */
  70 #define FIND_PEER_REPLICATION_LEVEL 4
  71
  72 /**
  73  * Maximum allowed replication level for all requests.
  74  */
  75 #define MAXIMUM_REPLICATION_LEVEL 16
  76
  77 /**
  78  * Maximum allowed number of pending messages per peer.
  79  */
  80 #define MAXIMUM_PENDING_PER_PEER 64
  81
  82 /**
  83  * How often to update our preference levels for peers in our routing tables.
  84  */
  85 #define DHT_DEFAULT_PREFERENCE_INTERVAL GNUNET_TIME_relative_multiply(GNUNET_TIME_UNIT_MINUTES, 2)
  86
  87 /**
  88  * How long at least to wait before sending another find peer request.
  89  */
  90 #define DHT_MINIMUM_FIND_PEER_INTERVAL GNUNET_TIME_relative_multiply(GNUNET_TIME_UNIT_SECONDS, 30)
  91
  92 /**
  93  * How long at most to wait before sending another find peer request.
  94  */
  95 #define DHT_MAXIMUM_FIND_PEER_INTERVAL GNUNET_TIME_relative_multiply(GNUNET_TIME_UNIT_MINUTES, 10)
  96
  97 /**
  98  * How long at most to wait for transmission of a GET request to another peer?
  99  */
 100 #define GET_TIMEOUT GNUNET_TIME_relative_multiply(GNUNET_TIME_UNIT_MINUTES, 2)
 101
 102 /**
 103  * Hello address expiration
 104  */
 105 extern struct GNUNET_TIME_Relative hello_expiration;
 106
 107
 108 GNUNET_NETWORK_STRUCT_BEGIN
 109
 110 /**
 111  * P2P PUT message
 112  */
 113 struct PeerPutMessage
 114 {
 115   /**
 116    * Type: GNUNET_MESSAGE_TYPE_DHT_P2P_PUT
 117    */
 118   struct GNUNET_MessageHeader header;
 119
 120   /**
 121    * Processing options
 122    */
 123   uint32_t options GNUNET_PACKED;
 124
 125   /**
 126    * Content type.
 127    */
 128   uint32_t type GNUNET_PACKED;
 129
 130   /**
 131    * Hop count
 132    */
 133   uint32_t hop_count GNUNET_PACKED;
 134
 135   /**
 136    * Replication level for this message
 137    */
 138   uint32_t desired_replication_level GNUNET_PACKED;
 139
 140   /**
 141    * Length of the PUT path that follows (if tracked).
 142    */
 143   uint32_t put_path_length GNUNET_PACKED;
 144
 145   /**
 146    * When does the content expire?
 147    */
 148   struct GNUNET_TIME_AbsoluteNBO expiration_time;
 149
 150   /**
 151    * Bloomfilter (for peer identities) to stop circular routes
 152    */
 153   char bloomfilter[DHT_BLOOM_SIZE];
 154
 155   /**
 156    * The key we are storing under.
 157    */
 158   struct GNUNET_HashCode key;
 159
 160   /* put path (if tracked) */
 161
 162   /* Payload */
 163
 164 };
 165
 166
 167 /**
 168  * P2P Result message
 169  */
 170 struct PeerResultMessage
 171 {
 172   /**
 173    * Type: GNUNET_MESSAGE_TYPE_DHT_P2P_RESULT
 174    */
 175   struct GNUNET_MessageHeader header;
 176
 177   /**
 178    * Content type.
 179    */
 180   uint32_t type GNUNET_PACKED;
 181
 182   /**
 183    * Length of the PUT path that follows (if tracked).
 184    */
 185   uint32_t put_path_length GNUNET_PACKED;
 186
 187   /**
 188    * Length of the GET path that follows (if tracked).
 189    */
 190   uint32_t get_path_length GNUNET_PACKED;
 191
 192   /**
 193    * When does the content expire?
 194    */
 195   struct GNUNET_TIME_AbsoluteNBO expiration_time;
 196
 197   /**
 198    * The key of the corresponding GET request.
 199    */
 200   struct GNUNET_HashCode key;
 201
 202   /* put path (if tracked) */
 203
 204   /* get path (if tracked) */
 205
 206   /* Payload */
 207
 208 };
 209
 210
 211 /**
 212  * P2P GET message
 213  */
 214 struct PeerGetMessage
 215 {
 216   /**
 217    * Type: GNUNET_MESSAGE_TYPE_DHT_P2P_GET
 218    */
 219   struct GNUNET_MessageHeader header;
 220
 221   /**
 222    * Processing options
 223    */
 224   uint32_t options GNUNET_PACKED;
 225
 226   /**
 227    * Desired content type.
 228    */
 229   uint32_t type GNUNET_PACKED;
 230
 231   /**
 232    * Hop count
 233    */
 234   uint32_t hop_count GNUNET_PACKED;
 235
 236   /**
 237    * Desired replication level for this request.
 238    */
 239   uint32_t desired_replication_level GNUNET_PACKED;
 240
 241   /**
 242    * Size of the extended query.
 243    */
 244   uint32_t xquery_size;
 245
 246   /**
 247    * Bloomfilter mutator.
 248    */
 249   uint32_t bf_mutator;
 250
 251   /**
 252    * Bloomfilter (for peer identities) to stop circular routes
 253    */
 254   char bloomfilter[DHT_BLOOM_SIZE];
 255
 256   /**
 257    * The key we are looking for.
 258    */
 259   struct GNUNET_HashCode key;
 260
 261   /* xquery */
 262
 263   /* result bloomfilter */
 264
 265 };
 266 GNUNET_NETWORK_STRUCT_END
 267
 268 /**
 269  * Linked list of messages to send to a particular other peer.
 270  */
 271 struct P2PPendingMessage
 272 {
 273   /**
 274    * Pointer to next item in the list
 275    */
 276   struct P2PPendingMessage *next;
 277
 278   /**
 279    * Pointer to previous item in the list
 280    */
 281   struct P2PPendingMessage *prev;
 282
 283   /**
 284    * Message importance level.  FIXME: used? useful?
 285    */
 286   unsigned int importance;
 287
 288   /**
 289    * When does this message time out?
 290    */
 291   struct GNUNET_TIME_Absolute timeout;
 292
 293   /**
 294    * Actual message to be sent, allocated at the end of the struct:
 295    * // msg = (cast) &pm[1];
 296    * // memcpy (&pm[1], data, len);
 297    */
 298   const struct GNUNET_MessageHeader *msg;
 299
 300 };
 301
 302
 303 /**
 304  * Entry for a peer in a bucket.
 305  */
 306 struct PeerInfo
 307 {
 308   /**
 309    * Next peer entry (DLL)
 310    */
 311   struct PeerInfo *next;
 312
 313   /**
 314    *  Prev peer entry (DLL)
 315    */
 316   struct PeerInfo *prev;
 317
 318   /**
 319    * Count of outstanding messages for peer.
 320    */
 321   unsigned int pending_count;
 322
 323   /**
 324    * Head of pending messages to be sent to this peer.
 325    */
 326   struct P2PPendingMessage *head;
 327
 328   /**
 329    * Tail of pending messages to be sent to this peer.
 330    */
 331   struct P2PPendingMessage *tail;
 332
 333   /**
 334    * Core handle for sending messages to this peer.
 335    */
 336   struct GNUNET_CORE_TransmitHandle *th;
 337
 338   /**
 339    * Task for scheduling preference updates
 340    */
 341   GNUNET_SCHEDULER_TaskIdentifier preference_task;
 342
 343   /**
 344    * What is the identity of the peer?
 345    */
 346   struct GNUNET_PeerIdentity id;
 347
 348 #if 0
 349   /**
 350    * What is the average latency for replies received?
 351    */
 352   struct GNUNET_TIME_Relative latency;
 353
 354   /**
 355    * Transport level distance to peer.
 356    */
 357   unsigned int distance;
 358 #endif
 359
 360 };
 361
 362
 363 /**
 364  * Peers are grouped into buckets.
 365  */
 366 struct PeerBucket
 367 {
 368   /**
 369    * Head of DLL
 370    */
 371   struct PeerInfo *head;
 372
 373   /**
 374    * Tail of DLL
 375    */
 376   struct PeerInfo *tail;
 377
 378   /**
 379    * Number of peers in the bucket.
 380    */
 381   unsigned int peers_size;
 382 };
 383
 384 /**
 385  * Should routing details be logged to stderr (for debugging)?
 386  */
 387 static int log_route_details_stderr;
 388
 389 /**
 390  * The lowest currently used bucket, initially 0 (for 0-bits matching bucket).
 391  */
 392 static unsigned int closest_bucket;
 393
 394 /**
 395  * How many peers have we added since we sent out our last
 396  * find peer request?
 397  */
 398 static unsigned int newly_found_peers;
 399
 400 /**
 401  * Option for testing that disables the 'connect' function of the DHT.
 402  */
 403 static int disable_try_connect;
 404
 405 /**
 406  * The buckets.  Array of size MAX_BUCKET_SIZE.  Offset 0 means 0 bits matching.
 407  */
 408 static struct PeerBucket k_buckets[MAX_BUCKETS];
 409
 410 /**
 411  * Hash map of all known peers, for easy removal from k_buckets on disconnect.
 412  */
 413 static struct GNUNET_CONTAINER_MultiHashMap *all_known_peers;
 414
 415 /**
 416  * Maximum size for each bucket.
 417  */
 418 static unsigned int bucket_size = DEFAULT_BUCKET_SIZE;
 419
 420 /**
 421  * Task that sends FIND PEER requests.
 422  */
 423 static GNUNET_SCHEDULER_TaskIdentifier find_peer_task;
 424
 425 /**
 426  * Identity of this peer.
 427  */
 428 static struct GNUNET_PeerIdentity my_identity;
 429
 430 /**
 431  * Handle to CORE.
 432  */
 433 static struct GNUNET_CORE_Handle *coreAPI;
 434
 435 /**
 436  * Handle to ATS.
 437  */
 438 static struct GNUNET_ATS_PerformanceHandle *atsAPI;
 439
 440
 441
 442 /**
 443  * Find the optimal bucket for this key.
 444  *
 445  * @param hc the hashcode to compare our identity to
 446  * @return the proper bucket index, or GNUNET_SYSERR
 447  *         on error (same hashcode)
 448  */
 449 static int
 450 find_bucket (const struct GNUNET_HashCode * hc)
 451 {
 452   unsigned int bits;
 453
 454   bits = GNUNET_CRYPTO_hash_matching_bits (&my_identity.hashPubKey, hc);
 455   if (bits == MAX_BUCKETS)
 456   {
 457     /* How can all bits match? Got my own ID? */
 458     GNUNET_break (0);
 459     return GNUNET_SYSERR;
 460   }
 461   return MAX_BUCKETS - bits - 1;
 462 }
 463
 464
 465 /**
 466  * Let GNUnet core know that we like the given peer.
 467  *
 468  * @param cls the 'struct PeerInfo' of the peer
 469  * @param tc scheduler context.
 470  */
 471 static void
 472 update_core_preference (void *cls,
 473                         const struct GNUNET_SCHEDULER_TaskContext *tc)
 474 {
 475   struct PeerInfo *peer = cls;
 476   uint64_t preference;
 477   unsigned int matching;
 478   int bucket;
 479
 480   peer->preference_task = GNUNET_SCHEDULER_NO_TASK;
 481   if ((tc->reason & GNUNET_SCHEDULER_REASON_SHUTDOWN) != 0)
 482     return;
 483   matching =
 484       GNUNET_CRYPTO_hash_matching_bits (&my_identity.hashPubKey,
 485                                         &peer->id.hashPubKey);
 486   if (matching >= 64)
 487     matching = 63;
 488   bucket = find_bucket (&peer->id.hashPubKey);
 489   if (bucket == GNUNET_SYSERR)
 490     preference = 0;
 491   else
 492   {
 493     GNUNET_assert (k_buckets[bucket].peers_size != 0);
 494     preference = (1LL << matching) / k_buckets[bucket].peers_size;
 495   }
 496   if (preference == 0)
 497   {
 498     peer->preference_task =
 499         GNUNET_SCHEDULER_add_delayed (DHT_DEFAULT_PREFERENCE_INTERVAL,
 500                                       &update_core_preference, peer);
 501     return;
 502   }
 503   GNUNET_STATISTICS_update (GDS_stats,
 504                             gettext_noop ("# Preference updates given to core"),
 505                             1, GNUNET_NO);
 506   GNUNET_ATS_change_preference (atsAPI, &peer->id,
 507                                 GNUNET_ATS_PREFERENCE_BANDWIDTH,
 508                                 (double) preference, GNUNET_ATS_PREFERENCE_END);
 509   peer->preference_task =
 510       GNUNET_SCHEDULER_add_delayed (DHT_DEFAULT_PREFERENCE_INTERVAL,
 511                                     &update_core_preference, peer);
 512
 513
 514 }
 515
 516
 517 /**
 518  * Closure for 'add_known_to_bloom'.
 519  */
 520 struct BloomConstructorContext
 521 {
 522   /**
 523    * Bloom filter under construction.
 524    */
 525   struct GNUNET_CONTAINER_BloomFilter *bloom;
 526
 527   /**
 528    * Mutator to use.
 529    */
 530   uint32_t bf_mutator;
 531 };
 532
 533
 534 /**
 535  * Add each of the peers we already know to the bloom filter of
 536  * the request so that we don't get duplicate HELLOs.
 537  *
 538  * @param cls the 'struct BloomConstructorContext'.
 539  * @param key peer identity to add to the bloom filter
 540  * @param value value the peer information (unused)
 541  * @return GNUNET_YES (we should continue to iterate)
 542  */
 543 static int
 544 add_known_to_bloom (void *cls, const struct GNUNET_HashCode * key, void *value)
 545 {
 546   struct BloomConstructorContext *ctx = cls;
 547   struct GNUNET_HashCode mh;
 548
 549   GNUNET_BLOCK_mingle_hash (key, ctx->bf_mutator, &mh);
 550   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
 551               "Adding known peer (%s) to bloomfilter for FIND PEER with mutation %u\n",
 552               GNUNET_h2s (key), ctx->bf_mutator);
 553   GNUNET_CONTAINER_bloomfilter_add (ctx->bloom, &mh);
 554   return GNUNET_YES;
 555 }
 556
 557
 558 /**
 559  * Task to send a find peer message for our own peer identifier
 560  * so that we can find the closest peers in the network to ourselves
 561  * and attempt to connect to them.
 562  *
 563  * @param cls closure for this task
 564  * @param tc the context under which the task is running
 565  */
 566 static void
 567 send_find_peer_message (void *cls,
 568                         const struct GNUNET_SCHEDULER_TaskContext *tc)
 569 {
 570   struct GNUNET_TIME_Relative next_send_time;
 571   struct BloomConstructorContext bcc;
 572   struct GNUNET_CONTAINER_BloomFilter *peer_bf;
 573
 574   find_peer_task = GNUNET_SCHEDULER_NO_TASK;
 575   if ((tc->reason & GNUNET_SCHEDULER_REASON_SHUTDOWN) != 0)
 576     return;
 577   if (newly_found_peers > bucket_size)
 578   {
 579     /* If we are finding many peers already, no need to send out our request right now! */
 580     find_peer_task =
 581         GNUNET_SCHEDULER_add_delayed (GNUNET_TIME_UNIT_MINUTES,
 582                                       &send_find_peer_message, NULL);
 583     newly_found_peers = 0;
 584     return;
 585   }
 586   bcc.bf_mutator =
 587       GNUNET_CRYPTO_random_u32 (GNUNET_CRYPTO_QUALITY_WEAK, UINT32_MAX);
 588   bcc.bloom =
 589       GNUNET_CONTAINER_bloomfilter_init (NULL, DHT_BLOOM_SIZE,
 590                                          GNUNET_CONSTANTS_BLOOMFILTER_K);
 591   GNUNET_CONTAINER_multihashmap_iterate (all_known_peers, &add_known_to_bloom,
 592                                          &bcc);
 593   GNUNET_STATISTICS_update (GDS_stats,
 594                             gettext_noop ("# FIND PEER messages initiated"), 1,
 595                             GNUNET_NO);
 596   peer_bf =
 597       GNUNET_CONTAINER_bloomfilter_init (NULL, DHT_BLOOM_SIZE,
 598                                          GNUNET_CONSTANTS_BLOOMFILTER_K);
 599   // FIXME: pass priority!?
 600   GDS_NEIGHBOURS_handle_get (GNUNET_BLOCK_TYPE_DHT_HELLO,
 601                              GNUNET_DHT_RO_FIND_PEER,
 602                              FIND_PEER_REPLICATION_LEVEL, 0,
 603                              &my_identity.hashPubKey, NULL, 0, bcc.bloom,
 604                              bcc.bf_mutator, peer_bf);
 605   GNUNET_CONTAINER_bloomfilter_free (peer_bf);
 606   GNUNET_CONTAINER_bloomfilter_free (bcc.bloom);
 607   /* schedule next round */
 608   next_send_time.rel_value =
 609       DHT_MINIMUM_FIND_PEER_INTERVAL.rel_value +
 610       GNUNET_CRYPTO_random_u64 (GNUNET_CRYPTO_QUALITY_WEAK,
 611                                 DHT_MAXIMUM_FIND_PEER_INTERVAL.rel_value /
 612                                 (newly_found_peers + 1));
 613   newly_found_peers = 0;
 614   find_peer_task =
 615       GNUNET_SCHEDULER_add_delayed (next_send_time, &send_find_peer_message,
 616                                     NULL);
 617 }
 618
 619
 620 /**
 621  * Method called whenever a peer connects.
 622  *
 623  * @param cls closure
 624  * @param peer peer identity this notification is about
 625  */
 626 static void
 627 handle_core_connect (void *cls, const struct GNUNET_PeerIdentity *peer)
 628 {
 629   struct PeerInfo *ret;
 630   int peer_bucket;
 631
 632   /* Check for connect to self message */
 633   if (0 == memcmp (&my_identity, peer, sizeof (struct GNUNET_PeerIdentity)))
 634     return;
 635   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, "Connected %s to %s\n",
 636               GNUNET_i2s (&my_identity), GNUNET_h2s (&peer->hashPubKey));
 637   if (GNUNET_YES ==
 638       GNUNET_CONTAINER_multihashmap_contains (all_known_peers,
 639                                               &peer->hashPubKey))
 640   {
 641     GNUNET_break (0);
 642     return;
 643   }
 644   GNUNET_STATISTICS_update (GDS_stats, gettext_noop ("# peers connected"), 1,
 645                             GNUNET_NO);
 646   peer_bucket = find_bucket (&peer->hashPubKey);
 647   GNUNET_assert ((peer_bucket >= 0) && (peer_bucket < MAX_BUCKETS));
 648   ret = GNUNET_malloc (sizeof (struct PeerInfo));
 649 #if 0
 650   ret->latency = latency;
 651   ret->distance = distance;
 652 #endif
 653   ret->id = *peer;
 654   GNUNET_CONTAINER_DLL_insert_tail (k_buckets[peer_bucket].head,
 655                                     k_buckets[peer_bucket].tail, ret);
 656   k_buckets[peer_bucket].peers_size++;
 657   closest_bucket = GNUNET_MAX (closest_bucket, peer_bucket);
 658   if ((peer_bucket > 0) && (k_buckets[peer_bucket].peers_size <= bucket_size))
 659   {
 660     ret->preference_task =
 661         GNUNET_SCHEDULER_add_now (&update_core_preference, ret);
 662     newly_found_peers++;
 663   }
 664   GNUNET_assert (GNUNET_OK ==
 665                  GNUNET_CONTAINER_multihashmap_put (all_known_peers,
 666                                                     &peer->hashPubKey, ret,
 667                                                     GNUNET_CONTAINER_MULTIHASHMAPOPTION_UNIQUE_ONLY));
 668   if (1 == GNUNET_CONTAINER_multihashmap_size (all_known_peers) &&
 669       (GNUNET_YES != disable_try_connect))
 670   {
 671     /* got a first connection, good time to start with FIND PEER requests... */
 672     find_peer_task = GNUNET_SCHEDULER_add_now (&send_find_peer_message, NULL);
 673   }
 674 }
 675
 676
 677 /**
 678  * Method called whenever a peer disconnects.
 679  *
 680  * @param cls closure
 681  * @param peer peer identity this notification is about
 682  */
 683 static void
 684 handle_core_disconnect (void *cls, const struct GNUNET_PeerIdentity *peer)
 685 {
 686   struct PeerInfo *to_remove;
 687   int current_bucket;
 688   struct P2PPendingMessage *pos;
 689   unsigned int discarded;
 690
 691   /* Check for disconnect from self message */
 692   if (0 == memcmp (&my_identity, peer, sizeof (struct GNUNET_PeerIdentity)))
 693     return;
 694   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, "Disconnected %s from %s\n",
 695               GNUNET_i2s (&my_identity), GNUNET_h2s (&peer->hashPubKey));
 696   to_remove =
 697       GNUNET_CONTAINER_multihashmap_get (all_known_peers, &peer->hashPubKey);
 698   if (NULL == to_remove)
 699   {
 700     GNUNET_break (0);
 701     return;
 702   }
 703   GNUNET_STATISTICS_update (GDS_stats, gettext_noop ("# peers connected"), -1,
 704                             GNUNET_NO);
 705   GNUNET_assert (GNUNET_YES ==
 706                  GNUNET_CONTAINER_multihashmap_remove (all_known_peers,
 707                                                        &peer->hashPubKey,
 708                                                        to_remove));
 709   if (GNUNET_SCHEDULER_NO_TASK != to_remove->preference_task)
 710   {
 711     GNUNET_SCHEDULER_cancel (to_remove->preference_task);
 712     to_remove->preference_task = GNUNET_SCHEDULER_NO_TASK;
 713   }
 714   current_bucket = find_bucket (&to_remove->id.hashPubKey);
 715   GNUNET_assert (current_bucket >= 0);
 716   GNUNET_CONTAINER_DLL_remove (k_buckets[current_bucket].head,
 717                                k_buckets[current_bucket].tail, to_remove);
 718   GNUNET_assert (k_buckets[current_bucket].peers_size > 0);
 719   k_buckets[current_bucket].peers_size--;
 720   while ((closest_bucket > 0) && (k_buckets[closest_bucket].peers_size == 0))
 721     closest_bucket--;
 722
 723   if (to_remove->th != NULL)
 724   {
 725     GNUNET_CORE_notify_transmit_ready_cancel (to_remove->th);
 726     to_remove->th = NULL;
 727   }
 728   discarded = 0;
 729   while (NULL != (pos = to_remove->head))
 730   {
 731     GNUNET_CONTAINER_DLL_remove (to_remove->head, to_remove->tail, pos);
 732     discarded++;
 733     GNUNET_free (pos);
 734   }
 735   GNUNET_STATISTICS_update (GDS_stats,
 736                             gettext_noop
 737                             ("# Queued messages discarded (peer disconnected)"),
 738                             discarded, GNUNET_NO);
 739   GNUNET_free (to_remove);
 740 }
 741
 742
 743 /**
 744  * Called when core is ready to send a message we asked for
 745  * out to the destination.
 746  *
 747  * @param cls the 'struct PeerInfo' of the target peer
 748  * @param size number of bytes available in buf
 749  * @param buf where the callee should write the message
 750  * @return number of bytes written to buf
 751  */
 752 static size_t
 753 core_transmit_notify (void *cls, size_t size, void *buf)
 754 {
 755   struct PeerInfo *peer = cls;
 756   char *cbuf = buf;
 757   struct P2PPendingMessage *pending;
 758   size_t off;
 759   size_t msize;
 760
 761   peer->th = NULL;
 762   while ((NULL != (pending = peer->head)) &&
 763          (GNUNET_TIME_absolute_get_remaining (pending->timeout).rel_value == 0))
 764   {
 765     peer->pending_count--;
 766     GNUNET_CONTAINER_DLL_remove (peer->head, peer->tail, pending);
 767     GNUNET_free (pending);
 768   }
 769   if (pending == NULL)
 770   {
 771     /* no messages pending */
 772     return 0;
 773   }
 774   if (buf == NULL)
 775   {
 776     peer->th =
 777         GNUNET_CORE_notify_transmit_ready (coreAPI, GNUNET_NO,
 778                                            pending->importance,
 779                                            GNUNET_TIME_absolute_get_remaining
 780                                            (pending->timeout), &peer->id,
 781                                            ntohs (pending->msg->size),
 782                                            &core_transmit_notify, peer);
 783     GNUNET_break (NULL != peer->th);
 784     return 0;
 785   }
 786   off = 0;
 787   while ((NULL != (pending = peer->head)) &&
 788          (size - off >= (msize = ntohs (pending->msg->size))))
 789   {
 790     GNUNET_STATISTICS_update (GDS_stats,
 791                               gettext_noop
 792                               ("# Bytes transmitted to other peers"), msize,
 793                               GNUNET_NO);
 794     memcpy (&cbuf[off], pending->msg, msize);
 795     off += msize;
 796     peer->pending_count--;
 797     GNUNET_CONTAINER_DLL_remove (peer->head, peer->tail, pending);
 798     GNUNET_free (pending);
 799   }
 800   if (peer->head != NULL)
 801   {
 802     peer->th =
 803         GNUNET_CORE_notify_transmit_ready (coreAPI, GNUNET_NO,
 804                                            pending->importance,
 805                                            GNUNET_TIME_absolute_get_remaining
 806                                            (pending->timeout), &peer->id, msize,
 807                                            &core_transmit_notify, peer);
 808     GNUNET_break (NULL != peer->th);
 809   }
 810   return off;
 811 }
 812
 813
 814 /**
 815  * Transmit all messages in the peer's message queue.
 816  *
 817  * @param peer message queue to process
 818  */
 819 static void
 820 process_peer_queue (struct PeerInfo *peer)
 821 {
 822   struct P2PPendingMessage *pending;
 823
 824   if (NULL == (pending = peer->head))
 825     return;
 826   if (NULL != peer->th)
 827     return;
 828   GNUNET_STATISTICS_update (GDS_stats,
 829                             gettext_noop
 830                             ("# Bytes of bandwidth requested from core"),
 831                             ntohs (pending->msg->size), GNUNET_NO);
 832   peer->th =
 833       GNUNET_CORE_notify_transmit_ready (coreAPI, GNUNET_NO,
 834                                          pending->importance,
 835                                          GNUNET_TIME_absolute_get_remaining
 836                                          (pending->timeout), &peer->id,
 837                                          ntohs (pending->msg->size),
 838                                          &core_transmit_notify, peer);
 839   GNUNET_break (NULL != peer->th);
 840 }
 841
 842
 843 /**
 844  * To how many peers should we (on average) forward the request to
 845  * obtain the desired target_replication count (on average).
 846  *
 847  * @param hop_count number of hops the message has traversed
 848  * @param target_replication the number of total paths desired
 849  * @return Some number of peers to forward the message to
 850  */
 851 static unsigned int
 852 get_forward_count (uint32_t hop_count, uint32_t target_replication)
 853 {
 854   uint32_t random_value;
 855   uint32_t forward_count;
 856   float target_value;
 857
 858   if (hop_count > GDS_NSE_get () * 4.0)
 859   {
 860     /* forcefully terminate */
 861     GNUNET_STATISTICS_update (GDS_stats,
 862                               gettext_noop ("# requests TTL-dropped"),
 863                               1, GNUNET_NO);
 864     return 0;
 865   }
 866   if (hop_count > GDS_NSE_get () * 2.0)
 867   {
 868     /* Once we have reached our ideal number of hops, only forward to 1 peer */
 869     return 1;
 870   }
 871   /* bound by system-wide maximum */
 872   target_replication =
 873       GNUNET_MIN (MAXIMUM_REPLICATION_LEVEL, target_replication);
 874   target_value =
 875       1 + (target_replication - 1.0) / (GDS_NSE_get () +
 876                                         ((float) (target_replication - 1.0) *
 877                                          hop_count));
 878   /* Set forward count to floor of target_value */
 879   forward_count = (uint32_t) target_value;
 880   /* Subtract forward_count (floor) from target_value (yields value between 0 and 1) */
 881   target_value = target_value - forward_count;
 882   random_value =
 883       GNUNET_CRYPTO_random_u32 (GNUNET_CRYPTO_QUALITY_WEAK, UINT32_MAX);
 884   if (random_value < (target_value * UINT32_MAX))
 885     forward_count++;
 886   return forward_count;
 887 }
 888
 889
 890 /**
 891  * Compute the distance between have and target as a 32-bit value.
 892  * Differences in the lower bits must count stronger than differences
 893  * in the higher bits.
 894  *
 895  * @return 0 if have==target, otherwise a number
 896  *           that is larger as the distance between
 897  *           the two hash codes increases
 898  */
 899 static unsigned int
 900 get_distance (const struct GNUNET_HashCode * target, const struct GNUNET_HashCode * have)
 901 {
 902   unsigned int bucket;
 903   unsigned int msb;
 904   unsigned int lsb;
 905   unsigned int i;
 906
 907   /* We have to represent the distance between two 2^9 (=512)-bit
 908    * numbers as a 2^5 (=32)-bit number with "0" being used for the
 909    * two numbers being identical; furthermore, we need to
 910    * guarantee that a difference in the number of matching
 911    * bits is always represented in the result.
 912    *
 913    * We use 2^32/2^9 numerical values to distinguish between
 914    * hash codes that have the same LSB bit distance and
 915    * use the highest 2^9 bits of the result to signify the
 916    * number of (mis)matching LSB bits; if we have 0 matching
 917    * and hence 512 mismatching LSB bits we return -1 (since
 918    * 512 itself cannot be represented with 9 bits) */
 919
 920   /* first, calculate the most significant 9 bits of our
 921    * result, aka the number of LSBs */
 922   bucket = GNUNET_CRYPTO_hash_matching_bits (target, have);
 923   /* bucket is now a value between 0 and 512 */
 924   if (bucket == 512)
 925     return 0;                   /* perfect match */
 926   if (bucket == 0)
 927     return (unsigned int) -1;   /* LSB differs; use max (if we did the bit-shifting
 928                                  * below, we'd end up with max+1 (overflow)) */
 929
 930   /* calculate the most significant bits of the final result */
 931   msb = (512 - bucket) << (32 - 9);
 932   /* calculate the 32-9 least significant bits of the final result by
 933    * looking at the differences in the 32-9 bits following the
 934    * mismatching bit at 'bucket' */
 935   lsb = 0;
 936   for (i = bucket + 1;
 937        (i < sizeof (struct GNUNET_HashCode) * 8) && (i < bucket + 1 + 32 - 9); i++)
 938   {
 939     if (GNUNET_CRYPTO_hash_get_bit (target, i) !=
 940         GNUNET_CRYPTO_hash_get_bit (have, i))
 941       lsb |= (1 << (bucket + 32 - 9 - i));      /* first bit set will be 10,
 942                                                  * last bit set will be 31 -- if
 943                                                  * i does not reach 512 first... */
 944   }
 945   return msb | lsb;
 946 }
 947
 948
 949 /**
 950  * Check whether my identity is closer than any known peers.  If a
 951  * non-null bloomfilter is given, check if this is the closest peer
 952  * that hasn't already been routed to.
 953  *
 954  * @param key hash code to check closeness to
 955  * @param bloom bloomfilter, exclude these entries from the decision
 956  * @return GNUNET_YES if node location is closest,
 957  *         GNUNET_NO otherwise.
 958  */
 959 static int
 960 am_closest_peer (const struct GNUNET_HashCode * key,
 961                  const struct GNUNET_CONTAINER_BloomFilter *bloom)
 962 {
 963   int bits;
 964   int other_bits;
 965   int bucket_num;
 966   int count;
 967   struct PeerInfo *pos;
 968
 969   if (0 == memcmp (&my_identity.hashPubKey, key, sizeof (struct GNUNET_HashCode)))
 970     return GNUNET_YES;
 971   bucket_num = find_bucket (key);
 972   GNUNET_assert (bucket_num >= 0);
 973   bits = GNUNET_CRYPTO_hash_matching_bits (&my_identity.hashPubKey, key);
 974   pos = k_buckets[bucket_num].head;
 975   count = 0;
 976   while ((pos != NULL) && (count < bucket_size))
 977   {
 978     if ((bloom != NULL) &&
 979         (GNUNET_YES ==
 980          GNUNET_CONTAINER_bloomfilter_test (bloom, &pos->id.hashPubKey)))
 981     {
 982       pos = pos->next;
 983       continue;                 /* Skip already checked entries */
 984     }
 985     other_bits = GNUNET_CRYPTO_hash_matching_bits (&pos->id.hashPubKey, key);
 986     if (other_bits > bits)
 987       return GNUNET_NO;
 988     if (other_bits == bits)     /* We match the same number of bits */
 989       return GNUNET_YES;
 990     pos = pos->next;
 991   }
 992   /* No peers closer, we are the closest! */
 993   return GNUNET_YES;
 994 }
 995
 996
 997 /**
 998  * Select a peer from the routing table that would be a good routing
 999  * destination for sending a message for "key".  The resulting peer
1000  * must not be in the set of blocked peers.<p>
1001  *
1002  * Note that we should not ALWAYS select the closest peer to the
1003  * target, peers further away from the target should be chosen with
1004  * exponentially declining probability.
1005  *
1006  * FIXME: double-check that this is fine
1007  *
1008  *
1009  * @param key the key we are selecting a peer to route to
1010  * @param bloom a bloomfilter containing entries this request has seen already
1011  * @param hops how many hops has this message traversed thus far
1012  * @return Peer to route to, or NULL on error
1013  */
1014 static struct PeerInfo *
1015 select_peer (const struct GNUNET_HashCode * key,
1016              const struct GNUNET_CONTAINER_BloomFilter *bloom, uint32_t hops)
1017 {
1018   unsigned int bc;
1019   unsigned int count;
1020   unsigned int selected;
1021   struct PeerInfo *pos;
1022   unsigned int dist;
1023   unsigned int smallest_distance;
1024   struct PeerInfo *chosen;
1025
1026   if (hops >= GDS_NSE_get ())
1027   {
1028     /* greedy selection (closest peer that is not in bloomfilter) */
1029     smallest_distance = UINT_MAX;
1030     chosen = NULL;
1031     for (bc = 0; bc <= closest_bucket; bc++)
1032     {
1033       pos = k_buckets[bc].head;
1034       count = 0;
1035       while ((pos != NULL) && (count < bucket_size))
1036       {
1037         if ((bloom == NULL) ||
1038             (GNUNET_NO ==
1039              GNUNET_CONTAINER_bloomfilter_test (bloom, &pos->id.hashPubKey)))
1040         {
1041           dist = get_distance (key, &pos->id.hashPubKey);
1042           if (dist < smallest_distance)
1043           {
1044             chosen = pos;
1045             smallest_distance = dist;
1046           }
1047         }
1048         else
1049         {
1050           GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
1051                       "Excluded peer `%s' due to BF match in greedy routing for %s\n",
1052                       GNUNET_i2s (&pos->id), GNUNET_h2s (key));
1053           GNUNET_STATISTICS_update (GDS_stats,
1054                                     gettext_noop
1055                                     ("# Peers excluded from routing due to Bloomfilter"),
1056                                     1, GNUNET_NO);
1057           dist = get_distance (key, &pos->id.hashPubKey);
1058           if (dist < smallest_distance)
1059           {
1060             chosen = NULL;
1061             smallest_distance = dist;
1062           }
1063         }
1064         count++;
1065         pos = pos->next;
1066       }
1067     }
1068     if (NULL == chosen)
1069       GNUNET_STATISTICS_update (GDS_stats,
1070                                 gettext_noop ("# Peer selection failed"), 1,
1071                                 GNUNET_NO);
1072     return chosen;
1073   }
1074
1075   /* select "random" peer */
1076   /* count number of peers that are available and not filtered */
1077   count = 0;
1078   for (bc = 0; bc <= closest_bucket; bc++)
1079   {
1080     pos = k_buckets[bc].head;
1081     while ((pos != NULL) && (count < bucket_size))
1082     {
1083       if ((bloom != NULL) &&
1084           (GNUNET_YES ==
1085            GNUNET_CONTAINER_bloomfilter_test (bloom, &pos->id.hashPubKey)))
1086       {
1087         GNUNET_STATISTICS_update (GDS_stats,
1088                                   gettext_noop
1089                                   ("# Peers excluded from routing due to Bloomfilter"),
1090                                   1, GNUNET_NO);
1091         GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
1092                     "Excluded peer `%s' due to BF match in random routing for %s\n",
1093                     GNUNET_i2s (&pos->id), GNUNET_h2s (key));
1094         pos = pos->next;
1095         continue;               /* Ignore bloomfiltered peers */
1096       }
1097       count++;
1098       pos = pos->next;
1099     }
1100   }
1101   if (0 == count)               /* No peers to select from! */
1102   {
1103     GNUNET_STATISTICS_update (GDS_stats,
1104                               gettext_noop ("# Peer selection failed"), 1,
1105                               GNUNET_NO);
1106     return NULL;
1107   }
1108   /* Now actually choose a peer */
1109   selected = GNUNET_CRYPTO_random_u32 (GNUNET_CRYPTO_QUALITY_WEAK, count);
1110   count = 0;
1111   for (bc = 0; bc <= closest_bucket; bc++)
1112   {
1113     for (pos = k_buckets[bc].head; ((pos != NULL) && (count < bucket_size)); pos = pos->next)
1114     {
1115       if ((bloom != NULL) &&
1116           (GNUNET_YES ==
1117            GNUNET_CONTAINER_bloomfilter_test (bloom, &pos->id.hashPubKey)))
1118       {
1119         continue;               /* Ignore bloomfiltered peers */
1120       }
1121       if (0 == selected--)
1122         return pos;
1123     }
1124   }
1125   GNUNET_break (0);
1126   return NULL;
1127 }
1128
1129
1130 /**
1131  * Compute the set of peers that the given request should be
1132  * forwarded to.
1133  *
1134  * @param key routing key
1135  * @param bloom bloom filter excluding peers as targets, all selected
1136  *        peers will be added to the bloom filter
1137  * @param hop_count number of hops the request has traversed so far
1138  * @param target_replication desired number of replicas
1139  * @param targets where to store an array of target peers (to be
1140  *         free'd by the caller)
1141  * @return number of peers returned in 'targets'.
1142  */
1143 static unsigned int
1144 get_target_peers (const struct GNUNET_HashCode *key,
1145                   struct GNUNET_CONTAINER_BloomFilter *bloom,
1146                   uint32_t hop_count, uint32_t target_replication,
1147                   struct PeerInfo ***targets)
1148 {
1149   unsigned int ret;
1150   unsigned int off;
1151   struct PeerInfo **rtargets;
1152   struct PeerInfo *nxt;
1153
1154   GNUNET_assert (NULL != bloom);
1155   ret = get_forward_count (hop_count, target_replication);
1156   if (0 == ret)
1157   {
1158     *targets = NULL;
1159     return 0;
1160   }
1161   rtargets = GNUNET_malloc (sizeof (struct PeerInfo *) * ret);
1162   for (off = 0; off < ret; off++)
1163   {
1164     nxt = select_peer (key, bloom, hop_count);
1165     if (NULL == nxt)
1166       break;
1167     rtargets[off] = nxt;
1168     GNUNET_break (GNUNET_NO ==
1169                   GNUNET_CONTAINER_bloomfilter_test (bloom,
1170                                                      &nxt->id.hashPubKey));
1171     GNUNET_CONTAINER_bloomfilter_add (bloom, &rtargets[off]->id.hashPubKey);
1172   }
1173   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
1174               "Selected %u/%u peers at hop %u for %s (target was %u)\n", off,
1175               GNUNET_CONTAINER_multihashmap_size (all_known_peers),
1176               (unsigned int) hop_count, GNUNET_h2s (key), ret);
1177   if (0 == off)
1178   {
1179     GNUNET_free (rtargets);
1180     *targets = NULL;
1181     return 0;
1182   }
1183   *targets = rtargets;
1184   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
1185               "Forwarding query `%s' to %u peers (goal was %u peers)\n",
1186               GNUNET_h2s (key),
1187               off,
1188               ret);
1189   return off;
1190 }
1191
1192
1193 /**
1194  * Perform a PUT operation.   Forwards the given request to other
1195  * peers.   Does not store the data locally.  Does not give the
1196  * data to local clients.  May do nothing if this is the only
1197  * peer in the network (or if we are the closest peer in the
1198  * network).
1199  *
1200  * @param type type of the block
1201  * @param options routing options
1202  * @param desired_replication_level desired replication count
1203  * @param expiration_time when does the content expire
1204  * @param hop_count how many hops has this message traversed so far
1205  * @param bf Bloom filter of peers this PUT has already traversed
1206  * @param key key for the content
1207  * @param put_path_length number of entries in put_path
1208  * @param put_path peers this request has traversed so far (if tracked)
1209  * @param data payload to store
1210  * @param data_size number of bytes in data
1211  */
1212 void
1213 GDS_NEIGHBOURS_handle_put (enum GNUNET_BLOCK_Type type,
1214                            enum GNUNET_DHT_RouteOption options,
1215                            uint32_t desired_replication_level,
1216                            struct GNUNET_TIME_Absolute expiration_time,
1217                            uint32_t hop_count,
1218                            struct GNUNET_CONTAINER_BloomFilter *bf,
1219                            const struct GNUNET_HashCode * key,
1220                            unsigned int put_path_length,
1221                            struct GNUNET_PeerIdentity *put_path,
1222                            const void *data, size_t data_size)
1223 {
1224   unsigned int target_count;
1225   unsigned int i;
1226   struct PeerInfo **targets;
1227   struct PeerInfo *target;
1228   struct P2PPendingMessage *pending;
1229   size_t msize;
1230   struct PeerPutMessage *ppm;
1231   struct GNUNET_PeerIdentity *pp;
1232
1233   GNUNET_assert (NULL != bf);
1234   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
1235               "Adding myself (%s) to PUT bloomfilter for %s\n",
1236               GNUNET_i2s (&my_identity), GNUNET_h2s (key));
1237   GNUNET_CONTAINER_bloomfilter_add (bf, &my_identity.hashPubKey);
1238   GNUNET_STATISTICS_update (GDS_stats, gettext_noop ("# PUT requests routed"),
1239                             1, GNUNET_NO);
1240   target_count =
1241       get_target_peers (key, bf, hop_count, desired_replication_level,
1242                         &targets);
1243   if (0 == target_count)
1244   {
1245     GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
1246                 "Routing PUT for %s terminates after %u hops at %s\n",
1247                 GNUNET_h2s (key), (unsigned int) hop_count,
1248                 GNUNET_i2s (&my_identity));
1249     return;
1250   }
1251   msize =
1252       put_path_length * sizeof (struct GNUNET_PeerIdentity) + data_size +
1253       sizeof (struct PeerPutMessage);
1254   if (msize >= GNUNET_SERVER_MAX_MESSAGE_SIZE)
1255   {
1256     put_path_length = 0;
1257     msize = data_size + sizeof (struct PeerPutMessage);
1258   }
1259   if (msize >= GNUNET_SERVER_MAX_MESSAGE_SIZE)
1260   {
1261     GNUNET_break (0);
1262     GNUNET_free (targets);
1263     return;
1264   }
1265   GNUNET_STATISTICS_update (GDS_stats,
1266                             gettext_noop
1267                             ("# PUT messages queued for transmission"),
1268                             target_count, GNUNET_NO);
1269   for (i = 0; i < target_count; i++)
1270   {
1271     target = targets[i];
1272     if (target->pending_count >= MAXIMUM_PENDING_PER_PEER)
1273     {
1274       GNUNET_STATISTICS_update (GDS_stats, gettext_noop ("# P2P messages dropped due to full queue"),
1275                                 1, GNUNET_NO);
1276       continue; /* skip */
1277     }
1278     GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
1279                 "Routing PUT for %s after %u hops to %s\n", GNUNET_h2s (key),
1280                 (unsigned int) hop_count, GNUNET_i2s (&target->id));
1281     pending = GNUNET_malloc (sizeof (struct P2PPendingMessage) + msize);
1282     pending->importance = 0;    /* FIXME */
1283     pending->timeout = expiration_time;
1284     ppm = (struct PeerPutMessage *) &pending[1];
1285     pending->msg = &ppm->header;
1286     ppm->header.size = htons (msize);
1287     ppm->header.type = htons (GNUNET_MESSAGE_TYPE_DHT_P2P_PUT);
1288     ppm->options = htonl (options);
1289     ppm->type = htonl (type);
1290     ppm->hop_count = htonl (hop_count + 1);
1291     ppm->desired_replication_level = htonl (desired_replication_level);
1292     ppm->put_path_length = htonl (put_path_length);
1293     ppm->expiration_time = GNUNET_TIME_absolute_hton (expiration_time);
1294     GNUNET_break (GNUNET_YES ==
1295                   GNUNET_CONTAINER_bloomfilter_test (bf,
1296                                                      &target->id.hashPubKey));
1297     GNUNET_assert (GNUNET_OK ==
1298                    GNUNET_CONTAINER_bloomfilter_get_raw_data (bf,
1299                                                               ppm->bloomfilter,
1300                                                               DHT_BLOOM_SIZE));
1301     ppm->key = *key;
1302     pp = (struct GNUNET_PeerIdentity *) &ppm[1];
1303     memcpy (pp, put_path,
1304             sizeof (struct GNUNET_PeerIdentity) * put_path_length);
1305     memcpy (&pp[put_path_length], data, data_size);
1306     GNUNET_CONTAINER_DLL_insert_tail (target->head, target->tail, pending);
1307     target->pending_count++;
1308     process_peer_queue (target);
1309   }
1310   GNUNET_free (targets);
1311 }
1312
1313
1314 /**
1315  * Perform a GET operation.  Forwards the given request to other
1316  * peers.  Does not lookup the key locally.  May do nothing if this is
1317  * the only peer in the network (or if we are the closest peer in the
1318  * network).
1319  *
1320  * @param type type of the block
1321  * @param options routing options
1322  * @param desired_replication_level desired replication count
1323  * @param hop_count how many hops did this request traverse so far?
1324  * @param key key for the content
1325  * @param xquery extended query
1326  * @param xquery_size number of bytes in xquery
1327  * @param reply_bf bloomfilter to filter duplicates
1328  * @param reply_bf_mutator mutator for reply_bf
1329  * @param peer_bf filter for peers not to select (again)
1330  */
1331 void
1332 GDS_NEIGHBOURS_handle_get (enum GNUNET_BLOCK_Type type,
1333                            enum GNUNET_DHT_RouteOption options,
1334                            uint32_t desired_replication_level,
1335                            uint32_t hop_count, const struct GNUNET_HashCode * key,
1336                            const void *xquery, size_t xquery_size,
1337                            const struct GNUNET_CONTAINER_BloomFilter *reply_bf,
1338                            uint32_t reply_bf_mutator,
1339                            struct GNUNET_CONTAINER_BloomFilter *peer_bf)
1340 {
1341   unsigned int target_count;
1342   unsigned int i;
1343   struct PeerInfo **targets;
1344   struct PeerInfo *target;
1345   struct P2PPendingMessage *pending;
1346   size_t msize;
1347   struct PeerGetMessage *pgm;
1348   char *xq;
1349   size_t reply_bf_size;
1350
1351   GNUNET_assert (NULL != peer_bf);
1352   GNUNET_STATISTICS_update (GDS_stats, gettext_noop ("# GET requests routed"),
1353                             1, GNUNET_NO);
1354   target_count =
1355       get_target_peers (key, peer_bf, hop_count, desired_replication_level,
1356                         &targets);
1357   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
1358               "Adding myself (%s) to GET bloomfilter for %s\n",
1359               GNUNET_i2s (&my_identity), GNUNET_h2s (key));
1360   GNUNET_CONTAINER_bloomfilter_add (peer_bf, &my_identity.hashPubKey);
1361   if (0 == target_count)
1362   {
1363     GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
1364                 "Routing GET for %s terminates after %u hops at %s\n",
1365                 GNUNET_h2s (key), (unsigned int) hop_count,
1366                 GNUNET_i2s (&my_identity));
1367     return;
1368   }
1369   reply_bf_size = GNUNET_CONTAINER_bloomfilter_get_size (reply_bf);
1370   msize = xquery_size + sizeof (struct PeerGetMessage) + reply_bf_size;
1371   if (msize >= GNUNET_SERVER_MAX_MESSAGE_SIZE)
1372   {
1373     GNUNET_break (0);
1374     GNUNET_free (targets);
1375     return;
1376   }
1377   GNUNET_STATISTICS_update (GDS_stats,
1378                             gettext_noop
1379                             ("# GET messages queued for transmission"),
1380                             target_count, GNUNET_NO);
1381   /* forward request */
1382   for (i = 0; i < target_count; i++)
1383   {
1384     target = targets[i];
1385     if (target->pending_count >= MAXIMUM_PENDING_PER_PEER)
1386     {
1387       GNUNET_STATISTICS_update (GDS_stats, gettext_noop ("# P2P messages dropped due to full queue"),
1388                                 1, GNUNET_NO);
1389       continue; /* skip */
1390     }
1391     GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
1392                 "Routing GET for %s after %u hops to %s\n", GNUNET_h2s (key),
1393                 (unsigned int) hop_count, GNUNET_i2s (&target->id));
1394     pending = GNUNET_malloc (sizeof (struct P2PPendingMessage) + msize);
1395     pending->importance = 0;    /* FIXME */
1396     pending->timeout = GNUNET_TIME_relative_to_absolute (GET_TIMEOUT);
1397     pgm = (struct PeerGetMessage *) &pending[1];
1398     pending->msg = &pgm->header;
1399     pgm->header.size = htons (msize);
1400     pgm->header.type = htons (GNUNET_MESSAGE_TYPE_DHT_P2P_GET);
1401     pgm->options = htonl (options);
1402     pgm->type = htonl (type);
1403     pgm->hop_count = htonl (hop_count + 1);
1404     pgm->desired_replication_level = htonl (desired_replication_level);
1405     pgm->xquery_size = htonl (xquery_size);
1406     pgm->bf_mutator = reply_bf_mutator;
1407     GNUNET_break (GNUNET_YES ==
1408                   GNUNET_CONTAINER_bloomfilter_test (peer_bf,
1409                                                      &target->id.hashPubKey));
1410     GNUNET_assert (GNUNET_OK ==
1411                    GNUNET_CONTAINER_bloomfilter_get_raw_data (peer_bf,
1412                                                               pgm->bloomfilter,
1413                                                               DHT_BLOOM_SIZE));
1414     pgm->key = *key;
1415     xq = (char *) &pgm[1];
1416     memcpy (xq, xquery, xquery_size);
1417     if (NULL != reply_bf)
1418       GNUNET_assert (GNUNET_OK ==
1419                      GNUNET_CONTAINER_bloomfilter_get_raw_data (reply_bf,
1420                                                                 &xq
1421                                                                 [xquery_size],
1422                                                                 reply_bf_size));
1423     GNUNET_CONTAINER_DLL_insert_tail (target->head, target->tail, pending);
1424     target->pending_count++;
1425     process_peer_queue (target);
1426   }
1427   GNUNET_free (targets);
1428 }
1429
1430
1431 /**
1432  * Handle a reply (route to origin).  Only forwards the reply back to
1433  * the given peer.  Does not do local caching or forwarding to local
1434  * clients.
1435  *
1436  * @param target neighbour that should receive the block (if still connected)
1437  * @param type type of the block
1438  * @param expiration_time when does the content expire
1439  * @param key key for the content
1440  * @param put_path_length number of entries in put_path
1441  * @param put_path peers the original PUT traversed (if tracked)
1442  * @param get_path_length number of entries in put_path
1443  * @param get_path peers this reply has traversed so far (if tracked)
1444  * @param data payload of the reply
1445  * @param data_size number of bytes in data
1446  */
1447 void
1448 GDS_NEIGHBOURS_handle_reply (const struct GNUNET_PeerIdentity *target,
1449                              enum GNUNET_BLOCK_Type type,
1450                              struct GNUNET_TIME_Absolute expiration_time,
1451                              const struct GNUNET_HashCode * key,
1452                              unsigned int put_path_length,
1453                              const struct GNUNET_PeerIdentity *put_path,
1454                              unsigned int get_path_length,
1455                              const struct GNUNET_PeerIdentity *get_path,
1456                              const void *data, size_t data_size)
1457 {
1458   struct PeerInfo *pi;
1459   struct P2PPendingMessage *pending;
1460   size_t msize;
1461   struct PeerResultMessage *prm;
1462   struct GNUNET_PeerIdentity *paths;
1463
1464   msize =
1465       data_size + sizeof (struct PeerResultMessage) + (get_path_length +
1466                                                        put_path_length) *
1467       sizeof (struct GNUNET_PeerIdentity);
1468   if ((msize >= GNUNET_SERVER_MAX_MESSAGE_SIZE) ||
1469       (get_path_length >
1470        GNUNET_SERVER_MAX_MESSAGE_SIZE / sizeof (struct GNUNET_PeerIdentity)) ||
1471       (put_path_length >
1472        GNUNET_SERVER_MAX_MESSAGE_SIZE / sizeof (struct GNUNET_PeerIdentity)) ||
1473       (data_size > GNUNET_SERVER_MAX_MESSAGE_SIZE))
1474   {
1475     GNUNET_break (0);
1476     return;
1477   }
1478   pi = GNUNET_CONTAINER_multihashmap_get (all_known_peers, &target->hashPubKey);
1479   if (NULL == pi)
1480   {
1481     /* peer disconnected in the meantime, drop reply */
1482     return;
1483   }
1484   if (pi->pending_count >= MAXIMUM_PENDING_PER_PEER)
1485   {
1486     /* skip */
1487     GNUNET_STATISTICS_update (GDS_stats, gettext_noop ("# P2P messages dropped due to full queue"),
1488                               1, GNUNET_NO);
1489     return;
1490   }
1491
1492   GNUNET_STATISTICS_update (GDS_stats,
1493                             gettext_noop
1494                             ("# RESULT messages queued for transmission"), 1,
1495                             GNUNET_NO);
1496   pending = GNUNET_malloc (sizeof (struct P2PPendingMessage) + msize);
1497   pending->importance = 0;      /* FIXME */
1498   pending->timeout = expiration_time;
1499   prm = (struct PeerResultMessage *) &pending[1];
1500   pending->msg = &prm->header;
1501   prm->header.size = htons (msize);
1502   prm->header.type = htons (GNUNET_MESSAGE_TYPE_DHT_P2P_RESULT);
1503   prm->type = htonl (type);
1504   prm->put_path_length = htonl (put_path_length);
1505   prm->get_path_length = htonl (get_path_length);
1506   prm->expiration_time = GNUNET_TIME_absolute_hton (expiration_time);
1507   prm->key = *key;
1508   paths = (struct GNUNET_PeerIdentity *) &prm[1];
1509   memcpy (paths, put_path,
1510           put_path_length * sizeof (struct GNUNET_PeerIdentity));
1511   memcpy (&paths[put_path_length], get_path,
1512           get_path_length * sizeof (struct GNUNET_PeerIdentity));
1513   memcpy (&paths[put_path_length + get_path_length], data, data_size);
1514   GNUNET_CONTAINER_DLL_insert (pi->head, pi->tail, pending);
1515   pi->pending_count++;
1516   process_peer_queue (pi);
1517 }
1518
1519
1520 /**
1521  * To be called on core init/fail.
1522  *
1523  * @param cls service closure
1524  * @param server handle to the server for this service
1525  * @param identity the public identity of this peer
1526  */
1527 static void
1528 core_init (void *cls, struct GNUNET_CORE_Handle *server,
1529            const struct GNUNET_PeerIdentity *identity)
1530 {
1531   GNUNET_assert (server != NULL);
1532   my_identity = *identity;
1533 }
1534
1535
1536 /**
1537  * Core handler for p2p put requests.
1538  *
1539  * @param cls closure
1540  * @param peer sender of the request
1541  * @param message message
1542  * @param peer peer identity this notification is about
1543  * @return GNUNET_OK to keep the connection open,
1544  *         GNUNET_SYSERR to close it (signal serious error)
1545  */
1546 static int
1547 handle_dht_p2p_put (void *cls, const struct GNUNET_PeerIdentity *peer,
1548                     const struct GNUNET_MessageHeader *message)
1549 {
1550   const struct PeerPutMessage *put;
1551   const struct GNUNET_PeerIdentity *put_path;
1552   const void *payload;
1553   uint32_t putlen;
1554   uint16_t msize;
1555   size_t payload_size;
1556   enum GNUNET_DHT_RouteOption options;
1557   struct GNUNET_CONTAINER_BloomFilter *bf;
1558   struct GNUNET_HashCode test_key;
1559
1560   msize = ntohs (message->size);
1561   if (msize < sizeof (struct PeerPutMessage))
1562   {
1563     GNUNET_break_op (0);
1564     return GNUNET_YES;
1565   }
1566   put = (const struct PeerPutMessage *) message;
1567   putlen = ntohl (put->put_path_length);
1568   if ((msize <
1569        sizeof (struct PeerPutMessage) +
1570        putlen * sizeof (struct GNUNET_PeerIdentity)) ||
1571       (putlen >
1572        GNUNET_SERVER_MAX_MESSAGE_SIZE / sizeof (struct GNUNET_PeerIdentity)))
1573   {
1574     GNUNET_break_op (0);
1575     return GNUNET_YES;
1576   }
1577   GNUNET_STATISTICS_update (GDS_stats,
1578                             gettext_noop ("# P2P PUT requests received"), 1,
1579                             GNUNET_NO);
1580   GNUNET_STATISTICS_update (GDS_stats,
1581                             gettext_noop ("# P2P PUT bytes received"), msize,
1582                             GNUNET_NO);
1583   put_path = (const struct GNUNET_PeerIdentity *) &put[1];
1584   payload = &put_path[putlen];
1585   options = ntohl (put->options);
1586   payload_size =
1587       msize - (sizeof (struct PeerPutMessage) +
1588                putlen * sizeof (struct GNUNET_PeerIdentity));
1589   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, "PUT for `%s' from %s\n",
1590               GNUNET_h2s (&put->key), GNUNET_i2s (peer));
1591   if (GNUNET_YES == log_route_details_stderr)
1592   {
1593     char *tmp;
1594
1595     tmp = GNUNET_strdup (GNUNET_i2s (&my_identity));
1596     LOG_TRAFFIC (GNUNET_ERROR_TYPE_DEBUG, "XDHT PUT %s: %s->%s (%u, %u=>%u)\n",
1597                  GNUNET_h2s (&put->key), GNUNET_i2s (peer), tmp,
1598                  ntohl(put->hop_count),
1599                  GNUNET_CRYPTO_hash_matching_bits (&peer->hashPubKey, &put->key),
1600                  GNUNET_CRYPTO_hash_matching_bits (&my_identity.hashPubKey, &put->key)
1601                 );
1602     GNUNET_free (tmp);
1603   }
1604   switch (GNUNET_BLOCK_get_key
1605           (GDS_block_context, ntohl (put->type), payload, payload_size,
1606            &test_key))
1607   {
1608   case GNUNET_YES:
1609     if (0 != memcmp (&test_key, &put->key, sizeof (struct GNUNET_HashCode)))
1610     {
1611       GNUNET_break_op (0);
1612       return GNUNET_YES;
1613     }
1614     break;
1615   case GNUNET_NO:
1616     GNUNET_break_op (0);
1617     return GNUNET_YES;
1618   case GNUNET_SYSERR:
1619     /* cannot verify, good luck */
1620     break;
1621   }
1622   if (ntohl (put->type) == GNUNET_BLOCK_TYPE_REGEX) /* FIXME: do for all tpyes */
1623   {
1624     switch (GNUNET_BLOCK_evaluate (GDS_block_context,
1625                                    ntohl (put->type),
1626                                    NULL,    /* query */
1627                                    NULL, 0, /* bloom filer */
1628                                    NULL, 0, /* xquery */
1629                                    payload, payload_size))
1630     {
1631     case GNUNET_BLOCK_EVALUATION_OK_MORE:
1632     case GNUNET_BLOCK_EVALUATION_OK_LAST:
1633       break;
1634
1635     case GNUNET_BLOCK_EVALUATION_OK_DUPLICATE:
1636     case GNUNET_BLOCK_EVALUATION_RESULT_INVALID:
1637     case GNUNET_BLOCK_EVALUATION_RESULT_IRRELEVANT:
1638     case GNUNET_BLOCK_EVALUATION_REQUEST_VALID:
1639     case GNUNET_BLOCK_EVALUATION_REQUEST_INVALID:
1640     case GNUNET_BLOCK_EVALUATION_TYPE_NOT_SUPPORTED:
1641     default:
1642       GNUNET_break_op (0);
1643       return GNUNET_OK;
1644     }
1645   }
1646
1647   bf = GNUNET_CONTAINER_bloomfilter_init (put->bloomfilter, DHT_BLOOM_SIZE,
1648                                           GNUNET_CONSTANTS_BLOOMFILTER_K);
1649   GNUNET_break_op (GNUNET_YES ==
1650                    GNUNET_CONTAINER_bloomfilter_test (bf, &peer->hashPubKey));
1651   {
1652     struct GNUNET_PeerIdentity pp[putlen + 1];
1653
1654     /* extend 'put path' by sender */
1655     if (0 != (options & GNUNET_DHT_RO_RECORD_ROUTE))
1656     {
1657       memcpy (pp, put_path, putlen * sizeof (struct GNUNET_PeerIdentity));
1658       pp[putlen] = *peer;
1659       putlen++;
1660     }
1661     else
1662       putlen = 0;
1663
1664     /* give to local clients */
1665     GDS_CLIENTS_handle_reply (GNUNET_TIME_absolute_ntoh (put->expiration_time),
1666                               &put->key, 0, NULL, putlen, pp, ntohl (put->type),
1667                               payload_size, payload);
1668     /* store locally */
1669     if ((0 != (options & GNUNET_DHT_RO_DEMULTIPLEX_EVERYWHERE)) ||
1670         (am_closest_peer (&put->key, bf)))
1671       GDS_DATACACHE_handle_put (GNUNET_TIME_absolute_ntoh
1672                                 (put->expiration_time), &put->key, putlen, pp,
1673                                 ntohl (put->type), payload_size, payload);
1674     /* route to other peers */
1675     GDS_NEIGHBOURS_handle_put (ntohl (put->type), options,
1676                                ntohl (put->desired_replication_level),
1677                                GNUNET_TIME_absolute_ntoh (put->expiration_time),
1678                                ntohl (put->hop_count), bf, &put->key, putlen,
1679                                pp, payload, payload_size);
1680     /* notify monitoring clients */
1681     GDS_CLIENTS_process_put (options,
1682                              ntohl (put->type),
1683                              ntohl (put->hop_count),
1684                              ntohl (put->desired_replication_level),
1685                              putlen, pp,
1686                              GNUNET_TIME_absolute_ntoh (put->expiration_time),
1687                              &put->key,
1688                              payload,
1689                              payload_size);
1690   }
1691   GNUNET_CONTAINER_bloomfilter_free (bf);
1692   return GNUNET_YES;
1693 }
1694
1695
1696 /**
1697  * We have received a FIND PEER request.  Send matching
1698  * HELLOs back.
1699  *
1700  * @param sender sender of the FIND PEER request
1701  * @param key peers close to this key are desired
1702  * @param bf peers matching this bf are excluded
1703  * @param bf_mutator mutator for bf
1704  */
1705 static void
1706 handle_find_peer (const struct GNUNET_PeerIdentity *sender,
1707                   const struct GNUNET_HashCode * key,
1708                   struct GNUNET_CONTAINER_BloomFilter *bf, uint32_t bf_mutator)
1709 {
1710   int bucket_idx;
1711   struct PeerBucket *bucket;
1712   struct PeerInfo *peer;
1713   unsigned int choice;
1714   struct GNUNET_HashCode mhash;
1715   const struct GNUNET_HELLO_Message *hello;
1716
1717   /* first, check about our own HELLO */
1718   if (NULL != GDS_my_hello)
1719   {
1720     GNUNET_BLOCK_mingle_hash (&my_identity.hashPubKey, bf_mutator, &mhash);
1721     if ((NULL == bf) ||
1722         (GNUNET_YES != GNUNET_CONTAINER_bloomfilter_test (bf, &mhash)))
1723     {
1724       GDS_NEIGHBOURS_handle_reply (sender, GNUNET_BLOCK_TYPE_DHT_HELLO,
1725                                    GNUNET_TIME_relative_to_absolute
1726                                    (hello_expiration),
1727                                    key, 0, NULL, 0, NULL, GDS_my_hello,
1728                                    GNUNET_HELLO_size ((const struct
1729                                                        GNUNET_HELLO_Message *)
1730                                                       GDS_my_hello));
1731     }
1732     else
1733     {
1734       GNUNET_STATISTICS_update (GDS_stats,
1735                                 gettext_noop
1736                                 ("# FIND PEER requests ignored due to Bloomfilter"),
1737                                 1, GNUNET_NO);
1738     }
1739   }
1740   else
1741   {
1742     GNUNET_STATISTICS_update (GDS_stats,
1743                               gettext_noop
1744                               ("# FIND PEER requests ignored due to lack of HELLO"),
1745                               1, GNUNET_NO);
1746   }
1747
1748   /* then, also consider sending a random HELLO from the closest bucket */
1749   if (0 == memcmp (&my_identity.hashPubKey, key, sizeof (struct GNUNET_HashCode)))
1750     bucket_idx = closest_bucket;
1751   else
1752     bucket_idx = GNUNET_MIN (closest_bucket, find_bucket (key));
1753   if (bucket_idx == GNUNET_SYSERR)
1754     return;
1755   bucket = &k_buckets[bucket_idx];
1756   if (bucket->peers_size == 0)
1757     return;
1758   choice =
1759       GNUNET_CRYPTO_random_u32 (GNUNET_CRYPTO_QUALITY_WEAK, bucket->peers_size);
1760   peer = bucket->head;
1761   while (choice > 0)
1762   {
1763     GNUNET_assert (peer != NULL);
1764     peer = peer->next;
1765     choice--;
1766   }
1767   choice = bucket->peers_size;
1768   do
1769   {
1770     peer = peer->next;
1771     if (choice-- == 0)
1772       return;                   /* no non-masked peer available */
1773     if (peer == NULL)
1774       peer = bucket->head;
1775     GNUNET_BLOCK_mingle_hash (&peer->id.hashPubKey, bf_mutator, &mhash);
1776     hello = GDS_HELLO_get (&peer->id);
1777   }
1778   while ((hello == NULL) ||
1779          (GNUNET_YES == GNUNET_CONTAINER_bloomfilter_test (bf, &mhash)));
1780   GDS_NEIGHBOURS_handle_reply (sender, GNUNET_BLOCK_TYPE_DHT_HELLO,
1781                                GNUNET_TIME_relative_to_absolute
1782                                (GNUNET_CONSTANTS_HELLO_ADDRESS_EXPIRATION), key,
1783                                0, NULL, 0, NULL, hello,
1784                                GNUNET_HELLO_size (hello));
1785 }
1786
1787
1788 /**
1789  * Core handler for p2p get requests.
1790  *
1791  * @param cls closure
1792  * @param peer sender of the request
1793  * @param message message
1794  * @return GNUNET_OK to keep the connection open,
1795  *         GNUNET_SYSERR to close it (signal serious error)
1796  */
1797 static int
1798 handle_dht_p2p_get (void *cls, const struct GNUNET_PeerIdentity *peer,
1799                     const struct GNUNET_MessageHeader *message)
1800 {
1801   struct PeerGetMessage *get;
1802   uint32_t xquery_size;
1803   size_t reply_bf_size;
1804   uint16_t msize;
1805   enum GNUNET_BLOCK_Type type;
1806   enum GNUNET_DHT_RouteOption options;
1807   enum GNUNET_BLOCK_EvaluationResult eval;
1808   struct GNUNET_CONTAINER_BloomFilter *reply_bf;
1809   struct GNUNET_CONTAINER_BloomFilter *peer_bf;
1810   const char *xquery;
1811
1812   GNUNET_break (0 !=
1813                 memcmp (peer, &my_identity,
1814                         sizeof (struct GNUNET_PeerIdentity)));
1815   /* parse and validate message */
1816   msize = ntohs (message->size);
1817   if (msize < sizeof (struct PeerGetMessage))
1818   {
1819     GNUNET_break_op (0);
1820     return GNUNET_YES;
1821   }
1822   get = (struct PeerGetMessage *) message;
1823   xquery_size = ntohl (get->xquery_size);
1824   if (msize < sizeof (struct PeerGetMessage) + xquery_size)
1825   {
1826     GNUNET_break_op (0);
1827     return GNUNET_YES;
1828   }
1829   reply_bf_size = msize - (sizeof (struct PeerGetMessage) + xquery_size);
1830   type = ntohl (get->type);
1831   options = ntohl (get->options);
1832   xquery = (const char *) &get[1];
1833   reply_bf = NULL;
1834   GNUNET_STATISTICS_update (GDS_stats,
1835                             gettext_noop ("# P2P GET requests received"), 1,
1836                             GNUNET_NO);
1837   GNUNET_STATISTICS_update (GDS_stats,
1838                             gettext_noop ("# P2P GET bytes received"), msize,
1839                             GNUNET_NO);
1840   if (GNUNET_YES == log_route_details_stderr)
1841   {
1842     char *tmp;
1843
1844     tmp = GNUNET_strdup (GNUNET_i2s (&my_identity));
1845     LOG_TRAFFIC (GNUNET_ERROR_TYPE_DEBUG,
1846                  "XDHT GET %s: %s->%s (%u, %u=>%u) xq: %.*s\n",
1847                  GNUNET_h2s (&get->key), GNUNET_i2s (peer), tmp,
1848                  ntohl(get->hop_count),
1849                  GNUNET_CRYPTO_hash_matching_bits (&peer->hashPubKey, &get->key),
1850                  GNUNET_CRYPTO_hash_matching_bits (&my_identity.hashPubKey, &get->key),
1851                  ntohl(get->xquery_size), xquery
1852                 );
1853     GNUNET_free (tmp);
1854   }
1855
1856   if (reply_bf_size > 0)
1857     reply_bf =
1858         GNUNET_CONTAINER_bloomfilter_init (&xquery[xquery_size], reply_bf_size,
1859                                            GNUNET_CONSTANTS_BLOOMFILTER_K);
1860   eval =
1861       GNUNET_BLOCK_evaluate (GDS_block_context, type, &get->key, &reply_bf,
1862                              get->bf_mutator, xquery, xquery_size, NULL, 0);
1863   if (eval != GNUNET_BLOCK_EVALUATION_REQUEST_VALID)
1864   {
1865     /* request invalid or block type not supported */
1866     GNUNET_break_op (eval == GNUNET_BLOCK_EVALUATION_TYPE_NOT_SUPPORTED);
1867     if (NULL != reply_bf)
1868       GNUNET_CONTAINER_bloomfilter_free (reply_bf);
1869     return GNUNET_YES;
1870   }
1871   peer_bf =
1872       GNUNET_CONTAINER_bloomfilter_init (get->bloomfilter, DHT_BLOOM_SIZE,
1873                                          GNUNET_CONSTANTS_BLOOMFILTER_K);
1874   GNUNET_break_op (GNUNET_YES ==
1875                    GNUNET_CONTAINER_bloomfilter_test (peer_bf,
1876                                                       &peer->hashPubKey));
1877   /* remember request for routing replies */
1878   GDS_ROUTING_add (peer, type, options, &get->key, xquery, xquery_size,
1879                    reply_bf, get->bf_mutator);
1880   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, "GET for %s at %s after %u hops\n",
1881               GNUNET_h2s (&get->key), GNUNET_i2s (&my_identity),
1882               (unsigned int) ntohl (get->hop_count));
1883   /* local lookup (this may update the reply_bf) */
1884   if ((0 != (options & GNUNET_DHT_RO_DEMULTIPLEX_EVERYWHERE)) ||
1885       (am_closest_peer (&get->key, peer_bf)))
1886   {
1887     if ((0 != (options & GNUNET_DHT_RO_FIND_PEER)))
1888     {
1889       GNUNET_STATISTICS_update (GDS_stats,
1890                                 gettext_noop
1891                                 ("# P2P FIND PEER requests processed"), 1,
1892                                 GNUNET_NO);
1893       handle_find_peer (peer, &get->key, reply_bf, get->bf_mutator);
1894     }
1895     else
1896     {
1897       eval =
1898           GDS_DATACACHE_handle_get (&get->key, type, xquery, xquery_size,
1899                                     &reply_bf, get->bf_mutator);
1900     }
1901   }
1902   else
1903   {
1904     GNUNET_STATISTICS_update (GDS_stats,
1905                               gettext_noop ("# P2P GET requests ONLY routed"),
1906                               1, GNUNET_NO);
1907   }
1908
1909   GDS_CLIENTS_process_get (options,
1910                            type,
1911                            ntohl(get->hop_count),
1912                            ntohl(get->desired_replication_level),
1913                            0, NULL,
1914                            &get->key);
1915
1916   /* P2P forwarding */
1917   if (eval != GNUNET_BLOCK_EVALUATION_OK_LAST)
1918     GDS_NEIGHBOURS_handle_get (type, options,
1919                                ntohl (get->desired_replication_level),
1920                                ntohl (get->hop_count), &get->key, xquery,
1921                                xquery_size, reply_bf, get->bf_mutator, peer_bf);
1922   /* clean up */
1923   if (NULL != reply_bf)
1924     GNUNET_CONTAINER_bloomfilter_free (reply_bf);
1925   GNUNET_CONTAINER_bloomfilter_free (peer_bf);
1926   return GNUNET_YES;
1927 }
1928
1929
1930 /**
1931  * Core handler for p2p result messages.
1932  *
1933  * @param cls closure
1934  * @param message message
1935  * @param peer peer identity this notification is about
1936  * @return GNUNET_YES (do not cut p2p connection)
1937  */
1938 static int
1939 handle_dht_p2p_result (void *cls, const struct GNUNET_PeerIdentity *peer,
1940                        const struct GNUNET_MessageHeader *message)
1941 {
1942   const struct PeerResultMessage *prm;
1943   const struct GNUNET_PeerIdentity *put_path;
1944   const struct GNUNET_PeerIdentity *get_path;
1945   const void *data;
1946   uint32_t get_path_length;
1947   uint32_t put_path_length;
1948   uint16_t msize;
1949   size_t data_size;
1950   enum GNUNET_BLOCK_Type type;
1951
1952   /* parse and validate message */
1953   msize = ntohs (message->size);
1954   if (msize < sizeof (struct PeerResultMessage))
1955   {
1956     GNUNET_break_op (0);
1957     return GNUNET_YES;
1958   }
1959   prm = (struct PeerResultMessage *) message;
1960   put_path_length = ntohl (prm->put_path_length);
1961   get_path_length = ntohl (prm->get_path_length);
1962   if ((msize <
1963        sizeof (struct PeerResultMessage) + (get_path_length +
1964                                             put_path_length) *
1965        sizeof (struct GNUNET_PeerIdentity)) ||
1966       (get_path_length >
1967        GNUNET_SERVER_MAX_MESSAGE_SIZE / sizeof (struct GNUNET_PeerIdentity)) ||
1968       (put_path_length >
1969        GNUNET_SERVER_MAX_MESSAGE_SIZE / sizeof (struct GNUNET_PeerIdentity)))
1970   {
1971     GNUNET_break_op (0);
1972     return GNUNET_YES;
1973   }
1974   put_path = (const struct GNUNET_PeerIdentity *) &prm[1];
1975   get_path = &put_path[put_path_length];
1976   type = ntohl (prm->type);
1977   data = (const void *) &get_path[get_path_length];
1978   data_size =
1979       msize - (sizeof (struct PeerResultMessage) +
1980                (get_path_length +
1981                 put_path_length) * sizeof (struct GNUNET_PeerIdentity));
1982   GNUNET_STATISTICS_update (GDS_stats, gettext_noop ("# P2P RESULTS received"),
1983                             1, GNUNET_NO);
1984   GNUNET_STATISTICS_update (GDS_stats,
1985                             gettext_noop ("# P2P RESULT bytes received"),
1986                             msize, GNUNET_NO);
1987   if (GNUNET_YES == log_route_details_stderr)
1988   {
1989     char *tmp;
1990
1991     tmp = GNUNET_strdup (GNUNET_i2s (&my_identity));
1992     LOG_TRAFFIC (GNUNET_ERROR_TYPE_DEBUG, "XDHT RESULT %s: %s->%s (%u)\n",
1993                  GNUNET_h2s (&prm->key), GNUNET_i2s (peer), tmp,
1994                  get_path_length + 1);
1995     GNUNET_free (tmp);
1996   }
1997   /* if we got a HELLO, consider it for our own routing table */
1998   if (type == GNUNET_BLOCK_TYPE_DHT_HELLO)
1999   {
2000     const struct GNUNET_MessageHeader *h;
2001     struct GNUNET_PeerIdentity pid;
2002     int bucket;
2003
2004     /* Should be a HELLO, validate and consider using it! */
2005     if (data_size < sizeof (struct GNUNET_MessageHeader))
2006     {
2007       GNUNET_break_op (0);
2008       return GNUNET_YES;
2009     }
2010     h = data;
2011     if (data_size != ntohs (h->size))
2012     {
2013       GNUNET_break_op (0);
2014       return GNUNET_YES;
2015     }
2016     if (GNUNET_OK !=
2017         GNUNET_HELLO_get_id ((const struct GNUNET_HELLO_Message *) h, &pid))
2018     {
2019       GNUNET_break_op (0);
2020       return GNUNET_YES;
2021     }
2022     if ((GNUNET_YES != disable_try_connect) &&
2023         0 != memcmp (&my_identity, &pid, sizeof (struct GNUNET_PeerIdentity)))
2024     {
2025       bucket = find_bucket (&pid.hashPubKey);
2026       if ((bucket >= 0) &&
2027           (k_buckets[bucket].peers_size < bucket_size) &&
2028           (NULL != GDS_transport_handle))
2029       {
2030         GNUNET_TRANSPORT_offer_hello (GDS_transport_handle, h, NULL, NULL);
2031         GNUNET_TRANSPORT_try_connect (GDS_transport_handle, &pid, NULL, NULL); /*FIXME TRY_CONNECT change */
2032       }
2033     }
2034   }
2035
2036   /* append 'peer' to 'get_path' */
2037   {
2038     struct GNUNET_PeerIdentity xget_path[get_path_length + 1];
2039
2040     memcpy (xget_path, get_path,
2041             get_path_length * sizeof (struct GNUNET_PeerIdentity));
2042     xget_path[get_path_length] = *peer;
2043     get_path_length++;
2044
2045     /* forward to local clients */
2046     GDS_CLIENTS_handle_reply (GNUNET_TIME_absolute_ntoh (prm->expiration_time),
2047                               &prm->key, get_path_length, xget_path,
2048                               put_path_length, put_path, type, data_size, data);
2049     GDS_CLIENTS_process_get_resp (type,
2050                                   xget_path, get_path_length,
2051                                   put_path, put_path_length,
2052                                   GNUNET_TIME_absolute_ntoh (
2053                                     prm->expiration_time),
2054                                   &prm->key,
2055                                   data,
2056                                   data_size);
2057
2058     /* forward to other peers */
2059     GDS_ROUTING_process (type, GNUNET_TIME_absolute_ntoh (prm->expiration_time),
2060                          &prm->key, put_path_length, put_path, get_path_length,
2061                          xget_path, data, data_size);
2062   }
2063
2064   return GNUNET_YES;
2065 }
2066
2067
2068 /**
2069  * Initialize neighbours subsystem.
2070  *
2071  * @return GNUNET_OK on success, GNUNET_SYSERR on error
2072  */
2073 int
2074 GDS_NEIGHBOURS_init ()
2075 {
2076   static struct GNUNET_CORE_MessageHandler core_handlers[] = {
2077     {&handle_dht_p2p_get, GNUNET_MESSAGE_TYPE_DHT_P2P_GET, 0},
2078     {&handle_dht_p2p_put, GNUNET_MESSAGE_TYPE_DHT_P2P_PUT, 0},
2079     {&handle_dht_p2p_result, GNUNET_MESSAGE_TYPE_DHT_P2P_RESULT, 0},
2080     {NULL, 0, 0}
2081   };
2082   unsigned long long temp_config_num;
2083
2084   disable_try_connect
2085     = GNUNET_CONFIGURATION_get_value_yesno (GDS_cfg, "DHT", "DISABLE_TRY_CONNECT");
2086   if (GNUNET_OK ==
2087       GNUNET_CONFIGURATION_get_value_number (GDS_cfg, "DHT", "bucket_size",
2088                                              &temp_config_num))
2089     bucket_size = (unsigned int) temp_config_num;
2090   log_route_details_stderr =
2091     (NULL != getenv("GNUNET_DHT_ROUTE_DEBUG")) ? GNUNET_YES : GNUNET_NO;
2092   atsAPI = GNUNET_ATS_performance_init (GDS_cfg, NULL, NULL);
2093   coreAPI =
2094       GNUNET_CORE_connect (GDS_cfg, NULL, &core_init, &handle_core_connect,
2095                            &handle_core_disconnect, NULL, GNUNET_NO, NULL,
2096                            GNUNET_NO, core_handlers);
2097   if (coreAPI == NULL)
2098     return GNUNET_SYSERR;
2099   all_known_peers = GNUNET_CONTAINER_multihashmap_create (256, GNUNET_NO);
2100   return GNUNET_OK;
2101 }
2102
2103
2104 /**
2105  * Shutdown neighbours subsystem.
2106  */
2107 void
2108 GDS_NEIGHBOURS_done ()
2109 {
2110   if (coreAPI == NULL)
2111     return;
2112   GNUNET_CORE_disconnect (coreAPI);
2113   coreAPI = NULL;
2114   GNUNET_ATS_performance_done (atsAPI);
2115   atsAPI = NULL;
2116   GNUNET_assert (0 == GNUNET_CONTAINER_multihashmap_size (all_known_peers));
2117   GNUNET_CONTAINER_multihashmap_destroy (all_known_peers);
2118   all_known_peers = NULL;
2119   if (GNUNET_SCHEDULER_NO_TASK != find_peer_task)
2120   {
2121     GNUNET_SCHEDULER_cancel (find_peer_task);
2122     find_peer_task = GNUNET_SCHEDULER_NO_TASK;
2123   }
2124 }
2125
2126 /**
2127  * Get the ID of the local node.
2128  *
2129  * @return identity of the local node
2130  */
2131 struct GNUNET_PeerIdentity *
2132 GDS_NEIGHBOURS_get_id ()
2133 {
2134     return &my_identity;
2135 }
2136
2137
2138 /* end of gnunet-service-dht_neighbours.c */