[PATCH v2 8/8] when connecting to a GlobalProtect portal (not gateway), generate an xmlconfig so that NetworkManager can list all the gateway servers

[Daniel Lenski]

GlobalProtect distinguishes "portal" and "gateway" servers.  Often the same
server supports both (/global-protect URLs are for the portal, /ssl-vpn URLs
are for the gateway).  The official clients always connect through the
portal.  Mostly, the portal configuration is not useful for OpenConnect; it
restricts the behavior of the official clients.

However, the portal configuration does contain a list of allowed gateways
(just as AnyConnect VPNs can list other servers).

This commit generates an xmlconfig in the same format as AnyConnect VPNs, so
that the NetworkManager plugins can list all the supported gateways.

Signed-off-by: Daniel Lenski <dlenski at gmail.com>
---
 auth-globalprotect.c | 26 ++++++++++++++++++++++++--
 1 file changed, 24 insertions(+), 2 deletions(-)

diff --git a/auth-globalprotect.c b/auth-globalprotect.c
index b855b82..2d12568 100644
--- a/auth-globalprotect.c
+++ b/auth-globalprotect.c
@@ -148,7 +148,9 @@ static int parse_portal_xml(struct openconnect_info *vpninfo, xmlNode *xml_node)
 
 	xmlNode *x;
 	struct oc_form_opt_select *opt;
+	struct oc_text_buf *buf;
 	int max_choices = 0, result;
+	char *portal = NULL;
 
 	opt = calloc(1, sizeof(*opt));
 	if (!opt)
@@ -163,16 +165,29 @@ static int parse_portal_xml(struct openconnect_info *vpninfo, xmlNode *xml_node)
 	 */
 	if (xmlnode_is_named(xml_node, "policy"))
 		for (xml_node = xml_node->children; xml_node; xml_node=xml_node->next)
-			if (xmlnode_is_named(xml_node, "gateways"))
+			if (xmlnode_is_named(xml_node, "portal-name"))
+				portal = (char *)xmlNodeGetContent(xml_node);
+			else if (xmlnode_is_named(xml_node, "gateways"))
 				for (xml_node = xml_node->children; xml_node; xml_node=xml_node->next)
 					if (xmlnode_is_named(xml_node, "external"))
 						for (xml_node = xml_node->children; xml_node; xml_node=xml_node->next)
 							if (xmlnode_is_named(xml_node, "list"))
 								goto gateways;
 	result = -EINVAL;
+	free(portal);
 	goto out;
 
 gateways:
+	buf = buf_alloc();
+	buf_append(buf, "<GPPortal>\n  <ServerList>\n");
+	if (portal) {
+		buf_append(buf, "      <HostEntry><HostName>%s</HostName><HostAddress>%s", portal, vpninfo->hostname);
+		if (vpninfo->port!=443)
+			buf_append(buf, ":%d", vpninfo->port);
+		buf_append(buf, "/global-protect</HostAddress></HostEntry>\n");
+	}
+	free(portal);
+
 	/* first, count the number of gateways */
 	for (x = xml_node->children; x; x=x->next)
 		if (xmlnode_is_named(x, "entry"))
@@ -197,7 +212,9 @@ gateways:
 			xmlnode_get_prop(xml_node, "name", &choice->name);
 			for (x = xml_node->children; x; x=x->next)
 				if (xmlnode_is_named(x, "description"))
-					choice->label = (char *)xmlNodeGetContent(x);
+					buf_append(buf, "      <HostEntry><HostName>%s</HostName><HostAddress>%s/ssl-vpn</HostAddress></HostEntry>\n",
+					           choice->label = (char *)xmlNodeGetContent(x),
+					           choice->name);
 
 			opt->choices[opt->nr_choices++] = choice;
 			vpn_progress(vpninfo, PRG_INFO, _("  %s (%s)\n"),
@@ -205,6 +222,11 @@ gateways:
 		}
 	}
 
+	buf_append(buf, "  </ServerList>\n</GPPortal>\n");
+	if (vpninfo->write_new_config)
+		result = vpninfo->write_new_config(vpninfo->cbdata, buf->data, buf->pos);
+	buf_free(buf);
+
 	/* process static auth form to select gateway */
 	form.opts = (struct oc_form_opt *)(form.authgroup_opt = opt);
 	result = process_auth_form(vpninfo, &form);
-- 
2.7.4