//! Builds node path
static char *
build_path(iks *o, iks *m)
{
/*!
* Builds node path from model node and method node
*
* @o Model node
* @m Method node
* @return Path
*/
if (path_ptr) {
path_ptr += strlen(path_ptr) + 1;
} else {
path_ptr = paths;
}
if (m) {
sprintf(path_ptr, "%s.%s",
iks_find_attrib(o, "name"),
iks_find_attrib(m, "name")
);
} else {
strcpy(path_ptr, iks_find_attrib(o, "name"));
}
return path_ptr;
}
iks *
iks_find_with_attrib (iks *x, const char *tagname, const char *attrname, const char *value)
{
iks *y;
if (NULL == x) return NULL;
if (tagname) {
for (y = IKS_TAG_CHILDREN (x); y; y = y->next) {
if (IKS_TAG == y->type
&& strcmp (IKS_TAG_NAME (y), tagname) == 0
&& iks_strcmp (iks_find_attrib (y, attrname), value) == 0) {
return y;
}
}
} else {
for (y = IKS_TAG_CHILDREN (x); y; y = y->next) {
if (IKS_TAG == y->type
&& iks_strcmp (iks_find_attrib (y, attrname), value) == 0) {
return y;
}
}
}
return NULL;
}
static void
render_page(ImpRenderCtx *ctx, void *drw_data)
{
iks *x;
char *element;
int i;
i = _imp_fill_back(ctx, drw_data, ctx->page->page);
element = iks_find_attrib(ctx->page->page, "draw:master-page-name");
if (element) {
x = iks_find_with_attrib(
iks_find(ctx->page->doc->styles, "office:master-styles"),
"style:master-page", "style:name", element
);
if (x) {
if (i == 0) _imp_fill_back(ctx, drw_data, x);
for (x = iks_first_tag(x); x; x = iks_next_tag(x)) {
if (iks_find_attrib(x, "presentation:class"))
continue;
render_object(ctx, drw_data, x);
}
}
}
for (x = iks_first_tag(ctx->page->page); x; x = iks_next_tag(x)) {
render_object(ctx, drw_data, x);
}
}
static void
get_geometry(ImpRenderCtx *ctx)
{
char *tmp;
iks *x, *y;
tmp = iks_find_attrib(ctx->page->page, "draw:master-page-name");
x = iks_find(ctx->page->doc->styles, "office:master-styles");
y = iks_find_with_attrib(x, "style:master-page", "style:name", tmp);
x = iks_find(ctx->page->doc->styles, "office:automatic-styles");
y = iks_find_with_attrib(x, "style:page-layout", "style:name",
iks_find_attrib(y, "style:page-layout-name"));
ctx->cm_w = atof(iks_find_attrib(iks_find(y, "style:page-layout-properties"), "fo:page-width"));
ctx->cm_h = atof(iks_find_attrib(iks_find(y, "style:page-layout-properties"), "fo:page-height"));
}
int
_imp_oasis_load(ImpDoc *doc)
{
ImpPage *page;
iks *x, *pres;
int i;
pres = iks_find(iks_find(doc->content, "office:body"), "office:presentation");
if (!pres) return IMP_NOTIMP;
x = iks_find(pres, "draw:page");
if (!x) return IMP_NOTIMP;
i = 0;
for (; x; x = iks_next_tag(x)) {
if (strcmp(iks_name(x), "draw:page") == 0) {
page = iks_stack_alloc(doc->stack, sizeof(ImpPage));
if (!page) return IMP_NOMEM;
memset(page, 0, sizeof(ImpPage));
page->page = x;
page->nr = ++i;
page->name = iks_find_attrib(x, "draw:name");
page->doc = doc;
if (!doc->pages) doc->pages = page;
page->prev = doc->last_page;
if (doc->last_page) doc->last_page->next = page;
doc->last_page = page;
}
}
doc->nr_pages = i;
doc->get_geometry = get_geometry;
doc->render_page = render_page;
return 0;
}
void
attrib (char *att, char *val, ...)
{
iks *x;
va_list ap;
x = my_x;
va_start (ap, val);
while (1) {
char *name = iks_name (x);
char *tmp = va_arg (ap, char*);
if (NULL == tmp) break;
x = iks_find (x, tmp);
if (!x) {
PR_TEST;
printf ("Tag <%s> is not a child of tag <%s>\n", tmp, name);
exit (1);
}
}
if (iks_strcmp (val, iks_find_attrib (x, att)) != 0) {
PR_TEST;
printf ("Attribute '%s' not found.\n", att);
exit (1);
}
va_end (ap);
}
/**
* Start execution of mixer record component
*/
static iks *start_mixer_record_component(struct rayo_actor *client, struct rayo_actor *mixer, iks *iq, void *data)
{
struct rayo_component *component = NULL;
iks *record = iks_find(iq, "record");
component = record_component_create(mixer, iks_find_attrib(iq, "from"), record);
if (!component) {
return iks_new_error(iq, STANZA_ERROR_BAD_REQUEST);
}
/* mixer doesn't allow "send" */
if (!strcmp("send", iks_find_attrib_soft(record, "direction"))) {
RAYO_UNLOCK(component);
RAYO_DESTROY(component);
return iks_new_error(iq, STANZA_ERROR_BAD_REQUEST);
}
if (start_mixer_record(component)) {
rayo_component_send_start(component, iq);
} else {
RAYO_UNLOCK(component);
RAYO_DESTROY(component);
return iks_new_error(iq, STANZA_ERROR_INTERNAL_SERVER_ERROR);
}
return NULL;
}
/**
* Start execution of call output component
*/
static iks *start_call_output_component(struct rayo_actor *call, struct rayo_message *msg, void *session_data)
{
iks *iq = msg->payload;
switch_core_session_t *session = (switch_core_session_t *)session_data;
struct rayo_component *output_component = NULL;
iks *output = iks_find(iq, "output");
iks *document = NULL;
/* validate output attributes */
if (!VALIDATE_RAYO_OUTPUT(output)) {
return iks_new_error(iq, STANZA_ERROR_BAD_REQUEST);
}
/* check if <document> exists */
document = iks_find(output, "document");
if (!document) {
return iks_new_error(iq, STANZA_ERROR_BAD_REQUEST);
}
output_component = create_output_component(call, RAT_CALL_COMPONENT, output, iks_find_attrib(iq, "from"));
if (!output_component) {
return iks_new_error_detailed(iq, STANZA_ERROR_INTERNAL_SERVER_ERROR, "Failed to create output entity");
}
return start_call_output(output_component, session, output, iq);
}
/**
* Send component start reply
* @param component the component
* @param iq the start request
*/
void rayo_component_send_start(struct rayo_component *component, iks *iq)
{
iks *response = iks_new_iq_result(iq);
iks *ref = iks_insert(response, "ref");
iks_insert_attrib(ref, "xmlns", RAYO_NS);
iks_insert_attrib_printf(ref, "uri", "xmpp:%s", RAYO_JID(component));
RAYO_SEND_REPLY(component, iks_find_attrib(response, "to"), response);
}
static void _StouXmppGwConnParseStreamStart(CFStouXmppGwConn* gwConn, iks* node)
{
const char *tmpCStr;
LCF_DBG_IN_FUNC();
if (gwConn->stat != CF_STOU_XMPP_GW_CONN_ST_SCC_CONNECTED) {
LCF_ERR_OUT(ERR_DESTY_GW_CONN, "stou conn not connected yet, bug!!\n");
}
if (!(tmpCStr = iks_find_attrib(node, "from"))) {
LCF_ERR_OUT(ERR_DESTY_GW_CONN, "no from in STOU_XMPP stanza\n");
}
if (!(gwConn->xmppClientJid = CFJidNew(tmpCStr))) {
LCF_ERR_OUT(ERR_DESTY_GW_CONN, "CFJidNew(%s) failed\n", tmpCStr);
}
if (!(tmpCStr = iks_find_attrib(node, "to"))) {
LCF_ERR_OUT(ERR_FREE_CLIENT_ID, "no to in STOU_XMPP stanza\n");
}
if (!(gwConn->xmppSvrJid = CFJidNew(tmpCStr))) {
LCF_ERR_OUT(ERR_FREE_CLIENT_ID, "CFJidNew(%s) failed\n", tmpCStr);
}
XCSetUser(&gwConn->xc, gwConn->xmppClientJid->user);
XCSetDomain(&gwConn->xc, gwConn->xmppClientJid->server);
XCSetResource(&gwConn->xc, gwConn->xmppClientJid->resource);
XCSetPasswd(&gwConn->xc, "123456");
if (CFStouXmppGwConnStartAuth(gwConn)) {
LCF_ERR_OUT(ERR_FREE_SVR_ID, "CFStouXmppGwConnStartAuth() failed\n");
}
gwConn->stat = CF_STOU_XMPP_GW_CONN_ST_AUTHING;
return;
ERR_FREE_SVR_ID:
CFJidFree(gwConn->xmppSvrJid);
gwConn->xmppSvrJid = NULL;
ERR_FREE_CLIENT_ID:
CFJidFree(gwConn->xmppClientJid);
gwConn->xmppClientJid = NULL;
ERR_DESTY_GW_CONN:
CFStouXmppGwDestroyConn(gwConn->gw, gwConn);
ERR_OUT_OUT:
return;
}
int axis2_xmpp_client_on_message(
void *user_data,
ikspak *pak)
{
axis2_xmpp_session_data_t *session = NULL;
axutil_env_t *env = NULL;
iks* body_elem = NULL;
iks* soap_elem = NULL;
char *soap_str = NULL;
char *from = NULL;
char request_uri[500] = "";
axis2_status_t status = AXIS2_SUCCESS;
session = (axis2_xmpp_session_data_t*) user_data;
env = session->env;
/* Serialize the message and pass it up */
/* extract the body of message */
body_elem = iks_find(pak->x, "body");
if(!body_elem)
{
AXIS2_LOG_ERROR(env->log, AXIS2_LOG_SI, "[xmpp]Failed to extract body of "
"message stanza");
return IKS_FILTER_EAT;
}
soap_elem = iks_child(body_elem);
if(!soap_elem)
{
AXIS2_LOG_ERROR(env->log, AXIS2_LOG_SI, "[xmpp]Failed to extract soap envelope"
"from message stanza");
return IKS_FILTER_EAT;
}
soap_str = iks_string(iks_stack(soap_elem), soap_elem);
if(!soap_str)
{
AXIS2_LOG_ERROR(env->log, AXIS2_LOG_SI, "[xmpp]Failed to serialize the soap "
"envelope");
return IKS_FILTER_EAT;
}
snprintf(request_uri, 500, "xmpp://localhost/axis2/services/%s", axis2_svc_get_name(
session->svc, env));
from = iks_find_attrib(pak->x, "from");
status = axis2_xmpp_transport_utils_process_message_client(session->env, session, soap_str,
from, request_uri);
/* TODO: Check whether we need to return IKS_HOOK on failure. I think not,
* because, failure here means the failure of a single request. We should
* keep running for other requests */
session->in_msg = 1;
return IKS_FILTER_EAT; /* no need to pass to other filters */
}
static char *
build_path(iks *g, iks *o, iks *m)
{
if (path_ptr) {
path_ptr += strlen(path_ptr) + 1;
} else {
path_ptr = paths;
}
if (m) {
sprintf(path_ptr, "%s.%s.%s",
iks_find_attrib(g, "name"),
iks_find_attrib(o, "name"),
iks_find_attrib(m, "name")
);
} else if (o) {
sprintf(path_ptr, "%s.%s",
iks_find_attrib(g, "name"),
iks_find_attrib(o, "name")
);
} else {
strcpy(path_ptr, iks_find_attrib(g, "name"));
}
return path_ptr;
}
//!
static char *
build_path(iks *g, iks *o, iks *m)
{
/*!
Returns the 'name' attr of 'g' iks node (group)
if 'm' is given, returns it as group.object.method (names)
if 'o' is given, returns group.object (names)
*/
if (path_ptr) {
path_ptr += strlen(path_ptr) + 1;
} else {
path_ptr = paths;
}
if (m) {
sprintf(path_ptr, "%s.%s.%s",
iks_find_attrib(g, "name"),
iks_find_attrib(o, "name"),
iks_find_attrib(m, "name")
);
} else if (o) {
sprintf(path_ptr, "%s.%s",
iks_find_attrib(g, "name"),
iks_find_attrib(o, "name")
);
} else {
strcpy(path_ptr, iks_find_attrib(g, "name"));
}
return path_ptr;
}
/**
* Start execution of prompt component
*/
static iks *start_call_prompt_component(struct rayo_actor *call, struct rayo_message *msg, void *session_data)
{
iks *iq = msg->payload;
switch_core_session_t *session = (switch_core_session_t *)session_data;
switch_memory_pool_t *pool;
struct prompt_component *prompt_component = NULL;
iks *prompt = iks_find(iq, "prompt");
iks *input;
iks *output;
iks *cmd;
if (!VALIDATE_RAYO_PROMPT(prompt)) {
switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_DEBUG, "Bad <prompt> attrib\n");
return iks_new_error_detailed(iq, STANZA_ERROR_BAD_REQUEST, "Bad <prompt> attrib value");
}
output = iks_find(prompt, "output");
if (!output) {
switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_DEBUG, "Missing <output>\n");
return iks_new_error_detailed(iq, STANZA_ERROR_BAD_REQUEST, "Missing <output>");
}
input = iks_find(prompt, "input");
if (!input) {
switch_log_printf(SWITCH_CHANNEL_SESSION_LOG(session), SWITCH_LOG_DEBUG, "Missing <input>\n");
return iks_new_error_detailed(iq, STANZA_ERROR_BAD_REQUEST, "Missing <input>");
}
/* create prompt component, linked to call */
switch_core_new_memory_pool(&pool);
prompt_component = switch_core_alloc(pool, sizeof(*prompt_component));
rayo_component_init(RAYO_COMPONENT(prompt_component), pool, RAT_CALL_COMPONENT, "prompt", NULL, call, iks_find_attrib(iq, "from"));
prompt_component->iq = iks_copy(iq);
/* start output */
if (iks_find_bool_attrib(prompt, "barge-in")) {
prompt_component->state = PCS_START_OUTPUT_BARGE;
} else {
prompt_component->state = PCS_START_OUTPUT;
}
cmd = iks_new("iq");
iks_insert_attrib(cmd, "from", RAYO_JID(prompt_component));
iks_insert_attrib(cmd, "to", RAYO_JID(call));
iks_insert_attrib(cmd, "id", iks_find_attrib(iq, "id"));
iks_insert_attrib(cmd, "type", "set");
output = iks_copy_within(output, iks_stack(cmd));
iks_insert_node(cmd, output);
RAYO_SEND_MESSAGE(prompt_component, RAYO_JID(call), cmd);
return NULL;
}
/**
* Start execution of mixer output component
*/
static iks *start_mixer_output_component(struct rayo_actor *mixer, struct rayo_message *msg, void *data)
{
iks *iq = msg->payload;
struct rayo_component *component = NULL;
iks *output = iks_find(iq, "output");
iks *document = NULL;
switch_stream_handle_t stream = { 0 };
/* validate output attributes */
if (!VALIDATE_RAYO_OUTPUT(output)) {
return iks_new_error(iq, STANZA_ERROR_BAD_REQUEST);
}
/* check if <document> exists */
document = iks_find(output, "document");
if (!document) {
return iks_new_error(iq, STANZA_ERROR_BAD_REQUEST);
}
component = create_output_component(mixer, RAT_MIXER_COMPONENT, output, iks_find_attrib(iq, "from"));
if (!component) {
return iks_new_error_detailed(iq, STANZA_ERROR_INTERNAL_SERVER_ERROR, "Failed to create output entity");
}
/* build conference command */
SWITCH_STANDARD_STREAM(stream);
stream.write_function(&stream, "%s play ", rayo_mixer_get_name(RAYO_MIXER(mixer)), RAYO_ID(component));
stream.write_function(&stream, "{id=%s,pause=%s",
RAYO_JID(component),
OUTPUT_COMPONENT(component)->start_paused ? "true" : "false");
if (OUTPUT_COMPONENT(component)->max_time_ms > 0) {
stream.write_function(&stream, ",timeout=%i", OUTPUT_COMPONENT(component)->max_time_ms);
}
if (OUTPUT_COMPONENT(component)->start_offset_ms > 0) {
stream.write_function(&stream, ",start_offset_ms=%i", OUTPUT_COMPONENT(component)->start_offset_ms);
}
stream.write_function(&stream, "}fileman://rayo://%s", RAYO_JID(component));
/* acknowledge command */
rayo_component_send_start(component, iq);
rayo_component_api_execute_async(component, "conference", stream.data);
switch_safe_free(stream.data);
RAYO_RELEASE(component);
return NULL;
}
//! Gets PolicyKit action ID of a method
char *
db_action_id(char *iface_name, iks *met)
{
// If necerssary, get PolicyKit action ID from XML
char *action_id = iks_find_attrib(met, "action_id");
if (action_id) {
return action_id;
}
else {
// Else, make action ID from alias attribute
char *alias = iks_find_attrib(met, "alias");
if (!alias) {
// or, from access_label attribute
alias = iks_find_attrib(met, "access_label");
}
if (!alias) {
// or, from method name
alias = iks_find_attrib(met, "name");
}
// Append alias to interface name
int size = strlen(config_interface) + 1 + strlen(iface_name) + 1 + strlen(alias) + 1;
action_id = malloc(size);
if (!action_id) oom();
snprintf(action_id, size, "%s.%s.%s", config_interface, iface_name, alias);
action_id[size - 1] = '\0';
// All chars must be lowercase
char *t;
for (t = action_id; *t != '\0'; t++) {
*t = tolower(*t);
}
return action_id;
}
}
/**
* Create new output component
*/
static struct rayo_component *create_output_component(struct rayo_actor *actor, const char *type, iks *output, const char *client_jid)
{
switch_memory_pool_t *pool;
struct output_component *output_component = NULL;
switch_core_new_memory_pool(&pool);
output_component = switch_core_alloc(pool, sizeof(*output_component));
rayo_component_init((struct rayo_component *)output_component, pool, type, "output", NULL, actor, client_jid);
output_component->document = iks_copy(output);
output_component->repeat_interval = iks_find_int_attrib(output, "repeat-interval");
output_component->repeat_times = iks_find_int_attrib(output, "repeat-times");
output_component->max_time = iks_find_int_attrib(output, "max-time");
output_component->start_paused = iks_find_bool_attrib(output, "start-paused");
output_component->renderer = iks_find_attrib(output, "renderer");
return (struct rayo_component *)output_component;
}
/**
* Create a record component
*/
static struct rayo_component *record_component_create(struct rayo_actor *actor, const char *client_jid, iks *record)
{
switch_memory_pool_t *pool;
struct record_component *record_component = NULL;
char *local_file_path;
char *fs_file_path;
switch_bool_t start_paused;
/* validate record attributes */
if (!VALIDATE_RAYO_RECORD(record)) {
return NULL;
}
start_paused = iks_find_bool_attrib(record, "start-paused");
/* create record filename from session UUID and ref */
/* for example: prefix/1234-1234-1234-1234-30.wav */
local_file_path = switch_mprintf("%s%s-%i.%s",
globals.record_file_prefix,
actor->id, rayo_actor_seq_next(actor), iks_find_attrib(record, "format"));
fs_file_path = switch_mprintf("{pause=%s}fileman://%s",
start_paused ? "true" : "false",
local_file_path);
switch_core_new_memory_pool(&pool);
record_component = switch_core_alloc(pool, sizeof(*record_component));
rayo_component_init(RAYO_COMPONENT(record_component), pool, "record", fs_file_path, actor, client_jid);
record_component->max_duration = iks_find_int_attrib(record, "max-duration");
record_component->initial_timeout = iks_find_int_attrib(record, "initial-timeout");
record_component->final_timeout = iks_find_int_attrib(record, "final-timeout");
record_component->direction = switch_core_strdup(RAYO_POOL(record_component), iks_find_attrib_soft(record, "direction"));
record_component->mix = iks_find_bool_attrib(record, "mix");
record_component->start_beep = iks_find_bool_attrib(record, "start-beep");
record_component->stop_beep = iks_find_bool_attrib(record, "stop-beep");
record_component->start_time = start_paused ? 0 : switch_micro_time_now();
record_component->local_file_path = switch_core_strdup(RAYO_POOL(record_component), local_file_path);
switch_safe_free(local_file_path);
switch_safe_free(fs_file_path);
return RAYO_COMPONENT(record_component);
}
static void
add_group(iks *tag, int level, struct acl_class *ac)
{
struct acl_group *ag;
char *name;
struct group *grp;
ag = &ac->group[ac->cur];
name = iks_find_attrib(tag, "name");
if (!name) return;
grp = getgrnam(name);
if (!name) {
log_error("Security policy group '%s' not available\n", name);
return;
}
add_allowed(grp->gr_gid);
ag->gid = grp->gr_gid;
ag->level = level;
++ac->cur;
}
/**
* Start execution of call record component
*/
static iks *start_call_record_component(struct rayo_actor *client, struct rayo_actor *call, iks *iq, void *session_data)
{
switch_core_session_t *session = (switch_core_session_t *)session_data;
struct rayo_component *component = NULL;
iks *record = iks_find(iq, "record");
component = record_component_create(call, iks_find_attrib(iq, "from"), record);
if (!component) {
return iks_new_error(iq, STANZA_ERROR_BAD_REQUEST);
}
if (start_call_record(session, component)) {
rayo_component_send_start(component, iq);
} else {
RAYO_UNLOCK(component);
RAYO_DESTROY(component);
return iks_new_error(iq, STANZA_ERROR_INTERNAL_SERVER_ERROR);
}
return NULL;
}
/**
* Seek output component
*/
static iks *seek_output_component(struct rayo_actor *component, struct rayo_message *msg, void *data)
{
iks *iq = msg->payload;
iks *seek = iks_find(iq, "seek");
if (VALIDATE_RAYO_OUTPUT_SEEK(seek)) {
int is_forward = !strcmp("forward", iks_find_attrib(seek, "direction"));
int amount_ms = iks_find_int_attrib(seek, "amount");
char *command = switch_mprintf("%s seek:%s%i", RAYO_JID(component),
is_forward ? "+" : "-", amount_ms);
switch_stream_handle_t stream = { 0 };
SWITCH_STANDARD_STREAM(stream);
switch_api_execute("fileman", command, NULL, &stream);
switch_safe_free(stream.data);
switch_safe_free(command);
return iks_new_iq_result(iq);
}
return iks_new_error(iq, STANZA_ERROR_BAD_REQUEST);
}
int axis2_xmpp_client_on_start_node(
axis2_xmpp_session_data_t *session,
iks* node)
{
if(session->use_tls && (!iks_is_secure(session->parser)))
{
iks_start_tls(session->parser);
return IKS_OK;
}
if(!session->use_sasl) /* basic authentication */
{
iks *x;
session->authorized = 1;
/* get id given from svr */
session->session_id = iks_find_attrib(node, "id");
x = iks_make_auth(session->jid, session->password, session->session_id);
iks_insert_attrib(x, "id", "auth");
iks_send(session->parser, x);
iks_delete(x);
}
return IKS_OK;
}
/*! \brief Create a new HTTP server
*
* \param config the configuratin from config file
* \param monitor the monitor to be used
* \param callback the function to be called when a request arrives
* \param user_data the parameter to the callback
*
* \return A instance of the server
*/
HttpServer* hs_new(iks* config, hs_request_callback callback,
void* user_data) {
HttpServer* server;
Socket* sock;
const char* str;
int port, ret;
/* get the port to listen */
if((str = iks_find_attrib(config, "port")) != NULL) {
port = atoi(str);
} else {
port = HTTP_PORT;
}
/* create the socket */
sock = sock_new();
ret = sock_listen(sock, port);
if(ret == 0) {
log(ERROR, "Failed to listen http server port %d", port);
return NULL;
}
/* alloc memomry for the server struct */
server = malloc(sizeof(HttpServer));
/* init values */
server->sock = sock;
server->http_connections = list_new();
server->callback = callback;
server->user_data = user_data;
/* monitor the server socket for conenctions */
sock_set_accept_callback(sock, hs_accept, server);
return server;
}
static void
render_object(ImpRenderCtx *ctx, void *drw_data, iks *node)
{
char *tag, *t;
ImpColor fg;
tag = iks_name(node);
if (strcmp(tag, "draw:g") == 0) {
iks *x;
for (x = iks_first_tag(node); x; x = iks_next_tag(x)) {
render_object(ctx, drw_data, x);
}
} else if (strcmp(tag, "draw:frame") == 0) {
iks *x;
for (x = iks_first_tag(node); x; x = iks_next_tag(x)) {
render_object(ctx, drw_data, x);
}
} else if (strcmp(tag, "draw:line") == 0) {
r_get_color(ctx, node, "svg:stroke-color", &fg);
ctx->drw->set_fg_color(drw_data, &fg);
ctx->drw->draw_line(drw_data,
r_get_x(ctx, node, "svg:x1"), r_get_y(ctx, node, "svg:y1"),
r_get_x(ctx, node, "svg:x2"), r_get_y(ctx, node, "svg:y2")
);
} else if (strcmp(tag, "draw:rect") == 0) {
int x, y, w, h, r = 0;
char *t;
x = r_get_x(ctx, node, "svg:x");
y = r_get_y(ctx, node, "svg:y");
w = r_get_x(ctx, node, "svg:width");
h = r_get_y(ctx, node, "svg:height");
t = r_get_style(ctx, node, "draw:corner-radius");
if (t) r = atof(t) * ctx->fact_x;
if (r_get_style(ctx, node, "draw:fill")) {
r_get_color(ctx, node, "draw:fill-color", &fg);
ctx->drw->set_fg_color(drw_data, &fg);
_imp_draw_rect(ctx, drw_data, 1, x, y, w, h, r);
}
r_get_color(ctx, node, "svg:stroke-color", &fg);
ctx->drw->set_fg_color(drw_data, &fg);
_imp_draw_rect(ctx, drw_data, 0, x, y, w, h, r);
r_text(ctx, drw_data, node);
} else if (strcmp(tag, "draw:ellipse") == 0 || strcmp(tag, "draw:circle") == 0) {
int sa, ea, fill = 0;
r_get_color(ctx, node, "svg:stroke-color", &fg);
sa = r_get_angle(node, "draw:start-angle", 0);
ea = r_get_angle(node, "draw:end-angle", 360);
if (ea > sa) ea = ea - sa; else ea = 360 + ea - sa;
t = r_get_style(ctx, node, "draw:fill");
if (t) fill = 1;
ctx->drw->set_fg_color(drw_data, &fg);
ctx->drw->draw_arc(drw_data,
fill,
r_get_x(ctx, node, "svg:x"), r_get_y(ctx, node, "svg:y"),
r_get_x(ctx, node, "svg:width"), r_get_y(ctx, node, "svg:height"),
sa, ea
);
} else if (strcmp(tag, "draw:polygon") == 0) {
// FIXME:
r_polygon(ctx, drw_data, node);
} else if (strcmp(tag, "draw:text-box") == 0) {
// FIXME:
r_text(ctx, drw_data, node);
} else if (strcmp(tag, "draw:image") == 0) {
char *name;
name = iks_find_attrib(node, "xlink:href");
if (!name) return;
if (name[0] == '#') ++name;
_imp_draw_image(ctx, drw_data,
name,
r_get_x(ctx, node, "svg:x"),
r_get_y(ctx, node, "svg:y"),
r_get_x(ctx, node, "svg:width"),
r_get_y(ctx, node, "svg:height")
);
} else {
printf("Unknown element: %s\n", tag);
}
}
ikspak *
iks_packet (iks *x)
{
ikspak *pak;
ikstack *s;
char *tmp;
s = iks_stack (x);
pak = iks_stack_alloc (s, sizeof (ikspak));
if (!pak) return NULL;
memset (pak, 0, sizeof (ikspak));
pak->x = x;
tmp = iks_find_attrib (x, "from");
if (tmp) pak->from = iks_id_new (s, tmp);
pak->id = iks_find_attrib (x, "id");
tmp = iks_find_attrib (x, "type");
if (strcmp (iks_name (x), "message") == 0) {
pak->type = IKS_PAK_MESSAGE;
if (tmp) {
if (strcmp (tmp, "chat") == 0)
pak->subtype = IKS_TYPE_CHAT;
else if (strcmp (tmp, "groupchat") == 0)
pak->subtype = IKS_TYPE_GROUPCHAT;
else if (strcmp (tmp, "headline") == 0)
pak->subtype = IKS_TYPE_HEADLINE;
else if (strcmp (tmp, "error") == 0)
pak->subtype = IKS_TYPE_ERROR;
}
} else if (strcmp (iks_name (x), "presence") == 0) {
pak->type = IKS_PAK_S10N;
if (tmp) {
if (strcmp (tmp, "unavailable") == 0) {
pak->type = IKS_PAK_PRESENCE;
pak->subtype = IKS_TYPE_UNAVAILABLE;
pak->show = IKS_SHOW_UNAVAILABLE;
} else if (strcmp (tmp, "probe") == 0) {
pak->type = IKS_PAK_PRESENCE;
pak->subtype = IKS_TYPE_PROBE;
} else if(strcmp(tmp, "subscribe") == 0)
pak->subtype = IKS_TYPE_SUBSCRIBE;
else if(strcmp(tmp, "subscribed") == 0)
pak->subtype = IKS_TYPE_SUBSCRIBED;
else if(strcmp(tmp, "unsubscribe") == 0)
pak->subtype = IKS_TYPE_UNSUBSCRIBE;
else if(strcmp(tmp, "unsubscribed") == 0)
pak->subtype = IKS_TYPE_UNSUBSCRIBED;
else if(strcmp(tmp, "error") == 0)
pak->subtype = IKS_TYPE_ERROR;
} else {
pak->type = IKS_PAK_PRESENCE;
pak->subtype = IKS_TYPE_AVAILABLE;
tmp = iks_find_cdata (x, "show");
pak->show = IKS_SHOW_AVAILABLE;
if (tmp) {
if (strcmp (tmp, "chat") == 0)
pak->show = IKS_SHOW_CHAT;
else if (strcmp (tmp, "away") == 0)
pak->show = IKS_SHOW_AWAY;
else if (strcmp (tmp, "xa") == 0)
pak->show = IKS_SHOW_XA;
else if (strcmp (tmp, "dnd") == 0)
pak->show = IKS_SHOW_DND;
}
}
} else if (strcmp (iks_name (x), "iq") == 0) {
iks *q;
pak->type = IKS_PAK_IQ;
if (tmp) {
if (strcmp (tmp, "get") == 0)
pak->subtype = IKS_TYPE_GET;
else if (strcmp (tmp, "set") == 0)
pak->subtype = IKS_TYPE_SET;
else if (strcmp (tmp, "result") == 0)
pak->subtype = IKS_TYPE_RESULT;
else if (strcmp (tmp, "error") == 0)
pak->subtype = IKS_TYPE_ERROR;
}
for (q = iks_child (x); q; q = iks_next (q)) {
if (IKS_TAG == iks_type (q)) {
char *ns;
ns = iks_find_attrib (q, "xmlns");
if (ns) {
pak->query = q;
pak->ns = ns;
break;
}
}
}
}
return pak;
}
/**
* Start CPA
*/
iks *rayo_cpa_component_start(struct rayo_actor *call, struct rayo_message *msg, void *session_data)
{
iks *iq = msg->payload;
switch_core_session_t *session = (switch_core_session_t *)session_data;
iks *input = iks_find(iq, "input");
switch_memory_pool_t *pool = NULL;
struct cpa_component *component = NULL;
int have_grammar = 0;
iks *grammar = NULL;
/* create CPA component */
switch_core_new_memory_pool(&pool);
component = switch_core_alloc(pool, sizeof(*component));
component = CPA_COMPONENT(rayo_component_init((struct rayo_component *)component, pool, RAT_CALL_COMPONENT, "cpa", NULL, call, iks_find_attrib(iq, "from")));
if (!component) {
switch_core_destroy_memory_pool(&pool);
return iks_new_error_detailed(iq, STANZA_ERROR_INTERNAL_SERVER_ERROR, "Failed to create CPA entity");
}
switch_core_hash_init(&component->signals);
/* start CPA detectors */
for (grammar = iks_find(input, "grammar"); grammar; grammar = iks_next_tag(grammar)) {
if (!strcmp("grammar", iks_name(grammar))) {
const char *error_str = "";
const char *url = iks_find_attrib_soft(grammar, "url");
char *url_dup;
char *url_params;
if (zstr(url)) {
stop_cpa_detectors(component);
RAYO_UNLOCK(component);
RAYO_DESTROY(component);
return iks_new_error_detailed(iq, STANZA_ERROR_BAD_REQUEST, "Missing grammar URL");
}
have_grammar = 1;
url_dup = strdup(url);
if ((url_params = strchr(url_dup, '?'))) {
*url_params = '\0';
url_params++;
}
if (switch_core_hash_find(component->signals, url)) {
free(url_dup);
stop_cpa_detectors(component);
RAYO_UNLOCK(component);
RAYO_DESTROY(component);
return iks_new_error_detailed(iq, STANZA_ERROR_BAD_REQUEST, "Duplicate URL");
}
/* start detector */
/* TODO return better reasons... */
if (rayo_cpa_detector_start(switch_core_session_get_uuid(session), url_dup, &error_str)) {
struct cpa_signal *cpa_signal = switch_core_alloc(pool, sizeof(*cpa_signal));
cpa_signal->terminate = !zstr(url_params) && strstr(url_params, "terminate=true");
cpa_signal->name = switch_core_strdup(pool, url_dup);
switch_core_hash_insert(component->signals, cpa_signal->name, cpa_signal);
subscribe(switch_core_session_get_uuid(session), cpa_signal->name, RAYO_JID(component));
} else {
free(url_dup);
stop_cpa_detectors(component);
RAYO_UNLOCK(component);
RAYO_DESTROY(component);
return iks_new_error_detailed(iq, STANZA_ERROR_INTERNAL_SERVER_ERROR, error_str);
}
free(url_dup);
}
}
if (!have_grammar) {
stop_cpa_detectors(component);
RAYO_UNLOCK(component);
RAYO_DESTROY(component);
return iks_new_error_detailed(iq, STANZA_ERROR_BAD_REQUEST, "No grammar defined");
}
/* acknowledge command */
rayo_component_send_start(RAYO_COMPONENT(component), iq);
/* TODO hangup race condition */
subscribe(switch_core_session_get_uuid(session), "hangup", RAYO_JID(component));
/* ready to forward detector events */
component->ready = 1;
return NULL;
}
/**
* Start execution of call sendfax component
* @param call the call to send fax to
* @param msg the original request
* @param session_data the call's session
*/
static iks *start_sendfax_component(struct rayo_actor *call, struct rayo_message *msg, void *session_data)
{
iks *iq = msg->payload;
switch_core_session_t *session = (switch_core_session_t *)session_data;
struct fax_component *sendfax_component = NULL;
iks *sendfax = iks_find(iq, "sendfax");
iks *response = NULL;
switch_event_t *execute_event = NULL;
switch_channel_t *channel = switch_core_session_get_channel(session);
switch_memory_pool_t *pool;
iks *document;
const char *fax_document;
const char *fax_header;
const char *fax_identity;
const char *pages;
/* validate attributes */
if (!VALIDATE_RAYO_SENDFAX(sendfax)) {
return iks_new_error(iq, STANZA_ERROR_BAD_REQUEST);
}
/* fax is only allowed if the call is not currently joined */
if (rayo_call_is_joined(RAYO_CALL(call))) {
return iks_new_error_detailed(iq, STANZA_ERROR_UNEXPECTED_REQUEST, "can't send fax on a joined call");
}
if (rayo_call_is_faxing(RAYO_CALL(call))) {
return iks_new_error_detailed(iq, STANZA_ERROR_UNEXPECTED_REQUEST, "fax already in progress");
}
/* get fax document */
document = iks_find(sendfax, "document");
if (!document) {
return iks_new_error_detailed(iq, STANZA_ERROR_BAD_REQUEST, "missing document");
}
fax_document = iks_find_attrib_soft(document, "url");
if (zstr(fax_document)) {
return iks_new_error_detailed(iq, STANZA_ERROR_BAD_REQUEST, "missing document url");
}
/* is valid URL type? */
if (!strncasecmp(fax_document, "http://", 7) || !strncasecmp(fax_document, "https://", 8)) {
switch_stream_handle_t stream = { 0 };
SWITCH_STANDARD_STREAM(stream);
/* need to fetch document from server... */
switch_api_execute("http_get", fax_document, session, &stream);
if (!zstr(stream.data) && !strncmp(fax_document, SWITCH_PATH_SEPARATOR, strlen(SWITCH_PATH_SEPARATOR))) {
fax_document = switch_core_session_strdup(session, stream.data);
} else {
switch_safe_free(stream.data);
return iks_new_error_detailed(iq, STANZA_ERROR_INTERNAL_SERVER_ERROR, "failed to fetch document");
}
switch_safe_free(stream.data);
} else if (!strncasecmp(fax_document, "file://", 7)) {
fax_document = fax_document + 7;
if (zstr(fax_document)) {
return iks_new_error_detailed(iq, STANZA_ERROR_BAD_REQUEST, "invalid file:// url");
}
} else if (strncasecmp(fax_document, SWITCH_PATH_SEPARATOR, strlen(SWITCH_PATH_SEPARATOR))) {
return iks_new_error_detailed(iq, STANZA_ERROR_BAD_REQUEST, "unsupported url type");
}
/* does document exist? */
if (switch_file_exists(fax_document, pool) != SWITCH_STATUS_SUCCESS) {
return iks_new_error_detailed_printf(iq, STANZA_ERROR_BAD_REQUEST, "file not found: %s", fax_document);
}
/* get fax identity and header */
fax_identity = iks_find_attrib_soft(document, "identity");
if (!zstr(fax_identity)) {
switch_channel_set_variable(channel, "fax_ident", fax_identity);
} else {
switch_channel_set_variable(channel, "fax_ident", NULL);
}
fax_header = iks_find_attrib_soft(document, "header");
if (!zstr(fax_header)) {
switch_channel_set_variable(channel, "fax_header", fax_header);
} else {
switch_channel_set_variable(channel, "fax_header", NULL);
}
/* get pages to send */
pages = iks_find_attrib_soft(document, "pages");
if (!zstr(pages)) {
if (switch_regex_match(pages, "[1-9][0-9]*(-[1-9][0-9]*)?") == SWITCH_STATUS_FALSE) {
return iks_new_error_detailed(iq, STANZA_ERROR_BAD_REQUEST, "invalid pages value");
} else {
int start = 0;
int end = 0;
char *pages_dup = switch_core_session_strdup(session, pages);
char *sep = strchr(pages_dup, '-');
if (sep) {
*sep = '\0';
sep++;
end = atoi(sep);
}
start = atoi(pages_dup);
if (end && end < start) {
return iks_new_error_detailed(iq, STANZA_ERROR_BAD_REQUEST, "invalid pages value");
}
switch_channel_set_variable(channel, "fax_start_page", pages_dup);
switch_channel_set_variable(channel, "fax_end_page", sep);
}
} else {
switch_channel_set_variable(channel, "fax_start_page", NULL);
switch_channel_set_variable(channel, "fax_end_page", NULL);
}
/* create sendfax component */
switch_core_new_memory_pool(&pool);
sendfax_component = switch_core_alloc(pool, sizeof(*sendfax_component));
rayo_component_init((struct rayo_component *)sendfax_component, pool, RAT_CALL_COMPONENT, "sendfax", NULL, call, iks_find_attrib(iq, "from"));
/* add channel variable so that fax component can be located from fax events */
switch_channel_set_variable(channel, "rayo_fax_jid", RAYO_JID(sendfax_component));
/* clear fax result variables */
switch_channel_set_variable(channel, "fax_success", NULL);
switch_channel_set_variable(channel, "fax_result_code", NULL);
switch_channel_set_variable(channel, "fax_result_text", NULL);
switch_channel_set_variable(channel, "fax_document_transferred_pages", NULL);
switch_channel_set_variable(channel, "fax_document_total_pages", NULL);
switch_channel_set_variable(channel, "fax_image_resolution", NULL);
switch_channel_set_variable(channel, "fax_image_size", NULL);
switch_channel_set_variable(channel, "fax_bad_rows", NULL);
switch_channel_set_variable(channel, "fax_transfer_rate", NULL);
switch_channel_set_variable(channel, "fax_ecm_used", NULL);
switch_channel_set_variable(channel, "fax_local_station_id", NULL);
switch_channel_set_variable(channel, "fax_remote_station_id", NULL);
/* clear fax interrupt variable */
switch_channel_set_variable(switch_core_session_get_channel(session), "rayo_read_frame_interrupt", NULL);
rayo_call_set_faxing(RAYO_CALL(call), 1);
/* execute txfax APP */
if (switch_event_create(&execute_event, SWITCH_EVENT_COMMAND) == SWITCH_STATUS_SUCCESS) {
switch_event_add_header_string(execute_event, SWITCH_STACK_BOTTOM, "call-command", "execute");
switch_event_add_header_string(execute_event, SWITCH_STACK_BOTTOM, "execute-app-name", "txfax");
switch_event_add_header_string(execute_event, SWITCH_STACK_BOTTOM, "execute-app-arg", fax_document);
if (!switch_channel_test_flag(channel, CF_PROXY_MODE)) {
switch_channel_set_flag(channel, CF_BLOCK_BROADCAST_UNTIL_MEDIA);
}
if (switch_core_session_queue_private_event(session, &execute_event, SWITCH_FALSE) != SWITCH_STATUS_SUCCESS) {
response = iks_new_error_detailed(iq, STANZA_ERROR_INTERNAL_SERVER_ERROR, "failed to txfax (queue event failed)");
if (execute_event) {
switch_event_destroy(&execute_event);
}
rayo_call_set_faxing(RAYO_CALL(call), 0);
RAYO_UNLOCK(sendfax_component);
} else {
/* component starting... */
rayo_component_send_start(RAYO_COMPONENT(sendfax_component), iq);
}
} else {
response = iks_new_error_detailed(iq, STANZA_ERROR_INTERNAL_SERVER_ERROR, "failed to create txfax event");
rayo_call_set_faxing(RAYO_CALL(call), 0);
RAYO_UNLOCK(sendfax_component);
}
return response;
}
/**
* Start execution of call receivefax component
* @param call the call to receive fax from
* @param msg the original request
* @param session_data the call's session
*/
static iks *start_receivefax_component(struct rayo_actor *call, struct rayo_message *msg, void *session_data)
{
iks *iq = msg->payload;
switch_core_session_t *session = (switch_core_session_t *)session_data;
struct receivefax_component *receivefax_component = NULL;
iks *receivefax = iks_find(iq, "receivefax");
iks *response = NULL;
switch_event_t *execute_event = NULL;
switch_channel_t *channel = switch_core_session_get_channel(session);
switch_memory_pool_t *pool;
int file_no;
/* validate attributes */
if (!VALIDATE_RAYO_RECEIVEFAX(receivefax)) {
return iks_new_error(iq, STANZA_ERROR_BAD_REQUEST);
}
/* fax is only allowed if the call is not currently joined */
if (rayo_call_is_joined(RAYO_CALL(call))) {
return iks_new_error_detailed(iq, STANZA_ERROR_UNEXPECTED_REQUEST, "can't receive fax on a joined call");
}
if (rayo_call_is_faxing(RAYO_CALL(call))) {
return iks_new_error_detailed(iq, STANZA_ERROR_UNEXPECTED_REQUEST, "fax already in progress");
}
/* create receivefax component */
switch_core_new_memory_pool(&pool);
receivefax_component = switch_core_alloc(pool, sizeof(*receivefax_component));
rayo_component_init((struct rayo_component *)receivefax_component, pool, RAT_CALL_COMPONENT, "receivefax", NULL, call, iks_find_attrib(iq, "from"));
file_no = rayo_actor_seq_next(call);
receivefax_component->filename = switch_core_sprintf(pool, "%s%s%s-%d.tif",
globals.file_prefix, SWITCH_PATH_SEPARATOR, switch_core_session_get_uuid(session), file_no);
if (!strncmp(receivefax_component->filename, "http://", 7) || !strncmp(receivefax_component->filename, "https://", 8)) {
/* This is an HTTP URL, need to PUT after fax is received */
receivefax_component->local_filename = switch_core_sprintf(pool, "%s%s%s-%d",
SWITCH_GLOBAL_dirs.temp_dir, SWITCH_PATH_SEPARATOR, switch_core_session_get_uuid(session), file_no);
receivefax_component->http_put_after_receive = 1;
switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_DEBUG, "%s save fax to HTTP URL\n", RAYO_JID(receivefax_component));
} else {
/* assume file.. */
receivefax_component->local_filename = receivefax_component->filename;
switch_log_printf(SWITCH_CHANNEL_LOG, SWITCH_LOG_DEBUG, "%s save fax to local file\n", RAYO_JID(receivefax_component));
}
/* add channel variable so that fax component can be located from fax events */
switch_channel_set_variable(channel, "rayo_fax_jid", RAYO_JID(receivefax_component));
/* clear fax result variables */
switch_channel_set_variable(channel, "fax_success", NULL);
switch_channel_set_variable(channel, "fax_result_code", NULL);
switch_channel_set_variable(channel, "fax_result_text", NULL);
switch_channel_set_variable(channel, "fax_document_transferred_pages", NULL);
switch_channel_set_variable(channel, "fax_document_total_pages", NULL);
switch_channel_set_variable(channel, "fax_image_resolution", NULL);
switch_channel_set_variable(channel, "fax_image_size", NULL);
switch_channel_set_variable(channel, "fax_bad_rows", NULL);
switch_channel_set_variable(channel, "fax_transfer_rate", NULL);
switch_channel_set_variable(channel, "fax_ecm_used", NULL);
switch_channel_set_variable(channel, "fax_local_station_id", NULL);
switch_channel_set_variable(channel, "fax_remote_station_id", NULL);
/* clear fax interrupt variable */
switch_channel_set_variable(switch_core_session_get_channel(session), "rayo_read_frame_interrupt", NULL);
rayo_call_set_faxing(RAYO_CALL(call), 1);
/* execute rxfax APP */
if (switch_event_create(&execute_event, SWITCH_EVENT_COMMAND) == SWITCH_STATUS_SUCCESS) {
switch_event_add_header_string(execute_event, SWITCH_STACK_BOTTOM, "call-command", "execute");
switch_event_add_header_string(execute_event, SWITCH_STACK_BOTTOM, "execute-app-name", "rxfax");
switch_event_add_header_string(execute_event, SWITCH_STACK_BOTTOM, "execute-app-arg", receivefax_component->local_filename);
if (!switch_channel_test_flag(channel, CF_PROXY_MODE)) {
switch_channel_set_flag(channel, CF_BLOCK_BROADCAST_UNTIL_MEDIA);
}
if (switch_core_session_queue_private_event(session, &execute_event, SWITCH_FALSE) != SWITCH_STATUS_SUCCESS) {
response = iks_new_error_detailed(iq, STANZA_ERROR_INTERNAL_SERVER_ERROR, "failed to rxfax (queue event failed)");
if (execute_event) {
switch_event_destroy(&execute_event);
}
rayo_call_set_faxing(RAYO_CALL(call), 0);
RAYO_UNLOCK(receivefax_component);
} else {
/* component starting... */
rayo_component_send_start(RAYO_COMPONENT(receivefax_component), iq);
}
} else {
response = iks_new_error_detailed(iq, STANZA_ERROR_INTERNAL_SERVER_ERROR, "failed to create rxfax event");
rayo_call_set_faxing(RAYO_CALL(call), 0);
RAYO_UNLOCK(receivefax_component);
}
return response;
}
//! Imports model file
static int
model_import(const char *model_file)
{
/*!
* Imports model file to node table.
*
* @model_file File to import
* @return 0 on success, -1 on error
*/
iks *obj, *met;
size_t size = 0;
size_t obj_size, met_size;
int obj_no;
int count = 0;
int e;
e = iks_load(model_file, &model_xml);
if (e != 0) {
log_error("XML load error.\n");
return -1;
}
if (iks_strcmp(iks_name(model_xml), "comarModel") != 0) {
log_error("Bad XML: not a Comar model.\n");
return -1;
}
// scan the model
for (obj = iks_first_tag(model_xml); obj; obj = iks_next_tag(obj)) {
if (iks_strcmp(iks_name(obj), "interface") == 0) {
obj_size = iks_strlen(iks_find_attrib(obj, "name"));
if (!obj_size) {
log_error("Bad XML: interface has no name.\n");
return -1;
}
size += obj_size + 1;
++count;
for (met = iks_first_tag(obj); met; met = iks_next_tag(met)) {
if (iks_strcmp(iks_name(met), "method") == 0 || iks_strcmp(iks_name(met), "signal") == 0) {
met_size = iks_strlen(iks_find_attrib(met, "name"));
if (!met_size) {
log_error("Bad XML: method/signal has no name.\n");
return -1;
}
size += obj_size + 1 + met_size + 1;
++count;
iks *arg;
for (arg = iks_first_tag(met); arg; arg = iks_next_tag(arg)) {
if (iks_strcmp(iks_name(arg), "arg") != 0 && iks_strcmp(iks_name(arg), "annotation") != 0) {
log_error("Bad XML: method/signal may contain <arg> or <annotation> only\n");
return -1;
}
}
}
else {
log_error("Bad XML: interface may contain <method> or <signal> only\n");
return -1;
}
}
}
else {
log_error("Bad XML: root node may contain <interface> only\n");
return -1;
}
}
// size is counted to alloc mem for paths
// prepare data structures
if (prepare_tables(count, size) != 0) return -1;
// load model
for (obj = iks_first_tag(model_xml); obj; obj = iks_next_tag(obj)) {
if (iks_strcmp(iks_find_attrib(obj, "name"), "Comar") == 0) {
continue;
}
obj_no = add_node(-1, build_path(obj, NULL), "", N_INTERFACE);
for (met = iks_first_tag(obj); met; met = iks_next_tag(met)) {
if (iks_strcmp(iks_name(met), "method") == 0) {
char *label = iks_find_attrib(met, "access_label");
if (label) {
iks_insert_attrib(met, "access_label", NULL);
}
else {
label = iks_find_attrib(met, "name");
}
add_node(obj_no, build_path(obj, met), label, N_METHOD);
}
else if (iks_strcmp(iks_name(met), "signal") == 0) {
add_node(obj_no, build_path(obj, met), "", N_SIGNAL);
}
}
}
return 0;
}
int
model_init(void)
{
iks *model;
iks *grp, *obj, *met;
int count = 0;
size_t size = 0;
size_t grp_size, obj_size, met_size;
int grp_no, obj_no;
int e;
// parse model file
e = iks_load(cfg_model_file, &model);
if (e) {
log_error("Cannot process model file '%s'\n", cfg_model_file);
return -1;
}
if (iks_strcmp(iks_name(model), "comarModel") != 0) {
log_error("Not a COMAR model file '%s'\n", cfg_model_file);
return -1;
}
// FIXME: ugly code ahead, split into functions and simplify
// scan the model
for (grp = iks_first_tag(model); grp; grp = iks_next_tag(grp)) {
if (iks_strcmp(iks_name(grp), "group") == 0) {
grp_size = iks_strlen(iks_find_attrib(grp, "name"));
if (!grp_size) {
log_error("Broken COMAR model file '%s'\n", cfg_model_file);
return -1;
}
size += grp_size + 1;
++count;
for (obj = iks_first_tag(grp); obj; obj = iks_next_tag(obj)) {
if (iks_strcmp(iks_name(obj), "class") == 0) {
obj_size = iks_strlen(iks_find_attrib(obj, "name"));
if (!obj_size) {
log_error("Broken COMAR model file '%s'\n", cfg_model_file);
return -1;
}
size += grp_size + obj_size + 2;
++count;
for (met = iks_first_tag(obj); met; met = iks_next_tag(met)) {
if (iks_strcmp(iks_name(met), "method") == 0
|| iks_strcmp(iks_name(met), "notify") == 0) {
met_size = iks_strlen(iks_find_attrib(met, "name"));
if (!met_size) {
log_error("Broken COMAR model file '%s'\n", cfg_model_file);
return -1;
}
size += grp_size + obj_size + met_size + 3;
++count;
}
if (iks_strcmp(iks_name(met), "method") == 0) {
iks *arg;
for (arg = iks_first_tag(met); arg; arg = iks_next_tag(arg)) {
if (iks_strcmp(iks_name(arg), "argument") == 0
|| iks_strcmp(iks_name(arg), "instance") == 0) {
size += iks_cdata_size(iks_child(arg)) + 1;
}
}
}
}
}
}
}
}
// prepare data structures
if (prepare_tables(count, size)) return -1;
// load the model
for (grp = iks_first_tag(model); grp; grp = iks_next_tag(grp)) {
if (iks_strcmp(iks_name(grp), "group") == 0) {
grp_no = add_node(-1, build_path(grp, NULL, NULL), N_GROUP);
for (obj = iks_first_tag(grp); obj; obj = iks_next_tag(obj)) {
if (iks_strcmp(iks_name(obj), "class") == 0) {
obj_no = add_node(grp_no, build_path(grp, obj, NULL), N_CLASS);
for (met = iks_first_tag(obj); met; met = iks_next_tag(met)) {
int no;
if (iks_strcmp(iks_name(met), "method") == 0) {
iks *arg;
char *prof;
no = add_node(obj_no, build_path(grp, obj, met), N_METHOD);
prof = iks_find_attrib(met, "access");
if (prof) {
if (strcmp(prof, "user") == 0)
nodes[no].level = ACL_USER;
if (strcmp(prof, "guest") == 0)
nodes[no].level = ACL_GUEST;
}
prof = iks_find_attrib(met, "profile");
if (prof) {
if (strcmp(prof, "global") == 0)
nodes[no].flags |= P_GLOBAL;
if (strcmp(prof, "package") == 0)
nodes[no].flags |= P_PACKAGE;
}
prof = iks_find_attrib(met, "profileOp");
if (prof) {
if (strcmp(prof, "delete") == 0)
nodes[no].flags |= P_DELETE;
if (strcmp(prof, "startup") == 0)
nodes[no].flags |= P_STARTUP;
}
for (arg = iks_first_tag(met); arg; arg = iks_next_tag(arg)) {
if (iks_strcmp(iks_name(arg), "instance") == 0) {
build_arg(no, 1, iks_cdata(iks_child(arg)));
}
}
for (arg = iks_first_tag(met); arg; arg = iks_next_tag(arg)) {
if (iks_strcmp(iks_name(arg), "argument") == 0) {
char *argname;
argname = iks_cdata(iks_child(arg));
if (argname) {
build_arg(no, 0, argname);
} else {
log_error("Argument name needed in <argument> tag of model.xml\n");
}
}
}
} else if (iks_strcmp(iks_name(met), "notify") == 0) {
no = add_node(obj_no, build_path(grp, obj, met), N_NOTIFY);
if (no >= model_max_notifications)
model_max_notifications = no + 1;
}
}
}
}
}
}
// no need to keep dom tree in memory
iks_delete(model);
return 0;
}
