- read whitelist from database
[oweals/gnunet.git] / src / testbed / testbed_api_services.c
index 9fbb92797fe91fe697d4b230d76ffb0556383c2a..2c390719ecabe6a644108cd770071bd1f8d7c07d 100644 (file)
@@ -1,6 +1,6 @@
 /*
       This file is part of GNUnet
-      (C) 2008--2012 Christian Grothoff (and other contributing authors)
+      (C) 2008--2013 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
 #include "testbed_api_peers.h"
 #include "testbed_api_operations.h"
 
+
+/**
+ * States for Service connect operations
+ */
+enum State
+{
+  /**
+   * Initial state
+   */
+  INIT,
+
+  /**
+   * The configuration request has been sent
+   */
+  CFG_REQUEST_QUEUED,
+
+  /**
+   * connected to service
+   */
+  SERVICE_CONNECTED
+};
+
+
+/**
+ * Data accessed during service connections
+ */
 struct ServiceConnectData
 {
   /**
@@ -49,23 +75,103 @@ struct ServiceConnectData
    * Service name
    */
   char *service_name;
-  
+
   /**
    * Closure for operation event
    */
   void *op_cls;
 
+  /**
+   * The operation which created this structure
+   */
+  struct GNUNET_TESTBED_Operation *operation;
+
+  /**
+   * The operation context from GNUNET_TESTBED_forward_operation_msg_()
+   */
+  struct OperationContext *opc;
+
+  /**
+   * The peer handle
+   */
+  struct GNUNET_TESTBED_Peer *peer;
+
+  /**
+   * The acquired configuration of the peer
+   */
+  struct GNUNET_CONFIGURATION_Handle *cfg;
+
+  /**
+   * The op_result pointer from ConnectAdapter
+   */
+  void *op_result;
+
+  /**
+   * The operation completion callback
+   */
+  GNUNET_TESTBED_ServiceConnectCompletionCallback cb;
+
+  /**
+   * The closure for operation completion callback
+   */
+  void *cb_cls;
+
+  /**
+   * State information
+   */
+  enum State state;
+
 };
 
 
 /**
- * Context information for forwarded operation used in service connect
+ * Type of a function to call when we receive a message
+ * from the service.
+ *
+ * @param cls ServiceConnectData
+ * @param msg message received, NULL on timeout or fatal error
  */
-struct SCFOContext
+static void
+configuration_receiver (void *cls, const struct GNUNET_MessageHeader *msg)
 {
-  
-};
+  struct ServiceConnectData *data = cls;
+  struct GNUNET_TESTBED_Controller *c;
+  const char *emsg;
+  struct GNUNET_TESTBED_EventInformation info;
+  uint16_t mtype;
+
+  c = data->peer->controller;
+  mtype = ntohs (msg->type);
+  emsg = NULL;
+  info.type = GNUNET_TESTBED_ET_OPERATION_FINISHED;
+  info.op = data->operation;
+  info.op_cls = data->op_cls;
+  if (GNUNET_MESSAGE_TYPE_TESTBED_OPERATION_FAIL_EVENT == mtype)
+  {
+    emsg =
+        GNUNET_TESTBED_parse_error_string_ ((const struct
+                                             GNUNET_TESTBED_OperationFailureEventMessage
+                                             *) msg);
+    if (NULL == emsg)
+      emsg = "Unknown error";
+    info.details.operation_finished.emsg = emsg;
+    info.details.operation_finished.generic = NULL;
+    goto call_cb;
+  }
+  data->cfg = GNUNET_TESTBED_extract_config_ (msg);
+  GNUNET_assert (NULL == data->op_result);
+  data->op_result = data->ca (data->cada_cls, data->cfg);
+  info.details.operation_finished.emsg = NULL;
+  info.details.operation_finished.generic = data->op_result;
+  data->state = SERVICE_CONNECTED;
 
+call_cb:
+  if ((0 != (GNUNET_TESTBED_ET_OPERATION_FINISHED & c->event_mask)) &&
+      (NULL != c->cc))
+    c->cc (c->cc_cls, &info);
+  if (NULL != data->cb)
+    data->cb (data->cb_cls, data->operation, data->op_result, emsg);
+}
 
 
 /**
@@ -73,10 +179,25 @@ struct SCFOContext
  *
  * @param cls the closure from GNUNET_TESTBED_operation_create_()
  */
-static void 
+static void
 opstart_service_connect (void *cls)
 {
-  GNUNET_break (0);
+  struct ServiceConnectData *data = cls;
+  struct GNUNET_TESTBED_PeerGetConfigurationMessage *msg;
+  struct GNUNET_TESTBED_Controller *c;
+  uint64_t op_id;
+
+  GNUNET_assert (NULL != data);
+  GNUNET_assert (NULL != data->peer);
+  c = data->peer->controller;
+  op_id = GNUNET_TESTBED_get_next_op_id (c);
+  msg =
+      GNUNET_TESTBED_generate_peergetconfig_msg_ (data->peer->unique_id, op_id);
+  data->opc =
+      GNUNET_TESTBED_forward_operation_msg_ (c, op_id, &msg->header,
+                                             &configuration_receiver, data);
+  GNUNET_free (msg);
+  data->state = CFG_REQUEST_QUEUED;
 }
 
 
@@ -86,10 +207,27 @@ opstart_service_connect (void *cls)
  *
  * @param cls the closure from GNUNET_TESTBED_operation_create_()
  */
-static void 
+static void
 oprelease_service_connect (void *cls)
 {
-  GNUNET_break (0); 
+  struct ServiceConnectData *data = cls;
+
+  switch (data->state)
+  {
+  case INIT:
+    break;
+  case CFG_REQUEST_QUEUED:
+    GNUNET_assert (NULL != data->opc);
+    GNUNET_TESTBED_forward_operation_msg_cancel_ (data->opc);
+    break;
+  case SERVICE_CONNECTED:
+    GNUNET_assert (NULL != data->cfg);
+    GNUNET_CONFIGURATION_destroy (data->cfg);
+    if (NULL != data->da)
+      data->da (data->cada_cls, data->op_result);
+    break;
+  }
+  GNUNET_free (data);
 }
 
 
@@ -99,47 +237,52 @@ oprelease_service_connect (void *cls)
  * maintain connections with other systems.  The actual service
  * handle is then returned via the 'op_result' member in the event
  * callback.  The 'ca' callback is used to create the connection
- * when the time is right; the 'da' callback will be used to 
+ * when the time is right; the 'da' callback will be used to
  * destroy the connection (upon 'GNUNET_TESTBED_operation_done').
- * 'GNUNET_TESTBED_operation_cancel' can be used to abort this
+ * 'GNUNET_TESTBED_operation_done' can be used to abort this
  * operation until the event callback has been called.
  *
  * @param op_cls closure to pass in operation event
  * @param peer peer that runs the service
  * @param service_name name of the service to connect to
+ * @param cb the callback to call when this operation finishes
+ * @param cb_cls closure for the above callback
  * @param ca helper function to establish the connection
  * @param da helper function to close the connection
  * @param cada_cls closure for ca and da
  * @return handle for the operation
  */
 struct GNUNET_TESTBED_Operation *
-GNUNET_TESTBED_service_connect (void *op_cls,
-                               struct GNUNET_TESTBED_Peer *peer,
-                               const char *service_name,
-                               GNUNET_TESTBED_ConnectAdapter ca,
-                               GNUNET_TESTBED_DisconnectAdapter da,
-                               void *cada_cls)
+GNUNET_TESTBED_service_connect (void *op_cls, struct GNUNET_TESTBED_Peer *peer,
+                                const char *service_name,
+                                GNUNET_TESTBED_ServiceConnectCompletionCallback
+                                cb, void *cb_cls,
+                                GNUNET_TESTBED_ConnectAdapter ca,
+                                GNUNET_TESTBED_DisconnectAdapter da,
+                                void *cada_cls)
 {
-  struct OperationContext *opc;
   struct ServiceConnectData *data;
 
-  data = GNUNET_malloc (sizeof (struct ServiceConnectData));
+  data = GNUNET_new (struct ServiceConnectData);
   data->ca = ca;
   data->da = da;
   data->cada_cls = cada_cls;
-  data->op_cls = op_cls;  
-  opc = GNUNET_malloc (sizeof (struct OperationContext));
-  opc->data = data;
-  opc->c = peer->controller;
-  opc->id = peer->controller->operation_counter++;
-  opc->type = OP_SERVICE_CONNECT;
-  opc->op = GNUNET_TESTBED_operation_create_ (opc, &opstart_service_connect,
-                                              &oprelease_service_connect);
-  GNUNET_TESTBED_operation_queue_insert_
-    (opc->c->opq_parallel_service_connections, opc->op);
-  GNUNET_TESTBED_operation_queue_insert_ (opc->c->opq_parallel_operations,
-                                          opc->op);
-  return opc->op;
+  data->op_cls = op_cls;
+  data->peer = peer;
+  data->state = INIT;
+  data->cb = cb;
+  data->cb_cls = cb_cls;
+  data->operation =
+      GNUNET_TESTBED_operation_create_ (data, &opstart_service_connect,
+                                        &oprelease_service_connect);
+  GNUNET_TESTBED_operation_queue_insert_ (peer->
+                                          controller->opq_parallel_service_connections,
+                                          data->operation);
+  GNUNET_TESTBED_operation_queue_insert_ (peer->
+                                          controller->opq_parallel_operations,
+                                          data->operation);
+  GNUNET_TESTBED_operation_begin_wait_ (data->operation);
+  return data->operation;
 }
 
 /* end of testbed_api_services.c */