Separate user creation

Author: eduard93

MDX2JSON/Installer.cls.xml

@@ -55,7 +55,27 @@ todo add optional parameter WEBAPP to Alter web app name if it needs to have ano
 <Namespace Name="Samples" Create="no">
 <ClassMapping From="${Namespace}" Package="MDX2JSON"/> 
 </Namespace>
+	
+<IfDef Var="User" >
+<IfDef Var="Password">
+<RunInstall Class="MDX2JSON.Installer" Method="createuser" />
+</IfDef> 
+<IfNotDef Var="Password">
+<Log Text="You specified username but not a password" Level="0"/>
+</IfNotDef> 
+</IfDef> 
 
+</Manifest>
+]]></Data>
+</XData>
+
+<XData name="CreateUser">
+<Description>
+See generated code in zcreateuser+1^MDX2JSON.Installer.1
+Creates user and gives him access</Description>
+<XMLNamespace>INSTALLER</XMLNamespace>
+<Data><![CDATA[
+<Manifest>
 <IfDef Var="User" >
 <IfDef Var="Password">
 <User Username="${User}" Namespace="${Namespace}" PasswordVar="Password" Roles="%DB_${Namespace}" Enabled="true" Comment="MDX2JSON user" Fullname="MDX2JSON user" >
@@ -89,6 +109,21 @@ do ##class(MDX2JSON.Installer).setup(.pVars)</Description>
 ]]></Implementation>
 </Method>
 
+<Method name="createuser">
+<Description>
+ This is a method generator whose code is generated by XGL.
+Set pVars("User")="web"
+Set pVars("Password")="dsweb"
+do ##class(MDX2JSON.Installer).createuser(.pVars)</Description>
+<Internal>1</Internal>
+<ClassMethod>1</ClassMethod>
+<CodeMode>objectgenerator</CodeMode>
+<FormalSpec><![CDATA[&pVars,pLogLevel:%Integer=0,pInstaller:%Installer.Installer]]></FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[ 	Quit ##class(%Installer.Manifest).%Generate(%compiledclass, %code, "CreateUser")
+]]></Implementation>
+</Method>
+
 <Method name="CreateWebApp">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>pVars,pLogLevel,tInstaller</FormalSpec>
@@ -424,7 +459,7 @@ Grant select access to User to all tables in comma-separated list of namespaces<
 <Implementation><![CDATA[
 	set user = tInstaller.Evaluate("${User}")
 	set namespace = tInstaller.Evaluate("${Namespace}")
-	return ..GrantSelectToUser(user,namespace)
+	return ..GrantExecuteToUser(user,namespace)
 ]]></Implementation>
 </Method>