/*
* This file is part of GNUnet
* Copyright (C) 2013 GNUnet e.V.
*
* GNUnet is free software: you can redistribute it and/or modify it
* under the terms of the GNU Affero General Public License as published
* by the Free Software Foundation, either version 3 of the License,
* 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
* Affero General Public License for more details.
*
* You should have received a copy of the GNU Affero General Public License
* along with this program. If not, see .
SPDX-License-Identifier: AGPL3.0-or-later
*/
/**
* @file social/gnunet-service-social.c
* @brief Social service
* @author Gabor X Toth
*/
#include
#include
#include
#include
#include
#include
#include
#include
#include
#include
#include "gnunet_psyc_service.h"
#include "gnunet_psyc_util_lib.h"
#include "gnunet_social_service.h"
#include "social.h"
/**
* Handle to our current configuration.
*/
static const struct GNUNET_CONFIGURATION_Handle *cfg;
/**
* Service handle.
*/
static struct GNUNET_SERVICE_Handle *service;
/* Handles to other services */
static struct GNUNET_IDENTITY_Handle *id;
static struct GNUNET_GNS_Handle *gns;
static struct GNUNET_NAMESTORE_Handle *namestore;
static struct GNUNET_STATISTICS_Handle *stats;
/**
* ID of this peer.
*/
static struct GNUNET_PeerIdentity this_peer;
/**
* All connected hosts.
* H(place_pub_key) -> struct Host
*/
static struct GNUNET_CONTAINER_MultiHashMap *hosts;
/**
* All connected guests.
* H(place_pub_key) -> struct Guest
*/
static struct GNUNET_CONTAINER_MultiHashMap *guests;
/**
* Connected guests per place.
* H(place_pub_key) -> ego_pub_key -> struct Guest
*/
static struct GNUNET_CONTAINER_MultiHashMap *place_guests;
/**
* Places entered as host or guest.
* H(place_pub_key) -> struct HostEnterRequest OR struct GuestEnterRequest
*/
static struct GNUNET_CONTAINER_MultiHashMap *places;
/**
* Places entered per application.
* H(app_id) -> H(place_pub_key) -> NULL
*/
static struct GNUNET_CONTAINER_MultiHashMap *apps_places;
/**
* Application subscriptions per place.
* H(place_pub_key) -> H(app_id)
*/
// static struct GNUNET_CONTAINER_MultiHashMap *places_apps;
/**
* Connected applications.
* H(app_id) -> struct Application
*/
static struct GNUNET_CONTAINER_MultiHashMap *apps;
/**
* All egos.
* H(ego_pub_key) -> struct Ego
*/
static struct GNUNET_CONTAINER_MultiHashMap *egos;
/**
* Directory for storing social data.
* Default: $GNUNET_DATA_HOME/social
*/
static char *dir_social;
/**
* Directory for storing place data.
* $dir_social/places
*/
static char *dir_places;
/**
* Directory for storing app data.
* $dir_social/apps
*/
static char *dir_apps;
/**
* Message fragment transmission queue.
*/
struct FragmentTransmitQueue
{
struct FragmentTransmitQueue *prev;
struct FragmentTransmitQueue *next;
struct GNUNET_SERVICE_Client *client;
/**
* Pointer to the next message part inside the data after this struct.
*/
struct GNUNET_MessageHeader *next_part;
/**
* Size of message.
*/
uint16_t size;
/**
* @see enum GNUNET_PSYC_MessageState
*/
uint8_t state;
/* Followed by one or more message parts. */
};
/**
* Message transmission queue.
*/
struct MessageTransmitQueue
{
struct MessageTransmitQueue *prev;
struct MessageTransmitQueue *next;
struct FragmentTransmitQueue *frags_head;
struct FragmentTransmitQueue *frags_tail;
struct GNUNET_SERVICE_Client *client;
};
/**
* List of connected clients.
*/
struct ClientListItem
{
struct ClientListItem *prev;
struct ClientListItem *next;
struct GNUNET_SERVICE_Client *client;
};
/**
* Common part of the client context for both a host and guest.
*/
struct Place
{
struct ClientListItem *clients_head;
struct ClientListItem *clients_tail;
struct MessageTransmitQueue *tmit_msgs_head;
struct MessageTransmitQueue *tmit_msgs_tail;
struct GNUNET_PSYC_Channel *channel;
/**
* Private key of home in case of a host.
*/
struct GNUNET_CRYPTO_EddsaPublicKey key;
/**
* Public key of place.
*/
struct GNUNET_CRYPTO_EddsaPublicKey pub_key;
/**
* Hash of @a pub_key.
*/
struct GNUNET_HashCode pub_key_hash;
/**
* Private key of ego.
*/
struct GNUNET_CRYPTO_EcdsaPrivateKey ego_key;
/**
* Public key of ego.
*/
struct GNUNET_CRYPTO_EcdsaPublicKey ego_pub_key;
/**
* Hash of @a ego_pub_key.
*/
struct GNUNET_HashCode ego_pub_hash;
/**
* Slicer for processing incoming messages.
*/
struct GNUNET_PSYC_Slicer *slicer;
/**
* Last message ID received for the place.
* 0 if there is no such message.
*/
uint64_t max_message_id;
/**
* Offset where the file is currently being written.
*/
uint64_t file_offset;
/**
* Whether or not to save the file (#GNUNET_YES or #GNUNET_NO)
*/
uint8_t file_save;
/**
* Is this place ready to receive messages from client?
* #GNUNET_YES or #GNUNET_NO
*/
uint8_t is_ready;
/**
* Is the client disconnecting?
* #GNUNET_YES or #GNUNET_NO
*/
uint8_t is_disconnecting;
/**
* Is this a host (#GNUNET_YES), or guest (#GNUNET_NO)?
*/
uint8_t is_host;
union
{
struct Host *host;
struct Guest *guest;
};
};
/**
* Client context for a host.
*/
struct Host
{
/**
* Place struct common for Host and Guest
*/
struct Place place;
/**
* Handle for the multicast origin.
*/
struct GNUNET_PSYC_Master *master;
/**
* Transmit handle for multicast.
*/
struct GNUNET_PSYC_MasterTransmitHandle *tmit_handle;
/**
* Incoming join requests.
* guest_key -> struct GNUNET_PSYC_JoinHandle *
*/
struct GNUNET_CONTAINER_MultiHashMap *join_reqs;
/**
* Messages being relayed.
*/
struct GNUNET_CONTAINER_MultiHashMap *relay_msgs;
/**
* @see enum GNUNET_PSYC_Policy
*/
enum GNUNET_PSYC_Policy policy;
};
/**
* Client context for a guest.
*/
struct Guest
{
/**
* Place struct common for Host and Guest.
*/
struct Place place;
/**
* Handle for the PSYC slave.
*/
struct GNUNET_PSYC_Slave *slave;
/**
* Transmit handle for multicast.
*/
struct GNUNET_PSYC_SlaveTransmitHandle *tmit_handle;
/**
* Peer identity of the origin.
*/
struct GNUNET_PeerIdentity origin;
/**
* Number of items in @a relays.
*/
uint32_t relay_count;
/**
* Relays that multicast can use to connect.
*/
struct GNUNET_PeerIdentity *relays;
/**
* Join request to be transmitted to the master on join.
*/
struct GNUNET_MessageHeader *join_req; // FIXME: not used!
/**
* Join decision received from PSYC.
*/
struct GNUNET_PSYC_JoinDecisionMessage *join_dcsn;
/**
* Join flags for the PSYC service.
*/
enum GNUNET_PSYC_SlaveJoinFlags join_flags;
};
/**
* Context for a client.
*/
struct Client
{
/**
* Client handle.
*/
struct GNUNET_SERVICE_Client *client;
/**
* Place where the client entered.
*/
struct Place *place;
/**
* Message queue for the message currently being transmitted
* by this client.
*/
struct MessageTransmitQueue *tmit_msg;
/**
* ID for application clients.
*/
char *app_id;
};
struct Application
{
struct ClientListItem *clients_head;
struct ClientListItem *clients_tail;
};
struct Ego
{
struct GNUNET_CRYPTO_EcdsaPrivateKey key;
char *name;
};
struct OperationClosure
{
struct Client *client;
uint64_t op_id;
uint32_t flags;
};
static int
psyc_transmit_message (struct Place *plc);
/**
* Clean up place data structures after a client disconnected.
*
* @param cls the `struct Place` to clean up
*/
static void
cleanup_place (void *cls);
static struct MessageTransmitQueue *
psyc_transmit_queue_message (struct Place *plc,
struct GNUNET_SERVICE_Client *client,
size_t data_size,
const void *data,
uint16_t first_ptype, uint16_t last_ptype,
struct MessageTransmitQueue *tmit_msg);
static int
place_entry_cleanup (void *cls,
const struct GNUNET_HashCode *key,
void *value)
{
struct Place *plc = value;
cleanup_place (plc);
return GNUNET_YES;
}
/**
* Task run during shutdown.
*
* @param cls unused
*/
static void
shutdown_task (void *cls)
{
GNUNET_CONTAINER_multihashmap_iterate (hosts, place_entry_cleanup, NULL);
GNUNET_CONTAINER_multihashmap_iterate (guests, place_entry_cleanup, NULL);
if (NULL != id)
{
GNUNET_IDENTITY_disconnect (id);
id = NULL;
}
if (NULL != namestore)
{
GNUNET_NAMESTORE_disconnect (namestore);
namestore = NULL;
}
if (NULL != gns)
{
GNUNET_GNS_disconnect (gns);
gns = NULL;
}
if (NULL != stats)
{
GNUNET_STATISTICS_destroy (stats, GNUNET_YES);
stats = NULL;
}
}
/**
* Clean up host data structures after a client disconnected.
*/
static void
cleanup_host (struct Host *hst)
{
struct Place *plc = &hst->place;
GNUNET_CONTAINER_multihashmap_destroy (hst->join_reqs);
GNUNET_CONTAINER_multihashmap_destroy (hst->relay_msgs);
GNUNET_CONTAINER_multihashmap_remove (hosts, &plc->pub_key_hash, plc);
}
/**
* Clean up guest data structures after a client disconnected.
*/
static void
cleanup_guest (struct Guest *gst)
{
struct Place *plc = &gst->place;
struct GNUNET_CONTAINER_MultiHashMap *
plc_gst = GNUNET_CONTAINER_multihashmap_get (place_guests,
&plc->pub_key_hash);
if (NULL != plc_gst)
{
GNUNET_CONTAINER_multihashmap_remove (plc_gst, &plc->ego_pub_hash, gst);
if (0 == GNUNET_CONTAINER_multihashmap_size (plc_gst))
{
GNUNET_CONTAINER_multihashmap_remove (place_guests, &plc->pub_key_hash,
plc_gst);
GNUNET_CONTAINER_multihashmap_destroy (plc_gst);
}
}
GNUNET_CONTAINER_multihashmap_remove (guests, &plc->pub_key_hash, gst);
if (NULL != gst->join_req)
GNUNET_free (gst->join_req);
if (NULL != gst->relays)
GNUNET_free (gst->relays);
GNUNET_CONTAINER_multihashmap_remove (guests, &plc->pub_key_hash, plc);
}
/**
* Clean up place data structures after a client disconnected.
*
* @param cls the `struct Place` to clean up
*/
static void
cleanup_place (void *cls)
{
struct Place *plc = cls;
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
"cleaning up place %s\n",
GNUNET_h2s (&plc->pub_key_hash));
(GNUNET_YES == plc->is_host)
? cleanup_host ((struct Host *) plc)
: cleanup_guest ((struct Guest *) plc);
GNUNET_PSYC_slicer_destroy (plc->slicer);
GNUNET_free (plc);
}
/**
* Called whenever a client is disconnected.
* Frees our resources associated with that client.
*
* @param cls closure
* @param client identification of the client
* @param app_ctx must match @a client
*/
static void
client_notify_disconnect (void *cls,
struct GNUNET_SERVICE_Client *client,
void *app_ctx)
{
struct Client *c = app_ctx;
struct Place *plc = c->place;
if (NULL != c->app_id)
GNUNET_free (c->app_id);
GNUNET_free (c);
if (NULL == plc)
return; // application client, nothing to do
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
"%p Client (%s) disconnected from place %s\n",
plc, (GNUNET_YES == plc->is_host) ? "host" : "guest",
GNUNET_h2s (&plc->pub_key_hash));
struct ClientListItem *cli = plc->clients_head;
while (NULL != cli)
{
if (cli->client == client)
{
GNUNET_CONTAINER_DLL_remove (plc->clients_head,
plc->clients_tail,
cli);
GNUNET_free (cli);
break;
}
cli = cli->next;
}
if (GNUNET_YES == plc->is_disconnecting)
{
GNUNET_PSYC_slicer_destroy (plc->slicer);
GNUNET_free (plc);
}
}
/**
* A new client connected.
*
* @param cls NULL
* @param client client to add
* @param mq message queue for @a client
* @return @a client
*/
static void *
client_notify_connect (void *cls,
struct GNUNET_SERVICE_Client *client,
struct GNUNET_MQ_Handle *mq)
{
struct Client *c = GNUNET_new (struct Client);
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
"Client %p connected with queue %p\n",
client,
mq);
c->client = client;
return c;
}
/**
* Send message to all clients connected to a place and
* takes care of freeing @env.
*/
static void
place_send_msg (const struct Place *plc,
struct GNUNET_MQ_Envelope *env)
{
struct ClientListItem *cli = plc->clients_head;
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
"%p Sending message to clients of place.\n", plc);
while (NULL != cli)
{
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
"Sending message to client %p\n",
cli);
GNUNET_MQ_send_copy (GNUNET_SERVICE_client_get_mq (cli->client),
env);
cli = cli->next;
}
GNUNET_MQ_discard (env);
}
static void
place_send_leave_ack (struct Place *plc)
{
struct GNUNET_MQ_Envelope *env;
for (struct ClientListItem *cli = plc->clients_head;
NULL != cli;
cli = cli->next)
{
env = GNUNET_MQ_msg_header (GNUNET_MESSAGE_TYPE_SOCIAL_PLACE_LEAVE_ACK);
GNUNET_MQ_send (GNUNET_SERVICE_client_get_mq (cli->client),
env);
}
}
/**
* Send a result code back to the client.
*
* @param client
* Client that should receive the result code.
* @param result_code
* Code to transmit.
* @param op_id
* Operation ID in network byte order.
* @param data
* Data payload or NULL.
* @param data_size
* Size of @a data.
*/
static void
client_send_result (struct GNUNET_SERVICE_Client *client, uint64_t op_id,
int64_t result_code, const void *data, uint16_t data_size)
{
struct GNUNET_MQ_Envelope *env;
struct GNUNET_OperationResultMessage *res;
env = GNUNET_MQ_msg_extra (res,
data_size,
GNUNET_MESSAGE_TYPE_PSYC_RESULT_CODE);
res->result_code = GNUNET_htonll (result_code);
res->op_id = op_id;
if (0 < data_size)
GNUNET_memcpy (&res[1], data, data_size);
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
"%p Sending result to client for operation #%" PRIu64 ": "
"%" PRId64 " (size: %u)\n",
client, GNUNET_ntohll (op_id), result_code, data_size);
GNUNET_MQ_send (GNUNET_SERVICE_client_get_mq (client), env);
}
static void
client_send_host_enter_ack (struct GNUNET_SERVICE_Client *client,
struct Host *hst, uint32_t result)
{
struct GNUNET_MQ_Envelope *env;
struct HostEnterAck *hack;
struct Place *plc = &hst->place;
env = GNUNET_MQ_msg (hack,
GNUNET_MESSAGE_TYPE_SOCIAL_HOST_ENTER_ACK);
hack->result_code = htonl (result);
hack->max_message_id = GNUNET_htonll (plc->max_message_id);
hack->place_pub_key = plc->pub_key;
if (NULL != client)
GNUNET_MQ_send (GNUNET_SERVICE_client_get_mq (client),
env);
else
place_send_msg (plc, env);
}
/**
* Called after a PSYC master is started.
*/
static void
psyc_master_started (void *cls, int result, uint64_t max_message_id)
{
struct Host *hst = cls;
struct Place *plc = &hst->place;
plc->max_message_id = max_message_id;
plc->is_ready = GNUNET_YES;
client_send_host_enter_ack (NULL, hst, result);
}
/**
* Called when a PSYC master receives a join request.
*/
static void
psyc_recv_join_request (void *cls,
const struct GNUNET_PSYC_JoinRequestMessage *req,
const struct GNUNET_CRYPTO_EcdsaPublicKey *slave_key,
const struct GNUNET_PSYC_Message *join_msg,
struct GNUNET_PSYC_JoinHandle *jh)
{
struct Host *hst = cls;
struct GNUNET_HashCode slave_key_hash;
GNUNET_CRYPTO_hash (slave_key, sizeof (*slave_key), &slave_key_hash);
GNUNET_CONTAINER_multihashmap_put (hst->join_reqs, &slave_key_hash, jh,
GNUNET_CONTAINER_MULTIHASHMAPOPTION_MULTIPLE);
place_send_msg (&hst->place,
GNUNET_MQ_msg_copy (&req->header));
}
/**
* Called after a PSYC slave is connected.
*/
static void
psyc_slave_connected (void *cls, int result, uint64_t max_message_id)
{
struct GNUNET_PSYC_CountersResultMessage *res;
struct GNUNET_MQ_Envelope *env;
struct Guest *gst = cls;
struct Place *plc = &gst->place;
plc->max_message_id = max_message_id;
plc->is_ready = GNUNET_YES;
env = GNUNET_MQ_msg (res,
GNUNET_MESSAGE_TYPE_SOCIAL_GUEST_ENTER_ACK);
res->result_code =
(result != GNUNET_SYSERR) ? htonl (GNUNET_OK) : htonl (GNUNET_SYSERR);
res->max_message_id = GNUNET_htonll (plc->max_message_id);
place_send_msg (plc, env);
}
static void
slave_parted_after_join_decision (void *cls)
{
struct Guest *gst = cls;
GNUNET_assert (NULL != gst->join_dcsn);
place_send_msg (&gst->place, GNUNET_MQ_msg_copy (&gst->join_dcsn->header));
}
/**
* Called when a PSYC slave receives a join decision.
*/
static void
psyc_recv_join_dcsn (void *cls,
const struct GNUNET_PSYC_JoinDecisionMessage *dcsn,
int is_admitted,
const struct GNUNET_PSYC_Message *join_msg)
{
struct Guest *gst = cls;
gst->join_dcsn = GNUNET_malloc (dcsn->header.size);
GNUNET_memcpy (gst->join_dcsn,
dcsn,
dcsn->header.size);
if (GNUNET_NO == is_admitted)
{
GNUNET_PSYC_slave_part (gst->slave,
GNUNET_NO,
&slave_parted_after_join_decision,
gst);
gst->slave = NULL;
return;
}
place_send_msg (&gst->place, GNUNET_MQ_msg_copy (&gst->join_dcsn->header));
}
/**
* Called when a PSYC master or slave receives a message.
*/
static void
psyc_recv_message (void *cls,
const struct GNUNET_PSYC_MessageHeader *msg)
{
struct Place *plc = cls;
char *str = GNUNET_CRYPTO_ecdsa_public_key_to_string (&msg->slave_pub_key);
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
"%p Received PSYC message of size %u from %s.\n",
plc, ntohs (msg->header.size), str);
GNUNET_free (str);
GNUNET_PSYC_slicer_message (plc->slicer, msg);
place_send_msg (plc, GNUNET_MQ_msg_copy (&msg->header));
}
/**
* Relay a message part received from a guest to the the place.
*
* @param hst
* Host.
* @param pmsg
* Message part.
* @param nym_pub_key
* Nym the message is received from.
*/
static void
host_relay_message_part (struct Host *hst,
const struct GNUNET_MessageHeader *pmsg,
const struct GNUNET_CRYPTO_EcdsaPublicKey *nym_pub_key)
{
/* separate queue per nym */
struct GNUNET_HashCode nym_pub_hash;
GNUNET_CRYPTO_hash (nym_pub_key, sizeof (*nym_pub_key), &nym_pub_hash);
struct MessageTransmitQueue *
tmit_msg = GNUNET_CONTAINER_multihashmap_get (hst->relay_msgs,
&nym_pub_hash);
uint16_t ptype = ntohs (pmsg->type);
if (GNUNET_MESSAGE_TYPE_PSYC_MESSAGE_METHOD == ptype)
{
/* FIXME: last message was unfinished, cancel & remove from queue */
GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
"FIXME: last message was unfinished.\n");
}
tmit_msg = psyc_transmit_queue_message (&hst->place, NULL, ntohs (pmsg->size),
pmsg, ptype, ptype, tmit_msg);
switch (ptype)
{
case GNUNET_MESSAGE_TYPE_PSYC_MESSAGE_METHOD:
GNUNET_assert (GNUNET_YES == GNUNET_CONTAINER_multihashmap_put
(hst->relay_msgs, &nym_pub_hash, tmit_msg,
GNUNET_CONTAINER_MULTIHASHMAPOPTION_UNIQUE_ONLY));
break;
case GNUNET_MESSAGE_TYPE_PSYC_MESSAGE_END:
case GNUNET_MESSAGE_TYPE_PSYC_MESSAGE_CANCEL:
GNUNET_assert (GNUNET_YES == GNUNET_CONTAINER_multihashmap_remove
(hst->relay_msgs, &nym_pub_hash, tmit_msg));
break;
}
}
/**
* Received a method to be relayed from a guest.
*/
static void
place_recv_relay_method (void *cls,
const struct GNUNET_PSYC_MessageHeader *msg,
const struct GNUNET_PSYC_MessageMethod *meth,
uint64_t message_id,
const char *method_name)
{
struct Place *plc = cls;
if (GNUNET_PSYC_MESSAGE_REQUEST & ntohs (msg->flags)
&& (GNUNET_YES == plc->is_host))
{
struct Host *hst = cls;
host_relay_message_part (hst, &meth->header, &msg->slave_pub_key);
}
}
/**
* Received a modifier to be relayed from a guest.
*/
static void
place_recv_relay_modifier (void *cls,
const struct GNUNET_PSYC_MessageHeader *msg,
const struct GNUNET_MessageHeader *pmsg,
uint64_t message_id,
enum GNUNET_PSYC_Operator oper,
const char *name,
const void *value,
uint16_t value_size,
uint16_t full_value_size)
{
struct Place *plc = cls;
if (GNUNET_PSYC_MESSAGE_REQUEST & ntohs (msg->flags)
&& (GNUNET_YES == plc->is_host))
{
struct Host *hst = cls;
host_relay_message_part (hst, pmsg, &msg->slave_pub_key);
}
}
/**
* Received a data fragment to be relayed from a guest.
*/
static void
place_recv_relay_data (void *cls,
const struct GNUNET_PSYC_MessageHeader *msg,
const struct GNUNET_MessageHeader *pmsg,
uint64_t message_id,
const void *data,
uint16_t data_size)
{
struct Place *plc = cls;
if (GNUNET_PSYC_MESSAGE_REQUEST & ntohs (msg->flags)
&& (GNUNET_YES == plc->is_host))
{
struct Host *hst = cls;
host_relay_message_part (hst, pmsg, &msg->slave_pub_key);
}
}
/**
* Received end of message to be relayed from a guest.
*/
static void
place_recv_relay_eom (void *cls,
const struct GNUNET_PSYC_MessageHeader *msg,
const struct GNUNET_MessageHeader *pmsg,
uint64_t message_id,
uint8_t is_cancelled)
{
struct Place *plc = cls;
if (GNUNET_PSYC_MESSAGE_REQUEST & ntohs (msg->flags)
&& (GNUNET_YES == plc->is_host))
{
struct Host *hst = cls;
host_relay_message_part (hst, pmsg, &msg->slave_pub_key);
}
}
/**
* Received a method to be saved to disk.
*
* Create a new file for writing the data part of the message into,
* if the file does not yet exist.
*/
static void
place_recv_save_method (void *cls,
const struct GNUNET_PSYC_MessageHeader *msg,
const struct GNUNET_PSYC_MessageMethod *meth,
uint64_t message_id,
const char *method_name)
{
struct Place *plc = cls;
plc->file_offset = 0;
plc->file_save = GNUNET_NO;
char *place_pub_str = GNUNET_CRYPTO_eddsa_public_key_to_string (
&plc->pub_key);
char *filename = NULL;
GNUNET_asprintf (&filename, "%s%c" "%s%c" "%s%c" "%" PRIu64 ".part",
dir_social, DIR_SEPARATOR,
"files", DIR_SEPARATOR,
place_pub_str, DIR_SEPARATOR,
GNUNET_ntohll (msg->message_id));
GNUNET_free (place_pub_str);
/* save if does not already exist */
if (GNUNET_YES != GNUNET_DISK_file_test (filename))
{
if (GNUNET_OK ==
GNUNET_DISK_fn_write (filename, NULL, 0,
GNUNET_DISK_PERM_USER_READ
| GNUNET_DISK_PERM_USER_WRITE))
{
plc->file_save = GNUNET_YES;
}
else
{
GNUNET_break (0);
}
}
GNUNET_free (filename);
}
/**
* Received a data fragment to be saved to disk.
*
* Append data fragment to the file.
*/
static void
place_recv_save_data (void *cls,
const struct GNUNET_PSYC_MessageHeader *msg,
const struct GNUNET_MessageHeader *pmsg,
uint64_t message_id,
const void *data,
uint16_t data_size)
{
struct Place *plc = cls;
if (GNUNET_YES != plc->file_save)
return;
char *place_pub_str = GNUNET_CRYPTO_eddsa_public_key_to_string (
&plc->pub_key);
char *filename = NULL;
GNUNET_asprintf (&filename, "%s%c" "%s%c" "%s%c" "%" PRIu64 ".part",
dir_social, DIR_SEPARATOR,
"files", DIR_SEPARATOR,
place_pub_str, DIR_SEPARATOR,
GNUNET_ntohll (msg->message_id));
GNUNET_free (place_pub_str);
if (GNUNET_SYSERR == GNUNET_DISK_directory_create_for_file (filename))
{
GNUNET_log_strerror_file (GNUNET_ERROR_TYPE_ERROR, "create", filename);
GNUNET_free (filename);
return;
}
struct GNUNET_DISK_FileHandle *
fh = GNUNET_DISK_file_open (filename, GNUNET_DISK_OPEN_WRITE,
GNUNET_DISK_PERM_NONE);
if (NULL != fh)
{
if (plc->file_offset != GNUNET_DISK_file_seek
(fh, plc->file_offset, GNUNET_DISK_SEEK_SET))
{
GNUNET_log_strerror_file (GNUNET_ERROR_TYPE_ERROR, "seek", filename);
GNUNET_DISK_file_close (fh);
GNUNET_free (filename);
return;
}
GNUNET_DISK_file_write (fh, data, data_size);
GNUNET_DISK_file_close (fh);
GNUNET_free (filename);
}
else
{
GNUNET_free (filename);
GNUNET_break (0);
}
plc->file_offset += data_size;
}
/**
* Received end of message to be saved to disk.
*
* Remove .part ending from the filename.
*/
static void
place_recv_save_eom (void *cls,
const struct GNUNET_PSYC_MessageHeader *msg,
const struct GNUNET_MessageHeader *pmsg,
uint64_t message_id,
uint8_t is_cancelled)
{
struct Place *plc = cls;
if (GNUNET_YES != plc->file_save)
return;
char *place_pub_str = GNUNET_CRYPTO_eddsa_public_key_to_string (
&plc->pub_key);
char *fn = NULL;
GNUNET_asprintf (&fn, "%s%c%s%c%s%c%" PRIu64,
dir_social, DIR_SEPARATOR,
"files", DIR_SEPARATOR,
place_pub_str, DIR_SEPARATOR,
GNUNET_ntohll (msg->message_id));
GNUNET_free (place_pub_str);
char *fn_part = NULL;
GNUNET_asprintf (&fn_part, "%s.part", fn);
if (rename (fn_part, fn))
{
GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
"Failed to rename %s into %s: %s (%d)\n",
fn_part, fn, strerror (errno), errno);
}
GNUNET_free (fn);
GNUNET_free (fn_part);
}
/**
* Initialize place data structure.
*/
static void
place_init (struct Place *plc)
{
plc->slicer = GNUNET_PSYC_slicer_create ();
}
/**
* Add a place to the @e places hash map.
*
* @param ereq
* Entry request.
*
* @return #GNUNET_OK if the place was added
* #GNUNET_NO if the place already exists in the hash map
* #GNUNET_SYSERR on error
*/
static int
place_add (const struct PlaceEnterRequest *ereq)
{
struct EgoPlacePublicKey ego_place_pub_key = {
.ego_pub_key = ereq->ego_pub_key,
.place_pub_key = ereq->place_pub_key,
};
struct GNUNET_HashCode ego_place_pub_hash;
GNUNET_CRYPTO_hash (&ego_place_pub_key, sizeof (ego_place_pub_key),
&ego_place_pub_hash);
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
" ego_place_pub_hash = %s\n", GNUNET_h2s (&ego_place_pub_hash));
struct GNUNET_MessageHeader *
place_msg = GNUNET_CONTAINER_multihashmap_get (places, &ego_place_pub_hash);
if (NULL != place_msg)
return GNUNET_NO;
place_msg = GNUNET_copy_message (&ereq->header);
if (GNUNET_OK != GNUNET_CONTAINER_multihashmap_put (places,
&ego_place_pub_hash,
place_msg,
GNUNET_CONTAINER_MULTIHASHMAPOPTION_UNIQUE_FAST))
{
GNUNET_break (0);
GNUNET_free (place_msg);
return GNUNET_SYSERR;
}
return GNUNET_OK;
}
/**
* Add a place to the @e app_places hash map.
*
* @param app_id
* Application ID.
* @param ereq
* Entry request.
*
* @return #GNUNET_OK if the place was added
* #GNUNET_NO if the place already exists in the hash map
* #GNUNET_SYSERR on error
*/
static int
app_place_add (const char *app_id,
const struct PlaceEnterRequest *ereq)
{
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
"Adding app place to hashmap:\n");
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
" app_id = %s\n", app_id);
struct GNUNET_HashCode app_id_hash;
GNUNET_CRYPTO_hash (app_id, strlen (app_id) + 1, &app_id_hash);
struct EgoPlacePublicKey ego_place_pub_key = {
.ego_pub_key = ereq->ego_pub_key,
.place_pub_key = ereq->place_pub_key,
};
struct GNUNET_HashCode ego_place_pub_hash;
GNUNET_CRYPTO_hash (&ego_place_pub_key, sizeof (ego_place_pub_key),
&ego_place_pub_hash);
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
" ego_place_pub_hash = %s\n", GNUNET_h2s (&ego_place_pub_hash));
struct GNUNET_CONTAINER_MultiHashMap *
app_places = GNUNET_CONTAINER_multihashmap_get (apps_places, &app_id_hash);
if (NULL == app_places)
{
app_places = GNUNET_CONTAINER_multihashmap_create (1, GNUNET_NO);
GNUNET_CONTAINER_multihashmap_put (apps_places, &app_id_hash, app_places,
GNUNET_CONTAINER_MULTIHASHMAPOPTION_UNIQUE_FAST);
}
if (GNUNET_YES == GNUNET_CONTAINER_multihashmap_contains (app_places,
&ego_place_pub_hash))
return GNUNET_NO;
if (GNUNET_SYSERR == place_add (ereq))
{
return GNUNET_SYSERR;
}
if (GNUNET_OK != GNUNET_CONTAINER_multihashmap_put (app_places,
&ego_place_pub_hash, NULL,
GNUNET_CONTAINER_MULTIHASHMAPOPTION_UNIQUE_FAST))
{
GNUNET_break (0);
return GNUNET_SYSERR;
}
return GNUNET_OK;
}
/**
* Save place entry message to disk.
*
* @param app_id
* Application ID.
* @param ereq
* Entry request message.
*/
static int
app_place_save (const char *app_id,
const struct PlaceEnterRequest *ereq)
{
int ret=0;
if (GNUNET_SYSERR == app_place_add (app_id, ereq))
{
GNUNET_assert (0);
}
if (NULL == dir_places)
return GNUNET_SYSERR;
char *ego_pub_str = GNUNET_CRYPTO_ecdsa_public_key_to_string (
&ereq->ego_pub_key);
char *place_pub_str = GNUNET_CRYPTO_eddsa_public_key_to_string (
&ereq->place_pub_key);
char *filename = NULL;
GNUNET_asprintf (&filename, "%s%c" "%s%c" "%s%c" "%s",
dir_social, DIR_SEPARATOR,
"places", DIR_SEPARATOR,
ego_pub_str, DIR_SEPARATOR,
place_pub_str);
if (GNUNET_OK !=
GNUNET_DISK_fn_write (filename, ereq, ntohs (ereq->header.size),
GNUNET_DISK_PERM_USER_READ
| GNUNET_DISK_PERM_USER_WRITE))
{
GNUNET_break (0);
ret = GNUNET_SYSERR;
}
GNUNET_free (filename);
if (ret == GNUNET_OK)
{
GNUNET_asprintf (&filename, "%s%c" "%s%c" "%s%c" "%s%c" "%s",
dir_social, DIR_SEPARATOR,
"apps", DIR_SEPARATOR,
app_id, DIR_SEPARATOR,
ego_pub_str, DIR_SEPARATOR,
place_pub_str);
ret = GNUNET_DISK_directory_create_for_file (filename);
if ((GNUNET_OK != ret)
|| (0 > GNUNET_DISK_fn_write (filename, "", 0,
GNUNET_DISK_PERM_USER_READ
| GNUNET_DISK_PERM_USER_WRITE)))
{
GNUNET_break (0);
ret = GNUNET_SYSERR;
}
GNUNET_free (filename);
}
GNUNET_free (ego_pub_str);
GNUNET_free (place_pub_str);
return ret;
}
int
app_place_remove (const char *app_id,
const struct GNUNET_CRYPTO_EcdsaPublicKey *ego_pub_key,
const struct GNUNET_CRYPTO_EddsaPublicKey *place_pub_key)
{
struct GNUNET_HashCode ego_pub_hash;
struct GNUNET_HashCode place_pub_hash;
GNUNET_CRYPTO_hash (ego_pub_key, sizeof (*ego_pub_key), &ego_pub_hash);
GNUNET_CRYPTO_hash (place_pub_key, sizeof (*place_pub_key), &place_pub_hash);
char *ego_pub_str = GNUNET_CRYPTO_ecdsa_public_key_to_string (ego_pub_key);
char *place_pub_str = GNUNET_CRYPTO_eddsa_public_key_to_string (
place_pub_key);
char *app_place_filename = NULL;
GNUNET_asprintf (&app_place_filename,
"%s%c" "%s%c" "%s%c" "%s%c" "%s",
dir_social, DIR_SEPARATOR,
"apps", DIR_SEPARATOR,
app_id, DIR_SEPARATOR,
ego_pub_str, DIR_SEPARATOR,
place_pub_str);
GNUNET_free (ego_pub_str);
GNUNET_free (place_pub_str);
struct GNUNET_HashCode app_id_hash;
GNUNET_CRYPTO_hash (app_id, strlen (app_id) + 1, &app_id_hash);
struct GNUNET_CONTAINER_MultiHashMap *
app_places = GNUNET_CONTAINER_multihashmap_get (apps_places, &app_id_hash);
if (NULL != app_places)
GNUNET_CONTAINER_multihashmap_remove (app_places, &place_pub_hash, NULL);
int ret = GNUNET_OK;
if (0 != unlink (app_place_filename))
{
GNUNET_break (0);
GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
"Error removing app place file: %s: %s (%d)\n",
app_place_filename, strerror (errno), errno);
ret = GNUNET_SYSERR;
}
GNUNET_free (app_place_filename);
return ret;
}
/**
* Enter place as host.
*
* @param hreq
* Host entry request.
* @param[out] ret_hst
* Returned Host struct.
*
* @return #GNUNET_YES if the host entered the place just now,
* #GNUNET_NO if the place is already entered,
* #GNUNET_SYSERR if place_pub_key was set
* but its private key was not found
*/
static int
host_enter (const struct HostEnterRequest *hreq, struct Host **ret_hst)
{
int ret = GNUNET_NO;
struct GNUNET_HashCode place_pub_hash;
GNUNET_CRYPTO_hash (&hreq->place_pub_key, sizeof (hreq->place_pub_key),
&place_pub_hash);
struct Host *hst = GNUNET_CONTAINER_multihashmap_get (hosts, &place_pub_hash);
if (NULL == hst)
{
hst = GNUNET_new (struct Host);
hst->policy = hreq->policy;
hst->join_reqs = GNUNET_CONTAINER_multihashmap_create (1, GNUNET_NO);
hst->relay_msgs = GNUNET_CONTAINER_multihashmap_create (1, GNUNET_NO);
struct Place *plc = &hst->place;
place_init (plc);
plc->is_host = GNUNET_YES;
plc->pub_key = hreq->place_pub_key;
plc->pub_key_hash = place_pub_hash;
GNUNET_CONTAINER_multihashmap_put (hosts, &plc->pub_key_hash, plc,
GNUNET_CONTAINER_MULTIHASHMAPOPTION_MULTIPLE);
hst->master = GNUNET_PSYC_master_start (cfg, &hreq->place_key, hst->policy,
&psyc_master_started,
&psyc_recv_join_request,
&psyc_recv_message, NULL, hst);
plc->channel = GNUNET_PSYC_master_get_channel (hst->master);
ret = GNUNET_YES;
}
if (NULL != ret_hst)
*ret_hst = hst;
return ret;
}
static int
msg_proc_parse (const struct MsgProcRequest *mpreq,
uint32_t *flags,
const char **method_prefix,
struct GNUNET_HashCode *method_hash)
{
ssize_t method_size = ntohs (mpreq->header.size) - sizeof (*mpreq);
uint16_t offset;
if (method_size < 0)
{
GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
"MsgProcRequest has invalid size\n");
return GNUNET_SYSERR;
}
offset = GNUNET_STRINGS_buffer_tokenize ((const char *) &mpreq[1],
method_size,
1,
method_prefix);
if ((0 == offset) || (offset != method_size) || (*method_prefix == NULL))
{
GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
"MsgProcRequest contains invalid method\n");
return GNUNET_SYSERR;
}
GNUNET_CRYPTO_hash (*method_prefix, (size_t) method_size, method_hash);
*flags = ntohl (mpreq->flags);
return GNUNET_OK;
}
void
app_notify_place (const struct GNUNET_MessageHeader *msg,
struct GNUNET_SERVICE_Client *client)
{
struct AppPlaceMessage *amsg;
struct GNUNET_MQ_Envelope *env;
uint16_t msg_size = ntohs (msg->size);
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
"%p Sending place notification of type %u to client.\n",
client, ntohs (msg->type));
switch (ntohs (msg->type))
{
case GNUNET_MESSAGE_TYPE_SOCIAL_HOST_ENTER:
{
struct HostEnterRequest *hreq = (struct HostEnterRequest *) msg;
if (msg_size < sizeof (struct HostEnterRequest))
return;
env = GNUNET_MQ_msg (amsg,
GNUNET_MESSAGE_TYPE_SOCIAL_APP_PLACE);
// FIXME: also notify about not entered places
amsg->place_state = GNUNET_SOCIAL_PLACE_STATE_ENTERED;
amsg->is_host = GNUNET_YES;
amsg->ego_pub_key = hreq->ego_pub_key;
amsg->place_pub_key = hreq->place_pub_key;
GNUNET_MQ_send (GNUNET_SERVICE_client_get_mq (client),
env);
break;
}
case GNUNET_MESSAGE_TYPE_SOCIAL_GUEST_ENTER:
{
if (msg_size < sizeof (struct GuestEnterRequest))
return;
struct GuestEnterRequest *greq = (struct GuestEnterRequest *) msg;
env = GNUNET_MQ_msg (amsg,
GNUNET_MESSAGE_TYPE_SOCIAL_APP_PLACE);
// FIXME: also notify about not entered places
amsg->place_state = GNUNET_SOCIAL_PLACE_STATE_ENTERED;
amsg->is_host = GNUNET_NO;
amsg->ego_pub_key = greq->ego_pub_key;
amsg->place_pub_key = greq->place_pub_key;
GNUNET_MQ_send (GNUNET_SERVICE_client_get_mq (client),
env);
break;
}
default:
return;
}
}
void
app_notify_place_end (struct GNUNET_SERVICE_Client *client)
{
struct GNUNET_MQ_Envelope *env;
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
"%p Sending end of place list notification to client\n",
client);
env = GNUNET_MQ_msg_header (GNUNET_MESSAGE_TYPE_SOCIAL_APP_PLACE_END);
GNUNET_MQ_send (GNUNET_SERVICE_client_get_mq (client),
env);
}
void
app_notify_ego (struct Ego *ego, struct GNUNET_SERVICE_Client *client)
{
struct AppEgoMessage *emsg;
struct GNUNET_MQ_Envelope *env;
size_t name_size = strlen (ego->name) + 1;
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
"%p Sending ego notification to client: %s\n",
client, ego->name);
env = GNUNET_MQ_msg_extra (emsg,
name_size,
GNUNET_MESSAGE_TYPE_SOCIAL_APP_EGO);
GNUNET_CRYPTO_ecdsa_key_get_public (&ego->key, &emsg->ego_pub_key);
GNUNET_memcpy (&emsg[1], ego->name, name_size);
GNUNET_MQ_send (GNUNET_SERVICE_client_get_mq (client),
env);
}
void
app_notify_ego_end (struct GNUNET_SERVICE_Client *client)
{
struct GNUNET_MQ_Envelope *env;
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
"%p Sending end of ego list notification to client\n",
client);
env = GNUNET_MQ_msg_header (GNUNET_MESSAGE_TYPE_SOCIAL_APP_EGO_END);
GNUNET_MQ_send (GNUNET_SERVICE_client_get_mq (client),
env);
}
int
app_place_entry_notify (void *cls, const struct GNUNET_HashCode *key,
void *value)
{
struct GNUNET_MessageHeader *
msg = GNUNET_CONTAINER_multihashmap_get (places, key);
if (NULL != msg)
app_notify_place (msg, cls);
return GNUNET_YES;
}
int
ego_entry (void *cls, const struct GNUNET_HashCode *key, void *value)
{
app_notify_ego (value, cls);
return GNUNET_YES;
}
static int
check_client_msg_proc_set (void *cls,
const struct MsgProcRequest *mpreq)
{
return GNUNET_OK;
}
/**
* Handle a client setting message proccesing flags for a method prefix.
*/
static void
handle_client_msg_proc_set (void *cls,
const struct MsgProcRequest *mpreq)
{
struct Client *c = cls;
struct GNUNET_SERVICE_Client *client = c->client;
struct Place *plc = c->place;
if (NULL == plc)
{
GNUNET_break (0);
GNUNET_SERVICE_client_drop (client);
return;
}
const char *method_prefix = NULL;
uint32_t flags = 0;
struct GNUNET_HashCode method_hash;
if (GNUNET_OK !=
msg_proc_parse (mpreq, &flags, &method_prefix, &method_hash))
{
GNUNET_break (0);
GNUNET_SERVICE_client_drop (client);
return;
}
#if 0
GNUNET_PSYC_slicer_method_remove (plc->slicer, method_prefix,
place_recv_relay_method,
place_recv_relay_modifier,
place_recv_relay_data,
place_recv_relay_eom);
GNUNET_PSYC_slicer_method_remove (plc->slicer, method_prefix,
place_recv_save_method,
NULL,
place_recv_save_data,
place_recv_save_eom);
#endif
if (flags & GNUNET_SOCIAL_MSG_PROC_RELAY)
{
GNUNET_PSYC_slicer_method_add (plc->slicer, method_prefix, NULL,
place_recv_relay_method,
place_recv_relay_modifier,
place_recv_relay_data,
place_recv_relay_eom,
plc);
}
if (flags & GNUNET_SOCIAL_MSG_PROC_SAVE)
{
GNUNET_PSYC_slicer_method_add (plc->slicer, method_prefix, NULL,
place_recv_save_method,
NULL,
place_recv_save_data,
place_recv_save_eom,
plc);
}
/** @todo Save flags to be able to resume relaying/saving after restart */
GNUNET_SERVICE_client_continue (client);
}
/**
* Handle a connecting client requesting to clear all relay rules.
*/
static void
handle_client_msg_proc_clear (void *cls,
const struct GNUNET_MessageHeader *msg)
{
struct Client *c = cls;
struct GNUNET_SERVICE_Client *client = c->client;
struct Place *plc = c->place;
if (NULL == plc)
{
GNUNET_break (0);
GNUNET_SERVICE_client_drop (client);
return;
}
GNUNET_PSYC_slicer_clear (plc->slicer);
GNUNET_SERVICE_client_continue (client);
}
static int
check_client_host_enter (void *cls,
const struct HostEnterRequest *hr)
{
return GNUNET_OK;
}
/**
* Handle a connecting client entering a place as host.
*/
static void
handle_client_host_enter (void *cls,
const struct HostEnterRequest *hr)
{
struct Client *c = cls;
struct GNUNET_SERVICE_Client *client = c->client;
struct HostEnterRequest *
hreq = (struct HostEnterRequest *) GNUNET_copy_message (&hr->header);
uint8_t app_id_size = ntohs (hreq->header.size) - sizeof (*hreq);
const char *app_id = NULL;
uint16_t offset = GNUNET_STRINGS_buffer_tokenize ((const char *) &hreq[1],
app_id_size, 1, &app_id);
if ((0 == offset) || (offset != app_id_size) || (app_id == NULL))
{
GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
"offset = %u, app_id_size = %u, app_id = %s\n",
offset, app_id_size, app_id);
GNUNET_break (0);
GNUNET_SERVICE_client_drop (client);
return;
}
struct Host *hst = NULL;
struct Place *plc = NULL;
int ret = GNUNET_OK;
struct GNUNET_CRYPTO_EddsaPublicKey empty_pub_key;
memset (&empty_pub_key, 0, sizeof (empty_pub_key));
if (0 == memcmp (&hreq->place_pub_key, &empty_pub_key,
sizeof (empty_pub_key)))
{ // no public key set: create new private key & save the place
#if 0
struct GNUNET_CRYPTO_EddsaPrivateKey *
place_key = GNUNET_CRYPTO_eddsa_key_create ();
hreq->place_key = *place_key;
GNUNET_CRYPTO_eddsa_key_get_public (place_key, &hreq->place_pub_key);
GNUNET_CRYPTO_eddsa_key_clear (place_key);
GNUNET_free (place_key);
app_place_save (app_id, (const struct PlaceEnterRequest *) hreq);
#endif
abort(); //FIXME
}
switch (host_enter (hreq, &hst))
{
case GNUNET_YES:
plc = c->place = &hst->place;
plc->host = hst;
break;
case GNUNET_NO:
{
plc = c->place = &hst->place;
plc->host = hst;
client_send_host_enter_ack (client, hst, GNUNET_OK);
break;
}
case GNUNET_SYSERR:
ret = GNUNET_SYSERR;
}
if (ret != GNUNET_SYSERR)
{
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
"%p Client connected as host to place %s.\n",
hst, GNUNET_h2s (&plc->pub_key_hash));
struct ClientListItem *cli = GNUNET_new (struct ClientListItem);
cli->client = client;
GNUNET_CONTAINER_DLL_insert (plc->clients_head, plc->clients_tail, cli);
c->place = plc;
app_notify_place (&hreq->header, client);
}
GNUNET_CRYPTO_eddsa_key_clear (&hreq->place_key);
GNUNET_free (hreq);
if (GNUNET_OK == ret)
GNUNET_SERVICE_client_continue (client);
else
GNUNET_SERVICE_client_drop (client);
}
/**
* Enter place as guest.
*
* @param greq
* Guest entry request.
* @param[out] ret_gst
* Returned Guest struct.
*
* @return #GNUNET_YES if the guest entered the place just now,
* #GNUNET_NO if the place is already entered,
* #GNUNET_SYSERR on error.
*/
static int
guest_enter (const struct GuestEnterRequest *greq, struct Guest **ret_gst)
{
int ret = GNUNET_NO;
uint16_t greq_size = ntohs (greq->header.size);
struct GNUNET_CRYPTO_EcdsaPublicKey ego_pub_key = greq->ego_pub_key;
struct GNUNET_HashCode ego_pub_hash;
GNUNET_CRYPTO_hash (&ego_pub_key, sizeof (ego_pub_key), &ego_pub_hash);
struct Ego *ego = GNUNET_CONTAINER_multihashmap_get (egos, &ego_pub_hash);
if (NULL == ego)
{
return GNUNET_SYSERR;
}
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
"entering as guest\n");
struct GNUNET_HashCode place_pub_hash;
GNUNET_CRYPTO_hash (&greq->place_pub_key, sizeof (greq->place_pub_key),
&place_pub_hash);
struct GNUNET_CONTAINER_MultiHashMap *
plc_gst = GNUNET_CONTAINER_multihashmap_get (place_guests, &place_pub_hash);
struct Guest *gst = NULL;
int new_guest;
if (NULL != plc_gst)
gst = GNUNET_CONTAINER_multihashmap_get (plc_gst, &ego_pub_hash);
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
"plc_gst = %p, gst = %p\n",
plc_gst,
gst);
if (NULL == gst)
{
gst = GNUNET_new (struct Guest);
new_guest = GNUNET_YES;
}
else
new_guest = GNUNET_NO;
if (NULL == gst->slave)
{
gst->origin = greq->origin;
gst->relay_count = ntohl (greq->relay_count);
uint16_t len;
uint16_t remaining = ntohs (greq->header.size) - sizeof (*greq);
const char *app_id = (const char *) &greq[1];
const char *p = app_id;
len = strnlen (app_id, remaining);
if (len == remaining)
{
GNUNET_free (gst);
GNUNET_break (0);
return GNUNET_SYSERR;
}
p += len + 1;
remaining -= len + 1;
const struct GNUNET_PeerIdentity *relays = NULL;
uint16_t relay_size = gst->relay_count * sizeof (*relays);
if (remaining < relay_size)
{
GNUNET_free (gst);
GNUNET_break (0);
return GNUNET_SYSERR;
}
if (0 < relay_size)
relays = (const struct GNUNET_PeerIdentity *) p;
p += relay_size;
remaining -= relay_size;
struct GNUNET_PSYC_Message *join_msg = NULL;
uint16_t join_msg_size = 0;
if (sizeof (struct GNUNET_MessageHeader) <= remaining)
{
join_msg = (struct GNUNET_PSYC_Message *) p;
join_msg_size = ntohs (join_msg->header.size);
p += join_msg_size;
remaining -= join_msg_size;
}
if (0 != remaining)
{
GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
"%zu + %u + %u != %u\n",
sizeof (*greq), relay_size, join_msg_size, greq_size);
GNUNET_free (gst);
GNUNET_break (0);
return GNUNET_SYSERR;
}
if (0 < relay_size)
{
gst->relays = GNUNET_malloc (relay_size);
GNUNET_memcpy (gst->relays, relays, relay_size);
}
gst->join_flags = ntohl (greq->flags);
struct Place *plc = &gst->place;
place_init (plc);
plc->is_host = GNUNET_NO;
plc->pub_key = greq->place_pub_key;
plc->pub_key_hash = place_pub_hash;
plc->ego_pub_key = ego_pub_key;
plc->ego_pub_hash = ego_pub_hash;
plc->ego_key = ego->key;
if (NULL == plc_gst)
{
plc_gst = GNUNET_CONTAINER_multihashmap_create (1, GNUNET_YES);
(void) GNUNET_CONTAINER_multihashmap_put (place_guests,
&plc->pub_key_hash, plc_gst,
GNUNET_CONTAINER_MULTIHASHMAPOPTION_UNIQUE_FAST);
}
if (GNUNET_YES == new_guest)
{
(void) GNUNET_CONTAINER_multihashmap_put (plc_gst, &plc->ego_pub_hash,
gst,
GNUNET_CONTAINER_MULTIHASHMAPOPTION_UNIQUE_FAST);
(void) GNUNET_CONTAINER_multihashmap_put (guests, &plc->pub_key_hash, gst,
GNUNET_CONTAINER_MULTIHASHMAPOPTION_MULTIPLE);
}
gst->slave
= GNUNET_PSYC_slave_join (cfg, &plc->pub_key, &plc->ego_key,
gst->join_flags, &gst->origin,
gst->relay_count, gst->relays,
&psyc_recv_message, NULL,
&psyc_slave_connected,
&psyc_recv_join_dcsn,
gst, join_msg);
plc->channel = GNUNET_PSYC_slave_get_channel (gst->slave);
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
"slave entered channel %p\n",
plc->channel);
ret = GNUNET_YES;
}
// TODO: explain to automatic code scanners why free(gst) not necessary
if (NULL != ret_gst)
*ret_gst = gst;
return ret;
}
static int
client_guest_enter (struct Client *c,
const struct GuestEnterRequest *greq)
{
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
"client_guest_enter\n");
struct GNUNET_PSYC_CountersResultMessage *result_msg;
struct GNUNET_MQ_Envelope *env;
struct GNUNET_SERVICE_Client *client = c->client;
uint16_t remaining = ntohs (greq->header.size) - sizeof (*greq);
const char *app_id = NULL;
uint16_t offset = GNUNET_STRINGS_buffer_tokenize ((const char *) &greq[1],
remaining, 1, &app_id);
struct Guest *gst = NULL;
struct Place *plc = NULL;
if (0 == offset)
{
return GNUNET_SYSERR;
}
switch (guest_enter (greq, &gst))
{
case GNUNET_YES:
{
plc = c->place = &gst->place;
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
"guest entered successfully to local place %s\n",
GNUNET_h2s (&plc->pub_key_hash));
plc->guest = gst;
app_place_save (app_id, (const struct PlaceEnterRequest *) greq);
app_notify_place (&greq->header, client);
break;
}
case GNUNET_NO:
{
plc = c->place = &gst->place;
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
"guest re-entered successfully to local place %s\n",
GNUNET_h2s (&plc->pub_key_hash));
plc->guest = gst;
env = GNUNET_MQ_msg (result_msg,
GNUNET_MESSAGE_TYPE_SOCIAL_GUEST_ENTER_ACK);
result_msg->result_code = htonl (GNUNET_OK);
result_msg->max_message_id = GNUNET_htonll (plc->max_message_id);
GNUNET_MQ_send (GNUNET_SERVICE_client_get_mq (client),
env);
if (NULL != gst->join_dcsn)
{
env = GNUNET_MQ_msg_copy (&gst->join_dcsn->header);
GNUNET_MQ_send (GNUNET_SERVICE_client_get_mq (client),
env);
}
break;
}
case GNUNET_SYSERR:
{
return GNUNET_SYSERR;
}
}
struct ClientListItem *cli = GNUNET_new (struct ClientListItem);
cli->client = client;
GNUNET_CONTAINER_DLL_insert (plc->clients_head, plc->clients_tail, cli);
return GNUNET_OK;
}
static int
check_client_guest_enter (void *cls,
const struct GuestEnterRequest *greq)
{
return GNUNET_OK;
}
/**
* Handle a connecting client entering a place as guest.
*/
static void
handle_client_guest_enter (void *cls,
const struct GuestEnterRequest *greq)
{
struct Client *c = cls;
if (GNUNET_SYSERR == client_guest_enter (c, greq))
{
GNUNET_break (0);
GNUNET_SERVICE_client_drop (c->client);
return;
}
GNUNET_SERVICE_client_continue (c->client);
}
struct GuestEnterByNameClosure
{
struct Client *client;
char *app_id;
char *password;
struct GNUNET_CRYPTO_EcdsaPublicKey ego_pub_key;
struct GNUNET_MessageHeader *join_msg;
};
/**
* Result of a GNS name lookup for entering a place.
*
* @see GNUNET_SOCIAL_guest_enter_by_name
*/
static void
gns_result_guest_enter (void *cls, uint32_t rd_count,
const struct GNUNET_GNSRECORD_Data *rd)
{
struct GuestEnterByNameClosure *gcls = cls;
struct Client *c = gcls->client;
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
"%p GNS result: %u records.\n",
c, rd_count);
const struct GNUNET_GNSRECORD_PlaceData *
rec = (const struct GNUNET_GNSRECORD_PlaceData *) rd->data;
if ((0 == rd_count) || (rd->data_size < sizeof (*rec)))
{
GNUNET_break (0);
GNUNET_SERVICE_client_drop (c->client);
return;
}
uint16_t relay_count = ntohl (rec->relay_count);
struct GNUNET_PeerIdentity *relays = NULL;
if (0 < relay_count)
{
if (rd->data_size == sizeof (*rec) + relay_count * sizeof (struct
GNUNET_PeerIdentity))
{
relays = (struct GNUNET_PeerIdentity *) &rec[1];
}
else
{
relay_count = 0;
GNUNET_break_op (0);
}
}
uint16_t app_id_size = strlen (gcls->app_id) + 1;
uint16_t relay_size = relay_count * sizeof (*relays);
uint16_t join_msg_size = 0;
if (NULL != gcls->join_msg)
join_msg_size = ntohs (gcls->join_msg->size);
uint16_t greq_size = sizeof (struct GuestEnterRequest)
+ app_id_size + relay_size + join_msg_size;
struct GuestEnterRequest *greq = GNUNET_malloc (greq_size);
greq->header.size = htons (greq_size);
greq->header.type = htons (GNUNET_MESSAGE_TYPE_SOCIAL_GUEST_ENTER);
greq->ego_pub_key = gcls->ego_pub_key;
greq->place_pub_key = rec->place_pub_key;
greq->origin = rec->origin;
greq->relay_count = rec->relay_count;
void *p = &greq[1];
GNUNET_memcpy (p, gcls->app_id, app_id_size);
p += app_id_size;
GNUNET_memcpy (p, relays, relay_size);
p += relay_size;
GNUNET_memcpy (p, gcls->join_msg, join_msg_size);
client_guest_enter (c, greq);
GNUNET_free (gcls->app_id);
if (NULL != gcls->password)
GNUNET_free (gcls->password);
if (NULL != gcls->join_msg)
GNUNET_free (gcls->join_msg);
GNUNET_free (gcls);
GNUNET_free (greq);
}
static int
check_client_guest_enter_by_name (void *cls,
const struct GuestEnterByNameRequest *greq)
{
return GNUNET_OK;
}
/**
* Handle a connecting client entering a place as guest using a GNS address.
*
* Look up GNS address and generate a GuestEnterRequest from that.
*/
static void
handle_client_guest_enter_by_name (void *cls,
const struct GuestEnterByNameRequest *greq)
{
struct Client *c = cls;
struct GNUNET_SERVICE_Client *client = c->client;
struct GuestEnterByNameClosure *gcls = GNUNET_malloc (sizeof (*gcls));
gcls->client = c;
gcls->ego_pub_key = greq->ego_pub_key;
const char *p = (const char *) &greq[1];
const char *app_id = NULL, *password = NULL, *gns_name = NULL;
uint16_t remaining = ntohs (greq->header.size) - sizeof (*greq);
uint16_t offset = GNUNET_STRINGS_buffer_tokenize (p, remaining, 3,
&app_id,
&gns_name,
&password);
p += offset;
remaining -= offset;
if ((0 != offset) && (sizeof (*gcls->join_msg) <= remaining))
{
gcls->join_msg = GNUNET_copy_message ((struct GNUNET_MessageHeader *) p);
remaining -= ntohs (gcls->join_msg->size);
}
if ((0 == offset) || (0 != remaining))
{
if (NULL != gcls->join_msg)
GNUNET_free (gcls->join_msg);
GNUNET_free (gcls);
GNUNET_break (0);
GNUNET_SERVICE_client_drop (client);
return;
}
uint16_t app_id_size = strlen (app_id) + 1;
gcls->app_id = GNUNET_malloc (app_id_size);
GNUNET_memcpy (gcls->app_id, app_id, app_id_size);
uint16_t password_size = strlen (password);
if (0 < password_size++)
{
gcls->password = GNUNET_malloc (password_size);
GNUNET_memcpy (gcls->password, password, password_size);
}
GNUNET_GNS_lookup (gns, gns_name,
&greq->ego_pub_key,
GNUNET_GNSRECORD_TYPE_PLACE,
GNUNET_GNS_LO_DEFAULT,
&gns_result_guest_enter, gcls);
GNUNET_SERVICE_client_continue (client);
}
static int
check_client_app_connect (void *cls,
const struct AppConnectRequest *creq)
{
return GNUNET_OK;
}
/**
* Handle application connection.
*/
static void
handle_client_app_connect (void *cls,
const struct AppConnectRequest *creq)
{
struct Client *c = cls;
struct GNUNET_SERVICE_Client *client = c->client;
ssize_t app_id_size = ntohs (creq->header.size) - sizeof (*creq);
const char *app_id = NULL;
uint16_t offset;
if (app_id_size < 0)
{
GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
"AppConnectRequest has invalid size\n");
GNUNET_break (0);
GNUNET_SERVICE_client_drop (client);
return;
}
offset = GNUNET_STRINGS_buffer_tokenize ((const char *) &creq[1],
(size_t) app_id_size,
1,
&app_id);
if ((0 == offset) || (offset != app_id_size))
{
GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
"AppConnectRequest contains invalid app ID\n");
GNUNET_break (0);
GNUNET_SERVICE_client_drop (client);
return;
}
struct GNUNET_HashCode app_id_hash;
GNUNET_CRYPTO_hash (app_id, (size_t) app_id_size, &app_id_hash);
GNUNET_CONTAINER_multihashmap_iterate (egos, ego_entry, client);
app_notify_ego_end (client);
struct GNUNET_CONTAINER_MultiHashMap *
app_places = GNUNET_CONTAINER_multihashmap_get (apps_places, &app_id_hash);
if (NULL != app_places)
GNUNET_CONTAINER_multihashmap_iterate (app_places, app_place_entry_notify,
client);
app_notify_place_end (client);
struct ClientListItem *cli = GNUNET_new (struct ClientListItem);
cli->client = client;
struct Application *app = GNUNET_CONTAINER_multihashmap_get (apps,
&app_id_hash);
if (NULL == app)
{
app = GNUNET_malloc (sizeof (*app));
(void) GNUNET_CONTAINER_multihashmap_put (apps, &app_id_hash, app,
GNUNET_CONTAINER_MULTIHASHMAPOPTION_UNIQUE_FAST);
}
GNUNET_CONTAINER_DLL_insert (app->clients_head, app->clients_tail, cli);
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
"%p Application %s connected.\n", app, app_id);
c->app_id = GNUNET_malloc ((size_t) app_id_size);
GNUNET_memcpy (c->app_id, app_id, (size_t) app_id_size);
GNUNET_SERVICE_client_continue (client);
}
/**
* Handle application detach request.
*/
static void
handle_client_app_detach (void *cls,
const struct AppDetachRequest *req)
{
struct Client *c = cls;
struct GNUNET_SERVICE_Client *client = c->client;
int ret = app_place_remove (c->app_id, &req->ego_pub_key,
&req->place_pub_key);
client_send_result (client, req->op_id, ret, NULL, 0);
GNUNET_SERVICE_client_continue (client);
}
static void
place_leave_cb (void *cls)
{
struct Place *plc = cls;
place_send_leave_ack (plc);
(GNUNET_YES == plc->is_host)
? cleanup_host ((struct Host *) plc)
: cleanup_guest ((struct Guest *) plc);
}
/**
* Handle application leave request.
*/
static void
handle_client_place_leave (void *cls,
const struct GNUNET_MessageHeader *msg)
{
struct Client *c = cls;
struct GNUNET_SERVICE_Client *client = c->client;
struct Place *plc = c->place;
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
"got leave request from %s for place %s",
plc->is_host? "host" : "slave",
GNUNET_h2s (&plc->pub_key_hash));
if (NULL == plc)
{
GNUNET_break (0);
GNUNET_SERVICE_client_drop (client);
return;
}
if (GNUNET_YES != plc->is_disconnecting)
{
plc->is_disconnecting = GNUNET_YES;
if (plc->is_host)
{
struct Host *host = plc->host;
GNUNET_assert (NULL != host);
GNUNET_PSYC_master_stop (host->master, GNUNET_NO, &place_leave_cb, plc);
}
else
{
struct Guest *guest = plc->guest;
GNUNET_assert (NULL != guest);
GNUNET_PSYC_slave_part (guest->slave, GNUNET_NO, &place_leave_cb, plc);
}
}
else
{
GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
"got leave request but place is already leaving\n");
}
GNUNET_SERVICE_client_continue (client);
}
struct JoinDecisionClosure
{
int32_t is_admitted;
struct GNUNET_PSYC_Message *msg;
};
/**
* Iterator callback for responding to join requests.
*/
static int
psyc_send_join_decision (void *cls, const struct GNUNET_HashCode *pub_key_hash,
void *value)
{
struct JoinDecisionClosure *jcls = cls;
struct GNUNET_PSYC_JoinHandle *jh = value;
// FIXME: add relays
GNUNET_PSYC_join_decision (jh, jcls->is_admitted, 0, NULL, jcls->msg);
return GNUNET_YES;
}
static int
check_client_join_decision (void *cls,
const struct GNUNET_PSYC_JoinDecisionMessage *dcsn)
{
return GNUNET_OK;
}
/**
* Handle an entry decision from a host client.
*/
static void
handle_client_join_decision (void *cls,
const struct GNUNET_PSYC_JoinDecisionMessage *dcsn)
{
struct Client *c = cls;
struct GNUNET_SERVICE_Client *client = c->client;
struct Place *plc = c->place;
if ((NULL == plc) || (GNUNET_YES != plc->is_host))
{
GNUNET_break (0);
GNUNET_SERVICE_client_drop (client);
return;
}
struct Host *hst = plc->host;
struct JoinDecisionClosure jcls;
jcls.is_admitted = ntohl (dcsn->is_admitted);
jcls.msg
= (sizeof (*dcsn) + sizeof (*jcls.msg) <= ntohs (dcsn->header.size))
? (struct GNUNET_PSYC_Message *) &dcsn[1]
: NULL;
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
"jcls.msg = %p\n",
jcls.msg);
struct GNUNET_HashCode slave_pub_hash;
GNUNET_CRYPTO_hash (&dcsn->slave_pub_key, sizeof (dcsn->slave_pub_key),
&slave_pub_hash);
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
"%p Got join decision (%d) from client for place %s..\n",
hst, jcls.is_admitted, GNUNET_h2s (&plc->pub_key_hash));
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
"%p ..and slave %s.\n",
hst, GNUNET_h2s (&slave_pub_hash));
GNUNET_CONTAINER_multihashmap_get_multiple (hst->join_reqs, &slave_pub_hash,
&psyc_send_join_decision, &jcls);
GNUNET_CONTAINER_multihashmap_remove_all (hst->join_reqs, &slave_pub_hash);
GNUNET_SERVICE_client_continue (client);
}
/**
* Send acknowledgement to a client.
*
* Sent after a message fragment has been passed on to multicast.
*
* @param plc The place struct for the client.
*/
static void
send_message_ack (struct Place *plc, struct GNUNET_SERVICE_Client *client)
{
struct GNUNET_MQ_Envelope *env;
env = GNUNET_MQ_msg_header (GNUNET_MESSAGE_TYPE_PSYC_MESSAGE_ACK);
GNUNET_MQ_send (GNUNET_SERVICE_client_get_mq (client),
env);
}
/**
* Proceed to the next message part in the transmission queue.
*
* @param plc
* Place where the transmission is going on.
* @param tmit_msg
* Currently transmitted message.
* @param tmit_frag
* Currently transmitted message fragment.
*
* @return @a tmit_frag, or NULL if reached the end of fragment.
*/
static struct FragmentTransmitQueue *
psyc_transmit_queue_next_part (struct Place *plc,
struct MessageTransmitQueue *tmit_msg,
struct FragmentTransmitQueue *tmit_frag)
{
uint16_t psize = ntohs (tmit_frag->next_part->size);
if ((char *) tmit_frag->next_part + psize - ((char *) &tmit_frag[1])
< tmit_frag->size)
{
tmit_frag->next_part
= (struct GNUNET_MessageHeader *) ((char *) tmit_frag->next_part + psize);
}
else /* Reached end of current fragment. */
{
if (NULL != tmit_frag->client)
send_message_ack (plc, tmit_frag->client);
GNUNET_CONTAINER_DLL_remove (tmit_msg->frags_head, tmit_msg->frags_tail,
tmit_frag);
GNUNET_free (tmit_frag);
tmit_frag = NULL;
}
return tmit_frag;
}
/**
* Proceed to next message in transmission queue.
*
* @param plc
* Place where the transmission is going on.
* @param tmit_msg
* Currently transmitted message.
*
* @return The next message in queue, or NULL if queue is empty.
*/
static struct MessageTransmitQueue *
psyc_transmit_queue_next_msg (struct Place *plc,
struct MessageTransmitQueue *tmit_msg)
{
GNUNET_CONTAINER_DLL_remove (plc->tmit_msgs_head, plc->tmit_msgs_tail,
tmit_msg);
GNUNET_free (tmit_msg);
return plc->tmit_msgs_head;
}
/**
* Callback for data transmission to PSYC.
*/
static int
psyc_transmit_notify_data (void *cls, uint16_t *data_size, void *data)
{
struct Place *plc = cls;
struct MessageTransmitQueue *tmit_msg = plc->tmit_msgs_head;
GNUNET_assert (NULL != tmit_msg);
struct FragmentTransmitQueue *tmit_frag = tmit_msg->frags_head;
if (NULL == tmit_frag)
{ /* Rest of the message have not arrived yet, pause transmission */
*data_size = 0;
return GNUNET_NO;
}
struct GNUNET_MessageHeader *pmsg = tmit_frag->next_part;
if (NULL == pmsg)
{
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
"%p psyc_transmit_notify_data: nothing to send.\n", plc);
*data_size = 0;
return GNUNET_NO;
}
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
"%p psyc_transmit_notify_data()\n", plc);
GNUNET_PSYC_log_message (GNUNET_ERROR_TYPE_DEBUG, pmsg);
uint16_t ptype = ntohs (pmsg->type);
uint16_t pdata_size = ntohs (pmsg->size) - sizeof (*pmsg);
int ret;
switch (ptype)
{
case GNUNET_MESSAGE_TYPE_PSYC_MESSAGE_DATA:
if (*data_size < pdata_size)
{
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
"%p psyc_transmit_notify_data: buffer size too small for data.\n",
plc);
*data_size = 0;
return GNUNET_NO;
}
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
"%p psyc_transmit_notify_data: sending %u bytes.\n",
plc, pdata_size);
*data_size = pdata_size;
GNUNET_memcpy (data, &pmsg[1], *data_size);
ret = GNUNET_NO;
break;
case GNUNET_MESSAGE_TYPE_PSYC_MESSAGE_END:
*data_size = 0;
ret = GNUNET_YES;
break;
case GNUNET_MESSAGE_TYPE_PSYC_MESSAGE_CANCEL:
*data_size = 0;
ret = GNUNET_SYSERR;
break;
default:
GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
"%p psyc_transmit_notify_data: unexpected message part of type %u.\n",
plc, ptype);
ret = GNUNET_SYSERR;
}
if ((GNUNET_SYSERR == ret) && (GNUNET_MESSAGE_TYPE_PSYC_MESSAGE_CANCEL !=
ptype) )
{
*data_size = 0;
tmit_msg = psyc_transmit_queue_next_msg (plc, tmit_msg);
GNUNET_SERVICE_client_drop (tmit_frag->client);
GNUNET_SCHEDULER_add_now (&cleanup_place, plc);
return ret;
}
else
{
tmit_frag = psyc_transmit_queue_next_part (plc, tmit_msg, tmit_frag);
if (NULL != tmit_frag)
{
struct GNUNET_MessageHeader *pmsg = tmit_frag->next_part;
ptype = ntohs (pmsg->type);
switch (ptype)
{
case GNUNET_MESSAGE_TYPE_PSYC_MESSAGE_END:
ret = GNUNET_YES;
break;
case GNUNET_MESSAGE_TYPE_PSYC_MESSAGE_CANCEL:
ret = GNUNET_SYSERR;
break;
}
switch (ptype)
{
case GNUNET_MESSAGE_TYPE_PSYC_MESSAGE_END:
case GNUNET_MESSAGE_TYPE_PSYC_MESSAGE_CANCEL:
tmit_frag = psyc_transmit_queue_next_part (plc, tmit_msg, tmit_frag);
}
}
if ((NULL == tmit_msg->frags_head)
&& (GNUNET_MESSAGE_TYPE_PSYC_MESSAGE_END <= ptype))
{ /* Reached end of current message. */
tmit_msg = psyc_transmit_queue_next_msg (plc, tmit_msg);
}
}
if (ret != GNUNET_NO)
{
if (NULL != tmit_msg)
{
psyc_transmit_message (plc);
}
/* FIXME: handle partial message (when still in_transmit) */
}
return ret;
}
/**
* Callback for modifier transmission to PSYC.
*/
static int
psyc_transmit_notify_mod (void *cls, uint16_t *data_size, void *data,
uint8_t *oper, uint32_t *full_value_size)
{
struct Place *plc = cls;
struct MessageTransmitQueue *tmit_msg = plc->tmit_msgs_head;
GNUNET_assert (NULL != tmit_msg);
struct FragmentTransmitQueue *tmit_frag = tmit_msg->frags_head;
if (NULL == tmit_frag)
{ /* Rest of the message have not arrived yet, pause transmission */
*data_size = 0;
return GNUNET_NO;
}
struct GNUNET_MessageHeader *pmsg = tmit_frag->next_part;
if (NULL == pmsg)
{
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
"%p psyc_transmit_notify_mod: nothing to send.\n", plc);
*data_size = 0;
return GNUNET_NO;
}
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
"%p psyc_transmit_notify_mod()\n", plc);
GNUNET_PSYC_log_message (GNUNET_ERROR_TYPE_DEBUG, pmsg);
uint16_t ptype = ntohs (pmsg->type);
int ret;
switch (ptype)
{
case GNUNET_MESSAGE_TYPE_PSYC_MESSAGE_MODIFIER:
{
if (NULL == oper)
{
GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
"%p psyc_transmit_notify_mod: oper is NULL.\n", plc);
ret = GNUNET_SYSERR;
break;
}
struct GNUNET_PSYC_MessageModifier *
pmod = (struct GNUNET_PSYC_MessageModifier *) tmit_frag->next_part;
uint16_t mod_size = ntohs (pmod->header.size) - sizeof (*pmod);
if (*data_size < mod_size)
{
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
"%p psyc_transmit_notify_mod: buffer size too small for data.\n",
plc);
*data_size = 0;
return GNUNET_NO;
}
*full_value_size = ntohl (pmod->value_size);
*oper = pmod->oper;
*data_size = mod_size;
GNUNET_memcpy (data, &pmod[1], mod_size);
ret = GNUNET_NO;
break;
}
case GNUNET_MESSAGE_TYPE_PSYC_MESSAGE_MOD_CONT:
{
if (NULL != oper)
{
GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
"%p psyc_transmit_notify_mod: oper is not NULL.\n", plc);
ret = GNUNET_SYSERR;
break;
}
uint16_t mod_size = ntohs (pmsg->size) - sizeof (*pmsg);
if (*data_size < mod_size)
{
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
"%p psyc_transmit_notify_mod: buffer size too small for data.\n",
plc);
*data_size = 0;
return GNUNET_NO;
}
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
"%p psyc_transmit_notify_mod: sending %u bytes.\n", plc,
mod_size);
*data_size = mod_size;
GNUNET_memcpy (data, &pmsg[1], *data_size);
ret = GNUNET_NO;
break;
}
case GNUNET_MESSAGE_TYPE_PSYC_MESSAGE_DATA:
case GNUNET_MESSAGE_TYPE_PSYC_MESSAGE_END:
case GNUNET_MESSAGE_TYPE_PSYC_MESSAGE_CANCEL:
*data_size = 0;
ret = GNUNET_YES;
break;
default:
GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
"%p psyc_transmit_notify_mod: unexpected message part of type %u.\n",
plc, ptype);
ret = GNUNET_SYSERR;
}
if (GNUNET_SYSERR == ret)
{
*data_size = 0;
ret = GNUNET_SYSERR;
tmit_msg = psyc_transmit_queue_next_msg (plc, tmit_msg);
GNUNET_SERVICE_client_drop (tmit_frag->client);
GNUNET_SCHEDULER_add_now (&cleanup_place, plc);
}
else
{
if (GNUNET_YES != ret)
psyc_transmit_queue_next_part (plc, tmit_msg, tmit_frag);
if ((NULL == tmit_msg->frags_head)
&& (GNUNET_MESSAGE_TYPE_PSYC_MESSAGE_END <= ptype))
{ /* Reached end of current message. */
tmit_msg = psyc_transmit_queue_next_msg (plc, tmit_msg);
}
}
return ret;
}
/**
* Callback for data transmission from a host to PSYC.
*/
static int
host_transmit_notify_data (void *cls, uint16_t *data_size, void *data)
{
int ret = psyc_transmit_notify_data (cls, data_size, data);
if (GNUNET_NO != ret)
{
struct Host *hst = cls;
hst->tmit_handle = NULL;
}
return ret;
}
/**
* Callback for the transmit functions of multicast.
*/
static int
guest_transmit_notify_data (void *cls, uint16_t *data_size, void *data)
{
int ret = psyc_transmit_notify_data (cls, data_size, data);
if (GNUNET_NO != ret)
{
struct Guest *gst = cls;
gst->tmit_handle = NULL;
}
return ret;
}
/**
* Callback for modifier transmission from a host to PSYC.
*/
static int
host_transmit_notify_mod (void *cls, uint16_t *data_size, void *data,
uint8_t *oper, uint32_t *full_value_size)
{
int ret = psyc_transmit_notify_mod (cls, data_size, data,
oper, full_value_size);
if (GNUNET_SYSERR == ret)
{
struct Host *hst = cls;
hst->tmit_handle = NULL;
}
return ret;
}
/**
* Callback for modifier transmission from a guest to PSYC.
*/
static int
guest_transmit_notify_mod (void *cls, uint16_t *data_size, void *data,
uint8_t *oper, uint32_t *full_value_size)
{
int ret = psyc_transmit_notify_mod (cls, data_size, data,
oper, full_value_size);
if (GNUNET_SYSERR == ret)
{
struct Guest *gst = cls;
gst->tmit_handle = NULL;
}
return ret;
}
/**
* Get method part of next message from transmission queue.
*
* @param plc
* Place
*
* @return #GNUNET_OK on success
* #GNUNET_NO if there are no more messages in queue.
* #GNUNET_SYSERR if the next message is malformed.
*/
static struct GNUNET_PSYC_MessageMethod *
psyc_transmit_queue_next_method (struct Place *plc)
{
struct MessageTransmitQueue *tmit_msg = plc->tmit_msgs_head;
if (NULL == tmit_msg)
return GNUNET_NO;
struct FragmentTransmitQueue *tmit_frag = tmit_msg->frags_head;
if (NULL == tmit_frag)
{
GNUNET_break (0);
return GNUNET_NO;
}
struct GNUNET_MessageHeader *pmsg = tmit_frag->next_part;
if ((NULL == pmsg)
|| (GNUNET_MESSAGE_TYPE_PSYC_MESSAGE_METHOD != ntohs (pmsg->type)))
{
GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
"%p psyc_transmit_queue_next_method: unexpected message part of type %u.\n",
plc, NULL != pmsg ? ntohs (pmsg->type) : 0);
GNUNET_break (0);
return NULL;
}
uint16_t psize = ntohs (pmsg->size);
struct GNUNET_PSYC_MessageMethod *
pmeth = (struct GNUNET_PSYC_MessageMethod *) GNUNET_copy_message (pmsg);
if ((psize < sizeof (*pmeth) + 1) || ('\0' != *((char *) pmeth + psize - 1)))
{
GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
"%p psyc_transmit_queue_next_method: invalid method name.\n",
plc);
GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
"%zu <= %u || NUL != %u\n",
sizeof (*pmeth), psize, *((char *) pmeth + psize - 1));
GNUNET_break (0);
GNUNET_free (pmeth);
return NULL;
}
psyc_transmit_queue_next_part (plc, tmit_msg, tmit_frag);
return pmeth;
}
/**
* Transmit the next message in queue from the host to the PSYC channel.
*/
static int
psyc_master_transmit_message (struct Host *hst)
{
struct Place *plc = &hst->place;
if (NULL == hst->tmit_handle)
{
struct GNUNET_PSYC_MessageMethod *
pmeth = psyc_transmit_queue_next_method (plc);
if (NULL == pmeth)
return GNUNET_SYSERR;
hst->tmit_handle = (void *) &hst->tmit_handle;
struct GNUNET_PSYC_MasterTransmitHandle *
tmit_handle = GNUNET_PSYC_master_transmit (hst->master, (const
char *) &pmeth[1],
&host_transmit_notify_mod,
&host_transmit_notify_data,
hst,
pmeth->flags);
if (NULL != hst->tmit_handle)
hst->tmit_handle = tmit_handle;
GNUNET_free (pmeth);
}
else
{
GNUNET_PSYC_master_transmit_resume (hst->tmit_handle);
}
return GNUNET_OK;
}
/**
* Transmit the next message in queue from a guest to the PSYC channel.
*/
static int
psyc_slave_transmit_message (struct Guest *gst)
{
struct Place *plc = &gst->place;
if (NULL == gst->tmit_handle)
{
struct GNUNET_PSYC_MessageMethod *
pmeth = psyc_transmit_queue_next_method (plc);
if (NULL == pmeth)
return GNUNET_SYSERR;
gst->tmit_handle = (void *) &gst->tmit_handle;
struct GNUNET_PSYC_SlaveTransmitHandle *
tmit_handle = GNUNET_PSYC_slave_transmit (gst->slave, (const
char *) &pmeth[1],
&guest_transmit_notify_mod,
&guest_transmit_notify_data,
gst,
pmeth->flags);
if (NULL != gst->tmit_handle)
gst->tmit_handle = tmit_handle;
GNUNET_free (pmeth);
}
else
{
GNUNET_PSYC_slave_transmit_resume (gst->tmit_handle);
}
return GNUNET_OK;
}
/**
* Transmit a message to PSYC.
*/
static int
psyc_transmit_message (struct Place *plc)
{
return
(plc->is_host)
? psyc_master_transmit_message ((struct Host *) plc)
: psyc_slave_transmit_message ((struct Guest *) plc);
}
/**
* Queue message parts for sending to PSYC.
*
* @param plc Place to send to.
* @param client Client the message originates from.
* @param data_size Size of @a data.
* @param data Concatenated message parts.
* @param first_ptype First message part type in @a data.
* @param last_ptype Last message part type in @a data.
*/
static struct MessageTransmitQueue *
psyc_transmit_queue_message (struct Place *plc,
struct GNUNET_SERVICE_Client *client,
size_t data_size,
const void *data,
uint16_t first_ptype, uint16_t last_ptype,
struct MessageTransmitQueue *tmit_msg)
{
if (GNUNET_MESSAGE_TYPE_PSYC_MESSAGE_METHOD == first_ptype)
{
tmit_msg = GNUNET_malloc (sizeof (*tmit_msg));
GNUNET_CONTAINER_DLL_insert_tail (plc->tmit_msgs_head, plc->tmit_msgs_tail,
tmit_msg);
}
else if (NULL == tmit_msg)
{
return NULL;
}
struct FragmentTransmitQueue *
tmit_frag = GNUNET_malloc (sizeof (*tmit_frag) + data_size);
GNUNET_memcpy (&tmit_frag[1], data, data_size);
tmit_frag->next_part = (struct GNUNET_MessageHeader *) &tmit_frag[1];
tmit_frag->client = client;
tmit_frag->size = data_size;
GNUNET_CONTAINER_DLL_insert_tail (tmit_msg->frags_head, tmit_msg->frags_tail,
tmit_frag);
tmit_msg->client = client;
return tmit_msg;
}
///**
// * Cancel transmission of current message to PSYC.
// *
// * @param plc Place to send to.
// * @param client Client the message originates from.
// */
// static void
// psyc_transmit_cancel (struct Place *plc, struct GNUNET_SERVICE_Client *client)
// {
// uint16_t type = GNUNET_MESSAGE_TYPE_PSYC_MESSAGE_CANCEL;
//
// struct GNUNET_MessageHeader msg;
// msg.size = htons (sizeof (msg));
// msg.type = htons (type);
//
// psyc_transmit_queue_message (plc, client, sizeof (msg), &msg, type, type, NULL);
// psyc_transmit_message (plc);
//
// /* FIXME: cleanup */
// }
static int
check_client_psyc_message (void *cls,
const struct GNUNET_MessageHeader *msg)
{
return GNUNET_OK;
}
/**
* Handle an incoming message from a client, to be transmitted to the place.
*/
static void
handle_client_psyc_message (void *cls,
const struct GNUNET_MessageHeader *msg)
{
struct Client *c = cls;
struct GNUNET_SERVICE_Client *client = c->client;
struct Place *plc = c->place;
int ret;
if (NULL == plc)
{
GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
"received PSYC message for non-existing client %p\n",
client);
GNUNET_break (0);
GNUNET_SERVICE_client_drop (client);
return;
}
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
"%p Received message of type %d from client.\n", plc, ntohs (
msg->type));
GNUNET_PSYC_log_message (GNUNET_ERROR_TYPE_DEBUG, msg);
if (GNUNET_YES != plc->is_ready)
{
GNUNET_log (GNUNET_ERROR_TYPE_WARNING,
"%p Place is not ready yet, disconnecting client.\n", plc);
GNUNET_break (0);
GNUNET_SERVICE_client_drop (client);
return;
}
uint16_t size = ntohs (msg->size);
uint16_t psize = size - sizeof (*msg);
if ((psize < sizeof (struct GNUNET_MessageHeader))
|| (GNUNET_MULTICAST_FRAGMENT_MAX_PAYLOAD < psize))
{
GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
"%p Received message with invalid payload size (%u) from client.\n",
plc, psize);
GNUNET_break (0);
GNUNET_SERVICE_client_drop (client);
return;
}
uint16_t first_ptype = 0;
uint16_t last_ptype = 0;
if (GNUNET_SYSERR ==
GNUNET_PSYC_receive_check_parts (psize, (const char *) &msg[1],
&first_ptype, &last_ptype))
{
GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
"%p Received invalid message part from client.\n", plc);
GNUNET_break (0);
GNUNET_SERVICE_client_drop (client);
return;
}
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
"%p Received message with first part type %u and last part type %u.\n",
plc, first_ptype, last_ptype);
c->tmit_msg
= psyc_transmit_queue_message (plc, client, psize, &msg[1],
first_ptype, last_ptype, c->tmit_msg);
if (NULL != c->tmit_msg)
{
if (GNUNET_MESSAGE_TYPE_PSYC_MESSAGE_END <= last_ptype)
c->tmit_msg = NULL;
ret = psyc_transmit_message (plc);
}
else
{
ret = GNUNET_SYSERR;
}
if (GNUNET_OK != ret)
{
GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
"%p Received invalid message part from client.\n", plc);
GNUNET_break (0);
GNUNET_SERVICE_client_drop (client);
return;
}
GNUNET_SERVICE_client_continue (client);
}
/**
* A historic message arrived from PSYC.
*/
static void
psyc_recv_history_message (void *cls, const struct
GNUNET_PSYC_MessageHeader *msg)
{
struct OperationClosure *opcls = cls;
struct Client *c = opcls->client;
struct Place *plc = c->place;
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
"%p Received historic message #%" PRId64 " (flags: %x)\n",
plc, GNUNET_ntohll (msg->message_id), ntohl (msg->flags));
uint16_t size = ntohs (msg->header.size);
struct GNUNET_OperationResultMessage *
res = GNUNET_malloc (sizeof (*res) + size);
res->header.size = htons (sizeof (*res) + size);
res->header.type = htons (GNUNET_MESSAGE_TYPE_PSYC_HISTORY_RESULT);
res->op_id = opcls->op_id;
res->result_code = GNUNET_htonll (GNUNET_OK);
GNUNET_memcpy (&res[1], msg, size);
/** @todo FIXME: send only to requesting client */
place_send_msg (plc, GNUNET_MQ_msg_copy (&res->header));
GNUNET_free (res);
}
/**
* Result of message history replay from PSYC.
*/
static void
psyc_recv_history_result (void *cls, int64_t result,
const void *err_msg, uint16_t err_msg_size)
{
struct OperationClosure *opcls = cls;
struct Client *c = opcls->client;
struct Place *plc = c->place;
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
"%p History replay #%" PRIu64 ": "
"PSYCstore returned %" PRId64 " (%.*s)\n",
plc, GNUNET_ntohll (opcls->op_id), result,
err_msg_size, (const char *) err_msg);
// FIXME: place might have been destroyed
client_send_result (c->client, opcls->op_id, result, err_msg, err_msg_size);
}
static int
check_client_history_replay (void *cls,
const struct
GNUNET_PSYC_HistoryRequestMessage *req)
{
return GNUNET_OK;
}
/**
* Client requests channel history.
*/
static void
handle_client_history_replay (void *cls,
const struct
GNUNET_PSYC_HistoryRequestMessage *req)
{
struct Client *c = cls;
struct GNUNET_SERVICE_Client *client = c->client;
struct Place *plc = c->place;
if (NULL == plc)
{
GNUNET_break (0);
GNUNET_SERVICE_client_drop (client);
return;
}
uint16_t size = ntohs (req->header.size);
const char *method_prefix = (const char *) &req[1];
if ((size < sizeof (*req) + 1)
|| ('\0' != method_prefix[size - sizeof (*req) - 1]))
{
GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
"%p History replay #%" PRIu64 ": "
"invalid method prefix. size: %u < %zu?\n",
plc, GNUNET_ntohll (req->op_id), size, sizeof (*req) + 1);
GNUNET_break (0);
GNUNET_SERVICE_client_drop (client);
return;
}
struct OperationClosure *opcls = GNUNET_malloc (sizeof (*opcls));
opcls->client = c;
opcls->op_id = req->op_id;
opcls->flags = ntohl (req->flags);
if (0 == req->message_limit)
GNUNET_PSYC_channel_history_replay (plc->channel,
GNUNET_ntohll (req->start_message_id),
GNUNET_ntohll (req->end_message_id),
method_prefix, opcls->flags,
psyc_recv_history_message, NULL,
psyc_recv_history_result, opcls);
else
GNUNET_PSYC_channel_history_replay_latest (plc->channel,
GNUNET_ntohll (
req->message_limit),
method_prefix, opcls->flags,
psyc_recv_history_message, NULL,
psyc_recv_history_result, opcls);
GNUNET_SERVICE_client_continue (client);
}
/**
* A state variable part arrived from PSYC.
*/
void
psyc_recv_state_var (void *cls,
const struct GNUNET_MessageHeader *mod,
const char *name,
const void *value,
uint32_t value_size,
uint32_t full_value_size)
{
struct GNUNET_OperationResultMessage *result_msg;
struct GNUNET_MQ_Envelope *env;
struct OperationClosure *opcls = cls;
struct Client *c = opcls->client;
struct Place *plc = c->place;
uint16_t size = ntohs (mod->size);
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
"%p Received state variable %s from PSYC\n",
plc, name);
env = GNUNET_MQ_msg_extra (result_msg,
size,
GNUNET_MESSAGE_TYPE_PSYC_STATE_RESULT);
result_msg->op_id = opcls->op_id;
result_msg->result_code = GNUNET_htonll (GNUNET_OK);
GNUNET_memcpy (&result_msg[1], mod, size);
/** @todo FIXME: send only to requesting client */
place_send_msg (plc, env);
}
/**
* Result of retrieving state variable from PSYC.
*/
static void
psyc_recv_state_result (void *cls, int64_t result,
const void *err_msg, uint16_t err_msg_size)
{
struct OperationClosure *opcls = cls;
struct Client *c = opcls->client;
struct Place *plc = c->place;
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
"%p State get #%" PRIu64 ": "
"PSYCstore returned %" PRId64 " (%.*s)\n",
plc, GNUNET_ntohll (opcls->op_id), result,
err_msg_size, (const char *) err_msg);
// FIXME: place might have been destroyed
client_send_result (c->client, opcls->op_id, result, err_msg, err_msg_size);
}
static int
check_client_state_get (void *cls,
const struct GNUNET_PSYC_StateRequestMessage *req)
{
return GNUNET_OK;
}
/**
* Client requests channel history.
*/
static void
handle_client_state_get (void *cls,
const struct GNUNET_PSYC_StateRequestMessage *req)
{
struct Client *c = cls;
struct GNUNET_SERVICE_Client *client = c->client;
struct Place *plc = c->place;
if (NULL == plc)
{
GNUNET_break (0);
GNUNET_SERVICE_client_drop (client);
return;
}
uint16_t size = ntohs (req->header.size);
const char *name = (const char *) &req[1];
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
"%p State get #%" PRIu64 ": %s\n",
plc, GNUNET_ntohll (req->op_id), name);
if ((size < sizeof (*req) + 1)
|| ('\0' != name[size - sizeof (*req) - 1]))
{
GNUNET_log (GNUNET_ERROR_TYPE_ERROR,
"%p State get #%" PRIu64 ": "
"invalid name. size: %u < %zu?\n",
plc, GNUNET_ntohll (req->op_id), size, sizeof (*req) + 1);
GNUNET_break (0);
GNUNET_SERVICE_client_drop (client);
return;
}
struct OperationClosure *opcls = GNUNET_malloc (sizeof (*opcls));
opcls->client = c;
opcls->op_id = req->op_id;
switch (ntohs (req->header.type))
{
case GNUNET_MESSAGE_TYPE_PSYC_STATE_GET:
GNUNET_PSYC_channel_state_get (plc->channel, name,
psyc_recv_state_var,
psyc_recv_state_result, opcls);
break;
case GNUNET_MESSAGE_TYPE_PSYC_STATE_GET_PREFIX:
GNUNET_PSYC_channel_state_get_prefix (plc->channel, name,
psyc_recv_state_var,
psyc_recv_state_result, opcls);
break;
default:
GNUNET_assert (0);
}
GNUNET_SERVICE_client_continue (client);
}
#define check_client_state_get_prefix check_client_state_get
#define handle_client_state_get_prefix handle_client_state_get
static void
namestore_recv_records_store_result (void *cls, int32_t result,
const char *err_msg)
{
struct OperationClosure *opcls = cls;
struct Client *c = opcls->client;
// FIXME: client might have been disconnected
client_send_result (c->client, opcls->op_id, result, err_msg,
(NULL != err_msg) ? strlen (err_msg) : 0);
GNUNET_free (opcls);
}
static int
check_client_zone_add_place (void *cls,
const struct ZoneAddPlaceRequest *preq)
{
return GNUNET_OK;
}
/**
* Handle request to add PLACE record to GNS zone.
*/
static void
handle_client_zone_add_place (void *cls,
const struct ZoneAddPlaceRequest *preq)
{
struct Client *c = cls;
struct GNUNET_SERVICE_Client *client = c->client;
uint16_t remaining = ntohs (preq->header.size) - sizeof (*preq);
const char *p = (const char *) &preq[1];
const char *name = NULL, *password = NULL;
uint16_t offset = GNUNET_STRINGS_buffer_tokenize (p, remaining, 2,
&name, &password);
remaining -= offset;
p += offset;
const struct GNUNET_PeerIdentity *
relays = (const struct GNUNET_PeerIdentity *) p;
uint16_t relay_size = ntohl (preq->relay_count) * sizeof (*relays);
if ((0 == offset) || (remaining != relay_size))
{
GNUNET_break (0);
client_send_result (client, preq->op_id, GNUNET_SYSERR, NULL, 0);
GNUNET_SERVICE_client_drop (client);
return;
}
struct GNUNET_GNSRECORD_Data rd = { };
rd.record_type = GNUNET_GNSRECORD_TYPE_PLACE;
rd.flags = GNUNET_GNSRECORD_RF_RELATIVE_EXPIRATION;
rd.expiration_time = GNUNET_ntohll (preq->expiration_time);
struct GNUNET_GNSRECORD_PlaceData *
rec = GNUNET_malloc (sizeof (*rec) + relay_size);
rec->place_pub_key = preq->place_pub_key;
rec->origin = this_peer;
rec->relay_count = preq->relay_count;
GNUNET_memcpy (&rec[1], relays, relay_size);
rd.data = rec;
rd.data_size = sizeof (*rec) + relay_size;
struct GNUNET_HashCode ego_pub_hash;
GNUNET_CRYPTO_hash (&preq->ego_pub_key, sizeof (preq->ego_pub_key),
&ego_pub_hash);
struct Ego *ego = GNUNET_CONTAINER_multihashmap_get (egos, &ego_pub_hash);
if (NULL == ego)
{
client_send_result (client, preq->op_id, GNUNET_SYSERR, NULL, 0);
}
else
{
struct OperationClosure *opcls = GNUNET_malloc (sizeof (*opcls));
opcls->client = c;
opcls->op_id = preq->op_id;
GNUNET_NAMESTORE_records_store (namestore, &ego->key,
name, 1, &rd,
namestore_recv_records_store_result, opcls);
/** @todo refresh stored records later */
}
GNUNET_SERVICE_client_continue (client);
}
static int
check_client_zone_add_nym (void *cls,
const struct ZoneAddNymRequest *nreq)
{
return GNUNET_OK;
}
/**
* Handle request to add PLACE record to GNS zone.
*/
static void
handle_client_zone_add_nym (void *cls,
const struct ZoneAddNymRequest *nreq)
{
struct Client *c = cls;
struct GNUNET_SERVICE_Client *client = c->client;
uint16_t name_size = ntohs (nreq->header.size) - sizeof (*nreq);
const char *name = NULL;
uint16_t offset = GNUNET_STRINGS_buffer_tokenize ((const char *) &nreq[1],
name_size, 1, &name);
if ((0 == offset) || (offset != name_size))
{
GNUNET_break (0);
client_send_result (client, nreq->op_id, GNUNET_SYSERR, NULL, 0);
GNUNET_SERVICE_client_continue (client);
return;
}
struct GNUNET_GNSRECORD_Data rd = { };
rd.record_type = GNUNET_GNSRECORD_TYPE_PKEY;
rd.flags = GNUNET_GNSRECORD_RF_RELATIVE_EXPIRATION;
rd.expiration_time = GNUNET_ntohll (nreq->expiration_time);
rd.data = &nreq->nym_pub_key;
rd.data_size = sizeof (nreq->nym_pub_key);
struct GNUNET_HashCode ego_pub_hash;
GNUNET_CRYPTO_hash (&nreq->ego_pub_key, sizeof (nreq->ego_pub_key),
&ego_pub_hash);
struct Ego *ego = GNUNET_CONTAINER_multihashmap_get (egos, &ego_pub_hash);
if (NULL == ego)
{
client_send_result (client, nreq->op_id, GNUNET_SYSERR, NULL, 0);
}
else
{
struct OperationClosure *opcls = GNUNET_malloc (sizeof (*opcls));
opcls->client = c;
opcls->op_id = nreq->op_id;
GNUNET_NAMESTORE_records_store (namestore, &ego->key,
name, 1, &rd,
namestore_recv_records_store_result, opcls);
/** @todo refresh stored records later */
}
GNUNET_SERVICE_client_continue (client);
}
const char *
path_basename (const char *path)
{
const char *basename = strrchr (path, DIR_SEPARATOR);
if (NULL != basename)
basename++;
if ((NULL == basename) || ('\0' == *basename))
return NULL;
return basename;
}
struct PlaceLoadClosure
{
const char *app_id;
const char *ego_pub_str;
};
/** Load a place file */
int
file_place_load (void *cls, const char *place_filename)
{
struct PlaceLoadClosure *plcls = cls;
const char *place_pub_str = path_basename (place_filename);
if (NULL == place_pub_str)
{
GNUNET_break (0);
return GNUNET_OK;
}
char *filename = NULL;
GNUNET_asprintf (&filename, "%s%c" "%s%c" "%s%c" "%s",
dir_social, DIR_SEPARATOR,
"places", DIR_SEPARATOR,
plcls->ego_pub_str, DIR_SEPARATOR,
place_pub_str);
uint64_t file_size = 0;
if ((GNUNET_OK !=
GNUNET_DISK_file_size (filename, &file_size, GNUNET_YES, GNUNET_YES))
|| (file_size < sizeof (struct PlaceEnterRequest)))
{
GNUNET_free (filename);
return GNUNET_OK;
}
struct PlaceEnterRequest *ereq = GNUNET_malloc (file_size);
ssize_t read_size = GNUNET_DISK_fn_read (filename, ereq, file_size);
GNUNET_free (filename);
if ((read_size < 0) || (read_size < sizeof (*ereq)))
{
GNUNET_free (ereq);
return GNUNET_OK;
}
uint16_t ereq_size = ntohs (ereq->header.size);
if (read_size != ereq_size)
{
GNUNET_free (ereq);
return GNUNET_OK;
}
switch (ntohs (ereq->header.type))
{
case GNUNET_MESSAGE_TYPE_SOCIAL_HOST_ENTER:
if (ereq_size < sizeof (struct HostEnterRequest))
{
GNUNET_free (ereq);
return GNUNET_OK;
}
struct HostEnterRequest *hreq = (struct HostEnterRequest *) ereq;
host_enter (hreq, NULL);
break;
case GNUNET_MESSAGE_TYPE_SOCIAL_GUEST_ENTER:
if (ereq_size < sizeof (struct GuestEnterRequest))
{
GNUNET_free (ereq);
return GNUNET_OK;
}
struct GuestEnterRequest *greq = (struct GuestEnterRequest *) ereq;
guest_enter (greq, NULL);
break;
default:
GNUNET_free (ereq);
return GNUNET_OK;
}
if (GNUNET_SYSERR == app_place_add (plcls->app_id, ereq))
{
GNUNET_assert (0);
}
GNUNET_free (ereq);
return GNUNET_OK;
}
/**
* Read @e place_pub_str entries in @a dir_ego
*
* @param dir_ego
* Data directory of an application ego.
* $GNUNET_DATA_HOME/social/apps/$app_id/$ego_pub_str/
*/
int
scan_app_ego_dir (void *cls, const char *dir_ego)
{
struct PlaceLoadClosure *plcls = cls;
plcls->ego_pub_str = path_basename (dir_ego);
if (NULL != plcls->ego_pub_str)
GNUNET_DISK_directory_scan (dir_ego, file_place_load, plcls);
return GNUNET_OK;
}
/**
* Read @e ego_pub_str entries in @a dir_app
*
* @param dir_app
* Data directory of an application.
* $GNUNET_DATA_HOME/social/apps/$app_id/
*/
int
scan_app_dir (void *cls, const char *dir_app)
{
if (GNUNET_YES != GNUNET_DISK_directory_test (dir_app, GNUNET_YES))
return GNUNET_OK;
struct PlaceLoadClosure plcls;
plcls.app_id = path_basename (dir_app);
if (NULL != plcls.app_id)
GNUNET_DISK_directory_scan (dir_app, scan_app_ego_dir, &plcls);
return GNUNET_OK;
}
static void
identity_recv_ego (void *cls, struct GNUNET_IDENTITY_Ego *id_ego,
void **ctx, const char *name)
{
if (NULL == id_ego) // end of initial list of egos
return;
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
"social service received ego %s\n",
name);
struct GNUNET_CRYPTO_EcdsaPublicKey ego_pub_key;
GNUNET_IDENTITY_ego_get_public_key (id_ego, &ego_pub_key);
struct GNUNET_HashCode ego_pub_hash;
GNUNET_CRYPTO_hash (&ego_pub_key, sizeof (ego_pub_key), &ego_pub_hash);
struct Ego *ego = GNUNET_CONTAINER_multihashmap_get (egos, &ego_pub_hash);
if ((NULL == ego) && (NULL == name))
{
// an ego that is none of our business has been deleted
return;
}
if (NULL != ego)
{
// one of our egos has been changed
GNUNET_free (ego->name);
if (NULL == name)
{
// one of our egos has been deleted
GNUNET_CONTAINER_multihashmap_remove (egos, &ego_pub_hash, ego);
GNUNET_free (ego);
return;
}
}
else
{
ego = GNUNET_malloc (sizeof (*ego));
}
//XXX ego->key = *(GNUNET_IDENTITY_ego_get_private_key (id_ego));
abort();
size_t name_size = strlen (name) + 1;
ego->name = GNUNET_malloc (name_size);
GNUNET_memcpy (ego->name, name, name_size);
GNUNET_CONTAINER_multihashmap_put (egos, &ego_pub_hash, ego,
GNUNET_CONTAINER_MULTIHASHMAPOPTION_REPLACE);
// FIXME: notify clients about changed ego
}
/**
* Initialize the PSYC service.
*
* @param cls Closure.
* @param server The initialized server.
* @param c Configuration to use.
*/
static void
run (void *cls,
const struct GNUNET_CONFIGURATION_Handle *c,
struct GNUNET_SERVICE_Handle *svc)
{
GNUNET_log (GNUNET_ERROR_TYPE_DEBUG,
"starting social service\n");
cfg = c;
service = svc;
GNUNET_CRYPTO_get_peer_identity (cfg, &this_peer);
hosts = GNUNET_CONTAINER_multihashmap_create (1, GNUNET_YES);
guests = GNUNET_CONTAINER_multihashmap_create (1, GNUNET_YES);
place_guests = GNUNET_CONTAINER_multihashmap_create (1, GNUNET_NO);
egos = GNUNET_CONTAINER_multihashmap_create (1, GNUNET_NO);
apps = GNUNET_CONTAINER_multihashmap_create (1, GNUNET_NO);
places = GNUNET_CONTAINER_multihashmap_create (1, GNUNET_NO);
apps_places = GNUNET_CONTAINER_multihashmap_create (1, GNUNET_NO);
// places_apps = GNUNET_CONTAINER_multihashmap_create(1, GNUNET_NO);
id = GNUNET_IDENTITY_connect (cfg, &identity_recv_ego, NULL);
gns = GNUNET_GNS_connect (cfg);
namestore = GNUNET_NAMESTORE_connect (cfg);
stats = GNUNET_STATISTICS_create ("social", cfg);
if (GNUNET_OK !=
GNUNET_CONFIGURATION_get_value_filename (cfg, "social", "DATA_HOME",
&dir_social))
{
GNUNET_log_config_missing (GNUNET_ERROR_TYPE_ERROR,
"social", "DATA_HOME");
GNUNET_break (0);
return;
}
GNUNET_asprintf (&dir_places, "%s%c%s",
dir_social, DIR_SEPARATOR, "places");
GNUNET_asprintf (&dir_apps, "%s%c%s",
dir_social, DIR_SEPARATOR, "apps");
GNUNET_DISK_directory_scan (dir_apps, scan_app_dir, NULL);
GNUNET_SCHEDULER_add_shutdown (shutdown_task, NULL);
}
/**
* Define "main" method using service macro.
*/
GNUNET_SERVICE_MAIN
("social",
GNUNET_SERVICE_OPTION_NONE,
run,
client_notify_connect,
client_notify_disconnect,
NULL,
GNUNET_MQ_hd_var_size (client_host_enter,
GNUNET_MESSAGE_TYPE_SOCIAL_HOST_ENTER,
struct HostEnterRequest,
NULL),
GNUNET_MQ_hd_var_size (client_guest_enter,
GNUNET_MESSAGE_TYPE_SOCIAL_GUEST_ENTER,
struct GuestEnterRequest,
NULL),
GNUNET_MQ_hd_var_size (client_guest_enter_by_name,
GNUNET_MESSAGE_TYPE_SOCIAL_GUEST_ENTER_BY_NAME,
struct GuestEnterByNameRequest,
NULL),
GNUNET_MQ_hd_var_size (client_join_decision,
GNUNET_MESSAGE_TYPE_PSYC_JOIN_DECISION,
struct GNUNET_PSYC_JoinDecisionMessage,
NULL),
GNUNET_MQ_hd_var_size (client_psyc_message,
GNUNET_MESSAGE_TYPE_PSYC_MESSAGE,
struct GNUNET_MessageHeader,
NULL),
GNUNET_MQ_hd_var_size (client_history_replay,
GNUNET_MESSAGE_TYPE_PSYC_HISTORY_REPLAY,
struct GNUNET_PSYC_HistoryRequestMessage,
NULL),
GNUNET_MQ_hd_var_size (client_state_get,
GNUNET_MESSAGE_TYPE_PSYC_STATE_GET,
struct GNUNET_PSYC_StateRequestMessage,
NULL),
GNUNET_MQ_hd_var_size (client_state_get_prefix,
GNUNET_MESSAGE_TYPE_PSYC_STATE_GET_PREFIX,
struct GNUNET_PSYC_StateRequestMessage,
NULL),
GNUNET_MQ_hd_var_size (client_zone_add_place,
GNUNET_MESSAGE_TYPE_SOCIAL_ZONE_ADD_PLACE,
struct ZoneAddPlaceRequest,
NULL),
GNUNET_MQ_hd_var_size (client_zone_add_nym,
GNUNET_MESSAGE_TYPE_SOCIAL_ZONE_ADD_NYM,
struct ZoneAddNymRequest,
NULL),
GNUNET_MQ_hd_var_size (client_app_connect,
GNUNET_MESSAGE_TYPE_SOCIAL_APP_CONNECT,
struct AppConnectRequest,
NULL),
GNUNET_MQ_hd_fixed_size (client_app_detach,
GNUNET_MESSAGE_TYPE_SOCIAL_APP_DETACH,
struct AppDetachRequest,
NULL),
GNUNET_MQ_hd_fixed_size (client_place_leave,
GNUNET_MESSAGE_TYPE_SOCIAL_PLACE_LEAVE,
struct GNUNET_MessageHeader,
NULL),
GNUNET_MQ_hd_var_size (client_msg_proc_set,
GNUNET_MESSAGE_TYPE_SOCIAL_MSG_PROC_SET,
struct MsgProcRequest,
NULL),
GNUNET_MQ_hd_fixed_size (client_msg_proc_clear,
GNUNET_MESSAGE_TYPE_SOCIAL_MSG_PROC_CLEAR,
struct GNUNET_MessageHeader,
NULL));
/* end of gnunet-service-social.c */