예제 #1
0
파일: xode.c 프로젝트: 4N7HR4X/kamailio
/* loop through both a and b comparing everything, attribs, cdata, children, etc */
int xode_cmp(xode a, xode b)
{
    int ret = 0;

    while(1)
    {
        if(a == NULL && b == NULL)
            return 0;

        if(a == NULL || b == NULL)
            return -1;

        if(xode_get_type(a) != xode_get_type(b))
            return -1;

        switch(xode_get_type(a))
        {
        case XODE_TYPE_ATTRIB:
            ret = _xode_strcmp(xode_get_name(a), xode_get_name(b));
            if(ret != 0)
                return -1;
            ret = _xode_strcmp(xode_get_data(a), xode_get_data(b));
            if(ret != 0)
                return -1;
            break;
        case XODE_TYPE_TAG:
            ret = _xode_strcmp(xode_get_name(a), xode_get_name(b));
            if(ret != 0)
                return -1;
            ret = xode_cmp(xode_get_firstattrib(a), xode_get_firstattrib(b));
            if(ret != 0)
                return -1;
            ret = xode_cmp(xode_get_firstchild(a), xode_get_firstchild(b));
            if(ret != 0)
                return -1;
            break;
        case XODE_TYPE_CDATA:
            ret = _xode_strcmp(xode_get_data(a), xode_get_data(b));
            if(ret != 0)
                return -1;
        }
        a = xode_get_nextsibling(a);
        b = xode_get_nextsibling(b);
    }
}
예제 #2
0
파일: xode.c 프로젝트: 4N7HR4X/kamailio
static xode_spool _xode_tospool(xode node)
{
    xode_spool s;
    int level=0,dir=0;
    xode tmp;

    if(!node || xode_get_type(node) != XODE_TYPE_TAG)
	return NULL;

    s = xode_spool_newfrompool(xode_get_pool(node));
    if(!s) return(NULL);

    while(1)
    {
        if(dir==0)
        {
    	    if(xode_get_type(node) == XODE_TYPE_TAG)
            {
		        if(xode_has_children(node))
                {
		            _xode_tag2str(s,node,1);
        		    node = xode_get_firstchild(node);
		            level++;
		            continue;
        		}
                else
                {
		            _xode_tag2str(s,node,0);
		        }
	        }
            else
            {
		        xode_spool_add(s,xode_strescape(xode_get_pool(node),xode_get_data(node)));
	        }
	    }

    	tmp = xode_get_nextsibling(node);
	    if(!tmp)
        {
	        node = xode_get_parent(node);
	        level--;
	        if(level>=0) _xode_tag2str(s,node,2);
	        if(level<1) break;
	        dir = 1;
	    }
        else
        {
	        node = tmp;
	        dir = 0;
	    }
    }

    return s;
}
예제 #3
0
파일: xode.c 프로젝트: 4N7HR4X/kamailio
xode xode_insert_tagnode(xode parent, xode node)
{
    xode child;

    child = xode_insert_tag(parent, xode_get_name(node));
    if (xode_has_attribs(node))
        xode_insert_node(child, xode_get_firstattrib(node));
    if (xode_has_children(node))
        xode_insert_node(child, xode_get_firstchild(node));

    return child;
}
예제 #4
0
파일: xode.c 프로젝트: 4N7HR4X/kamailio
xode xode_dup_frompool(xode_pool p, xode x)
{
    xode x2;

    if(x == NULL)
        return NULL;

    x2 = xode_new_frompool(p, xode_get_name(x));

    if (xode_has_attribs(x))
        xode_insert_node(x2, xode_get_firstattrib(x));
    if (xode_has_children(x))
        xode_insert_node(x2, xode_get_firstchild(x));

    return x2;
}
예제 #5
0
파일: xode.c 프로젝트: 4N7HR4X/kamailio
char* xode_get_data(xode node)
{
    xode cur;

    if(node == NULL) return NULL;

    if(xode_get_type(node) == XODE_TYPE_TAG) /* loop till we find a CDATA */
    {
        for(cur = xode_get_firstchild(node); cur != NULL; cur = xode_get_nextsibling(cur))
            if(xode_get_type(cur) == XODE_TYPE_CDATA)
                return cur->data;
    }else{
        return node->data;
    }
    return NULL;
}
예제 #6
0
파일: xode.c 프로젝트: 4N7HR4X/kamailio
int xode_get_datasz(xode node)
{
	
    if( node == NULL )
    {
        return (int)(long)NULL;	    
    }	    
    else if(xode_get_type(node) == XODE_TYPE_TAG) /* loop till we find a CDATA */
    {
    	xode cur;	
        for(cur = xode_get_firstchild(node); cur != NULL; cur = xode_get_nextsibling(cur))
            if(xode_get_type(cur) == XODE_TYPE_CDATA)
                return cur->data_sz;
    }else{
        return node->data_sz;
    }
    return (int)(long)NULL;
}
예제 #7
0
파일: xode.c 프로젝트: 4N7HR4X/kamailio
void
_xode_to_prettystr( xode_spool s, xode x, int deep )
{
	int i;
	xode y;

	if(xode_get_type(x) != XODE_TYPE_TAG) return;
	
	for(i=0; i<deep; i++) xode_spool_add(s, "\t");	

	xode_spooler( s , "<" , xode_get_name(x) ,  s );

	y = xode_get_firstattrib(x);
	while( y )
	{
		xode_spooler( s , " " , xode_get_name(y) , "='", xode_get_data(y) , "'" , s );

		y = xode_get_nextsibling( y );
	}
	xode_spool_add(s,">");
	xode_spool_add(s,"\n");
		
	if( xode_get_data(x))
	{
		for(i=0; i<=deep; i++) xode_spool_add(s, "\t");	
		xode_spool_add( s , xode_get_data(x)); 
	}
			
	y = xode_get_firstchild(x);
	while( y )
	{
		_xode_to_prettystr(s , y, deep+1);
		y = xode_get_nextsibling(y);
		xode_spool_add(s,"\n");
	}
		
	for(i=0; i<deep; i++) xode_spool_add(s, "\t");	
	xode_spooler( s , "</" , xode_get_name(x) , ">" , s );

	return;
}
예제 #8
0
/**
 * parse incoming message from Jabber server
 */
int xj_manage_jab(char *buf, int len, int *pos, xj_jalias als, xj_jcon jbc)
{
    int j, err=0;
    char *p, *to, *from, *msg, *type, *emsg, *ecode, lbuf[4096], fbuf[128];
    xj_jconf jcf = NULL;
    str ts, tf;
    xode x, y, z;
    str *sid;
    xj_pres_cell prc = NULL;

    if(!jbc)
        return -1;

    sid = jbc->jkey->id;
    x = xode_from_strx(buf, len, &err, &j);
#ifdef XJ_EXTRA_DEBUG
    DBG("XJAB:xj_parse_jab: XODE ret:%d pos:%d\n", err, j);
#endif
    if(err && pos != NULL)
        *pos= j;
    if(x == NULL)
        return -1;
    lbuf[0] = 0;
    ecode = NULL;

    /******************** XMPP 'MESSAGE' HANDLING **********************/

    if(!strncasecmp(xode_get_name(x), "message", 7))
    {
#ifdef XJ_EXTRA_DEBUG
        DBG("XJAB:xj_manage_jab: jabber [message] received\n");
#endif
        if((to = xode_get_attrib(x, "to")) == NULL)
        {
#ifdef XJ_EXTRA_DEBUG
            DBG("XJAB:xj_manage_jab: missing 'to' attribute\n");
#endif
            err = -1;
            goto ready;
        }
        if((from = xode_get_attrib(x, "from")) == NULL)
        {
#ifdef XJ_EXTRA_DEBUG
            DBG("XJAB:xj_manage_jab: missing 'from' attribute\n");
#endif
            err = -1;
            goto ready;
        }
        if((y = xode_get_tag(x, "body")) == NULL
                || (msg = xode_get_data(y)) == NULL)
        {
#ifdef XJ_EXTRA_DEBUG
            DBG("XJAB:xj_manage_jab: missing 'body' of message\n");
#endif
            err = -1;
            goto ready;
        }
        type = xode_get_attrib(x, "type");
        if(type != NULL && !strncasecmp(type, "error", 5))
        {
            if((y = xode_get_tag(x, "error")) == NULL
                    || (emsg = xode_get_data(y)) == NULL)
                strcpy(lbuf, "{Error sending following message} - ");
            else
            {
                ecode = xode_get_attrib(y, "code");
                strcpy(lbuf, "{Error (");
                if(ecode != NULL)
                {
                    strcat(lbuf, ecode);
                    strcat(lbuf, " - ");
                }
                strcat(lbuf, emsg);
                strcat(lbuf, ") when trying to send following message}");
            }

        }

        // is from a conference?!?!
        if((jcf=xj_jcon_check_jconf(jbc, from))!=NULL)
        {
            if(lbuf[0] == 0)
            {
                p = from + strlen(from);
                while(p>from && *p != '/')
                    p--;
                if(*p == '/')
                {
                    if(jcf->nick.len>0
                            && strlen(p+1) == jcf->nick.len
                            && !strncasecmp(p+1, jcf->nick.s, jcf->nick.len))
                    {
#ifdef XJ_EXTRA_DEBUG
                        DBG("XJAB:xj_manage_jab: message sent by myself\n");
#endif
                        goto ready;
                    }
                    lbuf[0] = '[';
                    lbuf[1] = 0;
                    strcat(lbuf, p+1);
                    strcat(lbuf, "] ");
                }
            }
            else
            {
                jcf->status = XJ_JCONF_NULL;
                xj_jcon_jconf_presence(jbc,jcf,NULL,"online");
            }
            strcat(lbuf, msg);
            ts.s = lbuf;
            ts.len = strlen(lbuf);

            if(xj_send_sip_msg(als->proxy, sid, &jcf->uri, &ts,
                               &jbc->jkey->flag)<0)
                DBG("XJAB:xj_manage_jab: ERROR SIP MESSAGE was not sent!\n");
#ifdef XJ_EXTRA_DEBUG
            else
                DBG("XJAB:xj_manage_jab: SIP MESSAGE was sent!\n");
#endif
            goto ready;
        }

        strcat(lbuf, msg);
        ts.s = from;
        ts.len = strlen(from);
        tf.s = fbuf;
        tf.len = 0;
        if(xj_address_translation(&ts, &tf, als, XJ_ADDRTR_J2S) == 0)
        {
            ts.s = lbuf;
            ts.len = strlen(lbuf);

            if(xj_send_sip_msg(als->proxy, sid, &tf, &ts, &jbc->jkey->flag)<0)
                DBG("XJAB:xj_manage_jab: ERROR SIP MESSAGE was not sent ...\n");
#ifdef XJ_EXTRA_DEBUG
            else
                DBG("XJAB:xj_manage_jab: SIP MESSAGE was sent.\n");
#endif
        }
        goto ready;
    }
    /*------------------- END 'MESSAGE' HANDLING ----------------------*/

    /******************** XMPP 'PRESENCE' HANDLING *********************/
    if(!strncasecmp(xode_get_name(x), "presence", 8))
    {
#ifdef XJ_EXTRA_DEBUG
        DBG("XJAB:xj_manage_jab: jabber [presence] received\n");
#endif
        type = xode_get_attrib(x, "type");
        from = xode_get_attrib(x, "from");
        if(from == NULL)
            goto ready;
        ts.s = from;
        p = from;
        while(p<from + strlen(from) && *p != '/')
            p++;
        if(*p == '/')
            ts.len = p - from;
        else
            ts.len = strlen(from);

        if(type == NULL || !strncasecmp(type, "online", 6)
                || !strncasecmp(type, "available", 9))
        {
            if(strchr(from, '@') == NULL)
            {
                if(!strncasecmp(from, XJ_AIM_NAME, XJ_AIM_LEN))
                {
                    jbc->ready |= XJ_NET_AIM;
#ifdef XJ_EXTRA_DEBUG
                    DBG("XJAB:xj_manage_jab: AIM network ready\n");
#endif
                }
                else if(!strncasecmp(from, XJ_ICQ_NAME, XJ_ICQ_LEN))
                {
                    jbc->ready |= XJ_NET_ICQ;
#ifdef XJ_EXTRA_DEBUG
                    DBG("XJAB:xj_manage_jab: ICQ network ready\n");
#endif
                }
                else if(!strncasecmp(from, XJ_MSN_NAME, XJ_MSN_LEN))
                {
                    jbc->ready |= XJ_NET_MSN;
#ifdef XJ_EXTRA_DEBUG
                    DBG("XJAB:xj_manage_jab: MSN network ready\n");
#endif
                }
                else if(!strncasecmp(from, XJ_YAH_NAME, XJ_YAH_LEN))
                {
                    jbc->ready |= XJ_NET_YAH;
#ifdef XJ_EXTRA_DEBUG
                    DBG("XJAB:xj_manage_jab: YAHOO network ready\n");
#endif
                }
            }
            else if((jcf=xj_jcon_check_jconf(jbc, from))!=NULL)
            {
                jcf->status = XJ_JCONF_READY;
#ifdef XJ_EXTRA_DEBUG
                DBG("XJAB:xj_manage_jab: %s conference ready\n", from);
#endif
            }
            else
            {
#ifdef XJ_EXTRA_DEBUG
                DBG("XJAB:xj_manage_jab: user <%.*s> is online\n",ts.len,ts.s);
#endif
                prc = xj_pres_list_check(jbc->plist, &ts);
                if(prc)
                {
                    if(prc->state != XJ_PS_ONLINE)
                    {
                        prc->state = XJ_PS_ONLINE;
                        goto call_pa_cbf;
                    }
                }
                else
                {
#ifdef XJ_EXTRA_DEBUG
                    DBG("XJAB:xj_manage_jab: user state received - creating"
                        " presence cell for [%.*s]\n", ts.len, ts.s);
#endif
                    prc = xj_pres_cell_new();
                    if(prc == NULL)
                    {
                        DBG("XJAB:xj_manage_jab: cannot create presence"
                            " cell for [%s]\n", from);
                        goto ready;
                    }
                    if(xj_pres_cell_init(prc, &ts, NULL, NULL)<0)
                    {
                        DBG("XJAB:xj_manage_jab: cannot init presence"
                            " cell for [%s]\n", from);
                        xj_pres_cell_free(prc);
                        goto ready;
                    }
                    prc = xj_pres_list_add(jbc->plist, prc);
                    if(prc)
                    {
                        prc->state = XJ_PS_ONLINE;
                        goto call_pa_cbf;
                    }
                }
            }
            goto ready;
        }

        if(strchr(from, '@') == NULL)
            goto ready;


        if(!strncasecmp(type, "error", 5))
        {
            if((jcf=xj_jcon_check_jconf(jbc, from))!=NULL)
            {
                tf.s = from;
                tf.len = strlen(from);
                if((y = xode_get_tag(x, "error")) == NULL)
                    goto ready;
                if ((p = xode_get_attrib(y, "code")) != NULL
                        && atoi(p) == 409)
                {
                    xj_send_sip_msgz(als->proxy, sid, &tf,
                                     XJ_DMSG_ERR_JCONFNICK, &jbc->jkey->flag);
                    goto ready;
                }
                xj_send_sip_msgz(als->proxy,sid,&tf,XJ_DMSG_ERR_JCONFREFUSED,
                                 &jbc->jkey->flag);
            }
            goto ready;
        }
        if(type!=NULL && !strncasecmp(type, "subscribe", 9))
        {
            xj_jcon_send_presence(jbc, from, "subscribed", NULL, NULL);
            goto ready;
        }

        prc = xj_pres_list_check(jbc->plist, &ts);
        if(!prc)
            goto ready;

        if(!strncasecmp(type, "unavailable", 11))
        {
#ifdef XJ_EXTRA_DEBUG
            DBG("XJAB:xj_manage_jab: user <%s> is offline\n", from);
#endif
            if(prc->state != XJ_PS_OFFLINE)
            {
                prc->state = XJ_PS_OFFLINE;
                goto call_pa_cbf;
            }
            goto ready;
        }

        if(!strncasecmp(type, "unsubscribed", 12))
        {
#ifdef XJ_EXTRA_DEBUG
            DBG("XJAB:xj_manage_jab: user <%s> does not allow to see his"
                " presence status\n", from);
#endif
            if(prc->state != XJ_PS_REFUSED)
            {
                prc->state = XJ_PS_REFUSED;
                goto call_pa_cbf;
            }
        }

        // ignoring unknown types
        goto ready;
    }
    /*------------------- END XMPP 'PRESENCE' HANDLING ----------------*/

    /******************** XMPP 'IQ' HANDLING ***************************/
    if(!strncasecmp(xode_get_name(x), "iq", 2))
    {
#ifdef XJ_EXTRA_DEBUG
        DBG("XJAB:xj_manage_jab: jabber [iq] received\n");
#endif
        if(!strncasecmp(xode_get_attrib(x, "type"), "result", 6))
        {
            if((y = xode_get_tag(x, "query?xmlns=jabber:iq:roster")) == NULL)
                goto ready;
            z = xode_get_firstchild(y);
            while(z)
            {
                if(!strncasecmp(xode_get_name(z), "item", 5)
                        && (from = xode_get_attrib(z, "jid")) != NULL)
                {
                    if(strchr(from, '@') == NULL)
                    {   // transports
                        if(!strncasecmp(from, XJ_AIM_NAME, XJ_AIM_LEN))
                        {
                            jbc->allowed |= XJ_NET_AIM;
#ifdef XJ_EXTRA_DEBUG
                            DBG("XJAB:xj_manage_jab:AIM network available\n");
#endif
                        }
                        else if(!strncasecmp(from, XJ_ICQ_NAME, XJ_ICQ_LEN))
                        {
                            jbc->allowed |= XJ_NET_ICQ;
#ifdef XJ_EXTRA_DEBUG
                            DBG("XJAB:xj_manage_jab:ICQ network available\n");
#endif
                        }
                        else if(!strncasecmp(from, XJ_MSN_NAME, XJ_MSN_LEN))
                        {
                            jbc->allowed |= XJ_NET_MSN;
#ifdef XJ_EXTRA_DEBUG
                            DBG("XJAB:xj_manage_jab:MSN network available\n");
#endif
                        }
                        else if(!strncasecmp(from, XJ_YAH_NAME, XJ_YAH_LEN))
                        {
                            jbc->allowed |= XJ_NET_YAH;
#ifdef XJ_EXTRA_DEBUG
                            DBG("XJAB:xj_manage_jab:YAHOO network available\n");
#endif
                        }
                        goto next_sibling;
                    }
                }
next_sibling:
                z = xode_get_nextsibling(z);
            }
        }

        goto ready;
    }
    /*------------------- END XMPP 'IQ' HANDLING ----------------------*/

call_pa_cbf:
    if(prc && prc->cbf)
    {
        // call the PA callback function
        tf.s = fbuf;
        tf.len = 0;
        if(xj_address_translation(&ts,&tf,als,XJ_ADDRTR_J2S)==0)
        {
#ifdef XJ_EXTRA_DEBUG
            DBG("XJAB:xj_manage_jab: calling CBF(%.*s,%d)\n",
                tf.len, tf.s, prc->state);
#endif
            (*(prc->cbf))(&tf, &tf, prc->state, prc->cbp);
        }
    }
ready:
    xode_free(x);
    return err;
}
예제 #9
0
static void out_stream_node_callback(int type, xode node, void *arg)
{
	struct xmpp_connection *conn = (struct xmpp_connection *) arg;
	struct xmpp_connection *in_conn = NULL;
	char *tag;
	xode x;

	LM_DBG("outstream callback: %d: %s\n", type, 
			node?xode_get_name(node):"n/a");

	if (conn->domain)
		in_conn = conn_find_domain(conn->domain, CONN_INBOUND);

	switch (type) {
	case XODE_STREAM_ROOT:
		x = xode_new_tag("db:result");
		xode_put_attrib(x, "xmlns:db", "jabber:server:dialback");
		xode_put_attrib(x, "from", xmpp_domain);
		xode_put_attrib(x, "to", conn->domain);
		//xode_insert_cdata(x, DB_KEY, -1);
		xode_insert_cdata(x, db_key(local_secret, conn->domain,
					xode_get_attrib(node, "id")), -1);
		xode_send(conn->fd, x);
		xode_free(x);

		break;
	case XODE_STREAM_NODE:
		tag = xode_get_name(node);

		if (!strcmp(tag, "db:verify")) {
			char *from = xode_get_attrib(node, "from");
			char *to = xode_get_attrib(node, "to");
			char *id = xode_get_attrib(node, "id");
			char *type = xode_get_attrib(node, "type");
			/* char *cdata = xode_get_data(node); */
			
			if (!strcmp(type, "valid") || !strcmp(type, "invalid")) {
				/* got a reply, report it */
				x = xode_new_tag("db:result");
				xode_put_attrib(x, "xmlns:db", "jabber:server:dialback");
				xode_put_attrib(x, "from", to);
				xode_put_attrib(x, "to", from);
				xode_put_attrib(x, "id", id);
				xode_put_attrib(x, "type", type);
				if (in_conn)
					xode_send(in_conn->fd, x);
				else
					LM_ERR("need to send reply to domain '%s', but no inbound"
							" connection found\n", from);
				xode_free(x);
			}
		} else if (!strcmp(tag, "db:result")) {
			char *type = xode_get_attrib(node, "type");
			
			if (type && !strcmp(type, "valid")) {
				/* the remote server has successfully authenticated us,
				 * we can now send data */
				for (x = xode_get_firstchild(conn->todo); x;
						x = xode_get_nextsibling(x)) {
					LM_DBG("sending todo tag '%s'\n", xode_get_name(x));
					xode_send(conn->fd, x);
				}
				xode_free(conn->todo);
				conn->todo = NULL;
			}
		}
		break;
	case XODE_STREAM_ERROR:
		LM_ERR("outstream error\n");
		/* fall-through */
	case XODE_STREAM_CLOSE:
		conn->type = CONN_DEAD;
		break;
	}
	xode_free(node);
}