path: root/src/gns/gnunet-service-gns.c

/*
     This file is part of GNUnet.
     (C) 2009, 2010, 2011, 2012 Christian Grothoff (and other contributing authors)

     GNUnet is free software; you can redistribute it and/or modify
     it under the terms of the GNU General Public License as published
     by the Free Software Foundation; either version 3, or (at your
     option) any later version.

     GNUnet is distributed in the hope that it will be useful, but
     WITHOUT ANY WARRANTY; without even the implied warranty of
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
     General Public License for more details.

     You should have received a copy of the GNU General Public License
     along with GNUnet; see the file COPYING.  If not, write to the
     Free Software Foundation, Inc., 59 Temple Place - Suite 330,
     Boston, MA 02111-1307, USA.
*/
/**
 * @file gns/gnunet-service-gns.c
 * @brief GNUnet GNS service
 * @author Martin Schanzenbach
 */
#include "platform.h"
#include "gnunet_util_lib.h"
#include "gnunet_transport_service.h"
#include "gnunet_dns_service.h"
#include "gnunet_dnsparser_lib.h"
#include "gnunet_dht_service.h"
#include "gnunet_namestore_service.h"
#include "gnunet_gns_service.h"
#include "gnunet_statistics_service.h"
#include "block_gns.h"
#include "gns.h"
#include "gns_common.h"
#include "gnunet-service-gns_resolver.h"
#include "gnunet-service-gns_interceptor.h"
#include "gnunet_protocols.h"

/**
 * The initial interval in milliseconds btween puts in
 * a zone iteration
 */
#define INITIAL_PUT_INTERVAL GNUNET_TIME_UNIT_MILLISECONDS

/**
 * The upper bound for the zone iteration interval in milliseconds
 */
#define MINIMUM_ZONE_ITERATION_INTERVAL GNUNET_TIME_UNIT_SECONDS

/**
 * The default put interval for the zone iteration. In case
 * No option is found
 */
#define DEFAULT_ZONE_PUBLISH_TIME_WINDOW GNUNET_TIME_relative_multiply (GNUNET_TIME_UNIT_HOURS, 4)

/**
 * The factor the current zone iteration interval is divided by for each
 * additional new record
 */
#define LATE_ITERATION_SPEEDUP_FACTOR 2


/**
 * Handle to a shorten operation from api
 */
struct ClientShortenHandle
{

  /**
   * List for all shorten requests
   */
  struct ClientShortenHandle *next;

  /**
   * List for all shorten requests
   */
  struct ClientShortenHandle *prev;

  /**
   * Handle to the requesting client
   */
  struct GNUNET_SERVER_Client *client;

  /**
   * Namestore lookup task
   */
  struct GNUNET_NAMESTORE_QueueEntry *namestore_task;

  /**
   * master zone
   */
  struct GNUNET_CRYPTO_ShortHashCode root_zone;

  /**
   * private zone
   */
  struct GNUNET_CRYPTO_ShortHashCode private_zone;
  
  /**
   * shorten zone
   */
  struct GNUNET_CRYPTO_ShortHashCode shorten_zone;
  
  /**
   * The request id
   */
  uint32_t request_id;

  /**
   * request type
   */
  enum GNUNET_GNS_RecordType type;

  /** 
   * name to shorten
   */
  char name[GNUNET_DNSPARSER_MAX_NAME_LENGTH];

  /**
   * name of private zone (relative to root)
   */
  char private_zone_id[GNUNET_DNSPARSER_MAX_NAME_LENGTH];
  
  /**
   * name of shorten zone (relative to root)
   */
  char shorten_zone_id[GNUNET_DNSPARSER_MAX_NAME_LENGTH];

};


/**
 * Handle to a get authority operation from api
 */
struct ClientGetAuthHandle
{
  /**
   * Handle to the requesting client 
   */
  struct GNUNET_SERVER_Client *client;

  /**
   * name to lookup authority
   */
  char *name;

  /**
   * request id
   */
  uint32_t request_id;

};


/**
 * Handle to a lookup operation from api
 */
struct ClientLookupHandle
{

  /**
   * Handle to the requesting client
   */
  struct GNUNET_SERVER_Client *client;

  /**
   * optional zone private key used for shorten
   */
  struct GNUNET_CRYPTO_EccPrivateKey *shorten_key;

  /**
   * the name to look up
   */
  char *name; 

  /**
   * The zone we look up in
   */
  struct GNUNET_CRYPTO_ShortHashCode zone;

  /**
   * request id 
   */
  uint32_t request_id;

  /**
   * GNUNET_YES if we only want to lookup from local cache
   */
  int only_cached;

  /**
   * request type
   */
  enum GNUNET_GNS_RecordType type;
};


/**
 * Our handle to the DHT
 */
static struct GNUNET_DHT_Handle *dht_handle;

/**
 * Our zone's private key
 */
static struct GNUNET_CRYPTO_EccPrivateKey *zone_key;

/**
 * Our handle to the namestore service
 */
static struct GNUNET_NAMESTORE_Handle *namestore_handle;

/**
 * Handle to iterate over our authoritative zone in namestore
 */
static struct GNUNET_NAMESTORE_ZoneIterator *namestore_iter;

/**
 * Our notification context.
 */
static struct GNUNET_SERVER_NotificationContext *nc;

/**
 * Our zone hash
 */
static struct GNUNET_CRYPTO_ShortHashCode zone_hash;

/**
 * Useful for zone update for DHT put
 */
static unsigned long long num_public_records;

/**
 * Last seen record count
 */
static unsigned long long last_num_public_records;

/**
 * Zone iteration PUT interval.
 */
static struct GNUNET_TIME_Relative put_interval;

/**
 * Time window for zone iteration
 */
static struct GNUNET_TIME_Relative zone_publish_time_window;

/**
 * zone publish task
 */
static GNUNET_SCHEDULER_TaskIdentifier zone_publish_task;

/**
 * GNUNET_YES if automatic pkey import for name shortening
 * is enabled
 */
static int auto_import_pkey;

/**
 * GNUNET_YES if zone has never been published before
 */
static int first_zone_iteration;

/**
 * The lookup timeout
 */
static struct GNUNET_TIME_Relative default_lookup_timeout;

/**
 * GNUNET_YES if ipv6 is supported
 */
static int v6_enabled;

/**
 * GNUNET_YES if ipv4 is supported
 */
static int v4_enabled;

/**
 * List for shorten requests
 */
static struct ClientShortenHandle *csh_head;

/**
 * List for shorten requests
 */
static struct ClientShortenHandle *csh_tail;

/**
 * Handle to the statistics service
 */
static struct GNUNET_STATISTICS_Handle *statistics;


/**
 * Task run during shutdown.
 *
 * @param cls unused
 * @param tc unused
 */
static void
shutdown_task (void *cls, const struct GNUNET_SCHEDULER_TaskContext *tc)
{
  struct ClientShortenHandle *csh_tmp;

  GNUNET_log(GNUNET_ERROR_TYPE_DEBUG,
             "Shutting down!\n");
  while (NULL != (csh_tmp = csh_head))
  {
    GNUNET_CONTAINER_DLL_remove (csh_head, csh_tail, csh_tmp);
    GNUNET_free (csh_tmp);
  }
  GNUNET_SERVER_notification_context_destroy (nc);  
  gns_interceptor_stop ();
  gns_resolver_cleanup ();
  if (NULL != statistics)
  {
    GNUNET_STATISTICS_destroy (statistics, GNUNET_NO);
    statistics = NULL;
  }
  if (GNUNET_SCHEDULER_NO_TASK != zone_publish_task)
  {
    GNUNET_SCHEDULER_cancel (zone_publish_task);
    zone_publish_task = GNUNET_SCHEDULER_NO_TASK;
  }
  if (NULL != namestore_iter)
  {
    GNUNET_NAMESTORE_zone_iteration_stop (namestore_iter);
    namestore_iter = NULL;
  }
  if (NULL != namestore_handle)
  {
    GNUNET_NAMESTORE_disconnect (namestore_handle);
    namestore_handle = NULL;
  }
  if (NULL != dht_handle)
  {
    GNUNET_DHT_disconnect (dht_handle);
    dht_handle = NULL;
  }
}


/**
 * Method called periodically that triggers iteration over authoritative records
 *
 * @param cls closure
 * @param tc task context
 */
static void
publish_zone_dht_next (void *cls,
                       const struct GNUNET_SCHEDULER_TaskContext *tc)
{
  zone_publish_task = GNUNET_SCHEDULER_NO_TASK;
  GNUNET_NAMESTORE_zone_iterator_next (namestore_iter);
}


/**
 * Periodically iterate over our zone and store everything in dht
 *
 * @param cls NULL
 * @param tc task context
 */
static void
publish_zone_dht_start (void *cls, 
			const struct GNUNET_SCHEDULER_TaskContext *tc);


/**
 * Function used to put all records successively into the DHT.
 *
 * @param cls the closure (NULL)
 * @param key the public key of the authority (ours)
 * @param expiration lifetime of the namestore entry
 * @param name the name of the records
 * @param rd_count the number of records in data
 * @param rd the record data
 * @param signature the signature for the record data
 */
static void
put_gns_record (void *cls,
                const struct GNUNET_CRYPTO_EccPublicKey *key,
                struct GNUNET_TIME_Absolute expiration,
                const char *name,
                unsigned int rd_count,
                const struct GNUNET_NAMESTORE_RecordData *rd,
                const struct GNUNET_CRYPTO_EccSignature *signature)
{  
  struct GNSNameRecordBlock *nrb;
  struct GNUNET_CRYPTO_ShortHashCode zhash;
  struct GNUNET_HashCode dht_key;
  uint32_t rd_payload_length;
  char* nrb_data = NULL;
  size_t namelen;
  struct GNUNET_TIME_Relative next_put_interval; 

  if (NULL == name)
  {
    /* we're done */
    namestore_iter = NULL;
    last_num_public_records = num_public_records;
    first_zone_iteration = GNUNET_NO;
    if (0 == num_public_records)
    {
      /**
       * If no records are known (startup) or none present
       * we can safely set the interval to the value for a single
       * record
       */
      put_interval = zone_publish_time_window;
      GNUNET_log (GNUNET_ERROR_TYPE_DEBUG | GNUNET_ERROR_TYPE_BULK,
		  "No records in db.\n");
    }
    else
    {
      put_interval = GNUNET_TIME_relative_divide (zone_publish_time_window,
						  num_public_records);
    }
    put_interval = GNUNET_TIME_relative_max (MINIMUM_ZONE_ITERATION_INTERVAL,
					     put_interval);

    GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
		"Zone iteration finished. Adjusted zone iteration interval to %s\n",
		GNUNET_STRINGS_relative_time_to_string (put_interval, GNUNET_YES));
    GNUNET_STATISTICS_set (statistics,
                           "Current zone iteration interval (in ms)",
                           put_interval.rel_value,
                           GNUNET_NO);
    GNUNET_STATISTICS_update (statistics,
                              "Number of zone iterations", 1, GNUNET_NO);
    GNUNET_STATISTICS_set (statistics,
                           "Number of public records in DHT",
                           last_num_public_records,
                           GNUNET_NO);
    if (0 == num_public_records)
      zone_publish_task = GNUNET_SCHEDULER_add_delayed (put_interval,
                                                         &publish_zone_dht_start,
                                                         NULL);
    else
      zone_publish_task = GNUNET_SCHEDULER_add_now (&publish_zone_dht_start, NULL);
    return;
  }
  
  namelen = strlen (name) + 1;
  if (0 == rd_count)
  {
    GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
		"No records for name `%s'! Skipping.\n",
		name);
    zone_publish_task = GNUNET_SCHEDULER_add_now (&publish_zone_dht_next,
                                                   NULL);
    return;
  }
  if (NULL == signature)
  {
    GNUNET_break (0);
    zone_publish_task = GNUNET_SCHEDULER_add_now (&publish_zone_dht_next,
                                                   NULL);
    return;
  }
  
  /* TODO 2) AB: New publishing
   *
   * - Use new signature S_d
   * - Obtain new derived public key V = H(H(i,Q) * Q)
   * - Obtain HKDF(i,Q)
   * - Compute encrypte record block E with HKDF(i,Q) (rd, rd_count)
   * - Create block B = |V,E,S_d|
   * - Compute new DHT key H(V) in TODO 3)
   *
   * -> Put (H(V), B)
   */
  GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
	      "Putting records for `%s' into the DHT\n", name); 
  rd_payload_length = GNUNET_NAMESTORE_records_get_size (rd_count, rd); 
  nrb = GNUNET_malloc (rd_payload_length + namelen
		       + sizeof (struct GNSNameRecordBlock));
  nrb->signature = *signature;
  nrb->public_key = *key;
  nrb->rd_count = htonl (rd_count);
  memcpy (&nrb[1], name, namelen);
  nrb_data = (char *) &nrb[1];
  nrb_data += namelen;
  rd_payload_length += sizeof(struct GNSNameRecordBlock) + namelen;
  GNUNET_CRYPTO_short_hash (key,
			    sizeof (struct GNUNET_CRYPTO_EccPublicKey),
			    &zhash);
  if (-1 == GNUNET_NAMESTORE_records_serialize (rd_count,
                                                rd,
                                                rd_payload_length,
                                                nrb_data))
  {
    GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
		_("Records for name `%s' in zone %s too large to fit into DHT"),
		name,
		GNUNET_short_h2s (&zhash));
    GNUNET_free (nrb);
    zone_publish_task = GNUNET_SCHEDULER_add_now (&publish_zone_dht_next,
                                                   NULL);
    return;
  }
  /* TODO AB: Here records are put in the DHT: modify dht_key to H(key) = H(H(name,zone) * zone) */
  GNUNET_GNS_get_key_for_record (name, &zhash, &dht_key);
  GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
	      "putting %u records from zone %s for `%s' under key: %s with size %u and timeout %s\n",
	      rd_count,
	      GNUNET_short_h2s (&zhash),
	      name, 
	      GNUNET_h2s (&dht_key), 
	      (unsigned int) rd_payload_length,
	      GNUNET_STRINGS_relative_time_to_string (DHT_OPERATION_TIMEOUT, GNUNET_YES));
  
  GNUNET_STATISTICS_update (statistics,
                            "Record bytes put into DHT", 
			    rd_payload_length, GNUNET_NO);

  (void) GNUNET_DHT_put (dht_handle, &dht_key,
			 DHT_GNS_REPLICATION_LEVEL,
			 GNUNET_DHT_RO_DEMULTIPLEX_EVERYWHERE,
			 GNUNET_BLOCK_TYPE_GNS_NAMERECORD,
			 rd_payload_length,
			 (char*)nrb,
			 expiration,
			 DHT_OPERATION_TIMEOUT,
			 NULL,
			 NULL); 
  GNUNET_free (nrb);

  num_public_records++;  
  if ( (num_public_records > last_num_public_records)
       && (GNUNET_NO == first_zone_iteration) )
  {
    GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
		"Last record count was lower than current record count.  Reducing interval.\n");
    put_interval = GNUNET_TIME_relative_divide (zone_publish_time_window,
						num_public_records);
    next_put_interval = GNUNET_TIME_relative_divide (put_interval,
						     LATE_ITERATION_SPEEDUP_FACTOR);
  }
  else
    next_put_interval = put_interval;

  GNUNET_STATISTICS_set (statistics,
			 "Current zone iteration interval (ms)",
			 next_put_interval.rel_value,
			 GNUNET_NO); 
  zone_publish_task = GNUNET_SCHEDULER_add_delayed (next_put_interval,
						    &publish_zone_dht_next,
						    NULL);
}


/**
 * Periodically iterate over our zone and store everything in dht
 *
 * @param cls NULL
 * @param tc task context
 */
static void
publish_zone_dht_start (void *cls, 
			const struct GNUNET_SCHEDULER_TaskContext *tc)
{
  zone_publish_task = GNUNET_SCHEDULER_NO_TASK;

  GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, 
	      "Scheduling DHT zone update!\n");  
  /* start counting again */
  num_public_records = 0;
  namestore_iter = GNUNET_NAMESTORE_zone_iteration_start (namestore_handle,
							  NULL, /* All zones */
							  GNUNET_NAMESTORE_RF_AUTHORITY,
							  GNUNET_NAMESTORE_RF_PRIVATE,
							  &put_gns_record,
							  NULL);
}


/* END DHT ZONE PROPAGATION */


/**
 * Send shorten response back to client
 * 
 * @param cls the closure containing a client shorten handle
 * @param name the shortened name result or NULL if cannot be shortened
 */
static void
send_shorten_response (void* cls, const char* name)
{
  struct ClientShortenHandle *csh = cls;
  struct GNUNET_GNS_ClientShortenResultMessage *rmsg;
  size_t name_len;
  
  GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, 
	      "Sending `%s' message with %s\n",
              "SHORTEN_RESULT", name);
  if (NULL == name)
    name_len = 0;
  else
    name_len = strlen (name) + 1;
  GNUNET_STATISTICS_update (statistics,
                            "Name shorten results", 1, GNUNET_NO);

  rmsg = GNUNET_malloc (sizeof (struct GNUNET_GNS_ClientShortenResultMessage) +
			name_len);
  
  rmsg->id = csh->request_id;
  rmsg->header.type = htons(GNUNET_MESSAGE_TYPE_GNS_SHORTEN_RESULT);
  rmsg->header.size = 
    htons(sizeof(struct GNUNET_GNS_ClientShortenResultMessage) +
          name_len);
  memcpy (&rmsg[1], name, name_len);
  GNUNET_SERVER_notification_context_unicast (nc, csh->client,
					      &rmsg->header,
					      GNUNET_NO);
  if (NULL != csh->namestore_task)
    GNUNET_NAMESTORE_cancel (csh->namestore_task); 
  GNUNET_free (rmsg);
  GNUNET_free (csh);
}


/**
 * Lookup the zone infos and shorten name
 *
 * @param cls the client shorten handle
 * @param key key of the zone
 * @param expiration expiration of record
 * @param name name found or null if no result
 * @param rd_count number of records found
 * @param rd record data
 * @param signature
 *
 */
static void
process_shorten_in_private_zone_lookup (void *cls,
					const struct GNUNET_CRYPTO_EccPublicKey *key,
					struct GNUNET_TIME_Absolute expiration,
					const char *name,
					unsigned int rd_count,
					const struct GNUNET_NAMESTORE_RecordData *rd,
					const struct GNUNET_CRYPTO_EccSignature *signature)
{
  struct ClientShortenHandle *csh = cls;
  struct GNUNET_CRYPTO_ShortHashCode *szone = &csh->shorten_zone;
  struct GNUNET_CRYPTO_ShortHashCode *pzone = &csh->private_zone;

  csh->namestore_task = NULL;
  if (0 == strcmp (csh->private_zone_id, ""))
    pzone = NULL;  
  if (0 == rd_count)
  {
    GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
                "No shorten zone in private zone!\n");
    strcpy (csh->shorten_zone_id, "");
    szone = NULL;
  }
  else
  {
    GNUNET_break (1 == rd_count);
    GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
                "Shorten zone %s found in private zone %s\n",
                name, csh->private_zone_id);

    sprintf (csh->shorten_zone_id, "%s.%s", name, csh->private_zone_id);
  }
  GNUNET_CONTAINER_DLL_remove (csh_head, csh_tail, csh);
  gns_resolver_shorten_name (&csh->root_zone,
                             pzone,
                             szone,
                             csh->name,
                             csh->private_zone_id,
                             csh->shorten_zone_id,
                             &send_shorten_response, csh);

}


/**
 * Lookup the zone infos and shorten name
 *
 * @param cls the shorten handle
 * @param key key of the zone
 * @param expiration expiration of record
 * @param name name found or null if no result
 * @param rd_count number of records found
 * @param rd record data
 * @param signature
 *
 */
static void
process_shorten_in_root_zone_lookup (void *cls,
				     const struct GNUNET_CRYPTO_EccPublicKey *key,
				     struct GNUNET_TIME_Absolute expiration,
				     const char *name,
				     unsigned int rd_count,
				     const struct GNUNET_NAMESTORE_RecordData *rd,
				     const struct GNUNET_CRYPTO_EccSignature *signature)
{
  struct ClientShortenHandle *csh = cls;
  struct GNUNET_CRYPTO_ShortHashCode *szone = &csh->shorten_zone;
  struct GNUNET_CRYPTO_ShortHashCode *pzone = &csh->private_zone;
  
  csh->namestore_task = NULL;
  if (0 == strcmp (csh->private_zone_id, ""))
    pzone = NULL;
  if (0 == rd_count)
  {
    GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
                "No shorten zone in zone and no private zone!\n");

    strcpy (csh->shorten_zone_id, "");
    GNUNET_CONTAINER_DLL_remove (csh_head, csh_tail, csh);
    szone = NULL;
    gns_resolver_shorten_name (&csh->root_zone,
                               pzone,
                               szone,
                               csh->name,
                               csh->private_zone_id,
                               csh->shorten_zone_id,
                               &send_shorten_response, csh);
    return;
  }
  GNUNET_break (rd_count == 1);
  GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
              "Private zone %s found in root zone\n", name);
  strcpy (csh->private_zone_id, name);
  csh->namestore_task = GNUNET_NAMESTORE_zone_to_name (namestore_handle,
						       pzone,
						       szone,
						       &process_shorten_in_private_zone_lookup,
						       csh);
}


/**
 * Lookup the zone infos and shorten name
 *
 * @param cls the shorten handle
 * @param key key of the zone
 * @param expiration expiration of record
 * @param name name found or null if no result
 * @param rd_count number of records found
 * @param rd record data
 * @param signature
 */
static void
process_private_in_root_zone_lookup (void *cls,
				     const struct GNUNET_CRYPTO_EccPublicKey *key,
				     struct GNUNET_TIME_Absolute expiration,
				     const char *name,
				     unsigned int rd_count,
				     const struct GNUNET_NAMESTORE_RecordData *rd,
				     const struct GNUNET_CRYPTO_EccSignature *signature)
{
  struct ClientShortenHandle *csh = cls;

  csh->namestore_task = NULL;
  if (0 == rd_count)
  {
    GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
                "No private zone in root zone\n");
    strcpy (csh->private_zone_id, "");
    csh->namestore_task = GNUNET_NAMESTORE_zone_to_name (namestore_handle,
							 &csh->root_zone,
							 &csh->shorten_zone,
							 &process_shorten_in_root_zone_lookup,
							 csh);
    return;
  }
  GNUNET_break (1 == rd_count);
  GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
              "Private zone `%s' found in root zone\n", 
	      name);
  strcpy (csh->private_zone_id, name);
  csh->namestore_task = GNUNET_NAMESTORE_zone_to_name (namestore_handle,
						       &csh->private_zone,
						       &csh->shorten_zone,
						       &process_shorten_in_private_zone_lookup,
						       csh);
}


/**
 * Handle a shorten message from the api
 *
 * @param cls the closure (unused)
 * @param client the client
 * @param message the message
 */
static void 
handle_shorten (void *cls,
		struct GNUNET_SERVER_Client * client,
		const struct GNUNET_MessageHeader * message)
{
  struct ClientShortenHandle *csh;
  const char *utf_in;
  char name[GNUNET_DNSPARSER_MAX_NAME_LENGTH];
  char* nameptr = name;
  uint16_t msg_size;
  const struct GNUNET_GNS_ClientShortenMessage *sh_msg;

  GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
	      "Received `%s' message\n", "SHORTEN");
  msg_size = ntohs (message->size);
  if (msg_size < sizeof (struct GNUNET_GNS_ClientShortenMessage))
  {
    GNUNET_break (0);
    GNUNET_SERVER_receive_done (client, GNUNET_SYSERR);
    return;
  }
  sh_msg = (const struct GNUNET_GNS_ClientShortenMessage *) message;
  utf_in = (const char *) &sh_msg[1];
  if ('\0' != utf_in[msg_size - sizeof (struct GNUNET_GNS_ClientShortenMessage) - 1])
  {
    GNUNET_break (0);
    GNUNET_SERVER_receive_done (client, GNUNET_SYSERR);
    return;
  }
  csh = GNUNET_malloc(sizeof (struct ClientShortenHandle));
  csh->client = client;
  csh->request_id = sh_msg->id;
  GNUNET_CONTAINER_DLL_insert (csh_head, csh_tail, csh); 
  GNUNET_STRINGS_utf8_tolower (utf_in, &nameptr);
  GNUNET_log(GNUNET_ERROR_TYPE_DEBUG,
	     "SHORTEN: Converted `%s' to `%s'\n", 
	     utf_in, 
	     nameptr);
  GNUNET_SERVER_notification_context_add (nc, client);  
  if (strlen (name) < strlen (GNUNET_GNS_TLD)) 
  {
    GNUNET_log(GNUNET_ERROR_TYPE_DEBUG,
               "SHORTEN: %s is too short\n", name);
    GNUNET_CONTAINER_DLL_remove (csh_head, csh_tail, csh);
    send_shorten_response(csh, name);
    GNUNET_SERVER_receive_done (client, GNUNET_OK);
    return;
  }
  if (strlen (name) > GNUNET_DNSPARSER_MAX_NAME_LENGTH) 
  {
    GNUNET_log(GNUNET_ERROR_TYPE_DEBUG,
               "SHORTEN: %s is too long\n", name);
    GNUNET_CONTAINER_DLL_remove (csh_head, csh_tail, csh);
    send_shorten_response(csh, name);
    GNUNET_SERVER_receive_done (client, GNUNET_OK);
    return;
  }  
  if ( (! is_gads_tld (name)) && 
       (! is_zkey_tld (name)) )
  {
    GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
                "%s is not our domain. Returning\n", name);
    GNUNET_CONTAINER_DLL_remove (csh_head, csh_tail, csh);
    send_shorten_response (csh, name);
    GNUNET_SERVER_receive_done (client, GNUNET_OK);
    return;
  }
  csh->shorten_zone = sh_msg->shorten_zone;
  csh->private_zone = sh_msg->private_zone;
  strcpy (csh->name, name);  
  if (1 == ntohl(sh_msg->use_default_zone))
    csh->root_zone = zone_hash; //Default zone
  else
    csh->root_zone = sh_msg->zone;
  csh->namestore_task = GNUNET_NAMESTORE_zone_to_name (namestore_handle,
						       &csh->root_zone,
						       &csh->private_zone,
						       &process_private_in_root_zone_lookup,
						       csh);
  GNUNET_STATISTICS_update (statistics,
                            "Name shorten attempts", 1, GNUNET_NO);
  GNUNET_SERVER_receive_done (client, GNUNET_OK);
}


/**
 * Send get authority response back to client
 * 
 * @param cls the closure containing a client get auth handle
 * @param name the name of the authority, or NULL on error
 */
static void 
send_get_auth_response (void *cls, 
			const char* name)
{
  struct ClientGetAuthHandle *cah = cls;
  struct GNUNET_GNS_ClientGetAuthResultMessage *rmsg;
  
  GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, 
	      "Sending `%s' message with `%s'\n",
              "GET_AUTH_RESULT", name);
  if (NULL != name)
  {
    GNUNET_STATISTICS_update (statistics,
                              "Authorities resolved", 1, GNUNET_NO);
  }  
  if (NULL == name)  
    name = "";  
  rmsg = GNUNET_malloc (sizeof (struct GNUNET_GNS_ClientGetAuthResultMessage)
			+ strlen (name) + 1);
  
  rmsg->id = cah->request_id;
  rmsg->header.type = htons(GNUNET_MESSAGE_TYPE_GNS_GET_AUTH_RESULT);
  rmsg->header.size = 
    htons(sizeof(struct GNUNET_GNS_ClientGetAuthResultMessage) +
          strlen (name) + 1);
  strcpy ((char*)&rmsg[1], name);

  GNUNET_SERVER_notification_context_unicast (nc, cah->client,
					      &rmsg->header,
					      GNUNET_NO);
  GNUNET_SERVER_receive_done (cah->client, GNUNET_OK);
  GNUNET_free(rmsg);
  GNUNET_free_non_null(cah->name);
  GNUNET_free(cah);  
}


/**
 * Handle a get authority message from the api
 *
 * @param cls the closure
 * @param client the client
 * @param message the message
 */
static void 
handle_get_authority (void *cls,
		      struct GNUNET_SERVER_Client * client,
		      const struct GNUNET_MessageHeader * message)
{
  struct ClientGetAuthHandle *cah;
  const char *utf_in;
  char name[GNUNET_DNSPARSER_MAX_NAME_LENGTH];
  char* nameptr = name;
  uint16_t msg_size;
  const struct GNUNET_GNS_ClientGetAuthMessage *sh_msg;

  GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, 
	      "Received `%s' message\n", "GET_AUTH");
  msg_size = ntohs(message->size);
  if (msg_size < sizeof (struct GNUNET_GNS_ClientGetAuthMessage))
  {
    GNUNET_break (0);
    GNUNET_SERVER_receive_done (client, GNUNET_SYSERR);
    return;
  }
  GNUNET_SERVER_notification_context_add (nc, client);
  sh_msg = (const struct GNUNET_GNS_ClientGetAuthMessage *) message;
  utf_in = (const char *) &sh_msg[1];
  if ('\0' != utf_in[msg_size - sizeof (struct GNUNET_GNS_ClientGetAuthMessage) - 1])
  {
    GNUNET_break (0);
    GNUNET_SERVER_receive_done (client, GNUNET_SYSERR);
    return;
  }  
  GNUNET_STRINGS_utf8_tolower(utf_in, &nameptr);
  cah = GNUNET_malloc(sizeof(struct ClientGetAuthHandle));
  cah->client = client;
  cah->request_id = sh_msg->id;
  if (strlen (name) < strlen(GNUNET_GNS_TLD))
  {
    GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
                "GET_AUTH: `%s' is too short. Returning\n", name);
    cah->name = NULL;
    send_get_auth_response(cah, name);
    return;
  }  
  if (strlen (name) > GNUNET_DNSPARSER_MAX_NAME_LENGTH) 
  {
    GNUNET_log(GNUNET_ERROR_TYPE_DEBUG,
               "GET_AUTH: `%s' is too long", name);
    cah->name = NULL;
    send_get_auth_response(cah, name);
    return;
  }  
  if (0 != strcmp (name + strlen (name) - strlen (GNUNET_GNS_TLD),
		   GNUNET_GNS_TLD))
  {
    GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
                "GET_AUTH: %s is not our domain. Returning\n", name);
    cah->name = NULL;
    send_get_auth_response (cah, name);
    return;
  }

  if (0 == strcmp (name, GNUNET_GNS_TLD))
  {
    GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
                "GET_AUTH: %s is us. Returning\n", name);
    cah->name = NULL;
    send_get_auth_response(cah, name);
    return;
  }
  
  cah->name = GNUNET_malloc (strlen (name)
                            - strlen (GNUNET_GNS_TLD) + 1);
  memcpy (cah->name, name,
	  strlen (name) - strlen (GNUNET_GNS_TLD));

  /* Start delegation resolution in our namestore */
  gns_resolver_get_authority (zone_hash, zone_hash, name,
                              &send_get_auth_response, cah);
  GNUNET_STATISTICS_update (statistics,
                            "Authority lookup attempts", 1, GNUNET_NO);
}


/**
 * Reply to client with the result from our lookup.
 *
 * @param cls the closure (our client lookup handle)
 * @param rd_count the number of records
 * @param rd the record data
 */
static void
send_lookup_response (void* cls,
		      uint32_t rd_count,
		      const struct GNUNET_NAMESTORE_RecordData *rd)
{
  struct ClientLookupHandle* clh = cls;
  struct GNUNET_GNS_ClientLookupResultMessage *rmsg;
  size_t len;
  
  GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, "Sending `%s' message with %d results\n",
              "LOOKUP_RESULT", rd_count);
  
  len = GNUNET_NAMESTORE_records_get_size (rd_count, rd);
  rmsg = GNUNET_malloc (len + sizeof (struct GNUNET_GNS_ClientLookupResultMessage));
  
  rmsg->id = clh->request_id;
  rmsg->rd_count = htonl(rd_count);
  rmsg->header.type = htons(GNUNET_MESSAGE_TYPE_GNS_LOOKUP_RESULT);
  rmsg->header.size = 
    htons(len+sizeof(struct GNUNET_GNS_ClientLookupResultMessage));
  
  GNUNET_NAMESTORE_records_serialize (rd_count, rd, len, (char*)&rmsg[1]);
  
  GNUNET_SERVER_notification_context_unicast (nc, clh->client,
                                (const struct GNUNET_MessageHeader *) rmsg,
                                GNUNET_NO);
  GNUNET_SERVER_receive_done (clh->client, GNUNET_OK);
  
  GNUNET_free(rmsg);
  GNUNET_free(clh->name);
  
  if (NULL != clh->shorten_key)
    GNUNET_CRYPTO_ecc_key_free (clh->shorten_key);
  GNUNET_free (clh);
  GNUNET_STATISTICS_update (statistics,
                            "Completed lookups", 1, GNUNET_NO);
  if (NULL != rd)
    GNUNET_STATISTICS_update (statistics,
                              "Records resolved", rd_count, GNUNET_NO);
}


/**
 * Handle lookup requests from client
 *
 * @param cls the closure
 * @param client the client
 * @param message the message
 */
static void
handle_lookup (void *cls,
	       struct GNUNET_SERVER_Client * client,
	       const struct GNUNET_MessageHeader * message)
{
  size_t namelen;
  char name[GNUNET_DNSPARSER_MAX_NAME_LENGTH];
  struct ClientLookupHandle *clh;
  char* nameptr = name;
  const char *utf_in;
  int only_cached;
  const struct GNUNET_CRYPTO_EccPrivateKey *key;
  uint16_t msg_size;
  const struct GNUNET_GNS_ClientLookupMessage *sh_msg;
  
  GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, 
	      "Received `%s' message\n", "LOOKUP");
  msg_size = ntohs(message->size);
  if (msg_size < sizeof (struct GNUNET_GNS_ClientLookupMessage))
  {
    GNUNET_break (0);
    GNUNET_SERVER_receive_done (client, GNUNET_SYSERR);
    return;
  }
  sh_msg = (const struct GNUNET_GNS_ClientLookupMessage *) message;
  GNUNET_SERVER_notification_context_add (nc, client);
  if (GNUNET_YES == ntohl (sh_msg->have_key))
  {
    key = &sh_msg->shorten_key;
  }
  else
  {
    key = NULL;
  }
  utf_in = (const char *) &sh_msg[1];
  if ('\0' != utf_in[msg_size - sizeof (struct GNUNET_GNS_ClientLookupMessage) - 1])
  {
    GNUNET_break (0);
    GNUNET_SERVER_receive_done (client, GNUNET_SYSERR);
    return;
  }  
  GNUNET_STRINGS_utf8_tolower (utf_in, &nameptr);
  
  namelen = strlen (name) + 1;
  clh = GNUNET_malloc (sizeof (struct ClientLookupHandle));
  memset (clh, 0, sizeof (struct ClientLookupHandle));
  clh->client = client;
  clh->name = GNUNET_malloc (namelen);
  strcpy (clh->name, name);
  clh->request_id = sh_msg->id;
  clh->type = ntohl (sh_msg->type);
  if (NULL != key)
  {
    clh->shorten_key = GNUNET_new (struct GNUNET_CRYPTO_EccPrivateKey);
    *clh->shorten_key = *key;
  }
  only_cached = ntohl (sh_msg->only_cached);
  
  if (strlen (name) > GNUNET_DNSPARSER_MAX_NAME_LENGTH) {
    GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
                "LOOKUP: %s is too long", name);
    clh->name = NULL;
    send_lookup_response (clh, 0, NULL);
    return;
  }

  if ((GNUNET_GNS_RECORD_A == clh->type) &&
      (GNUNET_OK != v4_enabled))
  {
    GNUNET_log(GNUNET_ERROR_TYPE_DEBUG,
               "LOOKUP: Query for A record but AF_INET not supported!");
    clh->name = NULL;
    send_lookup_response (clh, 0, NULL);
    return;
  }
  
  if ((GNUNET_GNS_RECORD_AAAA == clh->type) &&
      (GNUNET_OK != v6_enabled))
  {
    GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
                "LOOKUP: Query for AAAA record but AF_INET6 not supported!");
    clh->name = NULL;
    send_lookup_response (clh, 0, NULL);
    return;
  }
  
  if (GNUNET_NO == ntohl (sh_msg->have_zone))
    clh->zone = zone_hash;  /* Default zone */
  else
    clh->zone = sh_msg->zone;
  
  if (GNUNET_YES == auto_import_pkey)
  {
    gns_resolver_lookup_record (clh->zone, clh->zone, clh->type, clh->name,
                                clh->shorten_key,
                                default_lookup_timeout,
                                clh->only_cached,
                                &send_lookup_response, clh);  
  }
  else
  {
    gns_resolver_lookup_record (clh->zone, clh->zone, clh->type, name,
                                NULL,
                                default_lookup_timeout,
                                only_cached,
                                &send_lookup_response, clh);
  }
  GNUNET_STATISTICS_update (statistics,
                            "Record lookup attempts", 1, GNUNET_NO);
}


/**
 * Process GNS requests.
 *
 * @param cls closure
 * @param server the initialized server
 * @param c configuration to use
 */
static void
run (void *cls, struct GNUNET_SERVER_Handle *server,
     const struct GNUNET_CONFIGURATION_Handle *c)
{
  static const struct GNUNET_SERVER_MessageHandler handlers[] = {
    {&handle_shorten, NULL, GNUNET_MESSAGE_TYPE_GNS_SHORTEN, 0},
    {&handle_lookup, NULL, GNUNET_MESSAGE_TYPE_GNS_LOOKUP, 0},
    {&handle_get_authority, NULL, GNUNET_MESSAGE_TYPE_GNS_GET_AUTH, 0}
  };
  char* keyfile;
  struct GNUNET_CRYPTO_EccPublicKey pkey;
  unsigned long long max_parallel_bg_queries = 0;
  int ignore_pending = GNUNET_NO;

  v6_enabled = GNUNET_NETWORK_test_pf (PF_INET6);
  v4_enabled = GNUNET_NETWORK_test_pf (PF_INET);

  if (GNUNET_OK != GNUNET_CONFIGURATION_get_value_filename (c, "gns",
							    "ZONEKEY", &keyfile))
  {
    GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
                "No private key for root zone specified!\n");
    GNUNET_SCHEDULER_shutdown ();
    return;
  }

  GNUNET_log(GNUNET_ERROR_TYPE_DEBUG,
             "Using keyfile %s for root zone.\n", keyfile);

  zone_key = GNUNET_CRYPTO_ecc_key_create_from_file (keyfile);
  GNUNET_CRYPTO_ecc_key_get_public (zone_key, &pkey);
  GNUNET_CRYPTO_short_hash (&pkey,
			    sizeof(struct GNUNET_CRYPTO_EccPublicKey),
			    &zone_hash);
  GNUNET_free(keyfile);
  namestore_handle = GNUNET_NAMESTORE_connect (c);
  if (NULL == namestore_handle)
  {
    GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
		_("Failed to connect to the namestore!\n"));
    GNUNET_SCHEDULER_shutdown ();
    return;
  }
  
  auto_import_pkey = GNUNET_NO;
  if (GNUNET_YES ==
      GNUNET_CONFIGURATION_get_value_yesno (c, "gns",
                                            "AUTO_IMPORT_PKEY"))
  {
    GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
		"Automatic PKEY import is enabled.\n");
    auto_import_pkey = GNUNET_YES;
  }
  put_interval = INITIAL_PUT_INTERVAL;
  zone_publish_time_window = DEFAULT_ZONE_PUBLISH_TIME_WINDOW;

  if (GNUNET_OK ==
      GNUNET_CONFIGURATION_get_value_time (c, "gns",
					   "ZONE_PUBLISH_TIME_WINDOW",
					   &zone_publish_time_window))
  {
    GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
		"Time window for zone iteration: %s\n",
		GNUNET_STRINGS_relative_time_to_string (zone_publish_time_window, GNUNET_YES));
  }
  if (GNUNET_OK ==
      GNUNET_CONFIGURATION_get_value_number (c, "gns",
                                            "MAX_PARALLEL_BACKGROUND_QUERIES",
                                            &max_parallel_bg_queries))
  {
    GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
		"Number of allowed parallel background queries: %llu\n",
		max_parallel_bg_queries);
  }

  if (GNUNET_YES ==
      GNUNET_CONFIGURATION_get_value_yesno (c, "gns",
                                            "AUTO_IMPORT_CONFIRMATION_REQ"))
  {
    GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
		"Auto import requires user confirmation\n");
    ignore_pending = GNUNET_YES;
  }

  if (GNUNET_OK ==
      GNUNET_CONFIGURATION_get_value_time (c, "gns",
					   "DEFAULT_LOOKUP_TIMEOUT",
					   &default_lookup_timeout))
  {
    GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
		"Default lookup timeout: %s\n",
		GNUNET_STRINGS_relative_time_to_string (default_lookup_timeout,
							GNUNET_YES));
  }
  
  dht_handle = GNUNET_DHT_connect (c,
				   (unsigned int) max_parallel_bg_queries);
  if (NULL == dht_handle)
  {
    GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
		_("Could not connect to DHT!\n"));
    GNUNET_SCHEDULER_add_now (&shutdown_task, NULL);
    return;
  }
  
  if (GNUNET_SYSERR ==
      gns_resolver_init (namestore_handle, dht_handle, zone_hash, c,
			 max_parallel_bg_queries,
			 ignore_pending))
  {
    GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
		_("Unable to initialize resolver!\n"));
    GNUNET_SCHEDULER_add_now (&shutdown_task, NULL);
    return;
  }

  if (GNUNET_YES ==
      GNUNET_CONFIGURATION_get_value_yesno (c, "gns", "HIJACK_DNS"))
  {
    GNUNET_log (GNUNET_ERROR_TYPE_INFO,
		"DNS hijacking enabled. Connecting to DNS service.\n");

    if (GNUNET_SYSERR ==
	gns_interceptor_init (zone_hash, zone_key, c))
    {
      GNUNET_log(GNUNET_ERROR_TYPE_ERROR,
               "Failed to enable the DNS interceptor!\n");
    }
  }
  
  /**
   * Schedule periodic put
   * for our records
   * We have roughly an hour for all records;
   */
  first_zone_iteration = GNUNET_YES;
  zone_publish_task = GNUNET_SCHEDULER_add_now (&publish_zone_dht_start, NULL);
  GNUNET_SERVER_add_handlers (server, handlers);
  statistics = GNUNET_STATISTICS_create ("gns", c);
  nc = GNUNET_SERVER_notification_context_create (server, 1);
  GNUNET_SCHEDULER_add_delayed (GNUNET_TIME_UNIT_FOREVER_REL, &shutdown_task,
                                NULL);
}


/**
 * The main function for the GNS service.
 *
 * @param argc number of arguments from the command line
 * @param argv command line arguments
 * @return 0 ok, 1 on error
 */
int
main (int argc, char *const *argv)
{
  int ret;

  ret =
      (GNUNET_OK ==
       GNUNET_SERVICE_run (argc, argv, "gns", GNUNET_SERVICE_OPTION_NONE, &run,
                           NULL)) ? 0 : 1;
  return ret;
}

/* end of gnunet-service-gns.c */