From 220e7bb13328371bf5020da1d43a26871d91b96e Mon Sep 17 00:00:00 2001

From: Matej Habrnal <mhabrnal@redhat.com>

Date: Tue, 13 Jan 2015 19:30:27 -0500

Subject: [PATCH 1000/1001] reporter-mantisbt: first version of the

 reporter-mantisbt

Related to #272

Signed-off-by: Matej Habrnal <mhabrnal@redhat.com>

---

 configure.ac                                   |   33 +

 po/POTFILES.in                                 |   11 +

 src/plugins/Makefile.am                        |   43 +-

 src/plugins/centos_report_event.conf           |   37 +

 src/plugins/mantisbt.c                         | 1111 ++++++++++++++++++++++++

 src/plugins/mantisbt.conf                      |    8 +

 src/plugins/mantisbt.h                         |  140 +++

 src/plugins/mantisbt_format.conf               |   59 ++

 src/plugins/mantisbt_formatdup.conf            |   65 ++

 src/plugins/report_CentOSBugTracker.conf       |    4 +

 src/plugins/report_CentOSBugTracker.xml.in     |   65 ++

 src/plugins/reporter-mantisbt.c                |  696 +++++++++++++++

 src/workflows/Makefile.am                      |   15 +-

 src/workflows/report_centos.conf               |   31 +

 src/workflows/workflow_CentOSCCpp.xml.in       |   12 +

 src/workflows/workflow_CentOSJava.xml.in       |   11 +

 src/workflows/workflow_CentOSKerneloops.xml.in |   11 +

 src/workflows/workflow_CentOSLibreport.xml.in  |    9 +

 src/workflows/workflow_CentOSPython.xml.in     |   11 +

 src/workflows/workflow_CentOSPython3.xml.in    |   11 +

 src/workflows/workflow_CentOSVmcore.xml.in     |   12 +

 src/workflows/workflow_CentOSXorg.xml.in       |    9 +

 22 files changed, 2402 insertions(+), 2 deletions(-)

 create mode 100644 src/plugins/centos_report_event.conf

 create mode 100644 src/plugins/mantisbt.c

 create mode 100644 src/plugins/mantisbt.conf

 create mode 100644 src/plugins/mantisbt.h

 create mode 100644 src/plugins/mantisbt_format.conf

 create mode 100644 src/plugins/mantisbt_formatdup.conf

 create mode 100644 src/plugins/report_CentOSBugTracker.conf

 create mode 100644 src/plugins/report_CentOSBugTracker.xml.in

 create mode 100644 src/plugins/reporter-mantisbt.c

 create mode 100644 src/workflows/report_centos.conf

 create mode 100644 src/workflows/workflow_CentOSCCpp.xml.in

 create mode 100644 src/workflows/workflow_CentOSJava.xml.in

 create mode 100644 src/workflows/workflow_CentOSKerneloops.xml.in

 create mode 100644 src/workflows/workflow_CentOSLibreport.xml.in

 create mode 100644 src/workflows/workflow_CentOSPython.xml.in

 create mode 100644 src/workflows/workflow_CentOSPython3.xml.in

 create mode 100644 src/workflows/workflow_CentOSVmcore.xml.in

 create mode 100644 src/workflows/workflow_CentOSXorg.xml.in

diff --git a/configure.ac b/configure.ac

index df88240..692ee81 100644

--- a/configure.ac

+++ b/configure.ac

@@ -131,6 +131,39 @@ do

 done

 fi dnl end NO_BUGZILLA

+AC_ARG_WITH(mantisbt,

+AS_HELP_STRING([--with-mantisbt],[use MantisBT plugin (default is YES)]),

+LIBREPORT_PARSE_WITH([mantisbt]))

+

+if test -z "$NO_MANTISBT"; then

+AM_CONDITIONAL(BUILD_MANTISBT, true)

+

+# enable mantisbt & deps translations

+for FILE in `grep -e "#.*antisbt.*" -e "#.*naconda.*" po/POTFILES.in`

+do

+  sed -ie "s,$FILE,${FILE:1}," po/POTFILES.in

+  sed -ie "\,^${FILE:1}$,d" po/POTFILES.skip

+done

+else

+AM_CONDITIONAL(BUILD_MANTISBT, false)

+

+# disablie mantisbt & deps translations

+for FILE in `grep -e "antisbt" -e "naconda" po/POTFILES.in`

+do

+  if test "${FILE:0:1}" = "#"

+  then

+    continue

+  fi

+

+  sed -ie "s,$FILE,#$FILE," po/POTFILES.in

+  grep "$FILE" po/POTFILES.skip > /dev/null 2>&1

+  if test $?

+  then

+    echo "$FILE" >> po/POTFILES.skip

+  fi

+done

+fi dnl end NO_MANTISBT

+

 AC_PATH_PROG([PYTHON_CONFIG], [python-config], [no])

 [if test "$PYTHON_CONFIG" = "no"]

 [then]

diff --git a/po/POTFILES.in b/po/POTFILES.in

index 5588540..3415b03 100644

--- a/po/POTFILES.in

+++ b/po/POTFILES.in

@@ -36,6 +36,8 @@ src/plugins/reporter-print.c

 src/plugins/reporter-rhtsupport.c

 src/plugins/reporter-rhtsupport-parse.c

 src/plugins/reporter-upload.c

+src/plugins/reporter-mantisbt.c

+src/plugins/report_CentOSBugTracker.xml.in

 src/plugins/report_Kerneloops.xml.in

 src/plugins/report_Logger.xml.in

 src/plugins/report_Mailx.xml.in

@@ -44,12 +46,21 @@ src/plugins/report_Uploader.xml.in

 src/plugins/report_uReport.xml.in

 src/plugins/report_EmergencyAnalysis.xml.in

 src/plugins/rhbz.c

+src/plugins/mantisbt.c

 src/plugins/reporter-ureport.c

 src/report-newt/report-newt.c

 src/workflows/workflow_AnacondaFedora.xml.in

 src/workflows/workflow_AnacondaRHEL.xml.in

 src/workflows/workflow_AnacondaRHELBugzilla.xml.in

 src/workflows/workflow_AnacondaUpload.xml.in

+src/workflows/workflow_CentOSCCpp.xml.in

+src/workflows/workflow_CentOSJava.xml.in

+src/workflows/workflow_CentOSKerneloops.xml.in

+src/workflows/workflow_CentOSLibreport.xml.in

+src/workflows/workflow_CentOSPython.xml.in

+src/workflows/workflow_CentOSPython3.xml.in

+src/workflows/workflow_CentOSVmcore.xml.in

+src/workflows/workflow_CentOSXorg.xml.in

 src/workflows/workflow_FedoraCCpp.xml.in

 src/workflows/workflow_FedoraKerneloops.xml.in

 src/workflows/workflow_FedoraPython.xml.in

diff --git a/src/plugins/Makefile.am b/src/plugins/Makefile.am

index 7ec08d7..d70b4db 100644

--- a/src/plugins/Makefile.am

+++ b/src/plugins/Makefile.am

@@ -7,6 +7,11 @@ reporters_bin += \

     report

 endif

+if BUILD_MANTISBT

+reporters_bin += \

+    reporter-mantisbt

+endif

+

 if BUILD_UREPORT

 reporters_bin +=  reporter-ureport

 endif

@@ -34,6 +39,12 @@ reporters_plugin_format_conf += bugzilla_format.conf \

     bugzilla_formatdup_anaconda.conf

 endif

+if BUILD_MANTISBT

+reporters_plugin_conf += mantisbt.conf

+reporters_plugin_format_conf += mantisbt_format.conf \

+    mantisbt_formatdup.conf

+endif

+

 defaultreportpluginsconfdir = $(DEFAULT_REPORT_PLUGINS_CONF_DIR)

 dist_defaultreportpluginsconf_DATA = $(reporters_plugin_conf) \

     rhtsupport.conf \

@@ -53,6 +64,12 @@ reporters_events += report_Bugzilla.xml

 reporters_events_conf += report_Bugzilla.conf

 endif

+if BUILD_MANTISBT

+reporters_events += report_CentOSBugTracker.xml

+

+reporters_events_conf += report_CentOSBugTracker.conf

+endif

+

 if BUILD_UREPORT

 reporters_events += report_uReport.xml

 endif

@@ -77,7 +94,8 @@ dist_eventsdef_DATA = \

     print_event.conf \

     rhtsupport_event.conf \

     uploader_event.conf \

-    emergencyanalysis_event.conf

+    emergencyanalysis_event.conf \

+    centos_report_event.conf

 reporters_extra_dist =

 if BUILD_BUGZILLA

@@ -125,6 +143,29 @@ reporter_bugzilla_LDADD = \

     ../lib/libreport.la

 endif

+if BUILD_MANTISBT

+reporter_mantisbt_SOURCES = \

+    reporter-mantisbt.c mantisbt.c mantisbt.h

+reporter_mantisbt_CPPFLAGS = \

+    -I$(srcdir)/../include \

+    -I$(srcdir)/../lib \

+    -DBIN_DIR=\"$(bindir)\" \

+    -DCONF_DIR=\"$(CONF_DIR)\" \

+    -DLOCALSTATEDIR='"$(localstatedir)"' \

+    -DDEBUG_DUMPS_DIR=\"$(DEBUG_DUMPS_DIR)\" \

+    -DDEBUG_INFO_DIR=\"$(DEBUG_INFO_DIR)\" \

+    -DPLUGINS_LIB_DIR=\"$(PLUGINS_LIB_DIR)\" \

+    -DPLUGINS_CONF_DIR=\"$(REPORT_PLUGINS_CONF_DIR)\" \

+    $(GLIB_CFLAGS) \

+    $(LIBREPORT_CFLAGS) \

+    $(LIBXML_CFLAGS) \

+    -D_GNU_SOURCE

+reporter_mantisbt_LDADD = \

+    $(GLIB_LIBS) \

+    ../lib/libreport-web.la \

+    ../lib/libreport.la

+endif

+

 reporter_rhtsupport_SOURCES = \

     abrt_rh_support.h abrt_rh_support.c \

     reporter-rhtsupport.h \

diff --git a/src/plugins/centos_report_event.conf b/src/plugins/centos_report_event.conf

new file mode 100644

index 0000000..53f12d8

--- /dev/null

+++ b/src/plugins/centos_report_event.conf

@@ -0,0 +1,37 @@

+EVENT=report_CentOSBugTracker analyzer=xorg

+    reporter-mantisbt

+

+EVENT=report_CentOSBugTracker analyzer=Kerneloops

+    reporter-mantisbt

+

+EVENT=report_CentOSBugTracker analyzer=vmcore

+        reporter-mantisbt

+

+EVENT=report_CentOSBugTracker analyzer=Python component!=anaconda

+        test -f component || abrt-action-save-package-data

+        reporter-mantisbt \

+                -c /etc/libreport/plugins/mantisbt.conf \

+                -F /etc/libreport/plugins/mantisbt_format.conf \

+                -A /etc/libreport/plugins/mantisbt_formatdup.conf

+

+EVENT=report_CentOSBugTracker analyzer=Python3 component!=anaconda

+        test -f component || abrt-action-save-package-data

+        reporter-mantisbt \

+                -c /etc/libreport/plugins/mantisbt.conf \

+                -F /etc/libreport/plugins/mantisbt_format.conf \

+                -A /etc/libreport/plugins/mantisbt_formatdup.conf

+

+EVENT=report_CentOSBugTracker analyzer=CCpp duphash!=

+        test -f component || abrt-action-save-package-data

+        component="`cat component`"

+        format="mantisbt_format.conf"

+        test -f "/etc/libreport/plugins/mantisbt_format_$component.conf" \

+                && format="mantisbt_format_$component.conf"

+        formatdup="mantisbt_formatdup.conf"

+        test -f "/etc/libreport/plugins/mantisbt_formatdup_$component.conf" \

+                && formatdup="mantisbt_formatdup_$component.conf"

+        reporter-mantisbt \

+                -c /etc/libreport/plugins/mantisbt.conf \

+                -F "/etc/libreport/plugins/$format" \

+                -A "/etc/libreport/plugins/$formatdup"

+

diff --git a/src/plugins/mantisbt.c b/src/plugins/mantisbt.c

new file mode 100644

index 0000000..1c496b4

--- /dev/null

+++ b/src/plugins/mantisbt.c

@@ -0,0 +1,1111 @@

+/*

+    Copyright (C) 2014  ABRT team

+    Copyright (C) 2014  RedHat Inc

+

+    This program is free software; you can redistribute it and/or modify

+    it under the terms of the GNU General Public License as published by

+    the Free Software Foundation; either version 2 of the License, or

+    (at your option) any later version.

+

+    This program is distributed in the hope that it will be useful,

+    but WITHOUT ANY WARRANTY; without even the implied warranty of

+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

+    GNU General Public License for more details.

+

+    You should have received a copy of the GNU General Public License along

+    with this program; if not, write to the Free Software Foundation, Inc.,

+    51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

+*/

+

+#include <curl/curl.h>

+

+#include <libxml/xmlreader.h>

+

+#include "internal_libreport.h"

+#include "libreport_curl.h"

+#include "mantisbt.h"

+#include "client.h"

+

+/*

+ * SOAP

+*/

+

+#define XML_VERSION ""

+

+/* fprint string */

+#define SOAP_TEMPLATE \

+    "

+        "xmlns:SOAP-ENC=\"http://schemas.xmlsoap.org/soap/encoding/\" " \

+        "xmlns:ns0=\"http://schemas.xmlsoap.org/soap/encoding/\" " \

+        "xmlns:ns1=\"http://schemas.xmlsoap.org/soap/envelope/\" " \

+        "xmlns:ns2=\"http://www.w3.org/2001/XMLSchema\" " \

+        "xmlns:xsi=\"http://www.w3.org/2001/XMLSchema-instance\" " \

+        "xmlns:SOAP-ENV=\"http://schemas.xmlsoap.org/soap/envelope/\" " \

+        "SOAP-ENV:encodingStyle=\"http://schemas.xmlsoap.org/soap/encoding/\">" \

+    "<SOAP-ENV:Header/>" \

+    "<ns1:Body>" \

+        "<ns3:%s>" \

+        "</ns3:%s>" \

+    "</ns1:Body>" \

+    "</SOAP-ENV:Envelope>"

+

+#define MAX_SUMMARY_LENGTH  128

+#define CUSTOMFIELD_DUPHASH "abrt_hash"

+#define CUSTOMFIELD_URL "URL"

+#define MAX_HOPS 5

+

+/* MantisBT limit is 2MB by default

+ */

+#define MANTISBT_MAX_FILE_UPLOAD_SIZE (2 * 1024 * 1024)

+

+typedef struct mantisbt_custom_fields

+{

+    char *cf_abrt_hash_id;

+    char *cf_url_id;

+} mantisbt_custom_fields_t;

+

+/*

+ * MantisBT settings issue info

+ */

+void

+mantisbt_settings_free(mantisbt_settings_t *s)

+{

+    if (s == NULL)

+        return;

+

+    free(s->m_login);

+    free(s->m_password);

+    free(s->m_project);

+    free(s->m_project_id);

+    free(s->m_project_version);

+}

+

+/*

+ * MantisBT issue info

+ */

+mantisbt_issue_info_t *

+mantisbt_issue_info_new()

+{

+    mantisbt_issue_info_t *info = xzalloc(sizeof(mantisbt_issue_info_t));

+    info->mii_id = -1;

+    info->mii_dup_id = -1;

+

+    return info;

+}

+

+void

+mantisbt_issue_info_free(mantisbt_issue_info_t *info)

+{

+    if (info == NULL)

+        return;

+

+    free(info->mii_status);

+    free(info->mii_resolution);

+    free(info->mii_reporter);

+    free(info->mii_project);

+

+    list_free_with_free(info->mii_notes);

+    list_free_with_free(info->mii_attachments);

+

+    free(info);

+}

+

+mantisbt_issue_info_t *

+mantisbt_find_origin_bug_closed_duplicate(mantisbt_settings_t *settings, mantisbt_issue_info_t *info)

+{

+    mantisbt_issue_info_t *info_tmp = mantisbt_issue_info_new();

+    info_tmp->mii_id = info->mii_id;

+    info_tmp->mii_dup_id = info->mii_dup_id;

+

+    for (int ii = 0; ii <= MAX_HOPS; ii++)

+    {

+        if (ii == MAX_HOPS)

+            error_msg_and_die(_("MantisBT couldn't find parent of issue %d"), info->mii_id);

+

+        log("Issue %d is a duplicate, using parent issue %d", info_tmp->mii_id, info_tmp->mii_dup_id);

+        int issue_id = info_tmp->mii_dup_id;

+

+        mantisbt_issue_info_free(info_tmp);

+        info_tmp = mantisbt_get_issue_info(settings, issue_id);

+

+        // found a issue which is not CLOSED as DUPLICATE

+        if (info_tmp->mii_dup_id == -1)

+            break;

+    }

+

+    return info_tmp;

+}

+

+/*

+ * SOAP request

+ */

+static soap_request_t *

+soap_request_new()

+{

+    soap_request_t *req = xzalloc(sizeof(*req));

+

+    return req;

+}

+

+void

+soap_request_free(soap_request_t *req)

+{

+    if (req == NULL)

+        return;

+

+    if (req->sr_root != NULL)

+        xmlFreeDoc(req->sr_root->doc);

+

+    free(req);

+

+    return;

+}

+

+static xmlNodePtr

+soap_node_get_next_element_node(xmlNodePtr node)

+{

+    for (; node != NULL; node = node->next)

+        if (node->type == XML_ELEMENT_NODE)

+            break;

+

+    return node;

+}

+

+static xmlNodePtr

+soap_node_get_child_element(xmlNodePtr node)

+{

+    if (node == NULL)

+        error_msg_and_die(_("SOAP: Failed to get child element because of no parent."));

+

+    return soap_node_get_next_element_node(node->xmlChildrenNode);

+}

+

+static xmlNodePtr

+soap_node_get_next_sibling(xmlNodePtr node)

+{

+    if (node == NULL)

+        error_msg_and_die(_("SOAP: Failed to get next element because of no node."));

+

+    return soap_node_get_next_element_node(node->next);

+}

+

+static xmlNodePtr

+soap_node_get_child_node(xmlNodePtr parent, const char *name)

+{

+    if (parent == NULL)

+        error_msg_and_die(_("SOAP: Failed to get child node because of no parent."));

+

+    xmlNodePtr node;

+    for (node = soap_node_get_child_element(parent); node != NULL; node = soap_node_get_next_sibling(node))

+    {

+        if (xmlStrcmp(node->name, BAD_CAST name) == 0)

+            return node;

+    }

+

+    return NULL;

+}

+

+soap_request_t *

+soap_request_new_for_method(const char *method)

+{

+    char *xml_str = xasprintf(SOAP_TEMPLATE, method, method);

+

+    xmlDocPtr doc = xmlParseDoc(BAD_CAST xml_str);

+    free(xml_str);

+

+    if (doc == NULL)

+        error_msg_and_die(_("SOAP: Failed to parse xml during creating request."));

+

+    soap_request_t *req = soap_request_new();

+

+    req->sr_root = xmlDocGetRootElement(doc);

+    if (req->sr_root == NULL)

+    {

+        soap_request_free(req);

+        error_msg_and_die(_("SOAP: Failed to get xml root element."));

+    }

+

+    req->sr_body = soap_node_get_child_node(req->sr_root, "Body");

+    req->sr_method = soap_node_get_child_node(req->sr_body, method);

+

+    return req;

+}

+

+static xmlNodePtr

+soap_node_add_child_node(xmlNodePtr node, const char *name, const char *type, const char *value)

+{

+    if (node == NULL || name == NULL)

+        error_msg_and_die(_("SOAP: Failed to add a new child node because of no node or no child name."));

+

+    xmlNodePtr new_node = xmlNewTextChild(node, /* namespace */ NULL, BAD_CAST name, BAD_CAST value);

+

+    if (new_node == NULL)

+        error_msg_and_die(_("SOAP: Failed to create a new xml child item."));

+

+    if (type != NULL)

+    {

+        if (xmlNewProp(new_node, BAD_CAST "xsi:type", BAD_CAST type) == NULL)

+            error_msg_and_die(_("SOAP: Failed to create a new property."));

+    }

+

+    return new_node;

+}

+

+void

+soap_request_add_method_parameter(soap_request_t *req, const char *name, const char *type, const char *value)

+{

+    if (req == NULL || req->sr_method == NULL)

+        error_msg_and_die(_("SOAP: Failed to add method parametr."));

+

+    soap_node_add_child_node(req->sr_method, name, type, value);

+    return;

+}

+

+void

+soap_request_add_credentials_parameter(soap_request_t *req, const mantisbt_settings_t *settings)

+{

+    soap_request_add_method_parameter(req, "username", SOAP_STRING, settings->m_login);

+    soap_request_add_method_parameter(req, "password", SOAP_STRING, settings->m_password);

+

+    return;

+}

+

+static void

+soap_add_new_issue_parameters(soap_request_t *req,

+                               const char *project,

+                               const char *version,

+                               const char *category,

+                               const char *summary,

+                               const char *description,

+                               const char *additional_information,

+                               bool private,

+                               mantisbt_custom_fields_t *fields,

+                               const char *duphash,

+                               const char *tracker_url)

+{

+    if (req == NULL || req->sr_method == NULL)

+        error_msg_and_die(_("SOAP: Failed to add new issue parametrs."));

+

+    if (project == NULL || category == NULL || summary == NULL || description == NULL)

+        error_msg_and_die(_("SOAP: Failed to add new issue parameters because the required items are missing."));

+

+    xmlNodePtr issue_node = soap_node_add_child_node(req->sr_method, "issue", SOAP_ISSUEDATA, /* content */ NULL);

+

+    // project

+    xmlNodePtr project_node = soap_node_add_child_node(issue_node, "project", SOAP_OBJECTREF, /* content */ NULL);

+    soap_node_add_child_node(project_node, "name", SOAP_STRING, project);

+

+    // view status

+    xmlNodePtr view_node = soap_node_add_child_node(issue_node, "view_state", SOAP_OBJECTREF, /* content */ NULL);

+    soap_node_add_child_node(view_node, "name", SOAP_STRING, (private) ? "private" : "public");

+

+    /* if any custom field exists */

+    int custom_fields_count = 0;

+    xmlNodePtr duphash_node;

+    if (fields->cf_abrt_hash_id != NULL || fields->cf_url_id != NULL)

+        duphash_node = soap_node_add_child_node(issue_node, "custom_fields", SOAP_CUSTOMFIELD_ARRAY, /* content */ NULL);

+

+    // custom fields (duphash and URL to tracker)

+    xmlNodePtr item_node, field_node;

+    if (fields->cf_abrt_hash_id != NULL)

+    {

+        item_node = soap_node_add_child_node(duphash_node, "item", SOAP_CUSTOMFIELD, /* content */ NULL);

+        field_node = soap_node_add_child_node(item_node, "field", SOAP_OBJECTREF, /* content */ NULL);

+        soap_node_add_child_node(field_node, "id", SOAP_INTEGER, /* custom_field id */ fields->cf_abrt_hash_id);

+        soap_node_add_child_node(item_node, "value", SOAP_STRING, duphash);

+        ++custom_fields_count;

+    }

+

+    // if tracker url exists, attach it to the issue

+    if (tracker_url != NULL && fields->cf_url_id != NULL)

+    {

+        item_node = soap_node_add_child_node(duphash_node, "item", SOAP_CUSTOMFIELD, /* content */ NULL);

+        field_node = soap_node_add_child_node(item_node, "field", SOAP_OBJECTREF, /* content */ NULL);

+        soap_node_add_child_node(field_node, "id", SOAP_INTEGER, /* custom_field */ fields->cf_url_id);

+        soap_node_add_child_node(item_node, "value", SOAP_STRING, tracker_url);

+        ++custom_fields_count;

+    }

+

+    if (custom_fields_count > 0)

+    {

+        char *type = xasprintf("%s[%i]", SOAP_CUSTOMFIELD, custom_fields_count);

+

+        if (xmlNewProp(duphash_node, BAD_CAST "ns3:arrayType", BAD_CAST type) == NULL)

+            error_msg_and_die(_("SOAP: Failed to create a new property in custom fields."));

+

+        free(type);

+    }

+

+    soap_node_add_child_node(issue_node, "os_build", SOAP_STRING, version);

+    soap_node_add_child_node(issue_node, "category", SOAP_STRING, category);

+    soap_node_add_child_node(issue_node, "summary", SOAP_STRING, summary);

+    soap_node_add_child_node(issue_node, "description", SOAP_STRING, description);

+    soap_node_add_child_node(issue_node, "additional_information", SOAP_STRING, additional_information);

+

+    return;

+}

+

+char *

+soap_request_to_str(const soap_request_t *req)

+{

+    if (req == NULL || req->sr_root == NULL || req->sr_root->doc == NULL)

+        error_msg_and_die(_("SOAP: Failed to create SOAP string because of invalid function arguments."));

+

+    xmlBufferPtr buffer = xmlBufferCreate();

+    int err = xmlNodeDump(buffer, req->sr_root->doc, req->sr_root, 1, /* formatting */ 0);

+    if (err == -1)

+    {

+        xmlBufferFree(buffer);

+        error_msg_and_die(_("SOAP: Failed to dump xml node."));

+    }

+

+    char *ret = xasprintf("%s%s", XML_VERSION, (const char *) xmlBufferContent(buffer));

+    xmlBufferFree(buffer);

+

+    return ret;

+}

+

+#if 0

+void

+soap_request_print(soap_request_t *req)

+{

+    if (req == NULL || req->sr_root == NULL || req->sr_root->doc == NULL)

+        error_msg_and_die(_("SOAP: Failed to print SOAP string."));

+

+    xmlBufferPtr buffer = xmlBufferCreate();

+    int err = xmlNodeDump(buffer, req->sr_root->doc, req->sr_root, 1, /* formatting */ 0);

+    if (err == -1)

+    {

+        xmlBufferFree(buffer);

+        error_msg_and_die(_("Failed to dump xml node."));

+    }

+

+    puts((const char *) xmlBufferContent(buffer));

+

+    xmlBufferFree(buffer);

+    return;

+}

+#endif

+

+static bool

+reader_move_reader_if_node_type_is_element_with_name_and_verify_its_value(xmlTextReaderPtr reader, const char *name)

+{

+    /* is not element node */

+    if (xmlTextReaderNodeType(reader) != XML_ELEMENT_NODE)

+        return false;

+

+    /* is not required name */

+    if (xmlStrcmp(xmlTextReaderConstName(reader), BAD_CAST name) != 0)

+        return false;

+

+    /* read next node */

+    if (xmlTextReaderRead(reader) != 1)

+        return false;

+

+    /* no value node */

+    if (xmlTextReaderHasValue(reader) == 0)

+        return false;

+

+    /* no text node */

+    if (xmlTextReaderNodeType(reader) != XML_TEXT_NODE)

+        return false;

+

+    return true;

+}

+

+static void

+reader_find_element_by_name(xmlTextReaderPtr reader, const char *name)

+{

+    while (xmlTextReaderRead(reader) == 1)

+    {

+        /* is not element node */

+        if (xmlTextReaderNodeType(reader) != XML_ELEMENT_NODE)

+            continue;

+

+        /* is not required name */

+        if (xmlStrcmp(xmlTextReaderConstName(reader), BAD_CAST name) != 0)

+            continue;

+

+        break;

+    }

+

+    return;

+}

+

+/* It is not possible to search only by name because the response contains

+ * different node with the same name. (e.g. id - user id, project id, issue id etc.)

+ * We are interested in only about issues id which is located at a different depth than others.

+ * ...

+ *   <item xsi:type="ns1:IssueData">

+ *      <id xsi:type="xsd:integer">10</id>      <-- This is issue ID (required)

+ *      <view_state xsi:type="ns1:ObjectRef">

+ *          <id xsi:type="xsd:integer">10</id>  <-- This is view_state ID (not required)

+ *          <name xsi:type="xsd:string">public</name>

+ *      </view_state>

+ *      <project xsi:type="ns1:ObjectRef">

+ *          <id xsi:type="xsd:integer">1</id>   <-- This is project ID (not required)

+ *          <name xsi:type="xsd:string">test</name>

+ *      </project>

+ * ...

+ */

+static GList *

+response_values_at_depth_by_name(const char *xml, const char *name, int depth)

+{

+    xmlDocPtr doc = xmlParseDoc(BAD_CAST xml);

+    if (doc == NULL)

+        error_msg_and_die(_("SOAP: Failed to parse xml (searching value at depth by name)."));

+

+    xmlTextReaderPtr reader = xmlReaderWalker(doc);

+    if (reader == NULL)

+        error_msg_and_die(_("SOAP: Failed to create xml text reader."));

+

+    GList *result = NULL;

+

+    const xmlChar *value;

+    while (xmlTextReaderRead(reader) == 1)

+    {

+        /* is not right depth */

+        if (depth != -1 && xmlTextReaderDepth(reader) != depth)

+            continue;

+

+        if (reader_move_reader_if_node_type_is_element_with_name_and_verify_its_value(reader, name) == false)

+            continue;

+

+        if ((value = xmlTextReaderConstValue(reader)) != NULL)

+            result = g_list_append(result, xstrdup((const char *) value));

+    }

+    xmlFreeTextReader(reader);

+

+    return result;

+}

+

+/*

+ * Finds an element named 'elem' and returns a text of a child named 'name'

+ *

+ * Example:

+ *  For

+ *  <elem>

+ *      <id>1</id>

+ *      <name>foo</name>

+ *  </elem>

+ *

+ *  returns "foo"

+ */

+static char *

+response_get_name_value_of_element(const char *xml, const char *element)

+{

+    xmlDocPtr doc = xmlParseDoc(BAD_CAST xml);

+    if (doc == NULL)

+        error_msg_and_die(_("SOAP: Failed to parse xml."));

+

+    xmlTextReaderPtr reader = xmlReaderWalker(doc);

+    if (reader == NULL)

+        error_msg_and_die(_("SOAP: Failed to create xml text reader."));

+

+    const xmlChar *value = NULL;

+

+    reader_find_element_by_name(reader, element);

+

+    /* find 'name' element and return its text */

+    while (xmlTextReaderRead(reader) == 1)

+    {

+        if (reader_move_reader_if_node_type_is_element_with_name_and_verify_its_value(reader, "name") == false)

+            continue;

+

+        if ((value = xmlTextReaderConstValue(reader)) != NULL)

+            break;

+    }

+    xmlFreeTextReader(reader);

+

+    return (char *) value;

+}

+

+static int

+response_get_id_of_relatedto_issue(const char *xml)

+{

+    xmlDocPtr doc = xmlParseDoc(BAD_CAST xml);

+    if (doc == NULL)

+        error_msg_and_die(_("SOAP: Failed to parse xml (get related to issue)."));

+

+    xmlTextReaderPtr reader = xmlReaderWalker(doc);

+    if (reader == NULL)

+        error_msg_and_die(_("SOAP: Failed to create xml text reader."));

+

+    const xmlChar *value = NULL;

+    const xmlChar *id = NULL;

+

+    /* find relationships section */

+    reader_find_element_by_name(reader, "relationships");

+

+    /* find "name" value of 'name' element */

+    while (xmlTextReaderRead(reader) == 1)

+    {

+        /* find type of relattionship */

+        if (reader_move_reader_if_node_type_is_element_with_name_and_verify_its_value(reader, "name") == false)

+            continue;

+

+        if ((value = xmlTextReaderConstValue(reader)) == NULL)

+            continue;

+

+        /* we need 'duplicate of' realtionship type */

+        if (xmlStrcmp(value, BAD_CAST "duplicate of") != 0)

+            continue;

+

+        /* find id of duplicate issues */

+        reader_find_element_by_name(reader, "target_id");

+

+        /* verify target_id node */

+        if (reader_move_reader_if_node_type_is_element_with_name_and_verify_its_value(reader, "target_id") == false)

+            continue;

+

+        /* get its value */

+        if ((id = xmlTextReaderConstValue(reader)) != NULL)

+            break;

+    }

+    xmlFreeTextReader(reader);

+

+    return (id == NULL) ? -1 : atoi((const char *) id);

+}

+

+GList *

+response_get_main_ids_list(const char *xml)

+{

+    return response_values_at_depth_by_name(xml, "id", 5);

+}

+

+int

+response_get_main_id(const char *xml)

+{

+    GList *l = response_values_at_depth_by_name(xml, "id", 5);

+    return (l != NULL) ? atoi(l->data) : -1;

+}

+

+static int

+response_get_return_value(const char *xml)

+{

+    GList *l = response_values_at_depth_by_name(xml, "return", 3);

+    return (l != NULL) ? atoi(l->data) : -1;

+}

+

+static char*

+response_get_return_value_as_string(const char *xml)

+{

+    GList *l = response_values_at_depth_by_name(xml, "return", 3);

+    return (l != NULL) ? l->data : NULL;

+}

+

+static char *

+response_get_error_msg(const char *xml)

+{

+    GList *l = response_values_at_depth_by_name(xml, "faultstring", 3);

+    return (l != NULL) ? xstrdup(l->data) : NULL;

+}

+

+static char *

+response_get_additioanl_information(const char *xml)

+{

+    GList *l = response_values_at_depth_by_name(xml, "additional_information", -1);

+    return (l != NULL) ? xstrdup(l->data) : NULL;

+}

+

+void

+response_values_free(GList *values)

+{

+    g_list_free_full(values, free);

+}

+

+/*