@@ -1105,6 +1105,7 @@ New connection established: require auth key, login and start client loop.</Desc
11051105<Class name =" %WebTerminal.Installer" >
11061106<Description >
11071107Importing this class will install Cache WEB Terminal properly.</Description >
1108+ <CompileAfter >Engine,Router,StaticContent</CompileAfter >
11081109<Super >%Projection.AbstractProjection</Super >
11091110<TimeCreated >63890,71053.144208</TimeCreated >
11101111
@@ -1147,6 +1148,35 @@ This method is invoked when a class is compiled.</Description>
11471148 w !, "WEB application ""/terminal"" already exists, so it is ready to use."
11481149 }
11491150 }
1151+ w !, "Mapping %WebTerminal package to %All namespace..."
1152+ set status = ##Class(Config.Namespaces).Get("%All")
1153+ if ($$$ISERR(status)) { // no namespace %All
1154+ w !, "Creating %All namespace..."
1155+ set Properties("Globals") = "CACHETEMP"
1156+ set Properties("Library") = "CACHELIB"
1157+ set Properties("Routines") = "CACHETEMP"
1158+ set Properties("SysGlobals") = "CACHESYS"
1159+ set Properties("SysRoutines") = "CACHESYS"
1160+ set Properties("TempGlobals") = "CACHETEMP"
1161+ set status = ##Class(Config.Namespaces).Create("%All", .Properties)
1162+ if ($$$ISERR(status)) {
1163+ do $SYSTEM.Status.DisplayError(status)
1164+ quit status
1165+ } else {
1166+ w !, "%All namespace created."
1167+ }
1168+ }
1169+ set Properties("Database") = "CACHETEMP"
1170+ set status=##Class(Config.MapPackages).Create("%All", "%WebTerminal", .Properties)
1171+ if ($$$ISERR(status)) {
1172+ do $SYSTEM.Status.DisplayError(status)
1173+ }
1174+ set Properties("Database") = "CACHELIB"
1175+ set status=##Class(Config.MapPackages).Create("%SYS", "%WebTerminal", .Properties)
1176+ if ($$$ISERR(status)) {
1177+ do $SYSTEM.Status.DisplayError(status)
1178+ }
1179+ w !, "%WebTerminal package successfully mapped into %All namespace."
11501180 zn:ns'="%SYS" ns
11511181 quit $$$OK
11521182]]> </Implementation >
0 commit comments