Gracias Pierre-Yves,
Hice la recompilación pero no dio resultado, al final pudimos acceder al servidor donde estaba alojado y reinstalamos el WebTerminal descargandolo de la página oficial. Ya nos han advertido que no vamos a tener tanta suerte la próxima vez, porque no tenemos acceso al servidor donde está desplegado.
Muchas gracias de nuevo
Al final no era un problema de firewall.
El problema era que la instalación no compiló correctamente el código. No tomó la versión de ISC correctamente.
Estoy usando la versión WebTerminal-v4.9.3, en la linea 1507 hay una inicialización del parámetro iscProductVersion
<Parameter name="iscProductVersion">
<Description>
In older Cache versions, method "GetISCProduct" does not exists</Description>
<Expression>$case(
##class(%Dictionary.CompiledMethod).IDKEYExists("%SYSTEM.Version", "GetISCProduct"),
1: $CLASSMETHOD("%SYSTEM.Version", "GetISCProduct"),
: 2
)</Expression>
</Parameter>Después, en la linea 1611, comprueba cuál es la versión para asignar el role requerido:
set requiredRole = $case(..#iscProductVersion >= 4, 1: "%DB_IRISSYS", : "%DB_CACHESYS")
Pero, si compruebo cuál es mi versión, la respuesta es 3, en lugar de 4, por lo que está intentando asignar %DB_CACHESYS en lugar de %DB_IRISSYS, por lo que la compilación no termina.
w ##class(%SYSTEM.Version).GetISCProduct()
3Entonces, he modificado el fichero y cambiado la comparación ..#iscProductVersion para que compruebe si es mayor o igual a 3, y funciona.
En la linea 1730, hay otra comparación para definir el dbPrefix, por lo que he cambiado esta linea también.
set dbPrefix = $case(..#iscProductVersion >= 3, 1: "IRIS", : "CACHE")Ahora, tengo Webterminal funcionando bien.
Nota: Estoy usando IRIS for Windows (x86-64) 2021.1 (Build 215U) Wed Jun 9 2021 09:39:22 EDT
Saludos,
Francisco Lopez
Nuestras redes sociales
Muchas gracias,
Efectivamente el problema estaba siendo originado porque la dirección al que se va a conectar es variable, por lo que no está configurado el componente con el parámetro de Server ni URL.
Lo he solucionado de la siguiente forma:
set ..Adapter.HTTPServer = pRequest.Url Set URL = pRequest.Url_"/search" set tHttpResponse = ##class(%Net.HttpResponse).%New() set tSC = ..Adapter.SendFormDataArray(.tHttpResponse,"POST",tHttpRequest,,,URL) if $$$ISERR(tSC) && (tHttpResponse="") $$$ThrowStatus(tSC) // Comprobamos cual es el código de respuesta set contenido = "" while (tHttpResponse.Data.AtEnd = 0) { set contenido = contenido_tHttpResponse.Data.Read() } do pResponse.%JSONImport(contenido) set pResponse.StatusCode = tHttpResponse.StatusCodeMuchas gracias por la respuesta.
Un saludo,
Kurro Lopez