Function pv_set_xml

modules/xml/xml.c:817–1037

}

int pv_set_xml(struct sip_msg* msg,  pv_param_t* pvp, int flag, pv_value_t* val)
{
	xml_path_t *path = NULL;
	xml_object_t *obj;
	xmlDoc *new_doc = NULL;
	xmlNode *root, *node = NULL;
	str empty_str = {0,0};
	char *attr_name_s, *attr_val_s;

	path = (xml_path_t *)pvp->pvn.u.dname;
	if (!path) {
		LM_BUG("No path for xml var\n");
		return -1;
	}

	/* get the object refered in this xml var */
	obj = get_xml_obj(path);

	if (path_eval_vars(msg, path) < 0)
		return -1;

	if (obj && obj->xml_doc && path->elements) {
		root = xmlDocGetRootElement(obj->xml_doc);
		node = get_node_by_path(root, path->elements);
		if (!node) {
			LM_NOTICE("Element not found\n");
			return -1;
		}
	}

	if (!val || val->flags & PV_VAL_NULL) {
		if (!obj) {
			LM_ERR("Uninitialized xml object: %.*s\n", path->obj_name.len,
				path->obj_name.s);
			return -1;
		}

		switch (path->access_mode) {
		case ACCESS_EL:
			if (!path->elements) { /* we only have the object name in path */
				if (!obj->xml_doc) /* attempted to clear empty xml object */
					return 0;

				/* clear the entire object */
				xmlFreeDoc(obj->xml_doc);
				obj->xml_doc = NULL;
			} else {
				/* delete node */
				if (!node) {
					LM_NOTICE("Element not found\n");
					return -1;
				}

				xmlUnlinkNode(node);
				xmlFreeNode(node);
			}
			break;
		case ACCESS_EL_VAL: