@@ -4,40 +4,15 @@ Class App.Installer
44XData setup
55{
66<Manifest >
7- <Default Name =" SourceDir" Value =" #{$system.Process.CurrentDirectory()}src" />
87 <Default Name =" Namespace" Value =" IRISAPP" />
9- <Default Name =" app" Value =" irisapp" />
10- <Default Name =" restapp" Value =" /rest-test" />
11-
8+ <Default Name =" database" Value =" irisapp" />
9+
1210 <Namespace Name =" ${Namespace}" Code =" ${Namespace}" Data =" ${Namespace}" Create =" yes" Ensemble =" no" >
1311
1412 <Configuration >
15- <Database Name =" ${Namespace}" Dir =" /opt/${app}/data" Create =" yes" Resource =" %DB_${Namespace}" />
16-
17- <Import File =" ${SourceDir}" Flags =" ck" Recurse =" 1" />
13+ <Database Name =" ${Namespace}" Dir =" ${mgrdir}${database}/data" Create =" yes" Resource =" %DB_${Namespace}" />
1814 </Configuration >
19- <CSPApplication Url =" /csp/${app}"
20- Directory =" ${cspdir}${app}"
21- ServeFiles =" 1"
22- Recurse =" 1"
23- Grant =" %DB_${Namespace},%SQL"
24- AuthenticationMethods =" 32"
25-
26- />
27- <CSPApplication Url =" ${restapp}"
28- Recurse =" 1"
29- Directory =" ${cspdir}${restapp}"
30- Grant =" %DB_${Namespace},%SQL"
31- AuthenticationMethods =" 96"
32- />
33-
3415 </Namespace >
35- <Invoke Class =" App.Installer" Method =" SetDispatchClass" >
36- <Arg Value =" ${restapp}" />
37- <Arg Value =" community.objectscript.RESTExample" />
38- </Invoke >
39-
40-
4116</Manifest >
4217}
4318
@@ -47,18 +22,4 @@ ClassMethod setup(ByRef pVars, pLogLevel As %Integer = 3, pInstaller As %Install
4722 Quit ##class (%Installer.Manifest ).%Generate (%compiledclass , %code , " setup" )
4823}
4924
50- ClassMethod SetDispatchClass (pApp As %String , pClass As %String ) As %Status
51- {
52- New $Namespace
53- Set $Namespace = " %SYS"
54- Set tSC = ##class (Security.Applications ).Get (pApp , .webProperties )
55- If $$$ISERR(tSC ) {
56- Quit tSC
57- }
58-
59- Set webProperties (" DispatchClass" ) = pClass
60- Set tSC = ##class (Security.Applications ).Modify (pApp , .webProperties )
61- Quit tSC
62- }
63-
6425}
0 commit comments