get ip

Author: nsolov

src/cls/ZPM/REST/Base.cls

@@ -111,11 +111,12 @@ ClassMethod SwaggerSpec() As %Status
 
 ClassMethod GetRemoteAddr() As %String
 {
-  If (%request.GetCgiEnv("REMOTE_ADDR")'="") {
-    Return %request.GetCgiEnv("REMOTE_ADDR")
+  Set ip = $Piece(%request.GetCgiEnv("HTTP_X_FORWARDED_FOR"),",",1)
+  If (ip'="") {
+    Return ip
   } Else {
-    Return $Piece(%request.GetCgiEnv("HTTP_X_FORWARDED_FOR"),",",1)
-  }
+    Return %request.GetCgiEnv("REMOTE_ADDR")
+  } 
   Return ""
 }