- replace deprecated INCLUDES with AM_CPPFLAGS
[oweals/gnunet.git] / src / experimentation / gnunet-daemon-experimentation_experiments.c
index dcbdc91018471758c9fbf940f7e3b78aeb0fd049..c787c34167f718eb9a5936cc6923f03c326c5bc8 100644 (file)
 #include "gnunet_statistics_service.h"
 #include "gnunet-daemon-experimentation.h"
 
-struct Experiment
-{
-       /* Header */
-       char *name;
-
-       /* Experiment issuer */
-       struct GNUNET_PeerIdentity issuer;
-
-       /* Experiment version as timestamp of creation */
-       struct GNUNET_TIME_Absolute version;
 
-       /* Description */
-       char *description;
-
-       /* Required capabilities  */
-       uint32_t required_capabilities;
-
-       /* Experiment itself */
-
-       /* TBD */
-};
 
+/**
+ * Struct to store information about an experiment issuer
+ */
 struct Issuer
 {
-       struct GNUNET_CRYPTO_EccPublicKeyBinaryEncoded pubkey;
+       struct GNUNET_CRYPTO_EccPublicSignKey pubkey;
 };
 
+
 /**
  * Hashmap containing valid experiment issuer
  */
 static struct GNUNET_CONTAINER_MultiHashMap *valid_issuers;
 
+
 /**
  * Hashmap containing valid experiments
  */
 static struct GNUNET_CONTAINER_MultiHashMap *experiments;
 
+
+uint32_t GSE_my_issuer_count;
+
+/**
+ * Valid experiment issuer for this daemon
+ *
+ * Array Experimentation_Issuer with GSE_my_issuer_count elements
+ */
+struct Experimentation_Issuer *GSE_my_issuer;
+
+
 /**
  * Verify experiment signature
  *
@@ -75,7 +71,6 @@ static struct GNUNET_CONTAINER_MultiHashMap *experiments;
  * @param e experiment
  * @return GNUNET_OK or GNUNET_SYSERR
  */
-
 int
 experiment_verify (struct Issuer *i, struct Experiment *e)
 {
@@ -91,30 +86,54 @@ int free_experiment (void *cls,
                                                                                 void *value)
 {
        struct Experiment *e = value;
-       GNUNET_CONTAINER_multihashmap_remove (experiments, key, value);
+       GNUNET_break (0 == GNUNET_CONTAINER_multihashmap_remove (experiments, key, value));
        GNUNET_free_non_null (e->description);
        GNUNET_free_non_null (e->name);
        GNUNET_free (e);
        return GNUNET_OK;
 }
 
+
+/**
+ * Free issuer element
+ *
+ * @param cls unused
+ * @param key the key
+ * @param value the issuer element to free
+ * @return GNUNET_OK to continue
+ */
 int free_issuer (void *cls,
                                                                 const struct GNUNET_HashCode * key,
                                                                 void *value)
 {
        struct Issuer *i = value;
-       GNUNET_CONTAINER_multihashmap_remove (valid_issuers, key, value);
+       GNUNET_break (0 == GNUNET_CONTAINER_multihashmap_remove (valid_issuers, key, value));
        GNUNET_free (i);
        return GNUNET_OK;
 }
 
+int create_issuer (void *cls,
+                                                                const struct GNUNET_HashCode * key,
+                                                                void *value)
+{
+       static int i = 0;
+       GNUNET_assert (i < GSE_my_issuer_count);
+       GSE_my_issuer[i].issuer_id.hashPubKey = *key;
+
+       i++;
+       return GNUNET_OK;
+
+}
+
+
+
 /**
  * Is peer a valid issuer
  *
  * @return GNUNET_YES or GNUNET_NO
  */
 int
-GNUNET_EXPERIMENTATION_experiments_issuer_accepted (struct GNUNET_PeerIdentity *issuer_ID)
+GED_experiments_issuer_accepted (struct GNUNET_PeerIdentity *issuer_ID)
 {
        if (GNUNET_CONTAINER_multihashmap_contains (valid_issuers, &issuer_ID->hashPubKey))
                return GNUNET_YES;
@@ -122,94 +141,244 @@ GNUNET_EXPERIMENTATION_experiments_issuer_accepted (struct GNUNET_PeerIdentity *
                return GNUNET_NO;
 }
 
+struct FindCtx
+{
+       const char *name;
+       struct GNUNET_TIME_Absolute version;
+       struct Experiment *res;
+};
+
+static int
+find_it (void *cls,
+                               const struct GNUNET_HashCode * key,
+                               void *value)
+{
+       struct FindCtx *find_ctx = cls;
+       struct Experiment *e = (struct Experiment *) value;
 
+       if (0 != strcmp(e->name, find_ctx->name))
+               return GNUNET_OK;
+       if (e->version.abs_value_us != find_ctx->version.abs_value_us)
+               return GNUNET_OK;
+
+       find_ctx->res = e;
+       return GNUNET_NO;
+}
+
+
+/*
+ * Find an experiment based on issuer name and version
+ *
+ * @param issuer the issuer
+ * @param name experiment name
+ * @param version experiment version
+ * @return the experiment or NULL if not found
+ */
+struct Experiment *
+GED_experiments_find (const struct GNUNET_PeerIdentity *issuer,
+                                                                                       const char *name,
+                                                                                       const struct GNUNET_TIME_Absolute version)
+{
+       struct FindCtx find_ctx;
+
+       find_ctx.name = name;
+       find_ctx.version = version;
+       find_ctx.res = NULL;
+
+       GNUNET_CONTAINER_multihashmap_get_multiple (experiments,
+                       &issuer->hashPubKey, &find_it, &find_ctx);
+       return find_ctx.res;
+}
+
+struct GetCtx
+{
+       struct Node *n;
+       GNUNET_EXPERIMENTATION_experiments_get_cb get_cb;
+};
+
+
+static int
+get_it (void *cls,
+                               const struct GNUNET_HashCode * key,
+                               void *value)
+{
+       struct GetCtx *get_ctx = cls;
+       struct Experiment *e = value;
+
+       get_ctx->get_cb (get_ctx->n, e);
+
+       return GNUNET_OK;
+}
+
+void
+GED_experiments_get (struct Node *n,
+                                                                                struct GNUNET_PeerIdentity *issuer,
+                                                                                GNUNET_EXPERIMENTATION_experiments_get_cb get_cb)
+{
+       struct GetCtx get_ctx;
+
+       GNUNET_assert (NULL != n);
+       GNUNET_assert (NULL != experiments);
+       GNUNET_assert (NULL != get_cb);
+
+       get_ctx.n = n;
+       get_ctx.get_cb = get_cb;
+
+       GNUNET_CONTAINER_multihashmap_get_multiple (experiments,
+                       &issuer->hashPubKey, &get_it, &get_ctx);
+
+       get_cb (n, NULL);
+}
+
+/**
+ * Add a new experiment
+ */
+int GNUNET_EXPERIMENTATION_experiments_add (struct Issuer *i,
+                                                                                                                                                                               const char *name,
+                                                                                                                                                                               struct GNUNET_PeerIdentity issuer_id,
+                                                                                                                                                                               struct GNUNET_TIME_Absolute version,
+                                                                                                                                                                               char *description,
+                                                                                                                                                                               uint32_t required_capabilities,
+                                                                                                                                                                               struct GNUNET_TIME_Absolute start,
+                                                                                                                                                                               struct GNUNET_TIME_Relative frequency,
+                                                                                                                                                                               struct GNUNET_TIME_Relative duration,
+                                                                                                                                                                               struct GNUNET_TIME_Absolute stop)
+{
+       struct Experiment *e;
+       e = GNUNET_malloc (sizeof (struct Experiment));
+
+       e->name = GNUNET_strdup (name);
+       e->issuer = issuer_id;
+       e->version = version;
+       if (NULL != description)
+               e->description = GNUNET_strdup (description);
+       e->required_capabilities = required_capabilities;
+       e->start = start;
+       e->frequency = frequency;
+       e->duration = duration;
+       e->stop = stop;
+
+       /* verify experiment */
+       if (GNUNET_SYSERR == experiment_verify (i, e))
+       {
+                       GNUNET_log (GNUNET_ERROR_TYPE_ERROR, _("Experiment `%s': Experiment signature is invalid\n"), name);
+                       GNUNET_free (e);
+                       GNUNET_free_non_null (e->name);
+                       GNUNET_free_non_null (e->description);
+                       return GNUNET_SYSERR;
+       }
+
+       GNUNET_log (GNUNET_ERROR_TYPE_INFO, _("Adding experiment `%s' running from `%s' to `%s' every %llu sec. for %llu sec. \n"),
+                       e->name,
+                       GNUNET_STRINGS_absolute_time_to_string (start),
+                       GNUNET_STRINGS_absolute_time_to_string (stop),
+                       (long long unsigned int) frequency.rel_value_us / 1000000LL,
+                       (long long unsigned int) duration.rel_value_us / 1000000LL);
+       GNUNET_CONTAINER_multihashmap_put (experiments, &e->issuer.hashPubKey, e, GNUNET_CONTAINER_MULTIHASHMAPOPTION_MULTIPLE);
+  GNUNET_STATISTICS_set (GED_stats, "# experiments", GNUNET_CONTAINER_multihashmap_size (experiments), GNUNET_NO);
+
+       return GNUNET_OK;
+}
+
+
+/**
+ * Parse a configuration section containing experiments
+ *
+ * @param cls configuration handle
+ * @param name section name
+ */
 void exp_file_iterator (void *cls,
-                                                                                               const char *section)
+                                                                                               const char *name)
 {
        struct GNUNET_CONFIGURATION_Handle *exp = cls;
-       struct Experiment *e;
        struct Issuer *i;
 
        char *val;
        unsigned long long number;
 
-       GNUNET_log (GNUNET_ERROR_TYPE_INFO, "Parsing section `%s'\n", section);
+       /* Experiment values */
+       struct GNUNET_PeerIdentity issuer;
+       struct GNUNET_TIME_Absolute version;
+       char *description;
+       uint32_t required_capabilities;
+       struct GNUNET_TIME_Absolute start ;
+       struct GNUNET_TIME_Absolute stop;
+       struct GNUNET_TIME_Relative frequency;
+       struct GNUNET_TIME_Relative duration;
+
+       //GNUNET_log (GNUNET_ERROR_TYPE_INFO, "Parsing section `%s'\n", name);
 
-       e = GNUNET_malloc (sizeof (struct Experiment));
        /* Mandatory fields */
 
        /* Issuer */
-       if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_string (exp, section, "ISSUER", &val))
+       if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_string (exp, name, "ISSUER", &val))
        {
-                       GNUNET_log (GNUNET_ERROR_TYPE_ERROR, _("Experiment `%s': Issuer missing\n"), section);
-                       GNUNET_free (e);
+                       GNUNET_log (GNUNET_ERROR_TYPE_ERROR, _("Experiment `%s': Issuer missing\n"), name);
                        return;
        }
-       if (GNUNET_SYSERR == GNUNET_CRYPTO_hash_from_string (val, &e->issuer.hashPubKey))
+       if (GNUNET_SYSERR == GNUNET_CRYPTO_hash_from_string (val, &issuer.hashPubKey))
        {
-                       GNUNET_log (GNUNET_ERROR_TYPE_ERROR, _("Experiment `%s': Issuer invalid\n"), section);
+                       GNUNET_log (GNUNET_ERROR_TYPE_ERROR, _("Experiment `%s': Issuer invalid\n"), name);
                        GNUNET_free (val);
-                       GNUNET_free (e);
                        return;
        }
-       if (NULL == (i = GNUNET_CONTAINER_multihashmap_get (valid_issuers, &e->issuer.hashPubKey)))
+       if (NULL == (i = GNUNET_CONTAINER_multihashmap_get (valid_issuers, &issuer.hashPubKey)))
        {
-               GNUNET_log (GNUNET_ERROR_TYPE_ERROR, _("Experiment `%s': Issuer not accepted!\n"), section);
+               GNUNET_log (GNUNET_ERROR_TYPE_ERROR, _("Experiment `%s': Issuer not accepted!\n"), name);
                GNUNET_free (val);
-               GNUNET_free (e);
                return;
        }
        GNUNET_free (val);
 
        /* Version */
-       if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_number (exp, section, "VERSION", &number))
+       if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_number (exp, name, "VERSION", &number))
        {
-                       GNUNET_log (GNUNET_ERROR_TYPE_ERROR, _("Experiment `%s': Version missing or invalid \n"), section);
-                       GNUNET_free (e);
+                       GNUNET_log (GNUNET_ERROR_TYPE_ERROR, _("Experiment `%s': Version missing or invalid \n"), name);
                        return;
        }
-       e->version.abs_value = number;
+       version.abs_value_us = number; // FIXME: what is this supposed to be? Version != TIME!???
 
        /* Required capabilities */
-       if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_number (exp, section, "CAPABILITIES", &number))
+       if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_number (exp, name, "CAPABILITIES", &number))
        {
-                       GNUNET_log (GNUNET_ERROR_TYPE_ERROR, _("Experiment `%s': Required capabilities missing \n"), section);
-                       GNUNET_free (e);
+                       GNUNET_log (GNUNET_ERROR_TYPE_ERROR, _("Experiment `%s': Required capabilities missing \n"), name);
                        return;
        }
        if (number > UINT32_MAX)
        {
-               GNUNET_log (GNUNET_ERROR_TYPE_ERROR, _("Experiment `%s': Required capabilities invalid \n"), section);
-               GNUNET_free (e);
+               GNUNET_log (GNUNET_ERROR_TYPE_ERROR, _("Experiment `%s': Required capabilities invalid \n"), name);
                return;
        }
-       e->required_capabilities = number;
-       e->name = GNUNET_strdup (section);
+       required_capabilities = number;
 
        /* Optional fields */
-       /* Description */
-       GNUNET_CONFIGURATION_get_value_string (exp, section, "DESCRIPTION", &e->description);
 
-       /* verify experiment */
-       if (GNUNET_SYSERR == experiment_verify (i, e))
-       {
-                       GNUNET_log (GNUNET_ERROR_TYPE_ERROR, _("Experiment `%s': Experiment signature is invalid\n"), section);
-                       GNUNET_free (e);
-                       GNUNET_free_non_null (e->name);
-                       GNUNET_free_non_null (e->description);
-                       return;
-       }
-       GNUNET_log (GNUNET_ERROR_TYPE_INFO, _("Adding experiment `%s'\n"), e->name);
-       GNUNET_CONTAINER_multihashmap_put (experiments, &e->issuer.hashPubKey, e, GNUNET_CONTAINER_MULTIHASHMAPOPTION_MULTIPLE);
-  GNUNET_STATISTICS_set (GSE_stats, "# experiments", GNUNET_CONTAINER_multihashmap_size (experiments), GNUNET_NO);
+       /* Description */
+       if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_string (exp, name, "DESCRIPTION", &description))
+               description = NULL;
+
+       if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_number (exp, name, "START", (long long unsigned int *) &start.abs_value_us))
+                       start = GNUNET_TIME_UNIT_ZERO_ABS;
+
+       if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_time (exp, name, "FREQUENCY", &frequency))
+                       frequency = EXP_DEFAULT_EXP_FREQ;
+       if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_time (exp, name, "DURATION", &duration))
+                       duration = EXP_DEFAULT_EXP_DUR;
+       if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_number (exp, name, "STOP", (long long unsigned int *)&stop.abs_value_us))
+                       stop = GNUNET_TIME_UNIT_FOREVER_ABS;
+
+       GNUNET_EXPERIMENTATION_experiments_add (i, name, issuer, version,
+                                                                                                                                                                       description, required_capabilities,
+                                                                                                                                                                       start, frequency, duration, stop);
+       GNUNET_free_non_null (description);
 }
 
+
 /**
  * Load experiments from file
  *
  * @param file source file
  */
-
 static void
 load_file (const char * file)
 {
@@ -223,17 +392,16 @@ load_file (const char * file)
                GNUNET_log (GNUNET_ERROR_TYPE_ERROR, _("Failed to parse file `%s'\n"), file);
                return;
        }
-
        GNUNET_CONFIGURATION_iterate_sections (exp, &exp_file_iterator, exp);
-
        GNUNET_CONFIGURATION_destroy (exp);
 }
 
+
 /**
  * Start experiments management
  */
 int
-GNUNET_EXPERIMENTATION_experiments_start ()
+GED_experiments_start ()
 {
        struct Issuer *i;
        char *issuers;
@@ -241,11 +409,11 @@ GNUNET_EXPERIMENTATION_experiments_start ()
        char *pubkey;
        char *pos;
        struct GNUNET_PeerIdentity issuer_ID;
-       struct GNUNET_CRYPTO_EccPublicKeyBinaryEncoded pub;
+       struct GNUNET_CRYPTO_EccPublicSignKey pub;
        struct GNUNET_HashCode hash;
 
        /* Load valid issuer */
-       if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_string (GSE_cfg, "EXPERIMENTATION", "ISSUERS", &issuers))
+       if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_string (GED_cfg, "EXPERIMENTATION", "ISSUERS", &issuers))
        {
                        GNUNET_log (GNUNET_ERROR_TYPE_ERROR, _("No valid experiment issuers configured! Set value to peer id of issuer! Exit...\n"));
                        return GNUNET_SYSERR;
@@ -261,7 +429,7 @@ GNUNET_EXPERIMENTATION_experiments_start ()
                }
                else
                {
-                               GNUNET_log (GNUNET_ERROR_TYPE_INFO, "`%s' is a valid issuer \n", GNUNET_i2s (&issuer_ID));
+                               GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, "`%s' is a valid issuer \n", GNUNET_i2s (&issuer_ID));
                                i = GNUNET_malloc (sizeof (struct Issuer));
                                GNUNET_CONTAINER_multihashmap_put (valid_issuers, &issuer_ID.hashPubKey,
                                                i, GNUNET_CONTAINER_MULTIHASHMAPOPTION_UNIQUE_FAST);
@@ -273,14 +441,14 @@ GNUNET_EXPERIMENTATION_experiments_start ()
   if (0 == GNUNET_CONTAINER_multihashmap_size (valid_issuers))
   {
                GNUNET_log (GNUNET_ERROR_TYPE_ERROR, _("No valid experiment issuers configured! Set value to peer id of issuer! Exit...\n"));
-               GNUNET_EXPERIMENTATION_experiments_stop ();
+               GED_experiments_stop ();
                return GNUNET_SYSERR;
   }
-  GNUNET_STATISTICS_set (GSE_stats, "# issuer", GNUNET_CONTAINER_multihashmap_size (valid_issuers), GNUNET_NO);
+  GNUNET_STATISTICS_set (GED_stats, "# issuer", GNUNET_CONTAINER_multihashmap_size (valid_issuers), GNUNET_NO);
 
-       if (GNUNET_OK == GNUNET_CONFIGURATION_get_value_string (GSE_cfg, "EXPERIMENTATION", "PUBKEY", &pubkey))
+       if (GNUNET_OK == GNUNET_CONFIGURATION_get_value_string (GED_cfg, "EXPERIMENTATION", "PUBKEY", &pubkey))
        {
-                       if (GNUNET_OK != GNUNET_CRYPTO_ecc_public_key_from_string(pubkey, strlen (pubkey), &pub))
+                       if (GNUNET_OK != GNUNET_CRYPTO_ecc_public_sign_key_from_string(pubkey, strlen (pubkey), &pub))
                        GNUNET_log (GNUNET_ERROR_TYPE_ERROR, _("Invalid public key `%s'\n"), pubkey);
                        else
                        {
@@ -296,9 +464,14 @@ GNUNET_EXPERIMENTATION_experiments_start ()
                        GNUNET_free (pubkey);
        }
 
+       GSE_my_issuer_count = GNUNET_CONTAINER_multihashmap_size (valid_issuers);
+       GSE_my_issuer = GNUNET_malloc (GSE_my_issuer_count * sizeof (struct Experimentation_Issuer));
+       GNUNET_CONTAINER_multihashmap_iterate (valid_issuers, &create_issuer, GSE_my_issuer);
+       GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, "Daemon has %u issuers\n", GSE_my_issuer_count);
+
   experiments = GNUNET_CONTAINER_multihashmap_create (10, GNUNET_NO);
   /* Load experiments from file */
-       if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_string (GSE_cfg, "EXPERIMENTATION", "EXPERIMENTS", &file))
+       if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_string (GED_cfg, "EXPERIMENTATION", "EXPERIMENTS", &file))
                return GNUNET_OK;
 
        if (GNUNET_YES != GNUNET_DISK_file_test (file))
@@ -309,18 +482,22 @@ GNUNET_EXPERIMENTATION_experiments_start ()
        }
        load_file (file);
        GNUNET_free (file);
-
        return GNUNET_OK;
 }
 
 
-
 /**
  * Stop experiments management
  */
 void
-GNUNET_EXPERIMENTATION_experiments_stop ()
+GED_experiments_stop ()
 {
+       if (NULL != GSE_my_issuer)
+       {
+               GNUNET_free (GSE_my_issuer);
+               GSE_my_issuer = NULL;
+               GSE_my_issuer_count = 0;
+       }
        if (NULL != valid_issuers)
        {
                GNUNET_CONTAINER_multihashmap_iterate (valid_issuers, &free_issuer, NULL);