src/transport/plugin_transport_http_server.c

   1 /*
   2      This file is part of GNUnet
   3      (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 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 transport/plugin_transport_http.c
  23  * @brief http transport service plugin
  24  * @author Matthias Wachs
  25  */
  26
  27 #include "plugin_transport_http.h"
  28
  29 #define HTTP_ERROR_RESPONSE "<!DOCTYPE HTML PUBLIC \"-//IETF//DTD HTML 2.0//EN\"><HTML><HEAD><TITLE>404 Not Found</TITLE></HEAD><BODY><H1>Not Found</H1>The requested URL was not found on this server.<P><HR><ADDRESS></ADDRESS></BODY></HTML>"
  30 #define _RECEIVE 0
  31 #define _SEND 1
  32
  33 struct ServerConnection
  34 {
  35   /* _RECV or _SEND */
  36   int direction;
  37
  38   /* should this connection get disconnected? GNUNET_YES/NO  */
  39   int disconnect;
  40
  41   struct Session *session;
  42   struct MHD_Connection *mhd_conn;
  43 };
  44
  45 /**
  46  * Function that queries MHD's select sets and
  47  * starts the task waiting for them.
  48  * @param plugin plugin
  49  * @param daemon_handle the MHD daemon handle
  50  * @return gnunet task identifier
  51  */
  52 static GNUNET_SCHEDULER_TaskIdentifier
  53 server_schedule (struct Plugin *plugin, struct MHD_Daemon *daemon_handle,
  54                  int now);
  55
  56 static void
  57 server_log (void *arg, const char *fmt, va_list ap)
  58 {
  59   char text[1024];
  60
  61   vsnprintf (text, sizeof (text), fmt, ap);
  62   va_end (ap);
  63   GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "Server: %s\n", text);
  64 }
  65
  66 /**
  67  * Check if incoming connection is accepted.
  68  * NOTE: Here every connection is accepted
  69  * @param cls plugin as closure
  70  * @param addr address of incoming connection
  71  * @param addr_len address length of incoming connection
  72  * @return MHD_YES if connection is accepted, MHD_NO if connection is rejected
  73  *
  74  */
  75 static int
  76 server_accept_cb (void *cls, const struct sockaddr *addr, socklen_t addr_len)
  77 {
  78   struct Plugin *plugin = cls;
  79
  80   if (plugin->cur_connections <= plugin->max_connections)
  81     return MHD_YES;
  82   else
  83   {
  84     GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
  85                 "Server: Cannot accept new connections\n");
  86     return MHD_NO;
  87   }
  88 }
  89
  90
  91 #if BUILD_HTTPS
  92 static char *
  93 server_load_file (const char *file)
  94 {
  95   struct GNUNET_DISK_FileHandle *gn_file;
  96   struct stat fstat;
  97   char *text = NULL;
  98
  99   if (0 != STAT (file, &fstat))
 100     return NULL;
 101   text = GNUNET_malloc (fstat.st_size + 1);
 102   gn_file =
 103       GNUNET_DISK_file_open (file, GNUNET_DISK_OPEN_READ,
 104                              GNUNET_DISK_PERM_USER_READ);
 105   if (gn_file == NULL)
 106   {
 107     GNUNET_free (text);
 108     return NULL;
 109   }
 110   if (GNUNET_SYSERR == GNUNET_DISK_file_read (gn_file, text, fstat.st_size))
 111   {
 112     GNUNET_free (text);
 113     GNUNET_DISK_file_close (gn_file);
 114     return NULL;
 115   }
 116   text[fstat.st_size] = '\0';
 117   GNUNET_DISK_file_close (gn_file);
 118   return text;
 119 }
 120 #endif
 121
 122
 123 #if BUILD_HTTPS
 124
 125 static int
 126 server_load_certificate (struct Plugin *plugin)
 127 {
 128   int res = GNUNET_OK;
 129
 130   char *key_file;
 131   char *cert_file;
 132
 133   /* Get crypto init string from config
 134    * If not present just use default values */
 135
 136   GNUNET_assert (GNUNET_OK ==
 137                  GNUNET_CONFIGURATION_get_value_string (plugin->env->cfg,
 138                                                         plugin->name,
 139                                                         "CRYPTO_INIT",
 140                                                         &plugin->crypto_init));
 141
 142   if (GNUNET_OK !=
 143       GNUNET_CONFIGURATION_get_value_filename (plugin->env->cfg, plugin->name,
 144                                                "KEY_FILE", &key_file))
 145   {
 146     key_file = GNUNET_strdup ("https_key.key");
 147   }
 148
 149   if (GNUNET_OK !=
 150       GNUNET_CONFIGURATION_get_value_filename (plugin->env->cfg, plugin->name,
 151                                                "CERT_FILE", &cert_file))
 152   {
 153     GNUNET_asprintf (&cert_file, "%s", "https_cert.crt");
 154   }
 155
 156   /* read key & certificates from file */
 157 #if VERBOSE_SERVER
 158   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
 159               "Loading TLS certificate from key-file `%s' cert-file`%s'\n",
 160               key_file, cert_file);
 161 #endif
 162
 163   plugin->key = server_load_file (key_file);
 164   plugin->cert = server_load_file (cert_file);
 165
 166   if ((plugin->key == NULL) || (plugin->cert == NULL))
 167   {
 168     struct GNUNET_OS_Process *cert_creation;
 169
 170     GNUNET_free_non_null (plugin->key);
 171     plugin->key = NULL;
 172     GNUNET_free_non_null (plugin->cert);
 173     plugin->cert = NULL;
 174
 175 #if VERBOSE_SERVER
 176     GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
 177                 "No usable TLS certificate found, creating certificate\n");
 178 #endif
 179     errno = 0;
 180     cert_creation =
 181         GNUNET_OS_start_process (NULL, NULL,
 182                                  "gnunet-transport-certificate-creation",
 183                                  "gnunet-transport-certificate-creation",
 184                                  key_file, cert_file, NULL);
 185     if (cert_creation == NULL)
 186     {
 187       GNUNET_log_from (GNUNET_ERROR_TYPE_ERROR, plugin->name,
 188                        _
 189                        ("Could not create a new TLS certificate, program `gnunet-transport-certificate-creation' could not be started!\n"));
 190       GNUNET_free (key_file);
 191       GNUNET_free (cert_file);
 192
 193       GNUNET_free_non_null (plugin->key);
 194       plugin->key = NULL;
 195       GNUNET_free_non_null (plugin->cert);
 196       plugin->cert = NULL;
 197       GNUNET_free_non_null (plugin->crypto_init);
 198       plugin->crypto_init = NULL;
 199
 200       return GNUNET_SYSERR;
 201     }
 202     GNUNET_assert (GNUNET_OK == GNUNET_OS_process_wait (cert_creation));
 203     GNUNET_OS_process_close (cert_creation);
 204
 205     plugin->key = server_load_file (key_file);
 206     plugin->cert = server_load_file (cert_file);
 207   }
 208
 209   if ((plugin->key == NULL) || (plugin->cert == NULL))
 210   {
 211     GNUNET_log_from (GNUNET_ERROR_TYPE_ERROR, plugin->name,
 212                      _
 213                      ("No usable TLS certificate found and creating one failed!\n"),
 214                      "transport-https");
 215     GNUNET_free (key_file);
 216     GNUNET_free (cert_file);
 217
 218     GNUNET_free_non_null (plugin->key);
 219     plugin->key = NULL;
 220     GNUNET_free_non_null (plugin->cert);
 221     plugin->cert = NULL;
 222     GNUNET_free_non_null (plugin->crypto_init);
 223     plugin->crypto_init = NULL;
 224
 225     return GNUNET_SYSERR;
 226   }
 227   GNUNET_free (key_file);
 228   GNUNET_free (cert_file);
 229 #if DEBUG_HTTP
 230   GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, "TLS certificate loaded\n");
 231 #endif
 232
 233   return res;
 234 }
 235 #endif
 236
 237
 238 /**
 239  * Reschedule the execution of both IPv4 and IPv6 server
 240  * @param plugin the plugin
 241  * @param now GNUNET_YES to schedule execution immediately, GNUNET_NO to wait
 242  * until timeout
 243  */
 244
 245 static void
 246 server_reschedule (struct Plugin *plugin, int now)
 247 {
 248   if (plugin->server_v4 != NULL)
 249   {
 250     if (plugin->server_v4_task != GNUNET_SCHEDULER_NO_TASK)
 251     {
 252       GNUNET_SCHEDULER_cancel (plugin->server_v4_task);
 253       plugin->server_v4_task = GNUNET_SCHEDULER_NO_TASK;
 254     }
 255     plugin->server_v4_task = server_schedule (plugin, plugin->server_v4, now);
 256   }
 257
 258   if (plugin->server_v6 != NULL)
 259   {
 260     if (plugin->server_v6_task != GNUNET_SCHEDULER_NO_TASK)
 261     {
 262       GNUNET_SCHEDULER_cancel (plugin->server_v6_task);
 263       plugin->server_v6_task = GNUNET_SCHEDULER_NO_TASK;
 264     }
 265     plugin->server_v6_task = server_schedule (plugin, plugin->server_v6, now);
 266   }
 267 }
 268
 269 /**
 270  * Callback called by MessageStreamTokenizer when a message has arrived
 271  * @param cls current session as closure
 272  * @param client clien
 273  * @param message the message to be forwarded to transport service
 274  */
 275 static void
 276 server_receive_mst_cb (void *cls, void *client,
 277                        const struct GNUNET_MessageHeader *message)
 278 {
 279   struct Session *s = cls;
 280
 281 #if VERBOSE_SERVER
 282   struct Plugin *plugin = s->plugin;
 283 #endif
 284   struct GNUNET_TIME_Relative delay;
 285
 286   delay = http_plugin_receive (s, &s->target, message, s, s->addr, s->addrlen);
 287
 288   s->next_receive =
 289       GNUNET_TIME_absolute_add (GNUNET_TIME_absolute_get (), delay);
 290
 291   if (delay.rel_value > 0)
 292   {
 293 #if VERBOSE_SERVER
 294     GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, plugin->name,
 295                      "Server: peer `%s' address `%s' next read delayed for %llu ms\n",
 296                      GNUNET_i2s (&s->target),
 297                      http_plugin_address_to_string (NULL, s->addr, s->addrlen),
 298                      delay);
 299 #endif
 300   }
 301 }
 302
 303 /**
 304  * Callback called by MHD when it needs data to send
 305  * @param cls current session
 306  * @param pos position in buffer
 307  * @param buf the buffer to write data to
 308  * @param max max number of bytes available in buffer
 309  * @return bytes written to buffer
 310  */
 311 static ssize_t
 312 server_send_callback (void *cls, uint64_t pos, char *buf, size_t max)
 313 {
 314   struct Session *s = cls;
 315 #if VERBOSE_SERVER
 316   GNUNET_log_from (GNUNET_ERROR_TYPE_ERROR, s->plugin->name,
 317                    "Server: %X can sent maximum  %u \n", s, max);
 318 #endif
 319   struct HTTP_Message *msg;
 320   int bytes_read = 0;
 321
 322   //static int c = 0;
 323   msg = s->msg_head;
 324   if (msg != NULL)
 325   {
 326     /* sending */
 327     if ((msg->size - msg->pos) <= max)
 328     {
 329       memcpy (buf, &msg->buf[msg->pos], (msg->size - msg->pos));
 330       bytes_read = msg->size - msg->pos;
 331       msg->pos += (msg->size - msg->pos);
 332     }
 333     else
 334     {
 335       memcpy (buf, &msg->buf[msg->pos], max);
 336       msg->pos += max;
 337       bytes_read = max;
 338     }
 339
 340     /* removing message */
 341     if (msg->pos == msg->size)
 342     {
 343       if (NULL != msg->transmit_cont)
 344         msg->transmit_cont (msg->transmit_cont_cls, &s->target, GNUNET_OK);
 345       GNUNET_CONTAINER_DLL_remove (s->msg_head, s->msg_tail, msg);
 346       GNUNET_free (msg);
 347     }
 348   }
 349
 350 #if VERBOSE_CLIENT
 351   struct Plugin *plugin = s->plugin;
 352   GNUNET_log_from (GNUNET_ERROR_TYPE_ERROR, plugin->name,
 353                    "Server: %X: sent %u bytes\n", s, bytes_read);
 354 #endif
 355   return bytes_read;
 356 }
 357
 358 static struct ServerConnection *
 359 server_lookup_session (struct Plugin *plugin,
 360                        struct MHD_Connection *mhd_connection, const char *url,
 361                        const char *method)
 362 {
 363   struct Session *s = NULL;
 364   struct Session *t;
 365   struct ServerConnection *sc = NULL;
 366   const union MHD_ConnectionInfo *conn_info;
 367
 368   struct IPv4HttpAddress a4;
 369   struct IPv6HttpAddress a6;
 370   struct sockaddr_in *s4;
 371   struct sockaddr_in6 *s6;
 372   void *a;
 373   size_t a_len;
 374   struct GNUNET_PeerIdentity target;
 375   int check = GNUNET_NO;
 376   uint32_t tag = 0;
 377   int direction;
 378
 379   conn_info =
 380       MHD_get_connection_info (mhd_connection,
 381                                MHD_CONNECTION_INFO_CLIENT_ADDRESS);
 382   if ((conn_info->client_addr->sa_family != AF_INET) &&
 383       (conn_info->client_addr->sa_family != AF_INET6))
 384     return MHD_NO;
 385
 386   if ((strlen (&url[1]) >= 105) && (url[104] == ';'))
 387   {
 388     char hash[104];
 389     char *tagc = (char *) &url[105];
 390
 391     memcpy (&hash, &url[1], 103);
 392     hash[103] = '\0';
 393     if (GNUNET_OK ==
 394         GNUNET_CRYPTO_hash_from_string ((const char *) &hash,
 395                                         &(target.hashPubKey)))
 396     {
 397       tag = strtoul (tagc, NULL, 10);
 398       if (tagc > 0)
 399         check = GNUNET_YES;
 400     }
 401   }
 402
 403   if (0 == strcmp (MHD_HTTP_METHOD_PUT, method))
 404     direction = _RECEIVE;
 405   if (0 == strcmp (MHD_HTTP_METHOD_GET, method))
 406     direction = _SEND;
 407
 408   if (check == GNUNET_NO)
 409     goto error;
 410
 411   plugin->cur_connections++;
 412
 413 #if VERBOSE_SERVER
 414   GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, plugin->name,
 415                    "Server: New inbound connection from %s with tag %u\n",
 416                    GNUNET_i2s (&target), tag);
 417 #endif
 418   /* find duplicate session */
 419
 420   t = plugin->head;
 421
 422   while (t != NULL)
 423   {
 424     if ((t->inbound) &&
 425         (0 == memcmp (&t->target, &target, sizeof (struct GNUNET_PeerIdentity)))
 426         &&
 427         /* FIXME add source address comparison */
 428         (t->tag == tag))
 429       break;
 430     t = t->next;
 431   }
 432   if (t != NULL)
 433   {
 434 #if VERBOSE_SERVER
 435     GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, plugin->name,
 436                      "Server: Duplicate session, dismissing new connection from peer `%s'\n",
 437                      GNUNET_i2s (&target));
 438 #endif
 439     goto error;
 440   }
 441
 442   /* find semi-session */
 443   t = plugin->server_semi_head;
 444
 445   while (t != NULL)
 446   {
 447     /* FIXME add source address comparison */
 448     if ((0 == memcmp (&t->target, &target, sizeof (struct GNUNET_PeerIdentity)))
 449         && (t->tag == tag))
 450     {
 451       break;
 452     }
 453     t = t->next;
 454   }
 455
 456   if (t == NULL)
 457     goto create;
 458
 459 #if VERBOSE_SERVER
 460   GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, plugin->name,
 461                    "Server: Found existing semi-session for `%s'\n",
 462                    GNUNET_i2s (&target));
 463 #endif
 464
 465   if ((direction == _SEND) && (t->server_send != NULL))
 466   {
 467 #if VERBOSE_SERVER
 468     GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, plugin->name,
 469                      "Server: Duplicate GET session, dismissing new connection from peer `%s'\n",
 470                      GNUNET_i2s (&target));
 471 #endif
 472     goto error;
 473   }
 474   else
 475   {
 476     s = t;
 477     GNUNET_CONTAINER_DLL_remove (plugin->server_semi_head,
 478                                  plugin->server_semi_tail, s);
 479     GNUNET_CONTAINER_DLL_insert (plugin->head, plugin->tail, s);
 480 #if VERBOSE_SERVER
 481     GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, plugin->name,
 482                      "Server: Found matching semi-session, merging session for peer `%s'\n",
 483                      GNUNET_i2s (&target));
 484 #endif
 485
 486     goto found;
 487   }
 488   if ((direction == _RECEIVE) && (t->server_recv != NULL))
 489   {
 490 #if VERBOSE_SERVER
 491     GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, plugin->name,
 492                      "Server: Duplicate PUT session, dismissing new connection from peer `%s'\n",
 493                      GNUNET_i2s (&target));
 494 #endif
 495     goto error;
 496   }
 497   else
 498   {
 499     s = t;
 500     GNUNET_CONTAINER_DLL_remove (plugin->server_semi_head,
 501                                  plugin->server_semi_tail, s);
 502     GNUNET_CONTAINER_DLL_insert (plugin->head, plugin->tail, s);
 503 #if VERBOSE_SERVER
 504     GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, plugin->name,
 505                      "Server: Found matching semi-session, merging session for peer `%s'\n",
 506                      GNUNET_i2s (&target));
 507 #endif
 508     goto found;
 509   }
 510
 511 create:
 512 /* create new session */
 513 #if VERBOSE_SERVER
 514   GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, plugin->name,
 515                    "Server: Creating new session for peer `%s' \n",
 516                    GNUNET_i2s (&target));
 517 #endif
 518
 519   switch (conn_info->client_addr->sa_family)
 520   {
 521   case (AF_INET):
 522     s4 = ((struct sockaddr_in *) conn_info->client_addr);
 523     a4.u4_port = s4->sin_port;
 524     memcpy (&a4.ipv4_addr, &s4->sin_addr, sizeof (struct in_addr));
 525     a = &a4;
 526     a_len = sizeof (struct IPv4HttpAddress);
 527     break;
 528   case (AF_INET6):
 529     s6 = ((struct sockaddr_in6 *) conn_info->client_addr);
 530     a6.u6_port = s6->sin6_port;
 531     memcpy (&a6.ipv6_addr, &s6->sin6_addr, sizeof (struct in6_addr));
 532     a = &a6;
 533     a_len = sizeof (struct IPv6HttpAddress);
 534     break;
 535   default:
 536     GNUNET_break (0);
 537     goto error;
 538   }
 539
 540   s = create_session (plugin, &target, a, a_len, NULL, NULL);
 541
 542   s->inbound = GNUNET_YES;
 543   s->next_receive = GNUNET_TIME_absolute_get_zero ();
 544   s->tag = tag;
 545   if (0 == strcmp (MHD_HTTP_METHOD_PUT, method))
 546     s->server_recv = s;
 547   if (0 == strcmp (MHD_HTTP_METHOD_GET, method))
 548     s->server_send = s;
 549   GNUNET_CONTAINER_DLL_insert (plugin->server_semi_head,
 550                                plugin->server_semi_tail, s);
 551   goto found;
 552
 553 error:
 554 #if VERBOSE_SERVER
 555   GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, plugin->name,
 556                    "Server: Invalid connection request\n");
 557 #endif
 558   return NULL;
 559
 560 found:
 561   sc = GNUNET_malloc (sizeof (struct ServerConnection));
 562   sc->mhd_conn = mhd_connection;
 563   sc->direction = direction;
 564   sc->session = s;
 565   if (direction == _SEND)
 566     s->server_send = sc;
 567   if (direction == _RECEIVE)
 568     s->server_recv = sc;
 569
 570 #if MHD_VERSION >= 0x00090E00
 571   int to = (GNUNET_CONSTANTS_IDLE_CONNECTION_TIMEOUT.rel_value / 1000);
 572
 573 #if VERBOSE_SERVER
 574   GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, plugin->name,
 575                    "Server: Setting timeout for %X to %u sec.\n", sc, to);
 576 #endif
 577   MHD_set_connection_option (mhd_connection, MHD_CONNECTION_OPTION_TIMEOUT, to);
 578   server_reschedule (plugin, GNUNET_NO);
 579 #endif
 580   return sc;
 581 }
 582
 583 /**
 584  * Process GET or PUT request received via MHD.  For
 585  * GET, queue response that will send back our pending
 586  * messages.  For PUT, process incoming data and send
 587  * to GNUnet core.  In either case, check if a session
 588  * already exists and create a new one if not.
 589  */
 590 static int
 591 server_access_cb (void *cls, struct MHD_Connection *mhd_connection,
 592                   const char *url, const char *method, const char *version,
 593                   const char *upload_data, size_t * upload_data_size,
 594                   void **httpSessionCache)
 595 {
 596
 597   struct Plugin *plugin = cls;
 598   struct ServerConnection *sc = *httpSessionCache;
 599   struct Session *s = NULL;
 600
 601   int res = MHD_YES;
 602   struct MHD_Response *response;
 603
 604   GNUNET_assert (cls != NULL);
 605   /* new connection */
 606   if (sc == NULL)
 607   {
 608     sc = server_lookup_session (plugin, mhd_connection, url, method);
 609     if (sc != NULL)
 610       (*httpSessionCache) = sc;
 611     else
 612     {
 613       response =
 614           MHD_create_response_from_data (strlen (HTTP_ERROR_RESPONSE),
 615                                          HTTP_ERROR_RESPONSE, MHD_NO, MHD_NO);
 616       res = MHD_queue_response (mhd_connection, MHD_HTTP_NOT_FOUND, response);
 617       MHD_destroy_response (response);
 618       return res;
 619     }
 620   }
 621
 622   /* existing connection */
 623   sc = (*httpSessionCache);
 624   s = sc->session;
 625
 626   /* connection is to be disconnected */
 627   if (sc->disconnect == GNUNET_YES)
 628   {
 629     response =
 630         MHD_create_response_from_data (strlen ("Thank you!"), "Thank you!",
 631                                        MHD_NO, MHD_NO);
 632     res = MHD_queue_response (mhd_connection, MHD_HTTP_OK, response);
 633 #if VERBOSE_SERVER
 634     GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
 635                 "Sent HTTP/1.1: 200 OK as PUT Response\n");
 636 #endif
 637     MHD_destroy_response (response);
 638     return MHD_YES;
 639   }
 640
 641   GNUNET_assert (s != NULL);
 642   /* Check if both directions are connected */
 643   if ((sc->session->server_recv == NULL) || (sc->session->server_recv == NULL))
 644   {
 645     (*upload_data_size) = 0;
 646     return MHD_YES;
 647   }
 648
 649   if (sc->direction == _SEND)
 650   {
 651     response =
 652         MHD_create_response_from_callback (-1, 32 * 1024, &server_send_callback,
 653                                            s, NULL);
 654     res = MHD_queue_response (mhd_connection, MHD_HTTP_OK, response);
 655     MHD_destroy_response (response);
 656     return MHD_YES;
 657   }
 658   if (sc->direction == _RECEIVE)
 659   {
 660     if (*upload_data_size == 0)
 661     {
 662 #if VERBOSE_SERVER
 663       GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, plugin->name,
 664                        "Server: Peer `%s' PUT on address `%s' connected\n",
 665                        GNUNET_i2s (&s->target),
 666                        http_plugin_address_to_string (NULL, s->addr, s->addrlen));
 667 #endif
 668       return MHD_YES;
 669     }
 670
 671     /* Recieving data */
 672     if ((*upload_data_size > 0))
 673     {
 674 #if VERBOSE_SERVER
 675       GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, plugin->name,
 676                        "Server: peer `%s' PUT on address `%s' received %u bytes\n",
 677                        GNUNET_i2s (&s->target),
 678                        http_plugin_address_to_string (NULL,s->addr, s->addrlen),
 679                        *upload_data_size);
 680 #endif
 681       struct GNUNET_TIME_Absolute now = GNUNET_TIME_absolute_get ();
 682
 683       if ((s->next_receive.abs_value <= now.abs_value))
 684       {
 685 #if VERBOSE_SERVER
 686         GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, plugin->name,
 687                          "Server: %X: PUT with %u bytes forwarded to MST\n", s,
 688                          *upload_data_size);
 689 #endif
 690         if (s->msg_tk == NULL)
 691         {
 692           s->msg_tk = GNUNET_SERVER_mst_create (&server_receive_mst_cb, s);
 693         }
 694         res =
 695             GNUNET_SERVER_mst_receive (s->msg_tk, s, upload_data,
 696                                        *upload_data_size, GNUNET_NO, GNUNET_NO);
 697
 698 #if MHD_VERSION >= 0x00090E00
 699         int to = (GNUNET_CONSTANTS_IDLE_CONNECTION_TIMEOUT.rel_value / 1000);
 700         struct ServerConnection *t = NULL;
 701
 702 #if VERBOSE_SERVER
 703         GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, plugin->name,
 704                          "Server: Received %u bytes\n", *upload_data_size);
 705 #endif
 706
 707         /* Setting timeouts for other connections */
 708         if (s->server_recv != NULL)
 709         {
 710           t = s->server_recv;
 711 #if VERBOSE_SERVER
 712           GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, plugin->name,
 713                            "Server: Setting timeout for %X to %u sec.\n", t,
 714                            to);
 715 #endif
 716           MHD_set_connection_option (t->mhd_conn, MHD_CONNECTION_OPTION_TIMEOUT,
 717                                      to);
 718         }
 719         if (s->server_send != NULL)
 720         {
 721           t = s->server_send;
 722 #if VERBOSE_SERVER
 723           GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, plugin->name,
 724                            "Server: Setting timeout for %X to %u sec.\n", t,
 725                            to);
 726 #endif
 727           MHD_set_connection_option (t->mhd_conn, MHD_CONNECTION_OPTION_TIMEOUT,
 728                                      to);
 729         }
 730         server_reschedule (plugin, GNUNET_NO);
 731 #endif
 732         (*upload_data_size) = 0;
 733       }
 734       else
 735       {
 736 #if DEBUG_HTTP
 737         GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
 738                     "Server: %X no inbound bandwidth available! Next read was delayed by %llu ms\n",
 739                     s, now.abs_value - s->next_receive.abs_value);
 740 #endif
 741       }
 742       return MHD_YES;
 743     }
 744     else
 745       return MHD_NO;
 746   }
 747   return res;
 748 }
 749
 750 static void
 751 server_disconnect_cb (void *cls, struct MHD_Connection *connection,
 752                       void **httpSessionCache)
 753 {
 754   struct ServerConnection *sc = *httpSessionCache;
 755   struct ServerConnection *tc = *httpSessionCache;
 756   struct Session *s = NULL;
 757   struct Session *t = NULL;
 758   struct Plugin *plugin = NULL;
 759
 760   if (sc == NULL)
 761     return;
 762
 763   s = sc->session;
 764   plugin = s->plugin;
 765   if (sc->direction == _SEND)
 766   {
 767 #if VERBOSE_SERVER
 768     GNUNET_log_from (GNUNET_ERROR_TYPE_ERROR, plugin->name,
 769                      "Server: %X peer `%s' GET on address `%s' disconnected\n",
 770                      s->server_send, GNUNET_i2s (&s->target),
 771                      http_plugin_address_to_string (NULL, s->addr, s->addrlen));
 772 #endif
 773     s->server_send = NULL;
 774
 775     if (s->server_recv != NULL)
 776     {
 777       tc = s->server_recv;
 778       tc->disconnect = GNUNET_YES;
 779 #if MHD_VERSION >= 0x00090E00
 780       MHD_set_connection_option (sc->mhd_conn, MHD_CONNECTION_OPTION_TIMEOUT,
 781                                  1);
 782 #endif
 783     }
 784   }
 785   if (sc->direction == _RECEIVE)
 786   {
 787 #if VERBOSE_SERVER
 788     GNUNET_log_from (GNUNET_ERROR_TYPE_ERROR, plugin->name,
 789                      "Server: %X peer `%s' PUT on address `%s' disconnected\n",
 790                      s->server_recv, GNUNET_i2s (&s->target),
 791                      http_plugin_address_to_string (NULL, s->addr, s->addrlen));
 792 #endif
 793     s->server_recv = NULL;
 794     if (s->server_send != NULL)
 795     {
 796       tc = s->server_send;
 797       tc->disconnect = GNUNET_YES;
 798 #if MHD_VERSION >= 0x00090E00
 799       MHD_set_connection_option (sc->mhd_conn, MHD_CONNECTION_OPTION_TIMEOUT,
 800                                  1);
 801 #endif
 802     }
 803     if (s->msg_tk != NULL)
 804     {
 805       GNUNET_SERVER_mst_destroy (s->msg_tk);
 806       s->msg_tk = NULL;
 807     }
 808   }
 809   GNUNET_free (sc);
 810
 811   t = plugin->server_semi_head;
 812   while (t != NULL)
 813   {
 814     if (t == s)
 815     {
 816       GNUNET_CONTAINER_DLL_remove (plugin->server_semi_head,
 817                                    plugin->server_semi_tail, s);
 818       GNUNET_CONTAINER_DLL_insert (plugin->head, plugin->tail, s);
 819       break;
 820     }
 821     t = t->next;
 822   }
 823   plugin->cur_connections--;
 824
 825   server_reschedule (plugin, GNUNET_NO);
 826
 827   if ((s->server_send == NULL) && (s->server_recv == NULL))
 828   {
 829 #if VERBOSE_SERVER
 830     GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, plugin->name,
 831                      "Server: peer `%s' on address `%s' disconnected\n",
 832                      GNUNET_i2s (&s->target),
 833                      http_plugin_address_to_string (NULL, s->addr, s->addrlen));
 834 #endif
 835     if (s->msg_tk != NULL)
 836     {
 837       GNUNET_SERVER_mst_destroy (s->msg_tk);
 838       s->msg_tk = NULL;
 839     }
 840
 841     notify_session_end (s->plugin, &s->target, s);
 842   }
 843 }
 844
 845 int
 846 server_disconnect (struct Session *s)
 847 {
 848   struct Plugin *plugin = s->plugin;
 849   struct Session *t = plugin->head;
 850
 851   while (t != NULL)
 852   {
 853     if (t->inbound == GNUNET_YES)
 854     {
 855       if (t->server_send != NULL)
 856       {
 857         ((struct ServerConnection *) t->server_send)->disconnect = GNUNET_YES;
 858       }
 859       if (t->server_send != NULL)
 860       {
 861         ((struct ServerConnection *) t->server_send)->disconnect = GNUNET_YES;
 862       }
 863     }
 864     t = t->next;
 865   }
 866   return GNUNET_OK;
 867 }
 868
 869 int
 870 server_send (struct Session *s, struct HTTP_Message *msg)
 871 {
 872   GNUNET_CONTAINER_DLL_insert (s->msg_head, s->msg_tail, msg);
 873   server_reschedule (s->plugin, GNUNET_YES);
 874   return GNUNET_OK;
 875 }
 876
 877
 878
 879 /**
 880  * Call MHD IPv4 to process pending requests and then go back
 881  * and schedule the next run.
 882  * @param cls plugin as closure
 883  * @param tc task context
 884  */
 885 static void
 886 server_v4_run (void *cls, const struct GNUNET_SCHEDULER_TaskContext *tc)
 887 {
 888   struct Plugin *plugin = cls;
 889
 890   GNUNET_assert (cls != NULL);
 891
 892   plugin->server_v4_task = GNUNET_SCHEDULER_NO_TASK;
 893
 894   if (0 != (tc->reason & GNUNET_SCHEDULER_REASON_SHUTDOWN))
 895     return;
 896 #if VERBOSE_SERVER
 897   GNUNET_log_from (GNUNET_ERROR_TYPE_ERROR, plugin->name,
 898                        "Running IPv6 server\n");
 899 #endif
 900   GNUNET_assert (MHD_YES == MHD_run (plugin->server_v4));
 901   if (plugin->server_v4 != NULL)
 902     plugin->server_v4_task =
 903         server_schedule (plugin, plugin->server_v4, GNUNET_NO);
 904 }
 905
 906
 907 /**
 908  * Call MHD IPv6 to process pending requests and then go back
 909  * and schedule the next run.
 910  * @param cls plugin as closure
 911  * @param tc task context
 912  */
 913 static void
 914 server_v6_run (void *cls, const struct GNUNET_SCHEDULER_TaskContext *tc)
 915 {
 916   struct Plugin *plugin = cls;
 917
 918   GNUNET_assert (cls != NULL);
 919
 920   plugin->server_v6_task = GNUNET_SCHEDULER_NO_TASK;
 921
 922   if (0 != (tc->reason & GNUNET_SCHEDULER_REASON_SHUTDOWN))
 923     return;
 924 #if VERBOSE_SERVER
 925   GNUNET_log_from (GNUNET_ERROR_TYPE_ERROR, plugin->name,
 926                        "Running IPv6 server\n");
 927 #endif
 928   GNUNET_assert (MHD_YES == MHD_run (plugin->server_v6));
 929   if (plugin->server_v6 != NULL)
 930     plugin->server_v6_task =
 931         server_schedule (plugin, plugin->server_v6, GNUNET_NO);
 932 }
 933
 934 /**
 935  * Function that queries MHD's select sets and
 936  * starts the task waiting for them.
 937  * @param plugin plugin
 938  * @param daemon_handle the MHD daemon handle
 939  * @return gnunet task identifier
 940  */
 941 static GNUNET_SCHEDULER_TaskIdentifier
 942 server_schedule (struct Plugin *plugin, struct MHD_Daemon *daemon_handle,
 943                  int now)
 944 {
 945   GNUNET_SCHEDULER_TaskIdentifier ret;
 946   fd_set rs;
 947   fd_set ws;
 948   fd_set es;
 949   struct GNUNET_NETWORK_FDSet *wrs;
 950   struct GNUNET_NETWORK_FDSet *wws;
 951   struct GNUNET_NETWORK_FDSet *wes;
 952   int max;
 953   unsigned long long timeout;
 954   static unsigned long long last_timeout = 0;
 955   int haveto;
 956
 957   struct GNUNET_TIME_Relative tv;
 958
 959   ret = GNUNET_SCHEDULER_NO_TASK;
 960   FD_ZERO (&rs);
 961   FD_ZERO (&ws);
 962   FD_ZERO (&es);
 963   wrs = GNUNET_NETWORK_fdset_create ();
 964   wes = GNUNET_NETWORK_fdset_create ();
 965   wws = GNUNET_NETWORK_fdset_create ();
 966   max = -1;
 967   GNUNET_assert (MHD_YES == MHD_get_fdset (daemon_handle, &rs, &ws, &es, &max));
 968   haveto = MHD_get_timeout (daemon_handle, &timeout);
 969   if (haveto == MHD_YES)
 970   {
 971     if (timeout != last_timeout)
 972     {
 973 #if VERBOSE_SERVER
 974       GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, plugin->name,
 975                        "SELECT Timeout changed from %llu to %llu\n",
 976                        last_timeout, timeout);
 977 #endif
 978       last_timeout = timeout;
 979     }
 980     tv.rel_value = (uint64_t) timeout;
 981   }
 982   else
 983     tv = GNUNET_TIME_UNIT_SECONDS;
 984   /* Force immediate run, since we have outbound data to send */
 985   if (now == GNUNET_YES)
 986     tv = GNUNET_TIME_UNIT_MILLISECONDS;
 987   GNUNET_NETWORK_fdset_copy_native (wrs, &rs, max + 1);
 988   GNUNET_NETWORK_fdset_copy_native (wws, &ws, max + 1);
 989   GNUNET_NETWORK_fdset_copy_native (wes, &es, max + 1);
 990
 991   if (daemon_handle == plugin->server_v4)
 992   {
 993     if (plugin->server_v4_task != GNUNET_SCHEDULER_NO_TASK)
 994     {
 995       GNUNET_SCHEDULER_cancel (plugin->server_v4_task);
 996       plugin->server_v4_task = GNUNET_SCHEDULER_NO_TASK;
 997     }
 998 #if VERBOSE_SERVER
 999   GNUNET_log_from (GNUNET_ERROR_TYPE_ERROR, plugin->name,
1000                        "Scheduling IPv4 server task in %llu ms\n", tv);
1001 #endif
1002     ret =
1003         GNUNET_SCHEDULER_add_select (GNUNET_SCHEDULER_PRIORITY_DEFAULT,
1004                                      GNUNET_SCHEDULER_NO_TASK, tv, wrs, wws,
1005                                      &server_v4_run, plugin);
1006   }
1007   if (daemon_handle == plugin->server_v6)
1008   {
1009     if (plugin->server_v6_task != GNUNET_SCHEDULER_NO_TASK)
1010     {
1011       GNUNET_SCHEDULER_cancel (plugin->server_v6_task);
1012       plugin->server_v6_task = GNUNET_SCHEDULER_NO_TASK;
1013     }
1014 #if VERBOSE_SERVER
1015   GNUNET_log_from (GNUNET_ERROR_TYPE_ERROR, plugin->name,
1016                        "Scheduling IPv6 server task in %llu ms\n", tv);
1017 #endif
1018     ret =
1019         GNUNET_SCHEDULER_add_select (GNUNET_SCHEDULER_PRIORITY_DEFAULT,
1020                                      GNUNET_SCHEDULER_NO_TASK, tv, wrs, wws,
1021                                      &server_v6_run, plugin);
1022   }
1023   GNUNET_NETWORK_fdset_destroy (wrs);
1024   GNUNET_NETWORK_fdset_destroy (wws);
1025   GNUNET_NETWORK_fdset_destroy (wes);
1026   return ret;
1027 }
1028
1029 int
1030 server_start (struct Plugin *plugin)
1031 {
1032   int res = GNUNET_OK;
1033   unsigned int timeout;
1034
1035 #if BUILD_HTTPS
1036   res = server_load_certificate (plugin);
1037   if (res == GNUNET_SYSERR)
1038   {
1039     GNUNET_log_from (GNUNET_ERROR_TYPE_ERROR, plugin->name,
1040                      "Could not load or create server certificate! Loading plugin failed!\n");
1041     return res;
1042   }
1043 #endif
1044
1045
1046 #if MHD_VERSION >= 0x00090E00
1047   timeout = GNUNET_CONSTANTS_DISCONNECT_SESSION_TIMEOUT.rel_value / 1000;
1048   GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, plugin->name,
1049                    "MHD can set timeout per connection! Default time out %u sec.\n",
1050                    timeout);
1051 #else
1052   timeout = GNUNET_CONSTANTS_IDLE_CONNECTION_TIMEOUT.rel_value / 1000;
1053   GNUNET_log_from (GNUNET_ERROR_TYPE_WARNING, plugin->name,
1054                    "MHD cannot set timeout per connection! Default time out %u sec.\n",
1055                    timeout);
1056 #endif
1057   plugin->server_v4 = NULL;
1058   if (plugin->ipv4 == GNUNET_YES)
1059   {
1060     plugin->server_v4 = MHD_start_daemon (
1061 #if VERBOSE_SERVER
1062                                            MHD_USE_DEBUG |
1063 #endif
1064 #if BUILD_HTTPS
1065                                            MHD_USE_SSL |
1066 #endif
1067                                            MHD_NO_FLAG, plugin->port,
1068                                            &server_accept_cb, plugin,
1069                                            &server_access_cb, plugin,
1070                                            MHD_OPTION_SOCK_ADDR,
1071                                            (struct sockaddr_in *)
1072                                            plugin->server_addr_v4,
1073                                            MHD_OPTION_CONNECTION_LIMIT,
1074                                            (unsigned int)
1075                                            plugin->max_connections,
1076 #if BUILD_HTTPS
1077                                            MHD_OPTION_HTTPS_PRIORITIES,
1078                                            plugin->crypto_init,
1079                                            MHD_OPTION_HTTPS_MEM_KEY,
1080                                            plugin->key,
1081                                            MHD_OPTION_HTTPS_MEM_CERT,
1082                                            plugin->cert,
1083 #endif
1084                                            MHD_OPTION_CONNECTION_TIMEOUT,
1085                                            timeout,
1086                                            MHD_OPTION_CONNECTION_MEMORY_LIMIT,
1087                                            (size_t) (2 *
1088                                                      GNUNET_SERVER_MAX_MESSAGE_SIZE),
1089                                            MHD_OPTION_NOTIFY_COMPLETED,
1090                                            &server_disconnect_cb, plugin,
1091                                            MHD_OPTION_EXTERNAL_LOGGER,
1092                                            server_log, NULL, MHD_OPTION_END);
1093   }
1094   plugin->server_v6 = NULL;
1095   if (plugin->ipv6 == GNUNET_YES)
1096   {
1097     plugin->server_v6 = MHD_start_daemon (
1098 #if VERBOSE_SERVER
1099                                            MHD_USE_DEBUG |
1100 #endif
1101 #if BUILD_HTTPS
1102                                            MHD_USE_SSL |
1103 #endif
1104                                            MHD_USE_IPv6, plugin->port,
1105                                            &server_accept_cb, plugin,
1106                                            &server_access_cb, plugin,
1107                                            MHD_OPTION_SOCK_ADDR,
1108                                            (struct sockaddr_in6 *)
1109                                            plugin->server_addr_v6,
1110                                            MHD_OPTION_CONNECTION_LIMIT,
1111                                            (unsigned int)
1112                                            plugin->max_connections,
1113 #if BUILD_HTTPS
1114                                            MHD_OPTION_HTTPS_PRIORITIES,
1115                                            plugin->crypto_init,
1116                                            MHD_OPTION_HTTPS_MEM_KEY,
1117                                            plugin->key,
1118                                            MHD_OPTION_HTTPS_MEM_CERT,
1119                                            plugin->cert,
1120 #endif
1121                                            MHD_OPTION_CONNECTION_TIMEOUT,
1122                                            timeout,
1123                                            MHD_OPTION_CONNECTION_MEMORY_LIMIT,
1124                                            (size_t) (2 *
1125                                                      GNUNET_SERVER_MAX_MESSAGE_SIZE),
1126                                            MHD_OPTION_NOTIFY_COMPLETED,
1127                                            &server_disconnect_cb, plugin,
1128                                            MHD_OPTION_EXTERNAL_LOGGER,
1129                                            server_log, NULL, MHD_OPTION_END);
1130
1131   }
1132
1133   if ((plugin->ipv4 == GNUNET_YES) && (plugin->server_v4 == NULL))
1134   {
1135     GNUNET_log_from (GNUNET_ERROR_TYPE_ERROR, plugin->name,
1136                      "Failed to start %s IPv4 server component on port %u\n",
1137                      plugin->name, plugin->port);
1138     return GNUNET_SYSERR;
1139   }
1140   if ((plugin->ipv6 == GNUNET_YES) && (plugin->server_v6 == NULL))
1141   {
1142     GNUNET_log_from (GNUNET_ERROR_TYPE_ERROR, plugin->name,
1143                      "Failed to start %s IPv6 server component on port %u\n",
1144                      plugin->name, plugin->port);
1145     return GNUNET_SYSERR;
1146   }
1147
1148   server_reschedule (plugin, GNUNET_NO);
1149
1150 #if DEBUG_HTTP
1151   GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, plugin->name,
1152                    "%s server component started on port %u\n", plugin->name,
1153                    plugin->port);
1154 #endif
1155   return res;
1156 }
1157
1158 void
1159 server_stop (struct Plugin *plugin)
1160 {
1161   struct Session *s = NULL;
1162   struct Session *t = NULL;
1163
1164 #if VERBOSE_SERVER
1165   GNUNET_log_from (GNUNET_ERROR_TYPE_ERROR, plugin->name,
1166                    "server_stop\n");
1167 #endif
1168
1169   struct MHD_Daemon *server_v4_tmp = plugin->server_v4;
1170
1171   plugin->server_v4 = NULL;
1172   struct MHD_Daemon *server_v6_tmp = plugin->server_v6;
1173
1174   plugin->server_v6 = NULL;
1175
1176   if (plugin->server_v4_task != GNUNET_SCHEDULER_NO_TASK)
1177   {
1178     GNUNET_SCHEDULER_cancel (plugin->server_v4_task);
1179     plugin->server_v4_task = GNUNET_SCHEDULER_NO_TASK;
1180   }
1181
1182   if (plugin->server_v6_task != GNUNET_SCHEDULER_NO_TASK)
1183   {
1184     GNUNET_SCHEDULER_cancel (plugin->server_v6_task);
1185     plugin->server_v6_task = GNUNET_SCHEDULER_NO_TASK;
1186   }
1187
1188   if (server_v6_tmp != NULL)
1189   {
1190     MHD_stop_daemon (server_v4_tmp);
1191   }
1192   if (server_v6_tmp != NULL)
1193   {
1194     MHD_stop_daemon (server_v6_tmp);
1195   }
1196
1197   /* cleaning up semi-sessions never propagated */
1198   s = plugin->server_semi_head;
1199   while (s != NULL)
1200   {
1201 #if VERBOSE_SERVER
1202     GNUNET_log_from (GNUNET_ERROR_TYPE_ERROR, plugin->name,
1203                      "Deleting semi-sessions %p\n", s);
1204 #endif
1205     t = s->next;
1206     struct HTTP_Message * msg = s->msg_head;
1207     struct HTTP_Message * tmp = s->msg_head;
1208     while (msg != NULL)
1209     {
1210       tmp = msg->next;
1211
1212       GNUNET_CONTAINER_DLL_remove(s->msg_head,s->msg_tail, msg);
1213       if (msg->transmit_cont != NULL)
1214       {
1215         msg->transmit_cont(msg->transmit_cont_cls, &s->target, GNUNET_SYSERR);
1216       }
1217       GNUNET_free (msg);
1218       msg = tmp;
1219     }
1220
1221     delete_session (s);
1222     s = t;
1223   }
1224
1225 #if BUILD_HTTPS
1226   GNUNET_free_non_null (plugin->crypto_init);
1227   GNUNET_free_non_null (plugin->cert);
1228   GNUNET_free_non_null (plugin->key);
1229 #endif
1230
1231 #if DEBUG_HTTP
1232   GNUNET_log_from (GNUNET_ERROR_TYPE_DEBUG, plugin->name,
1233                    "%s server component stopped\n", plugin->name);
1234 #endif
1235 }
1236
1237
1238
1239 /* end of plugin_transport_http.c */