fix for registers not behind proxy

Author: daimor

Dockerfile

@@ -1,4 +1,4 @@
-FROM containers.intersystems.com/intersystems/iris-community:2022.1.0.152.0
+FROM containers.intersystems.com/intersystems/iris-community:2022.1.0.164.0
 
 USER root
 

src/cls/ZPM/Package.cls

@@ -97,7 +97,10 @@ ClassMethod ServerURL() As %String
       Set host = host_":"_port
     }    
   }
-  //Set host = host_$p(%request.Application,"/",1,*-1)
+  #; If not behind the proxy where it have to be hidden redirect from / to /registry
+  if %request.GetCgiEnv("HTTP_X_FORWARDED_HOST")="" {
+    Set host = host _ $p(%request.Application, "/" ,1,*-1)
+  }
   Return host
 }