UPDATED: acessing webservice via localhost vs via domain name issue again. Found out that for some user base, web service via localhost is blocked. Implemented new method to check both localhost and domain name and see which one is accessible.

Author: jhuangsoftware

rqlconnector/rqlaction.asp

@@ -1,7 +1,7 @@
 <%
 	Response.ContentType = "text/plain; charset=utf-8"
 
-    Session.Timeout = 180
+	Session.Timeout = 180
 	Server.ScriptTimeout = 180
 
 	Dim objIO	'Declare the objects
@@ -20,6 +20,8 @@
 
 	If xmlData = "" Then
 		retXml = "<ERRORTEXT>" & sError & "</ERRORTEXT>"
+	ElseIf xmlData = "<IODATA>ERROR</IODATA>" Then
+		retXml = "<ERRORTEXT>" & sError & "</ERRORTEXT>"
 	Else
 		retXml = xmlData
 	End If

rqlconnector/rqlactionwebservice.aspx

@@ -1,81 +1,89 @@
 <%@ Page Language="C#" validateRequest="false" %>
 <script runat="server">
-public class RqlWebServiceConnector
-{
-    public string SendRql(string Rql)
-    {
-    	HttpContext.Current.Response.ContentType = "text/plain; charset=utf-8";
-        return SendRqlToWebService(Rql);
-    }
-
-    private string SendRqlToWebService(string Rql)
-    {
-        if (string.IsNullOrEmpty(Rql))
-            return "";
-
-        string WebServiceUri = this.GetWebServiceUrl();
-
-        string Response = this.SendRqlToWebService(WebServiceUri, Rql);
-
-        return Response;
-    }
-
-    private string SendRqlToWebService(string WebServiceUrl, string Rql)
-    {
-        System.Net.ServicePointManager.ServerCertificateValidationCallback = new System.Net.Security.RemoteCertificateValidationCallback(
-            delegate
-            {
-                return true;
-            }
-        );
-
-        string Response = "";
-        System.Net.WebClient oWC = new System.Net.WebClient();
-        oWC.Headers.Add("Content-Type", "text/xml; charset=utf-8");
-        oWC.Headers.Add("SOAPAction", "http://tempuri.org/RDCMSXMLServer/action/XmlServer.Execute");
-
-		try
+	public class RqlWebServiceConnector
+	{
+		public string SendRql(string Rql)
 		{
-			Response = oWC.UploadString(WebServiceUrl, Rql);
+			HttpContext.Current.Response.ContentType = "text/plain; charset=utf-8";
+			return SendRqlToWebService(Rql);
 		}
-		catch
+
+		private string SendRqlToWebService(string Rql)
 		{
-			Response = "";
+			if (string.IsNullOrEmpty(Rql))
+				return "";
+
+			string WebServiceUri = this.GetWebServiceUrl();
+
+			string Response = this.SendRqlToWebService(WebServiceUri, Rql);
+
+			return Response;
+		}
+
+		private string SendRqlToWebService(string WebServiceUrl, string Rql)
+		{
+			System.Net.ServicePointManager.ServerCertificateValidationCallback = new System.Net.Security.RemoteCertificateValidationCallback(
+				delegate
+				{
+					return true;
+				}
+			);
+
+			string Response = "";
+			System.Net.WebClient oWC = new System.Net.WebClient();
+			oWC.Headers.Add("Content-Type", "text/xml; charset=utf-8");
+			oWC.Headers.Add("SOAPAction", "http://tempuri.org/RDCMSXMLServer/action/XmlServer.Execute");
+
+			try
+			{
+				Response = oWC.UploadString(WebServiceUrl, Rql);
+			}
+			catch
+			{
+				Response = "";
+			}
+
+			return Response;
 		}
 
-        return Response;
-    }
-
-    public string GetWebServiceUrl()
-    {
-        if (HttpContext.Current.Session["WebServiceUrl"] == null)
-        {
-            HttpContext.Current.Session["WebServiceUrl"] = HttpContext.Current.Request.Url.Scheme + ":" + "//" + "localhost" + "/cms/WebService/RqlWebService.svc";
-            Uri WebServiceUri = new Uri(HttpContext.Current.Session["WebServiceUrl"].ToString());
-
-			string Rql = "";
-			Rql += "<s:Envelope xmlns:s=\"http://schemas.xmlsoap.org/soap/envelope/\">";
-			Rql += "<s:Body><q1:Execute xmlns:q1=\"http://tempuri.org/RDCMSXMLServer/message/\"><sParamA></sParamA><sErrorA></sErrorA><sResultInfoA></sResultInfoA></q1:Execute></s:Body>";
-			Rql += "</s:Envelope>";
-			
-            string Response = this.SendRqlToWebService(WebServiceUri.ToString(), Rql);
-
-			if(Response == "")
-            {
-                if (WebServiceUri.Scheme == "https")
-                {
-                    HttpContext.Current.Session["WebServiceUrl"] = "http" + "://" + WebServiceUri.Authority + WebServiceUri.PathAndQuery;
-                }
-                else
-                {
-                    HttpContext.Current.Session["WebServiceUrl"] = "https" + "://" + WebServiceUri.Authority + WebServiceUri.PathAndQuery;
-                }
-            }
-        }
-
-        return HttpContext.Current.Session["WebServiceUrl"].ToString();
-    }
-}
+		public string GetWebServiceUrl()
+		{
+			if (HttpContext.Current.Session["WebServiceUrl"] == null)
+			{
+				System.Collections.ArrayList WebServiceUrls = new System.Collections.ArrayList();
+				string WebServicePath = "/cms/WebService/RqlWebService.svc";
+				string CurrentUrlScheme = HttpContext.Current.Request.Url.Scheme;
+				string Domain = HttpContext.Current.Request.Url.Authority;
+				string LocalHost = "localhost";
+				string OtherUrlScheme = (CurrentUrlScheme == "https") ? "http" : "https";
+
+				WebServiceUrls.Add(String.Format("{0}://{1}{2}", CurrentUrlScheme, Domain, WebServicePath));
+				WebServiceUrls.Add(String.Format("{0}://{1}{2}", OtherUrlScheme, Domain, WebServicePath));
+				WebServiceUrls.Add(String.Format("{0}://{1}{2}", CurrentUrlScheme, LocalHost, WebServicePath));
+				WebServiceUrls.Add(String.Format("{0}://{1}{2}", OtherUrlScheme, LocalHost, WebServicePath));
+
+				foreach(string WebServiceUrl in WebServiceUrls)
+				{
+					HttpContext.Current.Session["WebServiceUrl"] = WebServiceUrl;
+					Uri WebServiceUri = new Uri(WebServiceUrl);
+
+					string Rql = "";
+					Rql += "<s:Envelope xmlns:s=\"http://schemas.xmlsoap.org/soap/envelope/\">";
+					Rql += "<s:Body><q1:Execute xmlns:q1=\"http://tempuri.org/RDCMSXMLServer/message/\"><sParamA></sParamA><sErrorA></sErrorA><sResultInfoA></sResultInfoA></q1:Execute></s:Body>";
+					Rql += "</s:Envelope>";
+
+					string Response = this.SendRqlToWebService(WebServiceUri.ToString(), Rql);
+
+					if(String.IsNullOrEmpty(Response) == false)
+					{
+						break;
+					}
+				}
+			}
+
+			return HttpContext.Current.Session["WebServiceUrl"].ToString();
+		}
+	}
 </script>
 <%
     RqlWebServiceConnector oRqlWebServiceConnector = new RqlWebServiceConnector();