#include "gnunet_statistics_service.h"
#include "gnunet-daemon-experimentation.h"
-struct Experiment
-{
- /* Header */
- /* Experiment issuer */
- struct GNUNET_PeerIdentity issuer;
- /* Experiment version as timestamp of creation */
- struct GNUNET_TIME_Absolute version;
+/**
+ * Struct to store information about an experiment issuer
+ */
+struct Issuer
+{
+ struct GNUNET_CRYPTO_EccPublicKeyBinaryEncoded pubkey;
+};
- /* Description */
- char *description;
- /* Required capabilities */
- uint32_t required_capabilities;
+/**
+ * Hashmap containing valid experiment issuer
+ */
+static struct GNUNET_CONTAINER_MultiHashMap *valid_issuers;
- /* Experiment itself */
- /* TBD */
-};
+/**
+ * Hashmap containing valid experiments
+ */
+static struct GNUNET_CONTAINER_MultiHashMap *experiments;
+
/**
- * Hashmap containing valid experiment issuer
+ * Verify experiment signature
+ *
+ * @param i issuer
+ * @param e experiment
+ * @return GNUNET_OK or GNUNET_SYSERR
*/
-static struct GNUNET_CONTAINER_MultiHashMap *valid_issuers;
+int
+experiment_verify (struct Issuer *i, struct Experiment *e)
+{
+ GNUNET_assert (NULL != i);
+ GNUNET_assert (NULL != e);
-void
-GNUNET_EXPERIMENTATION_experiments_verify ()
+ GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "Verification: to be implemented\n");
+ return GNUNET_OK;
+}
+
+int free_experiment (void *cls,
+ const struct GNUNET_HashCode * key,
+ void *value)
{
+ struct Experiment *e = value;
+ 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_free (i);
+ return GNUNET_OK;
}
+
/**
* Is peer a valid issuer
*
return GNUNET_NO;
}
+
+/**
+ * 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 / 1000,
+ (long long unsigned int) duration.rel_value / 1000);
+ 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);
+
+ GNUNET_EXPERIMENTATION_scheduler_add (e);
+
+ return GNUNET_OK;
+}
+
+
+/**
+ * Parse a configuration section containing experiments
+ *
+ * @param cls configuration handle
+ * @param section 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, "Section `%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 (section, &e->issuer.hashPubKey))
+ if (GNUNET_SYSERR == GNUNET_CRYPTO_hash_from_string (val, &issuer.hashPubKey))
{
- GNUNET_log (GNUNET_ERROR_TYPE_ERROR, "Section `%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, "Section `%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, "Section `%s': Version missing \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 = number;
/* 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, "Section `%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, "Section `%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;
+ required_capabilities = number;
- /* Optional fields */
+ /* Optional fields */
/* Description */
- GNUNET_CONFIGURATION_get_value_string (exp, section, "DESCRIPTION", &e->description);
+ GNUNET_CONFIGURATION_get_value_string (exp, name, "DESCRIPTION", &description);
- /* verify experiment */
+ if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_number (exp, name, "START", (long long unsigned int *) &start.abs_value))
+ 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))
+ 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
- * FIXME: Not yet sure how to store that on disk ...
*
* @param file source file
*/
-
static void
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 ()
{
+ struct Issuer *i;
char *issuers;
char *file;
+ char *pubkey;
char *pos;
struct GNUNET_PeerIdentity issuer_ID;
+ struct GNUNET_CRYPTO_EccPublicKeyBinaryEncoded pub;
+ struct GNUNET_HashCode hash;
/* Load valid issuer */
if (GNUNET_SYSERR == GNUNET_CONFIGURATION_get_value_string (GSE_cfg, "EXPERIMENTATION", "ISSUERS", &issuers))
}
valid_issuers = GNUNET_CONTAINER_multihashmap_create (10, GNUNET_NO);
-
for (pos = strtok (issuers, " "); pos != NULL; pos = strtok (NULL, " "))
{
else
{
GNUNET_log (GNUNET_ERROR_TYPE_INFO, "`%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,
- NULL, GNUNET_CONTAINER_MULTIHASHMAPOPTION_UNIQUE_FAST);
+ i, GNUNET_CONTAINER_MULTIHASHMAPOPTION_UNIQUE_FAST);
+ i = NULL;
}
}
GNUNET_free (issuers);
}
GNUNET_STATISTICS_set (GSE_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_CRYPTO_ecc_public_key_from_string(pubkey, strlen (pubkey), &pub))
+ GNUNET_log (GNUNET_ERROR_TYPE_ERROR, _("Invalid public key `%s'\n"), pubkey);
+ else
+ {
+ GNUNET_CRYPTO_hash( &pub, sizeof (pub), &hash);
+ if (NULL != (i = GNUNET_CONTAINER_multihashmap_get (valid_issuers, &hash)))
+ {
+ i->pubkey = pub;
+ GNUNET_log (GNUNET_ERROR_TYPE_DEBUG, _("Found issuer for public key `%s'\n"), pubkey);
+ }
+ else
+ GNUNET_log (GNUNET_ERROR_TYPE_ERROR, _("No issuer for public key `%s'\n"), pubkey);
+ }
+ GNUNET_free (pubkey);
+ }
+
+ 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))
return GNUNET_OK;
if (GNUNET_YES != GNUNET_DISK_file_test (file))
{
GNUNET_log (GNUNET_ERROR_TYPE_ERROR, _("Cannot read experiments file `%s'\n"), file);
+ GNUNET_free (file);
return GNUNET_OK;
}
load_file (file);
-
+ GNUNET_free (file);
return GNUNET_OK;
}
+
/**
* Stop experiments management
*/
GNUNET_EXPERIMENTATION_experiments_stop ()
{
if (NULL != valid_issuers)
+ {
+ GNUNET_CONTAINER_multihashmap_iterate (valid_issuers, &free_issuer, NULL);
GNUNET_CONTAINER_multihashmap_destroy (valid_issuers);
+ }
valid_issuers = NULL;
+ if (NULL != experiments)
+ {
+ GNUNET_CONTAINER_multihashmap_iterate (experiments, &free_experiment, NULL);
+ GNUNET_CONTAINER_multihashmap_destroy (experiments);
+ }
+ experiments = NULL;
}
/* end of gnunet-daemon-experimentation_experiments.c */