/*
* Checks from presence server xcap table if watcher is authorized
* to subscribe event 'presence' of presentity.
*/
int xcap_auth_status(struct sip_msg* _msg, char* _sp1, char* _sp2)
{
pv_spec_t *sp;
pv_value_t pv_val;
str watcher_uri, presentity_uri;
struct sip_uri uri;
str* rules_doc = NULL;
subs_t subs;
int res;
if (pres_dbh == 0) {
LM_ERR("function is disabled, to enable define pres_db_url\n");
return -1;
}
sp = (pv_spec_t *)_sp1;
if (sp && (pv_get_spec_value(_msg, sp, &pv_val) == 0)) {
if (pv_val.flags & PV_VAL_STR) {
watcher_uri = pv_val.rs;
if (watcher_uri.len == 0 || watcher_uri.s == NULL) {
LM_ERR("missing watcher uri\n");
return -1;
}
} else {
LM_ERR("watcher pseudo variable value is not string\n");
return -1;
}
} else {
LM_ERR("cannot get watcher pseudo variable value\n");
return -1;
}
sp = (pv_spec_t *)_sp2;
if (sp && (pv_get_spec_value(_msg, sp, &pv_val) == 0)) {
if (pv_val.flags & PV_VAL_STR) {
presentity_uri = pv_val.rs;
if (presentity_uri.len == 0 || presentity_uri.s == NULL) {
LM_DBG("missing presentity uri\n");
return -1;
}
} else {
LM_ERR("presentity pseudo variable value is not string\n");
return -1;
}
} else {
LM_ERR("cannot get presentity pseudo variable value\n");
return -1;
}
if (parse_uri(presentity_uri.s, presentity_uri.len, &uri) < 0) {
LM_ERR("failed to parse presentity uri\n");
return -1;
}
res = get_rules_doc(&uri.user, &uri.host, PRES_RULES, &rules_doc);
if ((res < 0) || (rules_doc == NULL) || (rules_doc->s == NULL)) {
LM_DBG("no xcap rules doc found for presentity uri\n");
return PENDING_STATUS;
}
if (parse_uri(watcher_uri.s, watcher_uri.len, &uri) < 0) {
LM_ERR("failed to parse watcher uri\n");
goto err;
}
subs.from_user = uri.user;
subs.from_domain = uri.host;
subs.pres_uri = presentity_uri;
subs.auth_rules_doc = rules_doc;
if (pres_watcher_allowed(&subs) < 0) {
LM_ERR("getting status from rules document\n");
goto err;
}
LM_DBG("auth status of watcher <%.*s> on presentity <%.*s> is %d\n",
watcher_uri.len, watcher_uri.s, presentity_uri.len, presentity_uri.s,
subs.status);
pkg_free(rules_doc->s);
pkg_free(rules_doc);
return subs.status;
err:
pkg_free(rules_doc->s);
pkg_free(rules_doc);
return -1;
}
int pres_get_rules_doc(str* user, str* domain, str** rules_doc)
{
return get_rules_doc(user, domain, NULL, PRES_RULES, rules_doc);
}
int pres_get_pidf_doc(str *user, str *domain, str *file_uri, str **rules_doc)
{
return get_rules_doc(user, domain, file_uri, PIDF_MANIPULATION, rules_doc);
}
str* agregate_xmls(str* pres_user, str* pres_domain, str** body_array, int n,
char* root_name, char* elem_name)
{
int i, j= 0, append ;
xmlNodePtr p_root= NULL, new_p_root= NULL ;
xmlDocPtr* xml_array ;
xmlNodePtr node = NULL;
xmlNodePtr add_node = NULL ;
str *body= NULL;
char* id= NULL, *elem_id = NULL;
xmlDocPtr pidf_manip_doc= NULL;
str* pidf_doc= NULL;
xml_array = (xmlDocPtr*)pkg_malloc( (n+2)*sizeof(xmlDocPtr));
if(xml_array== NULL)
{
LM_ERR("while alocating memory");
return NULL;
}
memset(xml_array, 0, (n+2)*sizeof(xmlDocPtr)) ;
/* if pidf_manipulation usage is configured */
if(pidf_manipulation)
{
if( get_rules_doc(pres_user, pres_domain, PIDF_MANIPULATION, &pidf_doc)< 0)
{
LM_ERR("while getting xcap tree for doc_type PIDF_MANIPULATION\n");
goto error;
}
if(pidf_doc== NULL)
{
LM_DBG("No PIDF_MANIPULATION doc for [user]= %.*s [domain]= %.*s\n",
pres_user->len, pres_user->s, pres_domain->len, pres_domain->s);
}
else
{
pidf_manip_doc= xmlParseMemory(pidf_doc->s, pidf_doc->len);
pkg_free(pidf_doc->s);
pkg_free(pidf_doc);
if(pidf_manip_doc== NULL)
{
LM_ERR("parsing xml memory\n");
goto error;
}
else
{
xml_array[0]= pidf_manip_doc;
j++;
}
}
}
for(i=0; i<n; i++)
{
if(body_array[i] == NULL )
continue;
xml_array[j] = NULL;
xml_array[j] = xmlParseMemory( body_array[i]->s, body_array[i]->len );
LM_DBG("i = [%d] - body: %.*s\n", i, body_array[i]->len, body_array[i]->s);
if( xml_array[j]== NULL)
{
LM_ERR("while parsing xml body message\n");
goto error;
}
j++;
}
if(j== 0) /* no body */
{
if(xml_array)
pkg_free(xml_array);
return NULL;
}
j--;
p_root = xmlDocGetNodeByName( xml_array[j], root_name, NULL);
if(p_root ==NULL)
{
LM_ERR("while geting the xml_tree root\n");
goto error;
}
for(i= j-1; i>=0; i--)
{
LM_DBG("i = %d\n", i);
new_p_root= xmlDocGetNodeByName( xml_array[i], root_name, NULL);
if(new_p_root ==NULL)
{
LM_ERR("while geting the xml_tree root\n");
goto error;
}
node= xmlNodeGetChildByName(new_p_root, elem_name);
if(node== NULL)
{
LM_DBG("no %s node found\n", elem_name);
append = 1;
goto append_label;
}
elem_id= xmlNodeGetAttrContentByName(node, "id");
if(elem_id== NULL)
{
LM_ERR("while extracting %s id\n", elem_name);
goto error;
}
append= 1;
for (node = p_root->children; node!=NULL; node = node->next)
{
if( xmlStrcasecmp(node->name,(unsigned char*)"text")==0)
continue;
if( xmlStrcasecmp(node->name,(unsigned char*)elem_name)==0)
{
id = xmlNodeGetAttrContentByName(node, "id");
if(id== NULL)
{
LM_ERR("while extracting %s id\n", elem_name);
goto error;
}
if(xmlStrcasecmp((unsigned char*)elem_id,
(unsigned char*)id )== 0)
{
append = 0;
xmlFree(id);
break;
}
xmlFree(id);
}
}
xmlFree(elem_id);
elem_id= NULL;
append_label:
if(append)
{
LM_DBG("in if\n");
for(node= new_p_root->children; node; node= node->next)
{
LM_DBG("adding node [%s]\n", node->name);
add_node= xmlCopyNode(node, 1);
if(add_node== NULL)
{
LM_ERR("while copying node [%s]\n", node->name);
goto error;
}
if(xmlAddChild(p_root, add_node)== NULL)
{
LM_ERR("while adding child\n");
goto error;
}
}
}
}
body = (str*)pkg_malloc(sizeof(str));
if(body == NULL)
{
ERR_MEM(PKG_MEM_STR);
}
xmlDocDumpMemory(xml_array[j],(xmlChar**)(void*)&body->s,
&body->len);
LM_DBG("body = %.*s\n", body->len, body->s);
for(i=0; i<=j; i++)
{
if(xml_array[i]!=NULL)
xmlFreeDoc( xml_array[i]);
}
if(xml_array!=NULL)
pkg_free(xml_array);
return body;
error:
if(xml_array!=NULL)
{
for(i=0; i<=j; i++)
{
if(xml_array[i]!=NULL)
xmlFreeDoc( xml_array[i]);
}
pkg_free(xml_array);
}
if(elem_id)
xmlFree(elem_id);
if(body)
pkg_free(body);
return NULL;
}
