From d72da506c585ec6b761cc4276254b7c7127c53b2 Mon Sep 17 00:00:00 2001
From: David Hill <dhill@conformal.com>
Date: Sat, 26 Apr 2014 14:46:17 -0400
Subject: [PATCH] Some UPNP devices require the protocol to be uppercase.

This matches what miniupnpc sends.
---
 upnp.go | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/upnp.go b/upnp.go
index 86a2748c..04d504cf 100644
--- a/upnp.go
+++ b/upnp.go
@@ -361,7 +361,7 @@ func (n *upnpNAT) AddPortMapping(protocol string, externalPort, internalPort int
 	// A single concatenation would break ARM compilation.
 	message := "<u:AddPortMapping xmlns:u=\"urn:schemas-upnp-org:service:WANIPConnection:1\">\r\n" +
 		"<NewRemoteHost></NewRemoteHost><NewExternalPort>" + strconv.Itoa(externalPort)
-	message += "</NewExternalPort><NewProtocol>" + protocol + "</NewProtocol>"
+	message += "</NewExternalPort><NewProtocol>" + strings.ToUpper(protocol) + "</NewProtocol>"
 	message += "<NewInternalPort>" + strconv.Itoa(internalPort) + "</NewInternalPort>" +
 		"<NewInternalClient>" + n.ourIP + "</NewInternalClient>" +
 		"<NewEnabled>1</NewEnabled><NewPortMappingDescription>"
@@ -389,7 +389,7 @@ func (n *upnpNAT) DeletePortMapping(protocol string, externalPort, internalPort
 
 	message := "<u:DeletePortMapping xmlns:u=\"urn:schemas-upnp-org:service:WANIPConnection:1\">\r\n" +
 		"<NewRemoteHost></NewRemoteHost><NewExternalPort>" + strconv.Itoa(externalPort) +
-		"</NewExternalPort><NewProtocol>" + protocol + "</NewProtocol>" +
+		"</NewExternalPort><NewProtocol>" + strings.ToUpper(protocol) + "</NewProtocol>" +
 		"</u:DeletePortMapping>"
 
 	response, err := soapRequest(n.serviceURL, "DeletePortMapping", message)