src/mesh/gnunet-service-mesh_tunnel.c

   1 /*
   2      This file is part of GNUnet.
   3      (C) 2013 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 #include "platform.h"
  22 #include "gnunet_util_lib.h"
  23
  24 #include "gnunet_signatures.h"
  25 #include "gnunet_statistics_service.h"
  26
  27 #include "mesh_protocol_enc.h"
  28 #include "mesh_path.h"
  29
  30 #include "gnunet-service-mesh_tunnel.h"
  31 #include "gnunet-service-mesh_connection.h"
  32 #include "gnunet-service-mesh_channel.h"
  33 #include "gnunet-service-mesh_peer.h"
  34
  35 #define LOG(level, ...) GNUNET_log_from(level,"mesh-tun",__VA_ARGS__)
  36
  37 #define REKEY_WAIT GNUNET_TIME_relative_multiply(GNUNET_TIME_UNIT_SECONDS, 30)
  38
  39 /******************************************************************************/
  40 /********************************   STRUCTS  **********************************/
  41 /******************************************************************************/
  42
  43 struct MeshTChannel
  44 {
  45   struct MeshTChannel *next;
  46   struct MeshTChannel *prev;
  47   struct MeshChannel *ch;
  48 };
  49
  50 struct MeshTConnection
  51 {
  52   struct MeshTConnection *next;
  53   struct MeshTConnection *prev;
  54   struct MeshConnection *c;
  55 };
  56
  57 /**
  58  * Structure used during a Key eXchange.
  59  */
  60 struct MeshTunnelKXCtx
  61 {
  62   /**
  63    * Decryption ("their") old key, for decrypting traffic sent by the
  64    * other end before the key exchange started.
  65    */
  66   struct GNUNET_CRYPTO_SymmetricSessionKey d_key_old;
  67
  68   /**
  69    * Challenge to send in a ping and expect in the pong.
  70    */
  71   uint32_t challenge;
  72 };
  73
  74 /**
  75  * Struct containing all information regarding a tunnel to a peer.
  76  */
  77 struct MeshTunnel3
  78 {
  79     /**
  80      * Endpoint of the tunnel.
  81      */
  82   struct MeshPeer *peer;
  83
  84     /**
  85      * State of the tunnel.
  86      */
  87   enum MeshTunnel3State state;
  88
  89   /**
  90    * Key eXchange context.
  91    */
  92   struct MeshTunnelKXCtx *kx_ctx;
  93
  94   /**
  95    * Encryption ("our") key.
  96    */
  97   struct GNUNET_CRYPTO_SymmetricSessionKey e_key;
  98
  99   /**
 100    * Decryption ("their") key.
 101    */
 102   struct GNUNET_CRYPTO_SymmetricSessionKey d_key;
 103
 104   /**
 105    * Task to start the rekey process.
 106    */
 107   GNUNET_SCHEDULER_TaskIdentifier rekey_task;
 108
 109   /**
 110    * Paths that are actively used to reach the destination peer.
 111    */
 112   struct MeshTConnection *connection_head;
 113   struct MeshTConnection *connection_tail;
 114
 115   /**
 116    * Next connection number.
 117    */
 118   uint32_t next_cid;
 119
 120   /**
 121    * Channels inside this tunnel.
 122    */
 123   struct MeshTChannel *channel_head;
 124   struct MeshTChannel *channel_tail;
 125
 126   /**
 127    * Channel ID for the next created channel.
 128    */
 129   MESH_ChannelNumber next_chid;
 130
 131   /**
 132    * Destroy flag: if true, destroy on last message.
 133    */
 134   int destroy;
 135
 136   /**
 137    * Queued messages, to transmit once tunnel gets connected.
 138    */
 139   struct MeshTunnelQueue *tq_head;
 140   struct MeshTunnelQueue *tq_tail;
 141 };
 142
 143
 144 /**
 145  * Struct used to queue messages in a tunnel.
 146  */
 147 struct MeshTunnelQueue
 148 {
 149   /**
 150    * DLL
 151    */
 152   struct MeshTunnelQueue *next;
 153   struct MeshTunnelQueue *prev;
 154
 155   /**
 156    * Channel.
 157    */
 158   struct MeshChannel *ch;
 159
 160   /**
 161    * Message to send.
 162    */
 163   /* struct GNUNET_MessageHeader *msg; */
 164 };
 165
 166
 167 /******************************************************************************/
 168 /*******************************   GLOBALS  ***********************************/
 169 /******************************************************************************/
 170
 171 /**
 172  * Global handle to the statistics service.
 173  */
 174 extern struct GNUNET_STATISTICS_Handle *stats;
 175
 176 /**
 177  * Local peer own ID (memory efficient handle).
 178  */
 179 extern GNUNET_PEER_Id myid;
 180
 181 /**
 182  * Local peer own ID (full value).
 183  */
 184 extern struct GNUNET_PeerIdentity my_full_id;
 185
 186
 187 /**
 188  * Set of all tunnels, in order to trigger a new exchange on rekey.
 189  * Indexed by peer's ID.
 190  */
 191 static struct GNUNET_CONTAINER_MultiPeerMap *tunnels;
 192
 193 /**
 194  * Default TTL for payload packets.
 195  */
 196 static unsigned long long default_ttl;
 197
 198 /**
 199  * Own private key.
 200  */
 201 const static struct GNUNET_CRYPTO_EddsaPrivateKey *my_private_key;
 202
 203 /**
 204  * Own ephemeral private key.
 205  */
 206 static struct GNUNET_CRYPTO_EcdhePrivateKey *my_ephemeral_key;
 207
 208 /**
 209  * Cached message used to perform a key exchange.
 210  */
 211 static struct GNUNET_MESH_KX_Ephemeral kx_msg;
 212
 213 /**
 214  * Task to generate a new ephemeral key.
 215  */
 216 static GNUNET_SCHEDULER_TaskIdentifier rekey_task;
 217
 218 /**
 219  * Rekey period.
 220  */
 221 static struct GNUNET_TIME_Relative rekey_period;
 222
 223 /******************************************************************************/
 224 /********************************   STATIC  ***********************************/
 225 /******************************************************************************/
 226
 227 /**
 228  * Get string description for tunnel state.
 229  *
 230  * @param s Tunnel state.
 231  *
 232  * @return String representation.
 233  */
 234 static const char *
 235 GMT_state2s (enum MeshTunnel3State s)
 236 {
 237   static char buf[128];
 238
 239   switch (s)
 240   {
 241     case MESH_TUNNEL3_NEW:
 242       return "MESH_TUNNEL3_NEW";
 243     case MESH_TUNNEL3_SEARCHING:
 244       return "MESH_TUNNEL3_SEARCHING";
 245     case MESH_TUNNEL3_WAITING:
 246       return "MESH_TUNNEL3_WAITING";
 247     case MESH_TUNNEL3_READY:
 248       return "MESH_TUNNEL3_READY";
 249     case MESH_TUNNEL3_RECONNECTING:
 250       return "MESH_TUNNEL3_RECONNECTING";
 251
 252     default:
 253       sprintf (buf, "%u (UNKNOWN STATE)", s);
 254       return buf;
 255   }
 256 }
 257
 258
 259
 260 /**
 261  * Encrypt data with the tunnel key.
 262  *
 263  * @param t Tunnel whose key to use.
 264  * @param dst Destination for the encrypted data.
 265  * @param src Source of the plaintext.
 266  * @param size Size of the plaintext.
 267  * @param iv Initialization Vector to use.
 268  */
 269 static int
 270 t_encrypt (struct MeshTunnel3 *t,
 271            void *dst, const void *src,
 272            size_t size, uint64_t iv)
 273 {
 274   struct GNUNET_CRYPTO_SymmetricInitializationVector siv;
 275
 276   GNUNET_CRYPTO_symmetric_derive_iv (&siv, &t->e_key, &iv, sizeof (uint64_t), NULL);
 277   return GNUNET_CRYPTO_symmetric_encrypt (src, size, &t->e_key, &siv, dst);
 278 }
 279
 280
 281 /**
 282  * Decrypt data with the tunnel key.
 283  *
 284  * @param t Tunnel whose key to use.
 285  * @param dst Destination for the plaintext.
 286  * @param src Source of the encrypted data.
 287  * @param size Size of the encrypted data.
 288  * @param iv Initialization Vector to use.
 289  */
 290 static int
 291 t_decrypt (struct MeshTunnel3 *t,
 292            void *dst, const void *src,
 293            size_t size, uint64_t iv)
 294 {
 295   struct GNUNET_CRYPTO_SymmetricInitializationVector siv;
 296
 297   GNUNET_CRYPTO_symmetric_derive_iv (&siv, &t->e_key, &iv, sizeof (uint64_t), NULL);
 298   return GNUNET_CRYPTO_symmetric_decrypt (src, size, &t->d_key, &siv, dst);
 299 }
 300
 301 /**
 302  * Pick a connection on which send the next data message.
 303  *
 304  * @param t Tunnel on which to send the message.
 305  * @param fwd Is this a fwd message?
 306  *
 307  * @return The connection on which to send the next message.
 308  */
 309 static struct MeshConnection *
 310 tunnel_get_connection (struct MeshTunnel3 *t, int fwd)
 311 {
 312   struct MeshTConnection *iter;
 313   struct MeshConnection *best;
 314   unsigned int qn;
 315   unsigned int lowest_q;
 316
 317   LOG (GNUNET_ERROR_TYPE_DEBUG, "tunnel_get_connection %s\n", GMP_2s (t->peer));
 318   best = NULL;
 319   lowest_q = UINT_MAX;
 320   for (iter = t->connection_head; NULL != iter; iter = iter->next)
 321   {
 322     LOG (GNUNET_ERROR_TYPE_DEBUG, "  connection %s: %u\n",
 323          GNUNET_h2s (GMC_get_id (iter->c)), GMC_get_state (iter->c));
 324     if (MESH_CONNECTION_READY == GMC_get_state (iter->c))
 325     {
 326       qn = GMC_get_qn (iter->c, fwd);
 327       LOG (GNUNET_ERROR_TYPE_DEBUG, "    q_n %u, \n", qn);
 328       if (qn < lowest_q)
 329       {
 330         best = iter->c;
 331         lowest_q = qn;
 332       }
 333     }
 334   }
 335   return best;
 336 }
 337
 338
 339 /**
 340  * Send the ephemeral key on a tunnel.
 341  *
 342  * @param t Tunnel on which to send the key.
 343  */
 344 static void
 345 send_ephemeral (struct MeshTunnel3 *t)
 346 {
 347   kx_msg.sender_status = htonl (t->state);
 348
 349   /* When channel is NULL, fwd is irrelevant. */
 350   GMT_send_prebuilt_message (&kx_msg.header, t, NULL, GNUNET_YES);
 351 }
 352
 353 /**
 354  * Send a ping message on a tunnel.
 355  *
 356  * @param t Tunnel on which to send the ping.
 357  */
 358 static void
 359 send_ping (struct MeshTunnel3 *t)
 360 {
 361   struct GNUNET_MESH_KX_Ping msg;
 362   size_t size;
 363
 364   msg.header.size = htons (sizeof (msg));
 365   msg.header.type = htons (GNUNET_MESSAGE_TYPE_MESH_KX_PING);
 366   msg.iv = GNUNET_CRYPTO_random_u32 (GNUNET_CRYPTO_QUALITY_NONCE, UINT_MAX);
 367   msg.target = *GMP_get_id (t->peer);
 368   msg.nonce = t->kx_ctx->challenge;
 369   size = sizeof (msg.target) + sizeof (msg.nonce);
 370   t_encrypt (t, &msg.target, &msg.target, size, msg.iv);
 371
 372   /* When channel is NULL, fwd is irrelevant. */
 373   GMT_send_prebuilt_message (&msg.header, t, NULL, GNUNET_YES);
 374 }
 375
 376
 377 /**
 378  * Send a pong message on a tunnel.
 379  *
 380  * @param t Tunnel on which to send the pong.
 381  * @param challenge Value sent in the ping that we have to send back.
 382  */
 383 static void
 384 send_pong (struct MeshTunnel3 *t, uint32_t challenge)
 385 {
 386   struct GNUNET_MESH_KX_Pong msg;
 387
 388   msg.header.size = htons (sizeof (msg));
 389   msg.header.type = htons (GNUNET_MESSAGE_TYPE_MESH_KX_PONG);
 390   msg.iv = GNUNET_CRYPTO_random_u32 (GNUNET_CRYPTO_QUALITY_NONCE, UINT_MAX);
 391   msg.nonce = htonl (challenge);
 392
 393   /* When channel is NULL, fwd is irrelevant. */
 394   GMT_send_prebuilt_message (&msg.header, t, NULL, GNUNET_YES);
 395 }
 396
 397
 398 /**
 399  * Initiate a rekey with the remote peer.
 400  *
 401  * @param cls Closure (tunnel).
 402  * @param tc TaskContext.
 403  */
 404 static void
 405 rekey_tunnel (void *cls, const struct GNUNET_SCHEDULER_TaskContext *tc)
 406 {
 407   struct MeshTunnel3 *t = cls;
 408
 409   t->rekey_task = GNUNET_SCHEDULER_NO_TASK;
 410
 411   if (0 != (GNUNET_SCHEDULER_REASON_SHUTDOWN & tc->reason))
 412     return;
 413
 414   t->kx_ctx = GNUNET_new (struct MeshTunnelKXCtx);
 415   t->kx_ctx->challenge = GNUNET_CRYPTO_random_u32 (GNUNET_CRYPTO_QUALITY_NONCE,
 416                                                    UINT32_MAX);
 417   t->kx_ctx->d_key_old = t->d_key;
 418   send_ephemeral (t);
 419   send_ping (t);
 420   t->rekey_task = GNUNET_SCHEDULER_add_delayed (REKEY_WAIT, &rekey_tunnel, t);
 421 }
 422
 423
 424 /**
 425  * Out ephemeral key has changed, create new session key on all tunnels.
 426  *
 427  * @param cls Closure (size of the hashmap).
 428  * @param key Current public key.
 429  * @param value Value in the hash map (tunnel).
 430  *
 431  * @return #GNUNET_YES, so we should continue to iterate,
 432  */
 433 static int
 434 rekey_iterator (void *cls,
 435                 const struct GNUNET_PeerIdentity *key,
 436                 void *value)
 437 {
 438   struct MeshTunnel3 *t = value;
 439   struct GNUNET_TIME_Relative delay;
 440   long n = (long) cls;
 441   uint32_t r;
 442
 443   r = GNUNET_CRYPTO_random_u32 (GNUNET_CRYPTO_QUALITY_WEAK, (uint32_t) n * 100);
 444   delay = GNUNET_TIME_relative_multiply (GNUNET_TIME_UNIT_MILLISECONDS, r);
 445   t->rekey_task = GNUNET_SCHEDULER_add_delayed (delay, &rekey_tunnel, t);
 446
 447   return GNUNET_YES;
 448 }
 449
 450
 451 /**
 452  * Create a new ephemeral key and key message, schedule next rekeying.
 453  *
 454  * @param cls Closure (unused).
 455  * @param tc TaskContext.
 456  */
 457 static void
 458 rekey (void *cls, const struct GNUNET_SCHEDULER_TaskContext *tc)
 459 {
 460   struct GNUNET_TIME_Absolute time;
 461   long n;
 462
 463   rekey_task = GNUNET_SCHEDULER_NO_TASK;
 464
 465   if (0 != (GNUNET_SCHEDULER_REASON_SHUTDOWN & tc->reason))
 466     return;
 467
 468   GNUNET_free_non_null (my_ephemeral_key);
 469   my_ephemeral_key = GNUNET_CRYPTO_ecdhe_key_create ();
 470
 471   time = GNUNET_TIME_absolute_get ();
 472   kx_msg.creation_time = GNUNET_TIME_absolute_hton (time);
 473   time = GNUNET_TIME_absolute_add (time, rekey_period);
 474   time = GNUNET_TIME_absolute_add (time, GNUNET_TIME_UNIT_MINUTES);
 475   kx_msg.expiration_time = GNUNET_TIME_absolute_hton (time);
 476   GNUNET_CRYPTO_ecdhe_key_get_public (my_ephemeral_key, &kx_msg.ephemeral_key);
 477
 478   GNUNET_assert (GNUNET_OK ==
 479                  GNUNET_CRYPTO_eddsa_sign (my_private_key,
 480                                            &kx_msg.purpose,
 481                                            &kx_msg.signature));
 482
 483   n = (long) GNUNET_CONTAINER_multipeermap_size (tunnels);
 484   GNUNET_CONTAINER_multipeermap_iterate (tunnels, &rekey_iterator, (void *) n);
 485
 486   rekey_task = GNUNET_SCHEDULER_add_delayed (rekey_period, &rekey, NULL);
 487 }
 488
 489
 490 /**
 491  * Demultiplex data per channel and call appropriate channel handler.
 492  *
 493  * @param t Tunnel on which the data came.
 494  * @param msg Data message.
 495  * @param fwd Is this FWD data? (root -> dest)
 496  */
 497 void
 498 handle_data (struct MeshTunnel3 *t,
 499              const struct GNUNET_MESH_Data *msg,
 500              int fwd)
 501 {
 502   struct MeshChannel *ch;
 503   uint16_t type;
 504   size_t size;
 505
 506   /* Check size */
 507   size = ntohs (msg->header.size);
 508   if (size <
 509       sizeof (struct GNUNET_MESH_Data) +
 510       sizeof (struct GNUNET_MessageHeader))
 511   {
 512     GNUNET_break (0);
 513     return;
 514   }
 515   type = ntohs (msg->header.type);
 516   LOG (GNUNET_ERROR_TYPE_DEBUG, "got a %s message\n",
 517               GNUNET_MESH_DEBUG_M2S (type));
 518   LOG (GNUNET_ERROR_TYPE_DEBUG, " payload of type %s\n",
 519               GNUNET_MESH_DEBUG_M2S (ntohs (msg[1].header.type)));
 520
 521   /* Check channel */
 522   ch = GMT_get_channel (t, ntohl (msg->chid));
 523   if (NULL == ch)
 524   {
 525     GNUNET_STATISTICS_update (stats, "# data on unknown channel",
 526                               1, GNUNET_NO);
 527     LOG (GNUNET_ERROR_TYPE_DEBUG, "WARNING channel %u unknown\n",
 528          ntohl (msg->chid));
 529     return;
 530   }
 531
 532   GMT_change_state (t, MESH_TUNNEL3_READY);
 533   GMCH_handle_data (ch, msg, fwd);
 534 }
 535
 536 void
 537 handle_data_ack (struct MeshTunnel3 *t,
 538                  const struct GNUNET_MESH_DataACK *msg,
 539                  int fwd)
 540 {
 541   struct MeshChannel *ch;
 542   size_t size;
 543
 544   /* Check size */
 545   size = ntohs (msg->header.size);
 546   if (size != sizeof (struct GNUNET_MESH_DataACK))
 547   {
 548     GNUNET_break (0);
 549     return;
 550   }
 551
 552   /* Check channel */
 553   ch = GMT_get_channel (t, ntohl (msg->chid));
 554   if (NULL == ch)
 555   {
 556     GNUNET_STATISTICS_update (stats, "# data ack on unknown channel",
 557                               1, GNUNET_NO);
 558     LOG (GNUNET_ERROR_TYPE_DEBUG, "WARNING channel %u unknown\n",
 559          ntohl (msg->chid));
 560     return;
 561   }
 562
 563   GMCH_handle_data_ack (ch, msg, fwd);
 564 }
 565
 566 void
 567 handle_ch_create (struct MeshTunnel3 *t,
 568                   const struct GNUNET_MESH_ChannelCreate *msg,
 569                   int fwd)
 570 {
 571   struct MeshChannel *ch;
 572   size_t size;
 573
 574   /* Check size */
 575   size = ntohs (msg->header.size);
 576   if (size != sizeof (struct GNUNET_MESH_ChannelCreate))
 577   {
 578     GNUNET_break (0);
 579     return;
 580   }
 581
 582   /* Check channel */
 583   ch = GMT_get_channel (t, ntohl (msg->chid));
 584   if (NULL != ch)
 585   {
 586     /* Probably a retransmission, safe to ignore */
 587     LOG (GNUNET_ERROR_TYPE_DEBUG, "   already exists...\n");
 588   }
 589   else
 590   {
 591     ch = GMCH_handle_create (t, msg, fwd);
 592   }
 593   GMT_add_channel (t, ch);
 594 }
 595
 596 void
 597 handle_ch_ack (struct MeshTunnel3 *t,
 598                const struct GNUNET_MESH_ChannelManage *msg,
 599                int fwd)
 600 {
 601   struct MeshChannel *ch;
 602   size_t size;
 603
 604   /* Check size */
 605   size = ntohs (msg->header.size);
 606   if (size != sizeof (struct GNUNET_MESH_ChannelManage))
 607   {
 608     GNUNET_break (0);
 609     return;
 610   }
 611
 612   /* Check channel */
 613   ch = GMT_get_channel (t, ntohl (msg->chid));
 614   if (NULL == ch)
 615   {
 616     GNUNET_STATISTICS_update (stats, "# channel ack on unknown channel",
 617                               1, GNUNET_NO);
 618     LOG (GNUNET_ERROR_TYPE_DEBUG, "WARNING channel %u unknown\n",
 619          ntohl (msg->chid));
 620     return;
 621   }
 622
 623   GMCH_handle_ack (ch, msg, fwd);
 624 }
 625
 626 void
 627 handle_ch_destroy (struct MeshTunnel3 *t,
 628                    const struct GNUNET_MESH_ChannelManage *msg,
 629                    int fwd)
 630 {
 631   struct MeshChannel *ch;
 632   size_t size;
 633
 634   /* Check size */
 635   size = ntohs (msg->header.size);
 636   if (size != sizeof (struct GNUNET_MESH_ChannelManage))
 637   {
 638     GNUNET_break (0);
 639     return;
 640   }
 641
 642   /* Check channel */
 643   ch = GMT_get_channel (t, ntohl (msg->chid));
 644   if (NULL == ch)
 645   {
 646     /* Probably a retransmission, safe to ignore */
 647     return;
 648   }
 649
 650   GMCH_handle_destroy (ch, msg, fwd);
 651 }
 652
 653
 654 /**
 655  * The peer's ephemeral key has changed: update the symmetrical keys.
 656  *
 657  * @param t Tunnel this message came on.
 658  * @param msg Key eXchange message.
 659  */
 660 static void
 661 handle_kx (struct MeshTunnel3 *t,
 662                const struct GNUNET_MESH_KX *msg)
 663 {
 664
 665 }
 666
 667
 668 /**
 669  * Peer wants to check our symmetrical keys by sending an encrypted challenge.
 670  * Answer with by retransmitting the challenge with the "opposite" key.
 671  *
 672  * @param t Tunnel this message came on.
 673  * @param msg Key eXchange Ping message.
 674  */
 675 static void
 676 handle_ping (struct MeshTunnel3 *t,
 677                  const struct GNUNET_MESH_KX_Ping *msg)
 678 {
 679   uint32_t challenge;
 680
 681   challenge = ntohl (msg->nonce);
 682   send_pong (t, challenge);
 683 }
 684
 685
 686 /**
 687  * Peer has answer to our challenge.
 688  * If answer is successful, consider the key exchange finished and clean
 689  * up all related state.
 690  *
 691  * @param t Tunnel this message came on.
 692  * @param msg Key eXchange Pong message.
 693  */
 694 static void
 695 handle_pong (struct MeshTunnel3 *t,
 696                  const struct GNUNET_MESH_KX_Pong *msg)
 697 {
 698   if (GNUNET_SCHEDULER_NO_TASK != t->rekey_task)
 699   {
 700     GNUNET_SCHEDULER_cancel (t->rekey_task);
 701     t->rekey_task = GNUNET_SCHEDULER_NO_TASK;
 702 //     t->e_key_old = 0;
 703 //     t->d_key_old = 0;
 704   }
 705   else
 706   {
 707     GNUNET_break (0);
 708   }
 709 }
 710
 711
 712 /**
 713  * Demultiplex by message type and call appropriate handler for a message
 714  * towards a channel of a local tunnel.
 715  *
 716  * @param t Tunnel this message came on.
 717  * @param msgh Message header.
 718  * @param fwd Is this message fwd?
 719  */
 720 static void
 721 handle_decrypted (struct MeshTunnel3 *t,
 722                   const struct GNUNET_MessageHeader *msgh,
 723                   int fwd)
 724 {
 725   uint16_t type;
 726
 727   type = ntohs (msgh->type);
 728   LOG (GNUNET_ERROR_TYPE_DEBUG,
 729        "Got a %s message!\n",
 730        GNUNET_MESH_DEBUG_M2S (type));
 731
 732   switch (type)
 733   {
 734     case GNUNET_MESSAGE_TYPE_MESH_DATA:
 735       /* Don't send hop ACK, wait for client to ACK */
 736       handle_data (t, (struct GNUNET_MESH_Data *) msgh, fwd);
 737       break;
 738
 739     case GNUNET_MESSAGE_TYPE_MESH_DATA_ACK:
 740       handle_data_ack (t, (struct GNUNET_MESH_DataACK *) msgh, fwd);
 741       break;
 742
 743     case GNUNET_MESSAGE_TYPE_MESH_CHANNEL_CREATE:
 744       handle_ch_create (t,
 745                         (struct GNUNET_MESH_ChannelCreate *) msgh,
 746                         fwd);
 747       break;
 748
 749     case GNUNET_MESSAGE_TYPE_MESH_CHANNEL_ACK:
 750       handle_ch_ack (t,
 751                      (struct GNUNET_MESH_ChannelManage *) msgh,
 752                      fwd);
 753       break;
 754
 755     case GNUNET_MESSAGE_TYPE_MESH_CHANNEL_DESTROY:
 756       handle_ch_destroy (t,
 757                          (struct GNUNET_MESH_ChannelManage *) msgh,
 758                          fwd);
 759       break;
 760
 761     default:
 762       GNUNET_break_op (0);
 763       LOG (GNUNET_ERROR_TYPE_DEBUG,
 764            "end-to-end message not known (%u)\n",
 765            ntohs (msgh->type));
 766   }
 767 }
 768
 769 /******************************************************************************/
 770 /********************************    API    ***********************************/
 771 /******************************************************************************/
 772
 773 /**
 774  * Decrypt and demultiplex by message type. Call appropriate handler
 775  * for every message.
 776  *
 777  * @param t Tunnel this message came on.
 778  * @param msg Encrypted message.
 779  * @param fwd Is this message fwd?
 780  */
 781 void
 782 GMT_handle_encrypted (struct MeshTunnel3 *t,
 783                       const struct GNUNET_MESH_Encrypted *msg,
 784                       int fwd)
 785 {
 786   size_t size = ntohs (msg->header.size);
 787   size_t payload_size = size - sizeof (struct GNUNET_MESH_Encrypted);
 788   size_t decrypted_size;
 789   char cbuf [payload_size];
 790   struct GNUNET_MessageHeader *msgh;
 791   unsigned int off;
 792
 793   decrypted_size = t_decrypt (t, cbuf, &msg[1], payload_size, msg->iv);
 794   off = 0;
 795   while (off < decrypted_size)
 796   {
 797     msgh = (struct GNUNET_MessageHeader *) &cbuf[off];
 798     handle_decrypted (t, msgh, fwd);
 799     off += ntohs (msgh->size);
 800   }
 801 }
 802
 803
 804 /**
 805  * Demultiplex an encapsulated KX message by message type.
 806  *
 807  * @param t Tunnel on which the message came.
 808  * @param message KX message itself.
 809  */
 810 void
 811 GMT_handle_kx (struct MeshTunnel3 *t,
 812                const struct GNUNET_MessageHeader *message)
 813 {
 814   uint16_t type;
 815
 816   type = ntohs (message->type);
 817   switch (type)
 818   {
 819     case GNUNET_MESSAGE_TYPE_MESH_KX:
 820       handle_kx (t, (struct GNUNET_MESH_KX *) message);
 821       break;
 822
 823     case GNUNET_MESSAGE_TYPE_MESH_KX_PING:
 824       handle_ping (t, (struct GNUNET_MESH_KX_Ping *) message);
 825       break;
 826
 827     case GNUNET_MESSAGE_TYPE_MESH_KX_PONG:
 828       handle_pong (t, (struct GNUNET_MESH_KX_Pong *) message);
 829       break;
 830
 831     default:
 832       GNUNET_break_op (0);
 833       LOG (GNUNET_ERROR_TYPE_DEBUG, "kx message not known (%u)\n", type);
 834   }
 835 }
 836
 837
 838
 839 /**
 840  * Cache a message to be sent once tunnel is online.
 841  *
 842  * @param t Tunnel to hold the message.
 843  * @param ch Channel the message is about.
 844  * @param msg Message itself (copy will be made).
 845  * @param fwd Is this fwd?
 846  */
 847 void
 848 GMT_queue_data (struct MeshTunnel3 *t,
 849                 struct MeshChannel *ch,
 850                 struct GNUNET_MessageHeader *msg,
 851                 int fwd)
 852 {
 853   struct MeshTunnelQueue *tq;
 854   uint16_t size = ntohs (msg->size);
 855
 856   tq = GNUNET_malloc (sizeof (struct MeshTunnelQueue) + size);
 857
 858   tq->ch = ch;
 859   memcpy (&tq[1], msg, size);
 860   GNUNET_CONTAINER_DLL_insert_tail (t->tq_head, t->tq_tail, tq);
 861
 862   if (MESH_TUNNEL3_READY == t->state)
 863     GMT_send_queued_data (t, fwd);
 864 }
 865
 866
 867 /**
 868  * Send all cached messages that we can, tunnel is online.
 869  *
 870  * @param t Tunnel that holds the messages.
 871  * @param fwd Is this fwd?
 872  */
 873 void
 874 GMT_send_queued_data (struct MeshTunnel3 *t, int fwd)
 875 {
 876   struct MeshTunnelQueue *tq;
 877   struct MeshTunnelQueue *next;
 878   unsigned int room;
 879
 880   LOG (GNUNET_ERROR_TYPE_DEBUG,
 881               "GMT_send_queued_data on tunnel %s\n",
 882               GMT_2s (t));
 883   room = GMT_get_buffer (t, fwd);
 884   LOG (GNUNET_ERROR_TYPE_DEBUG, "  buffer space: %u\n", room);
 885   for (tq = t->tq_head; NULL != tq && room > 0; tq = next)
 886   {
 887     LOG (GNUNET_ERROR_TYPE_DEBUG, " data on channel %s\n", GMCH_2s (tq->ch));
 888     next = tq->next;
 889     room--;
 890     GNUNET_CONTAINER_DLL_remove (t->tq_head, t->tq_tail, tq);
 891     GMCH_send_prebuilt_message ((struct GNUNET_MessageHeader *) &tq[1],
 892                                 tq->ch, fwd);
 893
 894     GNUNET_free (tq);
 895   }
 896   LOG (GNUNET_ERROR_TYPE_DEBUG,
 897        "GMT_send_queued_data end\n",
 898        GMP_2s (t->peer));
 899 }
 900
 901
 902 /**
 903  * Initialize the tunnel subsystem.
 904  *
 905  * @param c Configuration handle.
 906  * @param key ECC private key, to derive all other keys and do crypto.
 907  */
 908 void
 909 GMT_init (const struct GNUNET_CONFIGURATION_Handle *c,
 910           const struct GNUNET_CRYPTO_EddsaPrivateKey *key)
 911 {
 912   LOG (GNUNET_ERROR_TYPE_DEBUG, "init\n");
 913   if (GNUNET_OK !=
 914       GNUNET_CONFIGURATION_get_value_number (c, "MESH", "DEFAULT_TTL",
 915                                              &default_ttl))
 916   {
 917     GNUNET_log_config_invalid (GNUNET_ERROR_TYPE_WARNING,
 918                                "MESH", "DEFAULT_TTL", "USING DEFAULT");
 919     default_ttl = 64;
 920   }
 921   if (GNUNET_OK !=
 922       GNUNET_CONFIGURATION_get_value_time (c, "MESH", "REKEY_PERIOD",
 923                                            &rekey_period))
 924   {
 925     rekey_period = GNUNET_TIME_UNIT_DAYS;
 926   }
 927
 928   my_private_key = key;
 929   kx_msg.header.size = htons (sizeof (kx_msg));
 930   kx_msg.header.type = htons (GNUNET_MESSAGE_TYPE_MESH_KX);
 931   kx_msg.purpose.purpose = htonl (GNUNET_SIGNATURE_PURPOSE_MESH_KX);
 932   kx_msg.purpose.size = htonl (sizeof (struct GNUNET_CRYPTO_EccSignaturePurpose) +
 933                                sizeof (struct GNUNET_TIME_AbsoluteNBO) +
 934                                sizeof (struct GNUNET_TIME_AbsoluteNBO) +
 935                                sizeof (struct GNUNET_CRYPTO_EcdhePublicKey) +
 936                                sizeof (struct GNUNET_PeerIdentity));
 937   kx_msg.origin_identity = my_full_id;
 938   rekey_task = GNUNET_SCHEDULER_add_now (&rekey, NULL);
 939
 940   tunnels = GNUNET_CONTAINER_multipeermap_create (128, GNUNET_YES);
 941 }
 942
 943
 944 /**
 945  * Shut down the tunnel subsystem.
 946  */
 947 void
 948 GMT_shutdown (void)
 949 {
 950   if (GNUNET_SCHEDULER_NO_TASK != rekey_task)
 951   {
 952     GNUNET_SCHEDULER_cancel (rekey_task);
 953     rekey_task = GNUNET_SCHEDULER_NO_TASK;
 954   }
 955   GNUNET_CONTAINER_multipeermap_destroy (tunnels);
 956 }
 957
 958
 959 /**
 960  * Create a tunnel.
 961  *
 962  * @param destination Peer this tunnel is towards.
 963  */
 964 struct MeshTunnel3 *
 965 GMT_new (struct MeshPeer *destination)
 966 {
 967   struct MeshTunnel3 *t;
 968
 969   t = GNUNET_new (struct MeshTunnel3);
 970   t->next_chid = 0;
 971   t->peer = destination;
 972 //   if (GNUNET_OK !=
 973 //       GNUNET_CONTAINER_multihashmap_put (tunnels, tid, t,
 974 //                                          GNUNET_CONTAINER_MULTIHASHMAPOPTION_UNIQUE_FAST))
 975 //   {
 976 //     GNUNET_break (0);
 977 //     tunnel_destroy (t);
 978 //     return NULL;
 979 //   }
 980
 981 //   char salt[] = "salt";
 982 //   GNUNET_CRYPTO_kdf (&t->e_key, sizeof (struct GNUNET_CRYPTO_SymmetricSessionKey),
 983 //                      salt, sizeof (salt),
 984 //                      &t->e_key, sizeof (struct GNUNET_CRYPTO_SymmetricSessionKey),
 985 //                      &my_full_id, sizeof (struct GNUNET_PeerIdentity),
 986 //                      GNUNET_PEER_resolve2 (t->peer->id), sizeof (struct GNUNET_PeerIdentity),
 987 //                      NULL);
 988 //   GNUNET_CRYPTO_kdf (&t->d_key, sizeof (struct GNUNET_CRYPTO_SymmetricSessionKey),
 989 //                      salt, sizeof (salt),
 990 //                      &t->d_key, sizeof (struct GNUNET_CRYPTO_SymmetricSessionKey),
 991 //                      GNUNET_PEER_resolve2 (t->peer->id), sizeof (struct GNUNET_PeerIdentity),
 992 //                      &my_full_id, sizeof (struct GNUNET_PeerIdentity),
 993 //                      NULL);
 994
 995   GNUNET_CONTAINER_multipeermap_put (tunnels, GMP_get_id (destination), t,
 996                                      GNUNET_CONTAINER_MULTIHASHMAPOPTION_UNIQUE_FAST);
 997   return t;
 998 }
 999
1000
1001 /**
1002  * Change the tunnel state.
1003  *
1004  * @param t Tunnel whose state to change.
1005  * @param state New state.
1006  */
1007 void
1008 GMT_change_state (struct MeshTunnel3* t, enum MeshTunnel3State state)
1009 {
1010   if (NULL == t)
1011     return;
1012   LOG (GNUNET_ERROR_TYPE_DEBUG,
1013               "Tunnel %s state was %s\n",
1014               GMP_2s (t->peer),
1015               GMT_state2s (t->state));
1016   LOG (GNUNET_ERROR_TYPE_DEBUG,
1017               "Tunnel %s state is now %s\n",
1018               GMP_2s (t->peer),
1019               GMT_state2s (state));
1020   t->state = state;
1021   if (MESH_TUNNEL3_READY == state && 3 <= GMT_count_connections (t))
1022   {
1023     GMP_stop_search (t->peer);
1024   }
1025 }
1026
1027
1028 /**
1029  * Add a connection to a tunnel.
1030  *
1031  * @param t Tunnel.
1032  * @param c Connection.
1033  */
1034 void
1035 GMT_add_connection (struct MeshTunnel3 *t, struct MeshConnection *c)
1036 {
1037   struct MeshTConnection *aux;
1038
1039   for (aux = t->connection_head; aux != NULL; aux = aux->next)
1040     if (aux->c == c)
1041       return;
1042
1043   aux = GNUNET_new (struct MeshTConnection);
1044   aux->c = c;
1045   GNUNET_CONTAINER_DLL_insert_tail (t->connection_head, t->connection_tail, aux);
1046 }
1047
1048
1049 /**
1050  * Remove a connection from a tunnel.
1051  *
1052  * @param t Tunnel.
1053  * @param c Connection.
1054  */
1055 void
1056 GMT_remove_connection (struct MeshTunnel3 *t, struct MeshConnection *c)
1057 {
1058   struct MeshTConnection *aux;
1059
1060   for (aux = t->connection_head; aux != NULL; aux = aux->next)
1061     if (aux->c == c)
1062     {
1063       GNUNET_CONTAINER_DLL_remove (t->connection_head, t->connection_tail, aux);
1064       GNUNET_free (aux);
1065       return;
1066     }
1067 }
1068
1069
1070 /**
1071  * Add a channel to a tunnel.
1072  *
1073  * @param t Tunnel.
1074  * @param ch Channel.
1075  */
1076 void
1077 GMT_add_channel (struct MeshTunnel3 *t, struct MeshChannel *ch)
1078 {
1079   struct MeshTChannel *aux;
1080
1081   LOG (GNUNET_ERROR_TYPE_DEBUG, "Adding channel %p to tunnel %p\n", ch, t);
1082
1083   for (aux = t->channel_head; aux != NULL; aux = aux->next)
1084   {
1085     LOG (GNUNET_ERROR_TYPE_DEBUG, "  already there %p\n", aux->ch);
1086     if (aux->ch == ch)
1087       return;
1088   }
1089
1090   aux = GNUNET_new (struct MeshTChannel);
1091   aux->ch = ch;
1092   LOG (GNUNET_ERROR_TYPE_DEBUG, " adding %p to %p\n", aux, t->channel_head);
1093   GNUNET_CONTAINER_DLL_insert_tail (t->channel_head, t->channel_tail, aux);
1094 }
1095
1096
1097 /**
1098  * Remove a channel from a tunnel.
1099  *
1100  * @param t Tunnel.
1101  * @param ch Channel.
1102  */
1103 void
1104 GMT_remove_channel (struct MeshTunnel3 *t, struct MeshChannel *ch)
1105 {
1106   struct MeshTChannel *aux;
1107
1108   LOG (GNUNET_ERROR_TYPE_DEBUG, "Removing channel %p from tunnel %p\n", ch, t);
1109   for (aux = t->channel_head; aux != NULL; aux = aux->next)
1110   {
1111     if (aux->ch == ch)
1112     {
1113       LOG (GNUNET_ERROR_TYPE_DEBUG, " found! %s\n", GMCH_2s (ch));
1114       GNUNET_CONTAINER_DLL_remove (t->channel_head, t->channel_tail, aux);
1115       GNUNET_free (aux);
1116       return;
1117     }
1118   }
1119 }
1120
1121
1122 /**
1123  * Search for a channel by global ID.
1124  *
1125  * @param t Tunnel containing the channel.
1126  * @param chid Public channel number.
1127  *
1128  * @return channel handler, NULL if doesn't exist
1129  */
1130 struct MeshChannel *
1131 GMT_get_channel (struct MeshTunnel3 *t, MESH_ChannelNumber chid)
1132 {
1133   struct MeshTChannel *iter;
1134
1135   if (NULL == t)
1136     return NULL;
1137
1138   for (iter = t->channel_head; NULL != iter; iter = iter->next)
1139   {
1140     if (GMCH_get_id (iter->ch) == chid)
1141       break;
1142   }
1143
1144   return NULL == iter ? NULL : iter->ch;
1145 }
1146
1147
1148 /**
1149  * Tunnel is empty: destroy it.
1150  *
1151  * Notifies all connections about the destruction.
1152  *
1153  * @param t Tunnel to destroy.
1154  */
1155 void
1156 GMT_destroy_empty (struct MeshTunnel3 *t)
1157 {
1158   struct MeshTConnection *iter;
1159
1160   for (iter = t->connection_head; NULL != iter; iter = iter->next)
1161   {
1162     GMC_send_destroy (iter->c);
1163   }
1164
1165   t->destroy = GNUNET_YES;
1166 }
1167
1168
1169 /**
1170  * Destroy tunnel if empty (no more channels).
1171  *
1172  * @param t Tunnel to destroy if empty.
1173  */
1174 void
1175 GMT_destroy_if_empty (struct MeshTunnel3 *t)
1176 {
1177   if (1 < GMT_count_channels (t))
1178     return;
1179
1180   GMT_destroy_empty (t);
1181 }
1182
1183
1184 /**
1185  * Destroy the tunnel.
1186  *
1187  * This function does not generate any warning traffic to clients or peers.
1188  *
1189  * Tasks:
1190  * Cancel messages belonging to this tunnel queued to neighbors.
1191  * Free any allocated resources linked to the tunnel.
1192  *
1193  * @param t The tunnel to destroy.
1194  */
1195 void
1196 GMT_destroy (struct MeshTunnel3 *t)
1197 {
1198   struct MeshTConnection *iter;
1199   struct MeshTConnection *next;
1200
1201   if (NULL == t)
1202     return;
1203
1204   LOG (GNUNET_ERROR_TYPE_DEBUG, "destroying tunnel %s\n", GMP_2s (t->peer));
1205
1206 //   if (GNUNET_YES != GNUNET_CONTAINER_multihashmap_remove (tunnels, &t->id, t))
1207 //     GNUNET_break (0);
1208
1209   for (iter = t->connection_head; NULL != iter; iter = next)
1210   {
1211     next = iter->next;
1212     GMC_destroy (iter->c);
1213   }
1214
1215   GNUNET_STATISTICS_update (stats, "# tunnels", -1, GNUNET_NO);
1216   GMP_set_tunnel (t->peer, NULL);
1217
1218   if (GNUNET_SCHEDULER_NO_TASK != t->rekey_task)
1219     GNUNET_SCHEDULER_cancel (t->rekey_task);
1220
1221   GNUNET_free (t);
1222 }
1223
1224
1225 /**
1226  * @brief Use the given path for the tunnel.
1227  * Update the next and prev hops (and RCs).
1228  * (Re)start the path refresh in case the tunnel is locally owned.
1229  *
1230  * @param t Tunnel to update.
1231  * @param p Path to use.
1232  *
1233  * @return Connection created.
1234  */
1235 struct MeshConnection *
1236 GMT_use_path (struct MeshTunnel3 *t, struct MeshPeerPath *p)
1237 {
1238   struct MeshConnection *c;
1239   struct GNUNET_HashCode cid;
1240   unsigned int own_pos;
1241
1242   if (NULL == t || NULL == p)
1243   {
1244     GNUNET_break (0);
1245     return NULL;
1246   }
1247
1248   for (own_pos = 0; own_pos < p->length; own_pos++)
1249   {
1250     if (p->peers[own_pos] == myid)
1251       break;
1252   }
1253   if (own_pos > p->length - 1)
1254   {
1255     GNUNET_break (0);
1256     return NULL;
1257   }
1258
1259   GNUNET_CRYPTO_hash_create_random (GNUNET_CRYPTO_QUALITY_NONCE, &cid);
1260   c = GMC_new (&cid, t, p, own_pos);
1261   GMT_add_connection (t, c);
1262   return c;
1263 }
1264
1265
1266 /**
1267  * Count established (ready) connections of a tunnel.
1268  *
1269  * @param t Tunnel on which to count.
1270  *
1271  * @return Number of connections.
1272  */
1273 unsigned int
1274 GMT_count_connections (struct MeshTunnel3 *t)
1275 {
1276   struct MeshTConnection *iter;
1277   unsigned int count;
1278
1279   for (count = 0, iter = t->connection_head;
1280        NULL != iter;
1281        iter = iter->next, count++);
1282
1283   return count;
1284 }
1285
1286 /**
1287  * Count channels of a tunnel.
1288  *
1289  * @param t Tunnel on which to count.
1290  *
1291  * @return Number of channels.
1292  */
1293 unsigned int
1294 GMT_count_channels (struct MeshTunnel3 *t)
1295 {
1296   struct MeshTChannel *iter;
1297   unsigned int count;
1298
1299   for (count = 0, iter = t->channel_head;
1300        NULL != iter;
1301        iter = iter->next, count++) /* skip */;
1302
1303   return count;
1304 }
1305
1306
1307 /**
1308  * Get the state of a tunnel.
1309  *
1310  * @param t Tunnel.
1311  *
1312  * @return Tunnel's state.
1313  */
1314 enum MeshTunnel3State
1315 GMT_get_state (struct MeshTunnel3 *t)
1316 {
1317   if (NULL == t)
1318     return (enum MeshTunnel3State) -1;
1319   return t->state;
1320 }
1321
1322 /**
1323  * Get the total buffer space for a tunnel.
1324  *
1325  * If terminal, use the biggest channel buffer (or 64) if no channel exists.
1326  * If not terminal, use the sum of all connection buffers.
1327  *
1328  * @param t Tunnel.
1329  * @param fwd Is this for FWD traffic?
1330  *
1331  * @return Buffer space offered by all entities (c/ch) in the tunnel.
1332  */
1333 unsigned int
1334 GMT_get_buffer (struct MeshTunnel3 *t, int fwd)
1335 {
1336   struct MeshTConnection *iter;
1337   unsigned int buffer;
1338
1339   iter = t->connection_head;
1340   buffer = 0;
1341
1342   /* If terminal, return biggest channel buffer */
1343   if (NULL == iter || GMC_is_terminal (iter->c, fwd))
1344   {
1345     struct MeshTChannel *iter_ch;
1346     unsigned int ch_buf;
1347
1348     if (NULL == t->channel_head)
1349     {
1350       /* Probably getting buffer for a channel create/handshake. */
1351       return 64;
1352     }
1353
1354     for (iter_ch = t->channel_head; NULL != iter_ch; iter_ch = iter_ch->next)
1355     {
1356       ch_buf = GMCH_get_buffer (iter_ch->ch, fwd);
1357       if (ch_buf > buffer)
1358         buffer = ch_buf;
1359     }
1360     return buffer;
1361   }
1362
1363   /* If not terminal, return sum of connection buffers */
1364   while (NULL != iter)
1365   {
1366     if (GMC_get_state (iter->c) != MESH_CONNECTION_READY)
1367     {
1368       iter = iter->next;
1369       continue;
1370     }
1371
1372     buffer += GMC_get_buffer (iter->c, fwd);
1373     iter = iter->next;
1374   }
1375
1376   return buffer;
1377 }
1378
1379
1380 /**
1381  * Get the tunnel's destination.
1382  *
1383  * @param t Tunnel.
1384  *
1385  * @return ID of the destination peer.
1386  */
1387 const struct GNUNET_PeerIdentity *
1388 GMT_get_destination (struct MeshTunnel3 *t)
1389 {
1390   return GMP_get_id (t->peer);
1391 }
1392
1393
1394 /**
1395  * Get the tunnel's next free global channel ID.
1396  *
1397  * @param t Tunnel.
1398  *
1399  * @return GID of a channel free to use.
1400  */
1401 MESH_ChannelNumber
1402 GMT_get_next_chid (struct MeshTunnel3 *t)
1403 {
1404   MESH_ChannelNumber chid;
1405
1406   while (NULL != GMT_get_channel (t, t->next_chid))
1407   {
1408     LOG (GNUNET_ERROR_TYPE_DEBUG, "Channel %u exists...\n", t->next_chid);
1409     t->next_chid = (t->next_chid + 1) & ~GNUNET_MESH_LOCAL_CHANNEL_ID_CLI;
1410   }
1411   chid = t->next_chid;
1412   t->next_chid = (t->next_chid + 1) & ~GNUNET_MESH_LOCAL_CHANNEL_ID_CLI;
1413
1414   return chid;
1415 }
1416
1417
1418 /**
1419  * Send ACK on one or more channels due to buffer in connections.
1420  *
1421  * @param t Channel which has some free buffer space.
1422  * @param fwd Is this for FWD traffic? (ACK goes to root)
1423  */
1424 void
1425 GMT_unchoke_channels (struct MeshTunnel3 *t, int fwd)
1426 {
1427   struct MeshTChannel *iter;
1428   unsigned int buffer;
1429   unsigned int channels = GMT_count_channels (t);
1430   unsigned int choked_n;
1431   struct MeshChannel *choked[channels];
1432
1433   LOG (GNUNET_ERROR_TYPE_DEBUG, "GMT_unchoke_channels on %s\n", GMT_2s (t));
1434   LOG (GNUNET_ERROR_TYPE_DEBUG, " head: %p\n", t->channel_head);
1435   if (NULL != t->channel_head)
1436     LOG (GNUNET_ERROR_TYPE_DEBUG, " head ch: %p\n", t->channel_head->ch);
1437
1438   if (NULL == t)
1439   {
1440     GNUNET_break (0);
1441     return;
1442   }
1443
1444   /* Get buffer space */
1445   buffer = GMT_get_buffer (t, fwd);
1446   if (0 == buffer)
1447   {
1448     return;
1449   }
1450
1451   /* Count and remember choked channels */
1452   choked_n = 0;
1453   for (iter = t->channel_head; NULL != iter; iter = iter->next)
1454   {
1455     if (GNUNET_NO == GMCH_get_allowed (iter->ch, fwd))
1456     {
1457       choked[choked_n++] = iter->ch;
1458     }
1459   }
1460
1461   /* Unchoke random channels */
1462   while (0 < buffer && 0 < choked_n)
1463   {
1464     unsigned int r = GNUNET_CRYPTO_random_u32 (GNUNET_CRYPTO_QUALITY_WEAK,
1465                                                choked_n);
1466     GMCH_allow_client (choked[r], fwd);
1467     choked_n--;
1468     buffer--;
1469     choked[r] = choked[choked_n];
1470   }
1471 }
1472
1473
1474 /**
1475  * Send ACK on one or more connections due to buffer space to the client.
1476  *
1477  * Iterates all connections of the tunnel and sends ACKs appropriately.
1478  *
1479  * @param t Tunnel.
1480  * @param fwd Is this in for FWD traffic? (ACK goes dest->root)
1481  */
1482 void
1483 GMT_send_acks (struct MeshTunnel3 *t, int fwd)
1484 {
1485   struct MeshTConnection *iter;
1486   uint32_t allowed;
1487   uint32_t to_allow;
1488   uint32_t allow_per_connection;
1489   unsigned int cs;
1490   unsigned int buffer;
1491
1492   LOG (GNUNET_ERROR_TYPE_DEBUG,
1493        "Tunnel send %s ACKs on %s\n",
1494        fwd ? "FWD" : "BCK", GMT_2s (t));
1495
1496   if (NULL == t)
1497   {
1498     GNUNET_break (0);
1499     return;
1500   }
1501   if (NULL == t->channel_head ||
1502       GNUNET_NO == GMCH_is_origin (t->channel_head->ch, !fwd))
1503   {
1504     GNUNET_break (0);
1505     return;
1506   }
1507
1508   buffer = GMT_get_buffer (t, fwd);
1509
1510   /* Count connections, how many messages are already allowed */
1511   cs = GMT_count_connections (t);
1512   for (allowed = 0, iter = t->connection_head; NULL != iter; iter = iter->next)
1513   {
1514     allowed += GMC_get_allowed (iter->c, fwd);
1515   }
1516
1517   /* Make sure there is no overflow */
1518   if (allowed > buffer)
1519   {
1520     GNUNET_break (0);
1521     return;
1522   }
1523
1524   /* Authorize connections to send more data */
1525   to_allow = buffer; /* - allowed; */
1526
1527   for (iter = t->connection_head; NULL != iter && to_allow > 0; iter = iter->next)
1528   {
1529     allow_per_connection = to_allow/cs;
1530     to_allow -= allow_per_connection;
1531     cs--;
1532     if (GMC_get_allowed (iter->c, fwd) > 64 / 3)
1533     {
1534       continue;
1535     }
1536     GMC_allow (iter->c, buffer, fwd);
1537   }
1538
1539   GNUNET_break (to_allow == 0);
1540 }
1541
1542
1543 /**
1544  * Sends an already built message on a tunnel, encrypting it and
1545  * choosing the best connection.
1546  *
1547  * @param message Message to send. Function modifies it.
1548  * @param t Tunnel on which this message is transmitted.
1549  * @param ch Channel on which this message is transmitted.
1550  * @param fwd Is this a fwd message?
1551  */
1552 void
1553 GMT_send_prebuilt_message (const struct GNUNET_MessageHeader *message,
1554                            struct MeshTunnel3 *t,
1555                            struct MeshChannel *ch,
1556                            int fwd)
1557 {
1558   struct MeshConnection *c;
1559   struct GNUNET_MESH_Encrypted *msg;
1560   size_t size = ntohs (message->size);
1561   size_t encrypted_size;
1562   char *cbuf[sizeof (struct GNUNET_MESH_Encrypted) + size + 64];
1563   uint64_t iv;
1564   uint16_t type;
1565
1566   LOG (GNUNET_ERROR_TYPE_DEBUG, "GMT Send on Tunnel %s\n", GMT_2s (t));
1567
1568   iv = GNUNET_CRYPTO_random_u64 (GNUNET_CRYPTO_QUALITY_NONCE, UINT64_MAX);
1569   msg = (struct GNUNET_MESH_Encrypted *) cbuf;
1570   msg->header.type = htons (GNUNET_MESSAGE_TYPE_MESH_ENCRYPTED);
1571   msg->iv = GNUNET_htonll (iv);
1572   encrypted_size = t_encrypt (t, &msg[1], message, size, iv);
1573   msg->header.size = htons (sizeof (struct GNUNET_MESH_Encrypted) + encrypted_size);
1574   c = tunnel_get_connection (t, fwd);
1575   if (NULL == c)
1576   {
1577     GNUNET_break (GNUNET_YES == t->destroy);
1578     return;
1579   }
1580   type = ntohs (message->type);
1581   switch (type)
1582   {
1583     case GNUNET_MESSAGE_TYPE_MESH_DATA:
1584     case GNUNET_MESSAGE_TYPE_MESH_CHANNEL_CREATE:
1585     case GNUNET_MESSAGE_TYPE_MESH_CHANNEL_DESTROY:
1586     case GNUNET_MESSAGE_TYPE_MESH_CHANNEL_ACK:
1587       msg->cid = *GMC_get_id (c);
1588       msg->ttl = htonl (default_ttl);
1589       break;
1590     default:
1591       LOG (GNUNET_ERROR_TYPE_DEBUG, "unkown type %s\n",
1592            GNUNET_MESH_DEBUG_M2S (type));
1593       GNUNET_break (0);
1594   }
1595
1596   GMC_send_prebuilt_message (&msg->header, c, fwd);
1597 }
1598
1599 /**
1600  * Is the tunnel directed towards the local peer?
1601  *
1602  * @param t Tunnel.
1603  *
1604  * @return GNUNET_YES if it is loopback.
1605  */
1606 int
1607 GMT_is_loopback (const struct MeshTunnel3 *t)
1608 {
1609   return (myid == GMP_get_short_id(t->peer));
1610 }
1611
1612
1613 /**
1614  * Is the tunnel using this path already?
1615  *
1616  * @param t Tunnel.
1617  * @param p Path.
1618  *
1619  * @return GNUNET_YES a connection uses this path.
1620  */
1621 int
1622 GMT_is_path_used (const struct MeshTunnel3 *t, const struct MeshPeerPath *p)
1623 {
1624   struct MeshTConnection *iter;
1625
1626   for (iter = t->connection_head; NULL != iter; iter = iter->next)
1627     if (GMC_get_path (iter->c) == p)
1628       return GNUNET_YES;
1629
1630   return GNUNET_NO;
1631 }
1632
1633
1634 /**
1635  * Get a cost of a path for a tunnel considering existing connections.
1636  *
1637  * @param t Tunnel.
1638  * @param path Candidate path.
1639  *
1640  * @return Cost of the path (path length + number of overlapping nodes)
1641  */
1642 unsigned int
1643 GMT_get_path_cost (const struct MeshTunnel3 *t,
1644                    const struct MeshPeerPath *path)
1645 {
1646   struct MeshTConnection *iter;
1647   unsigned int overlap;
1648   unsigned int i;
1649   unsigned int j;
1650
1651   if (NULL == path)
1652     return 0;
1653
1654   overlap = 0;
1655   GNUNET_assert (NULL != t);
1656
1657   for (i = 0; i < path->length; i++)
1658   {
1659     for (iter = t->connection_head; NULL != iter; iter = iter->next)
1660     {
1661       for (j = 0; j < GMC_get_path (iter->c)->length; j++)
1662       {
1663         if (path->peers[i] == GMC_get_path (iter->c)->peers[j])
1664         {
1665           overlap++;
1666           break;
1667         }
1668       }
1669     }
1670   }
1671   return (path->length + overlap) * (path->score * -1);
1672 }
1673
1674
1675 /**
1676  * Get the static string for the peer this tunnel is directed.
1677  *
1678  * @param t Tunnel.
1679  *
1680  * @return Static string the destination peer's ID.
1681  */
1682 const char *
1683 GMT_2s (const struct MeshTunnel3 *t)
1684 {
1685   return GMP_2s (t->peer);
1686 }