int xmlnode2file(char *file, xmlnode node)
{
char *doc, *ftmp;
int fd, i;
if(file == NULL || node == NULL)
return -1;
ftmp = spools(xmlnode_pool(node),file,".t.m.p",xmlnode_pool(node));
fd = open(ftmp, O_CREAT | O_WRONLY | O_TRUNC, 0600);
if(fd < 0)
return -1;
doc = xmlnode2str(node);
i = write(fd,doc,strlen(doc));
if(i < 0)
return -1;
close(fd);
if(rename(ftmp,file) < 0)
{
unlink(ftmp);
return -1;
}
return 1;
}
result base_to_deliver(instance id, dpacket p, void *arg)
{
char *log_data = xmlnode_get_data(p->x);
char *subject;
xmlnode message;
if (log_data == NULL)
return r_ERR;
message = xmlnode_new_tag("message");
xmlnode_insert_cdata(xmlnode_insert_tag(message, "body"), log_data,
-1);
subject =
spools(xmlnode_pool(message), "Log Packet from ",
xmlnode_get_attrib(p->x, "from"),
xmlnode_pool(message));
xmlnode_insert_cdata(xmlnode_insert_tag(message, "thread"),
shahash(subject), -1);
xmlnode_insert_cdata(xmlnode_insert_tag(message, "subject"),
subject, -1);
xmlnode_put_attrib(message, "from",
xmlnode_get_attrib(p->x, "from"));
xmlnode_put_attrib(message, "to", (char *) arg);
deliver(dpacket_new(message), id);
pool_free(p->p);
return r_DONE;
}
mreturn mod_browse_reply(mapi m, void *arg)
{
xmlnode browse, ns, cur;
session s;
if (m->packet->type != JPACKET_IQ)
return M_IGNORE;
if (!NSCHECK(m->packet->iq, NS_BROWSE))
return M_PASS;
/* first, is this a valid request? */
switch (jpacket_subtype(m->packet)) {
case JPACKET__RESULT:
case JPACKET__ERROR:
return M_PASS;
case JPACKET__SET:
js_bounce(m->si, m->packet->x, TERROR_NOTALLOWED);
return M_HANDLED;
}
log_debug("handling query for user %s", m->user->user);
/* get this dudes browse info */
browse = mod_browse_get(m, m->packet->to);
/* insert the namespaces */
ns = xdb_get(m->si->xc, m->packet->to, NS_XDBNSLIST);
for (cur = xmlnode_get_firstchild(ns); cur != NULL;
cur = xmlnode_get_nextsibling(cur))
if (xmlnode_get_attrib(cur, "type") == NULL)
xmlnode_insert_tag_node(browse, cur); /* only include the generic <ns>foo</ns> */
xmlnode_free(ns);
/* include any connected resources if there's a s10n from them */
if (js_trust(m->user, m->packet->from)) {
SEM_LOCK(m->user->sem);
for (s = m->user->sessions; s != NULL; s = s->next) {
/* if(s->priority < 0) continue; *** include all resources I guess */
if (xmlnode_get_tag
(browse,
spools(m->packet->p, "?jid=", jid_full(s->id),
m->packet->p)) != NULL)
continue; /* already in the browse result */
cur = xmlnode_insert_tag(browse, "user");
xmlnode_put_attrib(cur, "type", "client");
xmlnode_put_attrib(cur, "jid", jid_full(s->id));
}
SEM_UNLOCK(m->user->sem);
}
/* XXX include iq:filter forwards */
jutil_iqresult(m->packet->x);
jpacket_reset(m->packet);
xmlnode_insert_tag_node(m->packet->x, browse);
js_deliver(m->si, m->packet);
xmlnode_free(browse);
return M_HANDLED;
}
int at_iq_gateway(ati ti, jpacket jp)
{
if(jp->to->user != NULL)
{
at_bounce(ti, jp, TERROR_NOTALLOWED);
return 1;
}
switch(jpacket_subtype(jp))
{
case JPACKET__GET:
{
xmlnode q;
jutil_iqresult(jp->x);
q = xmlnode_insert_tag(jp->x,"query");
xmlnode_put_attrib(q,"xmlns",NS_GATEWAY);
xmlnode_insert_cdata(xmlnode_insert_tag(q,"desc"),"Enter the user's screenname",-1);
xmlnode_insert_tag(q,"prompt");
break;
}
case JPACKET__SET:
{
char *user, *id;
user = xmlnode_get_tag_data(jp->iq,"prompt");
id = user ? spools(jp->p,at_normalize(user),"@",jp->to->server,jp->p) : NULL;
if (id)
{
xmlnode q;
jutil_iqresult(jp->x);
q = xmlnode_insert_tag(jp->x,"query");
xmlnode_put_attrib(q,"xmlns",NS_GATEWAY);
xmlnode_insert_cdata(xmlnode_insert_tag(q,"prompt"),id,-1);
}
else
jutil_error(jp->x,TERROR_BAD);
break;
}
default:
jutil_error(jp->x,TERROR_BAD);
break;
}
at_deliver(ti,jp->x);
return 1;
}
mreturn mod_browse_server(mapi m, void *arg)
{
xmlnode browse, query, x;
if (m->packet->type != JPACKET_IQ)
return M_IGNORE;
if (jpacket_subtype(m->packet) != JPACKET__GET
|| !NSCHECK(m->packet->iq, NS_BROWSE)
|| m->packet->to->resource != NULL)
return M_PASS;
/* get data from the config file */
if ((browse = js_config(m->si, "browse")) == NULL)
return M_PASS;
log_debug("handling browse query");
/* build the result IQ */
query =
xmlnode_insert_tag(jutil_iqresult(m->packet->x), "service");
xmlnode_put_attrib(query, "xmlns", NS_BROWSE);
xmlnode_put_attrib(query, "type", "jabber");
xmlnode_put_attrib(query, "jid", m->packet->to->server);
xmlnode_put_attrib(query, "name", xmlnode_get_data(js_config(m->si, "vCard/FN"))); /* pull name from the server vCard */
/* copy in the configured services */
xmlnode_insert_node(query, xmlnode_get_firstchild(browse));
/* list the admin stuff */
if (js_admin_jid(m->si, jid_user(m->packet->from), ADMIN_READ)) {
x = xmlnode_insert_tag(query, "item");
xmlnode_put_attrib(x, "jid",
spools(xmlnode_pool(x),
m->packet->to->server, "/admin",
xmlnode_pool(x)));
xmlnode_put_attrib(x, "name", "Online Users");
xmlnode_insert_cdata(xmlnode_insert_tag(query, "ns"),
NS_ADMIN, -1);
}
jpacket_reset(m->packet);
js_deliver(m->si, m->packet);
return M_HANDLED;
}
void con_room_send_invite(cnu sender, xmlnode node)
{
xmlnode result;
xmlnode element;
xmlnode invite;
xmlnode pass;
char *body, *user, *reason, *inviter;
cnr room;
pool p;
if(sender == NULL || node == NULL)
{
log_warn(NAME, "[%s] Aborting - NULL attribute found", FZONE);
return;
}
log_debug(NAME, "[%s] Sending room invite", FZONE);
room = sender->room;
invite = xmlnode_get_tag(node, "invite");
user = xmlnode_get_attrib(invite, "to");
reason = xmlnode_get_tag_data(invite, "reason");
p = xmlnode_pool(node);
if(room->visible == 1)
{
inviter = jid_full(sender->realid);
}
else
{
inviter = jid_full(sender->localid);
}
xmlnode_put_attrib(invite, "from", inviter);
xmlnode_hide_attrib(invite, "to");
if(reason == NULL)
{
reason = spools(p, "None given", p);
}
body = spools(p, "You have been invited to the ", jid_full(room->id), " room by ", inviter, "\nReason: ", reason, p);
result = jutil_msgnew("normal", user , "Invitation", body);
xmlnode_put_attrib(result, "from", jid_full(room->id));
xmlnode_insert_node(result, node);
if(room->secret != NULL)
{
pass = xmlnode_get_tag(result, "x");
xmlnode_insert_cdata(xmlnode_insert_tag(pass, "password"), room->secret, -1);
}
element = xmlnode_insert_tag(result, "x");
xmlnode_put_attrib(element, "jid", jid_full(room->id));
xmlnode_put_attrib(element, "xmlns", NS_X_CONFERENCE);
xmlnode_insert_cdata(element, reason, -1);
log_debug(NAME, "[%s] >>>%s<<<", FZONE, xmlnode2str(result));
deliver(dpacket_new(result), NULL);
return;
}
mreturn mod_browse_set(mapi m, void *arg)
{
xmlnode browse, cur;
jid id, to;
if (m->packet->type != JPACKET_IQ)
return M_IGNORE;
if (!NSCHECK(m->packet->iq, NS_BROWSE)
|| jpacket_subtype(m->packet) != JPACKET__SET)
return M_PASS;
if (m->packet->to != NULL)
return M_PASS; /* if its to someone other than ourselves */
log_debug("handling set request %s", xmlnode2str(m->packet->iq));
/* no to implies to ourselves */
if (m->packet->to != NULL)
to = m->packet->to;
else
to = m->user->id;
/* if we set to a resource, we need to make sure that resource's browse is in the users browse */
if (to->resource != NULL) {
browse = mod_browse_get(m, to); /* get our browse info */
xmlnode_hide_attrib(browse, "xmlns"); /* don't need a ns as a child */
for (cur = xmlnode_get_firstchild(browse); cur != NULL;
cur = xmlnode_get_nextsibling(cur))
xmlnode_hide(cur); /* erase all children */
xdb_act(m->si->xc, m->user->id, NS_BROWSE, "insert", spools(m->packet->p, "?jid=", jid_full(to), m->packet->p), browse); /* insert and match replace */
xmlnode_free(browse);
}
/* get the id of the new browse item */
if ((cur = xmlnode_get_firstchild(m->packet->iq)) == NULL
|| (id =
jid_new(m->packet->p,
xmlnode_get_attrib(cur, "jid"))) == NULL) {
js_bounce(m->si, m->packet->x, TERROR_NOTACCEPTABLE);
return M_HANDLED;
}
/* insert the new item into the resource it was sent to */
xmlnode_hide_attrib(cur, "xmlns"); /* just in case, to make sure it inserts */
if (xdb_act
(m->si->xc, to, NS_BROWSE, "insert",
spools(m->packet->p, "?jid=", jid_full(id), m->packet->p),
cur)) {
js_bounce(m->si, m->packet->x, TERROR_UNAVAIL);
return M_HANDLED;
}
/* if the new data we're inserting is to one of our resources, update that resource's browse */
if (jid_cmpx(m->user->id, id, JID_USER | JID_SERVER) == 0
&& id->resource != NULL) {
/* get the old */
browse = mod_browse_get(m, id);
/* transform the new one into the old one */
xmlnode_put_attrib(cur, "xmlns", NS_BROWSE);
xmlnode_insert_node(cur, xmlnode_get_firstchild(browse));
xdb_set(m->si->xc, id, NS_BROWSE, cur); /* replace the resource's browse w/ this one */
xmlnode_free(browse);
}
/* send response to the user */
jutil_iqresult(m->packet->x);
jpacket_reset(m->packet);
js_session_to(m->s, m->packet);
return M_HANDLED;
}
