If Security setting is Minimal we allow Unauthenticated access to app…

…lication, otherwise Password Auth is enabled.
intersystems-community · Feb 11, 2015 · 41d36f4 · 41d36f4
1 parent 8709afd
commit 41d36f4
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/MDX2JSON/Installer.cls.xml b/MDX2JSON/Installer.cls.xml
@@ -81,7 +81,12 @@ do ##class(MDX2JSON.Installer).setup(.pVars)</Description>
 <Implementation><![CDATA[
     Set Namespace=tInstaller.Evaluate("${Namespace}")
     Do tInstaller.PushNS("%SYS")
-    Set cspProperties("AutheEnabled") = 64 
+    Do ##class(Security.System).GetInstallationSecuritySetting(.security)
+    If (security="None") {
+    	Set cspProperties("AutheEnabled") = 64 // Unauthenticated
+    } Else {
+	    Set cspProperties("AutheEnabled") = 32 // Password
+    }
     Set cspProperties("NameSpace") = Namespace
     Set cspProperties("IsNameSpaceDefault") = 1
     Set cspProperties("DispatchClass")="MDX2JSON.REST"