Function pv_get_xml

modules/xml/xml.c:492–629

static str res_buf;

int pv_get_xml(struct sip_msg* msg,  pv_param_t* pvp, pv_value_t* res)
{
	xml_path_t *path = NULL;
	xml_object_t *obj;
	xmlNode *root = NULL, *node;
	xmlBufferPtr xml_buf = NULL;
	xmlAttr *attr;
	char *xml_buf_s;
	int xml_buf_len;

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

	/* get the object refered in this xml var */
	obj = get_xml_obj(path);
	if (!obj) {
		LM_DBG("Unknown object <%.*s>\n", path->obj_name.len, path->obj_name.s);
		return pv_get_null( msg, pvp, res);
	}

	if (!obj->xml_doc) {
		LM_DBG("Empty xml object\n");
		return pv_get_null( msg, pvp, res);
	}

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

	root = xmlDocGetRootElement(obj->xml_doc);
	if (path->elements) {
		node = get_node_by_path(root, path->elements);
		if (!node) {
			LM_DBG("Element not found\n");
			return pv_get_null( msg, pvp, res);
		}
	} else
		/* in case of dumping entire object, we do this from the root node */
		node = root;

	switch (path->access_mode) {
	case ACCESS_EL:
		if (!path->elements) {
			xmlDocDumpMemory(obj->xml_doc, (xmlChar **)&xml_buf_s, &xml_buf_len);
			/* libxml seems to place an unnecessary newline at the end of the doc dump */
			if (xml_buf_s[xml_buf_len-1] == '\n')
				xml_buf_len--;
		} else {
			xml_buf = xmlBufferCreate();
			if (!xml_buf) {
				LM_ERR("Unable to obtain xml buffer\n");
				return pv_get_null( msg, pvp, res);
			}

			xml_buf_len = xmlNodeDump(xml_buf, obj->xml_doc, node, 0, 0);
			if (xml_buf_len == -1) {