├── manual.pdf
├── sc-list.txt
├── cAdmin
    ├── data
    │   ├── Databases.cls.xml
    │   ├── Database.cls.xml
    │   ├── DevTools.cls.xml
    │   ├── Process.cls.xml
    │   ├── Sensors.cls.xml
    │   └── cconsolelog.cls.xml
    ├── Utils.cls.xml
    └── WebSocket.cls.xml
└── README.md


/manual.pdf:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/intersystems-community/cAdmin-Server/master/manual.pdf


--------------------------------------------------------------------------------
/sc-list.txt:
--------------------------------------------------------------------------------
 1 | cAdmin
 2 | cAdmin.WebSocket.CLS
 3 | cAdmin.Utils.CLS
 4 | cAdmin.data.CconsoleLog.CLS
 5 | cAdmin.data.Database.CLS
 6 | cAdmin.data.Databases.CLS
 7 | cAdmin.data.DevTools.CLS
 8 | cAdmin.data.Process.CLS
 9 | cAdmin.data.Sensors.CLS
10 | 


--------------------------------------------------------------------------------
/cAdmin/data/Databases.cls.xml:
--------------------------------------------------------------------------------
 1 | <?xml version="1.0" encoding="UTF-8"?>
 2 | <Export generator="Cache" version="25">
 3 | <Class name="cAdmin.data.Databases">
 4 | <Super>%RegisteredObject</Super>
 5 | <TimeCreated>63239,41438.998191</TimeCreated>
 6 | 
 7 | <Property name="Databases">
 8 | <Description>
 9 | List of all cAdmin.data.Database objects</Description>
10 | <Type>Database</Type>
11 | <Collection>list</Collection>
12 | </Property>
13 | </Class>
14 | </Export>
15 | 


--------------------------------------------------------------------------------
/cAdmin/data/Database.cls.xml:
--------------------------------------------------------------------------------
 1 | <?xml version="1.0" encoding="UTF-8"?>
 2 | <Export generator="Cache" version="25">
 3 | <Class name="cAdmin.data.Database">
 4 | <Description>
 5 | This class contins all information about database</Description>
 6 | <Super>%RegisteredObject</Super>
 7 | <TimeCreated>63239,39736.109086</TimeCreated>
 8 | 
 9 | <Property name="Name">
10 | <Description>
11 | String, containig name of the database</Description>
12 | <Type>%String</Type>
13 | </Property>
14 | 
15 | <Property name="Path">
16 | <Description>
17 | String, containig path to the database</Description>
18 | <Type>%String</Type>
19 | </Property>
20 | 
21 | <Property name="DirectorySpace">
22 | <Description>
23 | Availible free space for the database</Description>
24 | <Type>%Integer</Type>
25 | </Property>
26 | 
27 | <Property name="DBWrites">
28 | <Description>
29 | Writes per minute to the listed mounted database</Description>
30 | <Type>%Integer</Type>
31 | </Property>
32 | 
33 | <Property name="DBReads">
34 | <Description>
35 | Reads per minute from the listed mounted database</Description>
36 | <Type>%Integer</Type>
37 | </Property>
38 | 
39 | <Property name="DBLatency">
40 | <Description>
41 | Milliseconds to complete a random read from the listed mounted database</Description>
42 | <Type>%Integer</Type>
43 | </Property>
44 | 
45 | <Property name="DBStats">
46 | <Type>%Numeric</Type>
47 | </Property>
48 | 
49 | <Property name="Size">
50 | <Description>
51 | Size of database in mb</Description>
52 | <Type>%Integer</Type>
53 | </Property>
54 | </Class>
55 | </Export>
56 | 


--------------------------------------------------------------------------------
/cAdmin/data/DevTools.cls.xml:
--------------------------------------------------------------------------------
 1 | <?xml version="1.0" encoding="UTF-8"?>
 2 | <Export generator="Cache" version="25">
 3 | <Class name="cAdmin.data.DevTools">
 4 | <Description>
 5 | Various tools for developement purposes</Description>
 6 | <Super>%RegisteredObject</Super>
 7 | <TimeCreated>63243,41024.029871</TimeCreated>
 8 | 
 9 | <Method name="RandomNumber">
10 | <Description>
11 | Get a random number</Description>
12 | <ClassMethod>1</ClassMethod>
13 | <ReturnType>%Integer</ReturnType>
14 | <Implementation><![CDATA[   	quit $RANDOM( $g(^cAdmin("DevTools","RandomNumber"),"100"))
15 | ]]></Implementation>
16 | </Method>
17 | 
18 | <Method name="RandomString">
19 | <Description>
20 | Get a random string</Description>
21 | <ClassMethod>1</ClassMethod>
22 | <ReturnType>%String</ReturnType>
23 | <Implementation><![CDATA[   	quit ##class(cAdmin.Utils).GenerateRandomString($g(^cAdmin("DevTools","RandomStringLength"),"100"))
24 | ]]></Implementation>
25 | </Method>
26 | 
27 | <Method name="Increment">
28 | <Description>
29 | Increments number from 0 to 100, then starts from 0</Description>
30 | <ClassMethod>1</ClassMethod>
31 | <ReturnType>%Integer</ReturnType>
32 | <Implementation><![CDATA[
33 |    	set ^cAdmin("DevTools","Increment")=($g( ^cAdmin("DevTools","Increment"),"50")+$RANDOM(4)) # 100
34 |    	quit ^cAdmin("DevTools","Increment")
35 | ]]></Implementation>
36 | </Method>
37 | 
38 | <Method name="AddToCconsoleLog">
39 | <Description>
40 | Add random message to cconsole.log</Description>
41 | <ClassMethod>1</ClassMethod>
42 | <ReturnType>%String</ReturnType>
43 | <Implementation><![CDATA[
44 | 	set message = ##class(cAdmin.Utils).GenerateRandomString($Random(10)+1)
45 | 	set severity = $Random(2)+1
46 | 	do ##class(%SYS.System).WriteToConsoleLog(message,"0",severity)
47 | 	quit "Message added: "_message
48 | ]]></Implementation>
49 | </Method>
50 | </Class>
51 | </Export>
52 | 


--------------------------------------------------------------------------------
/README.md:
--------------------------------------------------------------------------------
 1 | cAdmin-Server
 2 | =============
 3 | 
 4 | InterSystems Caché Administration Mobile tool - Server side. Bundled with project https://github.com/ShmidtIvan/cAdmin.
 5 |   
 6 | <b>Installation guide</b><br>
 7 | 1.	Create new Namespace cAdmin with new database cAdmin with new access resource %DB_cAdmin<br>
 8 | 2.	Into your new namespace cAdmin mirror package SYS from database CACHESYS<br>
 9 | 3.	Create new resource %cAdmin with public USE on<br>
10 | 4.	Create new role cAdminRole, containing %cAdmin resource (step 3) and %Admin_Manage resource<br>
11 | 5.	Import all Cache classes from this repository https://github.com/eduard93/cAdmin-Server/ Either download zip or clone git<br>
12 | 6.	In cAdmin.WebSocket class modify resource parameter to match %cAdmin resource<br>
13 | 7.	Compile all classes<br>
14 | 8.	Create new user cAdminUser with roles %DB_cAdmin (step 1), cAdminRole (step 4) and %Admin_Manage role<br>
15 | 9.	For user cAdminUser on tab SQL Tables add access to Select and Delete  for table cAdmin_data.CconsoleLog from cAdmin namespace <br>
16 | 
17 | <b>Use (JavaScript)</b><br>
18 | ws = new WebSocket("ws://&lt;server ip&gt;:&lt;server port&gt;/csp/&lt;Namespace&gt;/cAdmin.WebSocket.cls");<br>
19 | ws.onopen = function(){ ws.send(JSON.stringify({User:" cAdminUser ",Password:" cAdminUserPassword"}))};
<br>
20 | ws.onmessage = function(m){console.log(m)};<br>
21 | ws.send(‘devtools:RandomNumber’);<br>
22 | 
23 | In this example we, first, create new websocket object and point it to our websocket.<br>
24 | Next, we specify what to send to server after establishing the connection – JSON, containing authorization information.<br>
25 | After this use ws.send to send requests from request map <br>
26 | Use ws.readyState to check that WebSocket is working<br>
27 | 
28 | <b>Notes</b><br>
29 | Please refer to included Caché documentation and manual.pdf for further information.
30 | 


--------------------------------------------------------------------------------
/cAdmin/data/Process.cls.xml:
--------------------------------------------------------------------------------
 1 | <?xml version="1.0" encoding="UTF-8"?>
 2 | <Export generator="Cache" version="25">
 3 | <Class name="cAdmin.data.Process">
 4 | <Description>
 5 | This class encapsulates all operations with processes.</Description>
 6 | <Super>%RegisteredObject</Super>
 7 | <TimeCreated>63239,51725.448373</TimeCreated>
 8 | 
 9 | <Method name="ListProcess">
10 | <Description>
11 | Returns a list of all processes in JSON format</Description>
12 | <ClassMethod>1</ClassMethod>
13 | <ReturnType>%String</ReturnType>
14 | <Implementation><![CDATA[
15 | 	s i=1	
16 | 	set JSON = "{"
17 | 	set JSON = JSON _ """processes"":["
18 | 	while (##class(%SYS.ProcessQuery).NextProcess(i)) 
19 | 	{
20 | 		set i  = ##class(%SYS.ProcessQuery).NextProcess(i) 
21 | 		set JSON = JSON _  "{""id"":"""_i 
22 | 		s t=##CLASS(%SYS.ProcessQuery).Open(i) 
23 | 		set JSON = JSON _  """,""routine"":"""_t.Routine_"""}"
24 | 		set:##class(%SYS.ProcessQuery).NextProcess(i) JSON= JSON _  ","
25 | 	}
26 | 	set JSON = JSON _  "]}"
27 | 	
28 | 	q JSON
29 | ]]></Implementation>
30 | </Method>
31 | 
32 | <Method name="KillProcess">
33 | <Description><![CDATA[
34 | Terminate a process.<br>
35 | Kills a process by sending it a halt messages.<br>
36 | <b>id</b> - id of a process.<br>
37 | If SendError is 1 the killed job will send <RESJOB> error and logged in ^%ETN. <br>]]></Description>
38 | <ClassMethod>1</ClassMethod>
39 | <FormalSpec>id,withError=0</FormalSpec>
40 | <ReturnType>%Status</ReturnType>
41 | <Implementation><![CDATA[
42 | 	zn "%SYS"
43 | 	set process = ##class(SYS.Process).Open(id)
44 | 	if '($get(process)) q $$$ERROR($lb("404","No such a process "_id))
45 | 	if ($get(process).CanBeTerminated) 
46 | 	{
47 | 		d process.Terminate(withError)
48 | 	}
49 | 	q $$$OK
50 | ]]></Implementation>
51 | </Method>
52 | 
53 | <Method name="SuspendProcess">
54 | <Description><![CDATA[
55 | Pauses the process.<br>
56 | Put a process into a wait state so it stops executing code.<br>
57 | <b>id</b> - id of a process.]]></Description>
58 | <ClassMethod>1</ClassMethod>
59 | <FormalSpec>id</FormalSpec>
60 | <ReturnType>%Status</ReturnType>
61 | <Implementation><![CDATA[
62 | 	zn "%SYS"
63 | 	set process = ##class(SYS.Process).Open(id)
64 | 	if '($get(process)) q $$$ERROR(404,"No such a process: "_id)
65 | 	if ($get(process).CanBeSuspended) 
66 | 	{
67 | 		d process.Suspend()
68 | 	}
69 | 	q $$$OK
70 | ]]></Implementation>
71 | </Method>
72 | 
73 | <Method name="ResumeProcess">
74 | <Description><![CDATA[
75 | Resume a process.<br>
76 | Resumes a process after it had previously been suspended.<br> 
77 | <b>id</b> - id of a process.]]></Description>
78 | <ClassMethod>1</ClassMethod>
79 | <FormalSpec>id</FormalSpec>
80 | <ReturnType>%Status</ReturnType>
81 | <Implementation><![CDATA[
82 | 	zn "%SYS"
83 | 	set process = ##class(SYS.Process).Open(id)
84 | 	if '($get(process)) q $$$ERROR($lb("404","No such a process "_id))
85 | 	if ($get(process)) 
86 | 	{
87 | 		d process.Resume()
88 | 	}
89 | 	q $$$OK
90 | ]]></Implementation>
91 | </Method>
92 | </Class>
93 | </Export>
94 | 


--------------------------------------------------------------------------------
/cAdmin/Utils.cls.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="UTF-8"?>
  2 | <Export generator="Cache" version="25">
  3 | <Class name="cAdmin.Utils">
  4 | <Description>
  5 | Various utility methods.</Description>
  6 | <Super>%RegisteredObject</Super>
  7 | <TimeCreated>63273,59838.57564</TimeCreated>
  8 | 
  9 | <Method name="Init">
 10 | <Description>
 11 | Sets all basic settings in ^cAdmin global</Description>
 12 | <ClassMethod>1</ClassMethod>
 13 | <Implementation><![CDATA[
 14 | 	/// Developer Tools
 15 | 	set ^cAdmin("DevTools","RandomNumber") = 100 // Range from 0 to Value, from which RandomNumber is selected
 16 | 	set ^cAdmin("DevTools","RandomStringLength") = 100 // Length of random string returned by RandomString method
 17 | 	set ^cAdmin("DevTools","Increment") = 1 // Starting value for Increment method
 18 | 	
 19 | 	//Reference only - DO NOT SET manually/uncomment
 20 | 	//set ^cAdmin("Cconsole","LastDate")="1"
 21 | 	//set ^cAdmin("Cconsole","LastHash")="0"
 22 | 	//set ^cAdmin("Cconsole","LastTime")="1.1"
 23 | ]]></Implementation>
 24 | </Method>
 25 | 
 26 | <Method name="ArrayToJSON">
 27 | <Description><![CDATA[
 28 | Write out the contents of the local array <var>pData</var> as String using JSON notation
 29 | <var>pMetaData</var> is a $List containing the names of the properties
 30 | of the objects in the order in which they will appear.<br/>
 31 | <var>pData</var> is an array containing the data. Each node in the array
 32 | should be a $List containing values for properties. This should match the 
 33 | meta data provided in <var>pMetaData</var>. The array of data can use any subscript
 34 | value its wants. It is possible to define a hierarchical array. In this case,
 35 | children nodes are placed within a parent collection called <var>children</var>.<br/>]]></Description>
 36 | <ClassMethod>1</ClassMethod>
 37 | <FormalSpec><![CDATA[&pMetaData,&pData]]></FormalSpec>
 38 | <ProcedureBlock>0</ProcedureBlock>
 39 | <ReturnType>%String</ReturnType>
 40 | <Implementation><![CDATA[
 41 | 	//Create a string that we will redirect to
 42 |     set str=""
 43 | 
 44 |     //Redirect IO to the current routine - makes use of the labels defined below
 45 |     use $io::("^"_$ZNAME)
 46 | 
 47 |     //Enable redirection
 48 |     do ##class(%Device).ReDirectIO(1)
 49 | 
 50 |     //Any write statements here will be redirected to the labels defined below
 51 |     do ##class(%ZEN.Auxiliary.jsonProvider).%ArrayToJSON(.pMetaData,.pData)
 52 | 
 53 |     //Disable redirection
 54 |     do ##class(%Device).ReDirectIO(0)    
 55 |     quit str
 56 | ]]></Implementation>
 57 | </Method>
 58 | 
 59 | <Method name="SQLToJSON">
 60 | <Description><![CDATA[
 61 | <var>pSQL</var> is the SQL statement that is executed and provides the JSON content.<br/>]]></Description>
 62 | <ClassMethod>1</ClassMethod>
 63 | <FormalSpec>SQL:%String</FormalSpec>
 64 | <ProcedureBlock>0</ProcedureBlock>
 65 | <ReturnType>%String</ReturnType>
 66 | <Implementation><![CDATA[
 67 | 	//Create a string that we will redirect to
 68 |     set str=""
 69 |     //Redirect IO to the current routine - makes use of the labels defined below
 70 |     use $io::("^"_$ZNAME)
 71 | 
 72 |     //Enable redirection
 73 |     do ##class(%Device).ReDirectIO(1)
 74 | 
 75 |     //Any write statements here will be redirected to the labels defined below
 76 |     do ##class(%ZEN.Auxiliary.jsonSQLProvider).%WriteJSONFromSQL(,SQL)
 77 | 
 78 |     //Disable redirection
 79 |     do ##class(%Device).ReDirectIO(0)    
 80 |     quit str
 81 | ]]></Implementation>
 82 | </Method>
 83 | 
 84 | <Method name="Redirect">
 85 | <ClassMethod>1</ClassMethod>
 86 | <ProcedureBlock>0</ProcedureBlock>
 87 | <Implementation><![CDATA[
 88 | 	//Labels that allow for IO redirection
 89 |     //Read Character - we don't care about reading
 90 | rchr(c)      quit
 91 |     //Read a string - we don't care about reading
 92 | rstr(sz,to)  quit
 93 |     //Write a character - call the output label
 94 | wchr(s)      do output($char(s))  quit
 95 |     //Write a form feed - call the output label
 96 | wff()        do output($char(12))  quit
 97 |     //Write a newline - call the output label
 98 | wnl()        do output($char(13,10))  quit
 99 |     //Write a string - call the output label
100 | wstr(s)      do output(s)  quit
101 |     //Write a tab - call the output label
102 | wtab(s)      do output($char(9))  quit
103 |     //Output label - this is where we write to str
104 | output(s)    set str=str_s quit
105 | ]]></Implementation>
106 | </Method>
107 | 
108 | <Method name="GetDirectorySize">
109 | <Description>
110 | Get directory size in bytes</Description>
111 | <Internal>1</Internal>
112 | <ClassMethod>1</ClassMethod>
113 | <FormalSpec>dir:%String,recursive:%Boolean="1"</FormalSpec>
114 | <ReturnType>%Numeric</ReturnType>
115 | <Implementation><![CDATA[
116 | 	set size=0
117 | 	if ##class(%File).DirectoryExists(dir)
118 | 	{
119 | 		set rs=##Class(%ResultSet).%New("%File.FileSet")
120 |  		do rs.Execute(dir,"*",,1) // build result set of all files in dir
121 |  		while rs.Next() {
122 | 			if rs.Get("Type")'="D" //check for directories
123 | 			{
124 | 				set size = size + rs.Get("Size")
125 | 			} else {
126 | 				if (recursive=1) {
127 | 					set size = size + ..GetDirectorySize()
128 | 				}
129 | 			} 
130 | 		}
131 | 	}
132 | 	quit size
133 | ]]></Implementation>
134 | </Method>
135 | 
136 | <Method name="IterateProperty">
137 | <Description>
138 | Reference. Iterating over object properties</Description>
139 | <Internal>1</Internal>
140 | <ClassMethod>1</ClassMethod>
141 | <Private>1</Private>
142 | <Implementation><![CDATA[
143 | 	set obj = ##class(%ZEN.proxyObject).%New()
144 |  
145 | 	set obj.Name="abd"
146 | 	set obj.SurName="xyz"
147 | 	set propName=$o(obj.%data(""))
148 | 	while propName'="" {
149 | 	 set propName=$o(obj.%data(propName))
150 | 	}
151 | ]]></Implementation>
152 | </Method>
153 | 
154 | <Method name="GenerateRandomString">
155 | <Description><![CDATA[
156 | Generate random string of <b>len</b> symbols in length]]></Description>
157 | <Internal>1</Internal>
158 | <ClassMethod>1</ClassMethod>
159 | <FormalSpec>len:%Integer=10</FormalSpec>
160 | <ReturnType>%String</ReturnType>
161 | <Implementation><![CDATA[
162 | 	set str = ""
163 | 	while $Length(str)<len {
164 |     	set str = str _ $Char(65 + $Random(25))
165 | 	}
166 |    	quit str
167 | ]]></Implementation>
168 | </Method>
169 | </Class>
170 | </Export>
171 | 


--------------------------------------------------------------------------------
/cAdmin/data/Sensors.cls.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="UTF-8"?>
  2 | <Export generator="Cache" version="25">
  3 | <Class name="cAdmin.data.Sensors">
  4 | <Description>
  5 | Class for working with SYS.Monitor.SystemSensors object. 
  6 | Create instance of this class and access the properties -
  7 | they represent actual values at the time of accessing.</Description>
  8 | <Super>%RegisteredObject</Super>
  9 | <TimeCreated>63242,50305.449154</TimeCreated>
 10 | 
 11 | <Property name="Sensors">
 12 | <Type>SYS.Monitor.SystemSensors</Type>
 13 | <Private>1</Private>
 14 | </Property>
 15 | 
 16 | <Property name="SystemStartupDateTime">
 17 | <Type>%String</Type>
 18 | <Private>1</Private>
 19 | <ReadOnly>1</ReadOnly>
 20 | </Property>
 21 | 
 22 | <Property name="CPU">
 23 | <Description>
 24 | System CPU usage (percent)</Description>
 25 | <Type>%Integer</Type>
 26 | </Property>
 27 | 
 28 | <Property name="LockTable">
 29 | <Description>
 30 | Percentage of the lock table in use</Description>
 31 | <Type>%Numeric</Type>
 32 | </Property>
 33 | 
 34 | <Property name="CSPGatewayLatency">
 35 | <Description>
 36 | Time (milliseconds) required to obtain a response from the listed CSP gateway server 
 37 | when fetching the metrics represented by the CSP sensor objects.</Description>
 38 | <Type>%Numeric</Type>
 39 | </Property>
 40 | 
 41 | <Property name="SMH">
 42 | <Description>
 43 | Percentage of the shared memory heap in use</Description>
 44 | <Type>%Integer</Type>
 45 | </Property>
 46 | 
 47 | <Property name="JournalSpace">
 48 | <Description>
 49 | Free disk space, availible for journals</Description>
 50 | <Type>%Numeric</Type>
 51 | </Property>
 52 | 
 53 | <Property name="FreeJournalSpacePercent">
 54 | <Description>
 55 | Free disk space, in percent to journal size</Description>
 56 | <Type>%Numeric</Type>
 57 | </Property>
 58 | 
 59 | <Property name="Uptime">
 60 | <Description>
 61 | Cache Server Uptime in seconds</Description>
 62 | <Type>%String</Type>
 63 | </Property>
 64 | 
 65 | <Property name="LicenseStatus">
 66 | <Description>
 67 | Valid, Invalid, or Troubled (expiring) </Description>
 68 | <Type>%String</Type>
 69 | </Property>
 70 | 
 71 | <Property name="LicenseExpirationDate">
 72 | <Description>
 73 | Active license expiration date</Description>
 74 | <Type>%String</Type>
 75 | </Property>
 76 | 
 77 | <Property name="LicenseInvalidReason">
 78 | <Description>
 79 | Reason the key is invalid or in a troubled state</Description>
 80 | <Type>%String</Type>
 81 | </Property>
 82 | 
 83 | <Parameter name="NotAvailible">
 84 | <Default>NaN</Default>
 85 | </Parameter>
 86 | 
 87 | <Method name="DBStats">
 88 | <Description>
 89 | Get information about databases in JSON format</Description>
 90 | <ReturnType>%String</ReturnType>
 91 | <Implementation><![CDATA[
 92 | 	do ..Sensors.GetDBStats()
 93 | 	
 94 | 	set DBs=##class(cAdmin.data.Databases).%New()
 95 | 	set DBPath=$o(..Sensors.DBStats(""))
 96 | 	while DBPath'="" {
 97 | 		set DB=##class(cAdmin.data.Database).%New()
 98 | 		set DB.Path=DBPath
 99 | 		set DB.DirectorySpace=..Sensors.SensorReading("DirectorySpace",DBPath)
100 | 		set DB.DBWrites=..Sensors.SensorReading("DBWrites",DBPath)
101 | 		set DB.DBReads=..Sensors.SensorReading("DBReads",DBPath)
102 | 		set DB.DBLatency=..Sensors.SensorReading("DBLatency",DBPath)
103 | 		set DB.DBStats=..Sensors.DBStats(DBPath)
104 | 		do DBs.Databases.Insert(DB)
105 | 		set DBPath=$o(..Sensors.DBStats(DBPath))
106 | 	}
107 | 	
108 | 	set DBcount=DBs.Databases.Count()
109 | 
110 | 	set rs=##class(%Library.ResultSet).%New("SYS.Database:FreeSpace")
111 | 	do rs.Execute()
112 | 	while rs.Next() {
113 | 		for i=1:1:DBcount {
114 | 			if rs.Data("Directory")=DBs.Databases.GetAt(i).Path {
115 | 				set DBs.Databases.GetAt(i).Name=rs.Data("DatabaseName")
116 | 				set DBs.Databases.GetAt(i).Size=rs.Data("SizeInt")
117 | 				quit
118 | 			}
119 | 		}
120 | 		
121 | 	}
122 | 	
123 | 	quit ##class(%ZEN.Auxiliary.jsonProvider).%WriteJSONFromObject(,DBs,,,,"aeloqtuw")
124 | ]]></Implementation>
125 | </Method>
126 | 
127 | <Method name="%OnNew">
128 | <Description>
129 | Create and Initialyse System Sensors after object creation</Description>
130 | <Private>1</Private>
131 | <ReturnType>%Status</ReturnType>
132 | <ServerOnly>1</ServerOnly>
133 | <Implementation><![CDATA[
134 | 	if ('..Sensors) { 
135 | 		set ..Sensors=##class(SYS.Monitor.SystemSensors).%New()
136 | 		try	{
137 | 			do ..Sensors.GetSensors()
138 | 		} catch ex {
139 | 		}
140 | 		do ..SystemStartupDateTimeSet()
141 | 	}
142 | 	quit $$$OK
143 | ]]></Implementation>
144 | </Method>
145 | 
146 | <Method name="SystemStartupDateTimeSet">
147 | <Internal>1</Internal>
148 | <Private>1</Private>
149 | <ReturnType>%Status</ReturnType>
150 | <Implementation><![CDATA[
151 | 	if ..SystemStartupDateTime="" {
152 | 		set now=$H
153 | 		set SecondsUptime = $p(..Sensors.SystemTime,".","1")
154 | 		if SecondsUptime >= 86400 
155 | 		{
156 | 			set DaysUptime = SecondsUptime \ 86400
157 | 		} else {
158 | 			set DaysUptime = 0
159 | 
160 | 		}		
161 | 		set FractionSecondsUptime = SecondsUptime # 86400
162 | 		if $p(now,",",2)>=FractionSecondsUptime {
163 | 			set StartupDate=$p(now,",",1)-DaysUptime
164 | 			set StartupTime=$p(now,",",2)-FractionSecondsUptime
165 | 		} else {
166 | 			set StartupDate = $p(now,",",1)-DaysUptime-1
167 | 			set StartupTime = 86400 + $p(now,",",2)-FractionSecondsUptime
168 | 		}
169 | 		set i%SystemStartupDateTime=StartupDate_","_StartupTime
170 | 	}
171 | 	quit $$$OK
172 | ]]></Implementation>
173 | </Method>
174 | 
175 | <Method name="UptimeGet">
176 | <Internal>1</Internal>
177 | <ReturnType>%String</ReturnType>
178 | <Implementation><![CDATA[
179 | 		set now=$H
180 | 		set StartupDateTime=..SystemStartupDateTime
181 | 
182 | 		if $p(now,",",2)>$p(StartupDateTime,",",2) {
183 | 			set DaysUptime=$p(now,",",1)-$p(StartupDateTime,",",1)
184 | 			set FractionSecondsUptime=$p(now,",",2)-$p(StartupDateTime,",",2)
185 | 		} else {
186 | 			set DaysUptime=$p(now,",",1)-$p(StartupDateTime,",",1)-1
187 | 			set FractionSecondsUptime=86400 + $p(now,",",2)-$p(StartupDateTime,",",2)
188 | 		}
189 | 		
190 | 	quit DaysUptime*86400+FractionSecondsUptime
191 | ]]></Implementation>
192 | </Method>
193 | 
194 | <Method name="CPUGet">
195 | <Internal>1</Internal>
196 | <ReturnType>%Integer</ReturnType>
197 | <Implementation><![CDATA[
198 | 	try {
199 | 	do ..Sensors.GetCPU()	
200 |    	set CPU =  ..Sensors.SensorReading("CPUusage")
201 | 	} catch {
202 | 		set CPU = ..#NotAvailible
203 | 	}
204 | 	if CPU > 100 set CPU = 0  /// Overflows
205 | 	quit CPU
206 | ]]></Implementation>
207 | </Method>
208 | 
209 | <Method name="FreeJournalSpacePercentGet">
210 | <Internal>1</Internal>
211 | <ReturnType>%Numeric</ReturnType>
212 | <Implementation><![CDATA[
213 | 	try {
214 | 		set free = ..JournalSpace
215 |    		set journaldir = ##class(%SYS.Journal.System).GetPrimaryDirectory()
216 |    		set journalsize = ##class(cAdmin.Utils).GetDirectorySize(journaldir)
217 |    		set journalsizeMB = journalsize / ( 1024 * 1024 )
218 |    		set FreeJournalSpace = $NORMALIZE(100 * ( free / (free + journalsizeMB)),6)	
219 | 	} catch {
220 | 		set FreeJournalSpace = ..#NotAvailible
221 | 	}
222 | 	quit FreeJournalSpace
223 | ]]></Implementation>
224 | </Method>
225 | 
226 | <Method name="LockTableGet">
227 | <Internal>1</Internal>
228 | <ReturnType>%Numeric</ReturnType>
229 | <Implementation><![CDATA[
230 |    	try {
231 | 		do ..Sensors.GetLockTable()	
232 |  	  	set LockTable =  ..Sensors.SensorReading("LockTablePercentFull")
233 | 	} catch {
234 | 		set LockTable = ..#NotAvailible
235 | 	}
236 | 	quit LockTable
237 | ]]></Implementation>
238 | </Method>
239 | 
240 | <Method name="CSPGatewayLatencyGet">
241 | <Internal>1</Internal>
242 | <ReturnType>%Numeric</ReturnType>
243 | <Implementation><![CDATA[
244 | 	
245 |    	try {
246 | 		do ..Sensors.GetCSPGateway()	
247 |  	  	set CSPGatewayLatency = ..Sensors.SensorReading("CSPGatewayLatency",$o(..Sensors.SensorReading("CSPGatewayLatency","")))
248 | 	} catch {
249 | 		set CSPGatewayLatency = ..#NotAvailible
250 | 	}
251 | 	quit CSPGatewayLatency
252 | ]]></Implementation>
253 | </Method>
254 | 
255 | <Method name="SMHGet">
256 | <Internal>1</Internal>
257 | <ReturnType>%Integer</ReturnType>
258 | <Implementation><![CDATA[
259 |    	try {
260 | 		do ..Sensors.GetSMH()	
261 |  	  	set SMH = ..Sensors.SensorReading("SMHPercentFull")
262 | 	} catch {
263 | 		set SMH = ..#NotAvailible
264 | 	}
265 | 	quit SMH
266 | ]]></Implementation>
267 | </Method>
268 | 
269 | <Method name="JournalSpaceGet">
270 | <Internal>1</Internal>
271 | <ReturnType>%Numeric</ReturnType>
272 | <Implementation><![CDATA[
273 |  
274 | 	try {
275 | 		do ..Sensors.GetJournalSpace()	
276 |  	  	set JournalSpace = ..Sensors.SensorReading("JournalSpace")
277 | 	} catch {
278 | 		set JournalSpace = ..#NotAvailible
279 | 	}
280 | 	quit JournalSpace
281 | ]]></Implementation>
282 | </Method>
283 | 
284 | <Method name="LicenseStatusGet">
285 | <Internal>1</Internal>
286 | <ReturnType>%String</ReturnType>
287 | <Implementation><![CDATA[	quit ##class(%SYSTEM.License).GetKeyStatus()
288 | ]]></Implementation>
289 | </Method>
290 | 
291 | <Method name="LicenseExpirationDateGet">
292 | <Internal>1</Internal>
293 | <ReturnType>%String</ReturnType>
294 | <Implementation><![CDATA[	quit $zdate($SYSTEM.License.KeyExpirationDate())
295 | ]]></Implementation>
296 | </Method>
297 | 
298 | <Method name="LicenseInvalidReasonGet">
299 | <Internal>1</Internal>
300 | <ReturnType>%String</ReturnType>
301 | <Implementation><![CDATA[	quit $SYSTEM.License.GetKeyInvalidReason()
302 | ]]></Implementation>
303 | </Method>
304 | </Class>
305 | </Export>
306 | 


--------------------------------------------------------------------------------
/cAdmin/data/cconsolelog.cls.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="UTF-8"?>
  2 | <Export generator="Cache" version="25">
  3 | <Class name="cAdmin.data.CconsoleLog">
  4 | <Description>
  5 | Class for work with cconsole.log</Description>
  6 | <Super>%Persistent</Super>
  7 | <TimeCreated>63243,34907.371349</TimeCreated>
  8 | 
  9 | <Property name="DateTime">
 10 | <Description>
 11 | Date and Time of cconsole entry</Description>
 12 | <Type>%TimeStamp</Type>
 13 | </Property>
 14 | 
 15 | <Property name="Pid">
 16 | <Description>
 17 | Process id</Description>
 18 | <Type>%Integer</Type>
 19 | </Property>
 20 | 
 21 | <Property name="Severity">
 22 | <Description>
 23 | 0 (Information), 1 (Warning), 2 (Severe), 3 (Fatal)</Description>
 24 | <Type>%Integer</Type>
 25 | </Property>
 26 | 
 27 | <Property name="Message">
 28 | <Description>
 29 | Text of cconsole entry</Description>
 30 | <Type>%Text</Type>
 31 | <Parameter name="LANGUAGECLASS" value="%Text.English"/>
 32 | <Parameter name="MAXLEN" value="1000"/>
 33 | </Property>
 34 | 
 35 | <Parameter name="MaxEntries">
 36 | <Description>
 37 | Maximal number of entries. Old ones would be deleted first</Description>
 38 | <Default>10000</Default>
 39 | </Parameter>
 40 | 
 41 | <Index name="MessageIndex">
 42 | <Type>bitmap</Type>
 43 | <Properties>Message(KEYS)</Properties>
 44 | </Index>
 45 | 
 46 | <Index name="DateTimeIndex">
 47 | <Properties>DateTime</Properties>
 48 | </Index>
 49 | 
 50 | <Index name="ProcessIndex">
 51 | <Properties>Pid</Properties>
 52 | </Index>
 53 | 
 54 | <Index name="SeverityIndex">
 55 | <Properties>Severity</Properties>
 56 | </Index>
 57 | 
 58 | <UDLText name="T">
 59 | <Content><![CDATA[
 60 | // do ##class(%SYS.System).WriteToConsoleLog("msg","0","1")
 61 | 
 62 | ]]></Content>
 63 | </UDLText>
 64 | 
 65 | <Method name="Path">
 66 | <Description>
 67 | Path to cconsole.log. 
 68 | Requires resource %Admin_Manage</Description>
 69 | <ClassMethod>1</ClassMethod>
 70 | <ReturnType>%String</ReturnType>
 71 | <Implementation><![CDATA[
 72 | 	 //new $Roles
 73 | 	 //set sc = $SYSTEM.Security.AddRoles("cAdmin")
 74 | 	 try {
 75 | 	 	set path = ##class(%SYSTEM.Config).ModifyConsoleFile()
 76 | 	 } catch {
 77 | 		 /// Do not have the resource %Admin_Manage
 78 | 		 set path = ##class(%File).ManagerDirectory()_"cconsole.log" 
 79 | 	 }
 80 | 	 quit path
 81 | ]]></Implementation>
 82 | </Method>
 83 | 
 84 | <Method name="Parse">
 85 | <Description>
 86 | Parse cconsole.log file, converting it lines into instances of this class</Description>
 87 | <ClassMethod>1</ClassMethod>
 88 | <Implementation><![CDATA[
 89 | 	set hash=##class(%File).SHA1Hash(..Path())
 90 | 	set file=##class(%File).%New(..Path())
 91 | 	do file.Open("R")
 92 | 	while 'file.AtEnd
 93 | 	{					
 94 | 			do ..AddEntry(file.ReadLine())
 95 | 	}
 96 | 	set ^cAdmin("Cconsole","LastHash")=hash
 97 | 	do ..PurgeOverflow()
 98 | ]]></Implementation>
 99 | </Method>
100 | 
101 | <Method name="Update">
102 | <Description>
103 | Get new records from cconsole.log</Description>
104 | <ClassMethod>1</ClassMethod>
105 | <Implementation><![CDATA[
106 | 	set hash=##class(%File).SHA1Hash(..Path())
107 | 	set lasthash=$g(^cAdmin("Cconsole","LastHash"),"0")
108 | 	quit:hash=lasthash	
109 | 	set ^cAdmin("Cconsole","LastHash")=hash
110 | 	
111 | 	set lastdate = $g(^cAdmin("Cconsole","LastDate"),"1")
112 | 	set lasttime = $g(^cAdmin("Cconsole","LastTime"),"0.001")
113 | 	set file = ##class(%File).%New(..Path())
114 | 	do file.Open("R")
115 | 	while 'file.AtEnd
116 | 	{
117 | 		set line = file.ReadLine()
118 | 		set date = $p(line,"-",1)
119 | 		try {
120 | 			set dateh = $zdh(date,,,6)
121 | 		} catch ex {
122 | 			CONTINUE
123 | 		}
124 | 		
125 | 		CONTINUE:(dateh < lastdate)
126 | 		if dateh = lastdate {
127 | 			set line = $p(line,"-",2,*)
128 | 			set time = $p(line," ",1)
129 | 			set timeodbc = $REVERSE($REPLACE($REVERSE(time),":",".",,1))
130 | 			try {
131 | 				set timeh = $zth(timeodbc)
132 | 			} catch ex {
133 | 				CONTINUE
134 | 			}
135 | 					
136 | 			CONTINUE:(timeh < lasttime)
137 | 			if (timeh = lasttime) 
138 | 			{
139 | 				set lastdatetime = $zd(lastdate,3)_" "_$zt(lasttime,1)
140 | 				set message=""
141 | 				&sql(select Message into :message from cAdmin_data.CconsoleLog where DateTime = {ts :lastdatetime})
142 | 				CONTINUE:(message = $p(line," ",4,*)) //if messages are equal, skip
143 | 			}				
144 | 		}	
145 | 		do ..AddEntry(line)
146 | 		while 'file.AtEnd
147 | 		{
148 | 			do ..AddEntry(file.ReadLine())
149 | 		}
150 | 	}
151 | 	do ..PurgeOverflow()
152 | ]]></Implementation>
153 | </Method>
154 | 
155 | <Method name="AddEntry">
156 | <Description>
157 | Add one new record to database</Description>
158 | <ClassMethod>1</ClassMethod>
159 | <FormalSpec>line:%String</FormalSpec>
160 | <Implementation><![CDATA[
161 | 	try {
162 | 									//dd/mm/yy-hh:mm:ss:fff (pid) severity message
163 | 		set date = $p(line,"-",1)	//dd/mm/yy
164 | 		set dateh = $zdh(date,,,6)  // internal format
165 | 		set dateodbc = $zd(dateh,3)	//yyyy-mm-dd
166 | 
167 | 		set line= $p(line,"-",2,*)	//hh:mm:ss:fff (pid) severity message
168 | 			
169 | 		set time = $p(line," ",1)	//hh:mm:ss:fff
170 | 		set timeodbc = $REVERSE($REPLACE($REVERSE(time),":",".",,1)) //hh:mm:ss.fff
171 | 			
172 | 		set line = $p(line," ",2,*)				//(pid) severity message
173 | 			
174 | 		set pid = $p(line," ",1)				//(pid)
175 | 		
176 | 		set entry = ..%New()
177 | 		set entry.DateTime = dateodbc_" "_timeodbc
178 | 		set entry.Pid = $ZSTRIP(pid,"*E'N")		//pid
179 | 		set entry.Severity = $p(line," ",2)		//severity
180 | 		set entry.Message = $p(line," ",3,*)	//message
181 | 		do entry.%Save()
182 | 		set ^cAdmin("Cconsole","LastDate")=dateh
183 | 		set ^cAdmin("Cconsole","LastTime")=$zth(timeodbc)
184 | 	} catch ex {
185 | 			// Not all strings contain messages
186 | 			// do nothing
187 | 	}
188 | ]]></Implementation>
189 | </Method>
190 | 
191 | <Method name="PurgeOverflow">
192 | <Description><![CDATA[
193 | Delete first 20% entries if number of Entries>MaxEntries]]></Description>
194 | <ClassMethod>1</ClassMethod>
195 | <Implementation><![CDATA[
196 | 	&sql(select top 1 count(id) into :count from cAdmin_data.CconsoleLog)
197 | 	if count>..#MaxEntries 
198 | 	{
199 | 		set delnumber = count * 0.2
200 | 		&sql(delete from cAdmin_data.CconsoleLog where id in (select top :delnumber id from cAdmin_data.CconsoleLog order by id asc))
201 | 	}
202 | ]]></Implementation>
203 | </Method>
204 | 
205 | <Method name="GetLast">
206 | <Description><![CDATA[
207 | Get last <b>num</b> entries from cconsole.log database]]></Description>
208 | <ClassMethod>1</ClassMethod>
209 | <FormalSpec>num:%Integer</FormalSpec>
210 | <ReturnType>%String</ReturnType>
211 | <Implementation><![CDATA[
212 | 	set SQL = "SELECT TOP "_num_" * FROM cAdmin_data.CconsoleLog ORDER BY id desc"
213 | 	quit ##class(cAdmin.Utils).SQLToJSON(SQL)
214 | ]]></Implementation>
215 | </Method>
216 | 
217 | <Method name="GetLastId">
218 | <Description>
219 | Get last id from cconsole.log database</Description>
220 | <ClassMethod>1</ClassMethod>
221 | <ReturnType>%Integer</ReturnType>
222 | <Implementation><![CDATA[
223 | 	&sql(select top 1 id into :lastid from cAdmin_data.CconsoleLog order by id desc)
224 | 	quit lastid
225 | ]]></Implementation>
226 | </Method>
227 | 
228 | <Method name="GetRandom">
229 | <Description>
230 | Get random entry from cconsole.log database</Description>
231 | <ClassMethod>1</ClassMethod>
232 | <ReturnType>%String</ReturnType>
233 | <Implementation><![CDATA[
234 | 	set lastid = ##class(cAdmin.data.CconsoleLog).GetLastId()
235 | 	set id= $Random(lastid)+1
236 | 	set SQL = "SELECT * FROM cAdmin_data.CconsoleLog WHERE id = '"_id_"'"
237 | 	quit ##class(cAdmin.Utils).SQLToJSON(SQL)
238 | ]]></Implementation>
239 | </Method>
240 | 
241 | <Method name="FullTextSearch">
242 | <Description><![CDATA[
243 | Search for all cconsole.log entries, containing <b>query</b><br>
244 | Example: 'alert','max']]></Description>
245 | <ClassMethod>1</ClassMethod>
246 | <FormalSpec>query:%String</FormalSpec>
247 | <ReturnType>%String</ReturnType>
248 | <Implementation><![CDATA[
249 | 	set SQL = "SELECT * FROM cAdmin_data.CconsoleLog WHERE message %CONTAINS ("_query_")"
250 | 	quit ##class(cAdmin.Utils).SQLToJSON(SQL)
251 | ]]></Implementation>
252 | </Method>
253 | 
254 | <Method name="DateTimeSearch">
255 | <Description>
256 | Search for all cconsole.log entries, from startdatetime to enddatetime
257 | Where startdatetime,enddatetime are TimeStamps - in yyyy-mm-dd hh:mm:ss.fff format.</Description>
258 | <ClassMethod>1</ClassMethod>
259 | <FormalSpec>startdatetime:%TimeStamp,enddatetime:%TimeStamp</FormalSpec>
260 | <ReturnType>%String</ReturnType>
261 | <Implementation><![CDATA[
262 | 	
263 | 	set SQL = 	"SELECT * FROM cAdmin_data.CconsoleLog WHERE "_
264 | 				"DateTime BETWEEN {ts '"_startdatetime_"'} AND "_
265 | 				" {ts '"_enddatetime_"'}" 
266 | 	quit ##class(cAdmin.Utils).SQLToJSON(SQL)
267 | ]]></Implementation>
268 | </Method>
269 | 
270 | <Storage name="Default">
271 | <Type>%Library.CacheStorage</Type>
272 | <DataLocation>^cAdmin.data.CconsoleLogD</DataLocation>
273 | <DefaultData>CconsoleLogDefaultData</DefaultData>
274 | <IdLocation>^cAdmin.data.CconsoleLogD</IdLocation>
275 | <IndexLocation>^cAdmin.data.CconsoleLogI</IndexLocation>
276 | <StreamLocation>^cAdmin.data.CconsoleLogS</StreamLocation>
277 | <ExtentSize>100000</ExtentSize>
278 | <Data name="CconsoleLogDefaultData">
279 | <Value name="1">
280 | <Value>%%CLASSNAME</Value>
281 | </Value>
282 | <Value name="2">
283 | <Value>DateTime</Value>
284 | </Value>
285 | <Value name="3">
286 | <Value>Pid</Value>
287 | </Value>
288 | <Value name="4">
289 | <Value>Severity</Value>
290 | </Value>
291 | <Value name="5">
292 | <Value>Message</Value>
293 | </Value>
294 | </Data>
295 | </Storage>
296 | </Class>
297 | </Export>
298 | 


--------------------------------------------------------------------------------
/cAdmin/WebSocket.cls.xml:
--------------------------------------------------------------------------------
  1 | <?xml version="1.0" encoding="UTF-8"?>
  2 | <Export generator="Cache" version="25">
  3 | <Class name="cAdmin.WebSocket">
  4 | <Description>
  5 | Web socket class. Manages all comunication with the client.</Description>
  6 | <Super>%CSP.WebSocket</Super>
  7 | <TimeCreated>63236,45246.272996</TimeCreated>
  8 | 
  9 | <Property name="Sensors">
 10 | <Type>cAdmin.data.Sensors</Type>
 11 | </Property>
 12 | 
 13 | <Parameter name="Timeout">
 14 | <Description>
 15 | How long to wait for user when connection established</Description>
 16 | <Default>3600</Default>
 17 | </Parameter>
 18 | 
 19 | <Parameter name="AuthorizationTimeout">
 20 | <Description>
 21 | How long to wait for authorization key when connection established</Description>
 22 | <Default>5</Default>
 23 | </Parameter>
 24 | 
 25 | <Parameter name="Resource">
 26 | <Description>
 27 | Resource name, required to access this websocket</Description>
 28 | <Default>%Developement</Default>
 29 | </Parameter>
 30 | 
 31 | <Parameter name="Buffer">
 32 | <Description>
 33 | Buffer size in bytes</Description>
 34 | <Default>8192</Default>
 35 | </Parameter>
 36 | 
 37 | <Method name="Server">
 38 | <Description><![CDATA[
 39 | Main method. <br>
 40 | Authenticates user, checks that he has required resource.
 41 | If all goes well, initialises sensors and forwards users' input to Choose Action]]></Description>
 42 | <ReturnType>%Status</ReturnType>
 43 | <Implementation><![CDATA[
 44 | 	if ($$$ISOK(..RequireAuthorization()) && $$$ISOK(..RequireResource())) 
 45 | 	{		
 46 |    		For  
 47 |    		{
 48 |       		Set data=..Read(, .status, ..#Timeout)
 49 | 			If $$$ISERR(status) 
 50 | 			{
 51 | 				If $$$GETERRORCODE(status) = $$$CSPWebSocketClosed 
 52 | 				{
 53 | 					Quit
 54 | 				}
 55 | 				If $$$GETERRORCODE(status) = $$$CSPWebSocketTimeout 
 56 | 				{
 57 |      	   	     	Set status=..Write("Server timed-out at "_$ZTIMESTAMP)
 58 |      	   		}
 59 |       		} else 
 60 |       		{
 61 |          		do ..InitSensors()
 62 |      		    do ..ChooseAction(data)
 63 |      	 	}
 64 |    		}	
 65 | 	} else {
 66 | 		Set status=..EndServer()
 67 |    		Quit $$$OK					
 68 | 	}
 69 | ]]></Implementation>
 70 | </Method>
 71 | 
 72 | <Method name="RequireAuthorization">
 73 | <Description><![CDATA[
 74 | Holds process and expects only one package from the client,<br>
 75 | containing Username and password in JSON format. <br>
 76 | Example : {User:"_SYSTEM",Password:"sys"}]]></Description>
 77 | <ReturnType>%Status</ReturnType>
 78 | <Implementation><![CDATA[
 79 | 	set authPair = ..Read(,.status,..#AuthorizationTimeout) // wait for package
 80 | 	set st = '$$$OK
 81 | 	set obj = ##class(%ZEN.proxyObject).%New()
 82 | 	set st = ##class(%ZEN.Auxiliary.jsonProvider).%ConvertJSONToObject(authPair,,.obj,1)
 83 | 	quit:$$$ISERR(st) st
 84 | 	set loginStatus = ##class(%SYSTEM.Security).Login(obj.User,obj.Password) // login user
 85 | 	quit loginStatus
 86 | ]]></Implementation>
 87 | </Method>
 88 | 
 89 | <Method name="RequireResource">
 90 | <Description><![CDATA[
 91 | Checks, if User (as defined in <b>RequireAuthorization</b> method) has required resourse]]></Description>
 92 | <ReturnType>%Status</ReturnType>
 93 | <Implementation><![CDATA[	quit $SYSTEM.Security.Check(..#Resource,"USE")
 94 | ]]></Implementation>
 95 | </Method>
 96 | 
 97 | <Method name="InitSensors">
 98 | <Description>
 99 | Create new Sensors object</Description>
100 | <Implementation><![CDATA[
101 | 	set st=$$$OK
102 | 	try	{
103 | 		if ('..Sensors) { 
104 | 			set ..Sensors=##class(cAdmin.data.Sensors).%New()
105 | 		}
106 | 	} catch ex {
107 | 		set st=ex.AsStatus()
108 | 	}
109 | ]]></Implementation>
110 | </Method>
111 | 
112 | <Method name="ChooseAction">
113 | <Description><![CDATA[
114 | Chooses what action to take, based on user input.<br>
115 | Expected input:<br>
116 | &lt;action&gt;<br>
117 | &lt;action&gt;:&lt;argument1,argument2,...,argumentN&gt;<br>]]></Description>
118 | <FormalSpec>data:%String</FormalSpec>
119 | <ReturnType>%Status</ReturnType>
120 | <Implementation><![CDATA[
121 | 	set action=$p(data,":",1) 
122 | 	set params=$p(data,":",2,*)
123 | 	set action=$ZCONVERT(action,"l")
124 | 	
125 | 	If action="exit" {do ..EndServer()}
126 | 	ElseIf action="devtools" {do ..DevTools(params)}
127 | 	ElseIf action="db" {do ..DBStats()}
128 | 	ElseIf action="sensors" {do ..Sensors(params)}
129 | 	ElseIf action="process" {do ..Process($p(params,",",1),$p(params,",",2,*))}
130 | 	ElseIf (action [ "cconsole") {do ..Cconsole(action,params)}
131 | 	Else { 
132 | 		do ..Write(data_" from server")
133 | 	}
134 |    	Quit $$$OK
135 | ]]></Implementation>
136 | </Method>
137 | 
138 | <Method name="Sensors">
139 | <Description><![CDATA[
140 | Sends client a JSON encoded readings of sensors<br>
141 | <b>sensorslist</b> - comma separated list of sensors<br>
142 | Sends all sensors data if list is an empty string<br>
143 | Example: CPU,LockTable,CSPGatewayLatency]]></Description>
144 | <FormalSpec>sensorslist:%String</FormalSpec>
145 | <ReturnType>%Status</ReturnType>
146 | <Implementation><![CDATA[
147 | 	if sensorslist="" 
148 | 	{
149 | 		do ..Write(##class(%ZEN.Auxiliary.jsonProvider).%WriteJSONFromObject(,$THIS.Sensors,,,,"aeloqtuw"))
150 | 		//set sensorslist="CPU,LockTable,CSPGatewayLatency,SMH,JournalSpace,Uptime,LicenseStatus,LicenseExpirationDate,LicenseInvalidReason"
151 | 	} else {
152 | 		set sensors=$listfromstring(sensorslist,",")
153 | 		for i=1:1:$LISTLENGTH(sensors) 
154 | 		{
155 | 			try {
156 | 				//set value=$METHOD($THIS,"Get"_$list(sensors,i))
157 | 				set value=$PROPERTY($THIS.Sensors,$list(sensors,i))
158 | 			} catch ex {
159 | 				do ..Write(ex.AsStatus())
160 | 				set value="NaN"
161 | 			}
162 | 			set $list(values,i)=value
163 | 		}
164 | 		set JSON = ##class(Utils).ArrayToJSON(.sensors,.values)
165 | 	    do ..Write($e(JSON,1,*-1)) // no need to write status
166 | 	}
167 |     quit $$$OK
168 | ]]></Implementation>
169 | </Method>
170 | 
171 | <Method name="DBStats">
172 | <Description>
173 | Writes Database information in JSON format</Description>
174 | <ReturnType>%String</ReturnType>
175 | <Implementation><![CDATA[	do ..WriteString(..Sensors.DBStats())
176 | ]]></Implementation>
177 | </Method>
178 | 
179 | <Method name="Cconsole">
180 | <Description><![CDATA[
181 | Outputs Cconsole entries in JSON format.<br>
182 | <b>action</b> - action to perform. May be one of:<br>
183 | cconsole-fulltextsearch, cconsole-filterdate, cconsole-alert.<br>
184 | <b>params</b>, depending on methods are:<br>
185 | ‘Term1’ ,’Term2’,...'TermN' - for cconsole-fulltextsearch<br>
186 | yyyy-mm-dd hh:mm:ss.fff,YYYY-MM-DD HH:MM:SS.FFF - for cconsole-filterdate<br>
187 | Empty string for cconsole-alert.<br>
188 | Descriptions of methods are in documentation for <b>cAdmin.data.CconsoleLog</b> class<br>]]></Description>
189 | <FormalSpec>action:%String,params:%String</FormalSpec>
190 | <ReturnType>%Status</ReturnType>
191 | <Implementation><![CDATA[
192 | 	if action = "cconsole-fulltextsearch"
193 | 	{
194 | 		set JSON = ##class(cAdmin.data.CconsoleLog).FullTextSearch(params)
195 | 		do ..WriteString($e(JSON,1,*-1))
196 | 	}
197 | 	elseif action = "cconsole-filterdate"
198 | 	{
199 | 		if $p(params,",",1)'=""	{
200 | 			set startdatetime = $p(params,",",1)
201 | 		} else {
202 | 			set startdatetime = "1900-01-01 00:00:00.000"
203 | 		}
204 | 		
205 | 		if $p(params,",",2)'=""	{
206 | 			set enddatetime = $p(params,",",2)
207 | 		} else {
208 | 			set enddatetime = "2199-12-12 23:59:59.999"
209 | 		}
210 | 		set JSON = ##class(cAdmin.data.CconsoleLog).DateTimeSearch(startdatetime,enddatetime)
211 | 		do ..WriteString($e(JSON,1,*-1))
212 | 	}
213 | 	elseif action="cconsole-alert"
214 | 	{
215 | 		do ##class(cAdmin.data.CconsoleLog).Update()
216 | 		set lastid = ##class(cAdmin.data.CconsoleLog).GetLastId()
217 | 		while (1)
218 | 		{
219 | 			hang 10
220 | 			do ##class(cAdmin.data.CconsoleLog).Update()
221 | 			set newlastid = ##class(cAdmin.data.CconsoleLog).GetLastId()
222 | 			if newlastid>lastid
223 | 			{
224 | 
225 | 				set JSON = ##class(cAdmin.data.CconsoleLog).GetLast(newlastid-lastid)
226 | 				do ..WriteString($e(JSON,1,*-1))
227 | 				set lastid=newlastid
228 | 			}
229 | 		}
230 | 	}
231 |     quit $$$OK
232 | ]]></Implementation>
233 | </Method>
234 | 
235 | <Method name="Process">
236 | <Description><![CDATA[
237 | Various actions with processes.<br>
238 | <b>action</b> - List, Kill, Suspend or Resume<br>
239 | <b>id</b> - Id of a process to Kill, Suspend or Resume.]]></Description>
240 | <FormalSpec>action:%String="List",id:%String</FormalSpec>
241 | <ReturnType>%Status</ReturnType>
242 | <Implementation><![CDATA[
243 | 	if action="List" {
244 | 		do ..WriteString(##class(cAdmin.data.Process).ListProcess())
245 | 	} else {
246 | 		do $CLASSMETHOD("cAdmin.data.Process",action_"Process",id)
247 | 	}
248 |     quit $$$OK
249 | ]]></Implementation>
250 | </Method>
251 | 
252 | <Method name="DevTools">
253 | <Description><![CDATA[
254 | Various developement tools<br>
255 | <b>args</b> - loop or RandomNumber or Increment or RandomString or AddToCconsoleLog.]]></Description>
256 | <FormalSpec>args:%String="RandomNumber,Increment,RandomString"</FormalSpec>
257 | <ReturnType>%Status</ReturnType>
258 | <Implementation><![CDATA[
259 | 	if args="loop" {
260 | 		do ..TestLoop()
261 | 		quit $$$OK
262 | 	}
263 | 	
264 | 	set sensors=$listfromstring(args,",")
265 | 	for i=1:1:$LISTLENGTH(sensors) 
266 | 	{
267 | 		try {
268 | 			set value=$CLASSMETHOD("cAdmin.data.DevTools",$list(sensors,i))	
269 | 		} catch ex {
270 | 			do ..Write(ex.AsStatus())
271 | 			set value="NaN"
272 | 		}
273 | 		set $list(values,i)=value
274 | 	}
275 | 	//set JSON=##class(%ZEN.Auxiliary.jsonProvider).%ArrayToJSON(.sensors,.values)
276 | 	set JSON = ##class(Utils).ArrayToJSON(.sensors,.values)
277 |     do ..WriteString($e(JSON,1,*-1)) // no need to write status
278 |     quit $$$OK
279 | ]]></Implementation>
280 | </Method>
281 | 
282 | <Method name="TestLoop">
283 | <Description>
284 | Returns random cconsole.log entry every 10 seconds</Description>
285 | <ReturnType>%Status</ReturnType>
286 | <Implementation><![CDATA[
287 | 	while (1) {
288 | 		set JSON = ##class(cAdmin.data.CconsoleLog).GetRandom()
289 | 		do ..Write($e(JSON,1,*-1))		
290 | 		hang 10
291 | 	}
292 | 	quit $$$OK
293 | ]]></Implementation>
294 | </Method>
295 | 
296 | <Method name="WriteString">
297 | <Description>
298 | Wraper of Write method for large strings - 
299 | longer then Buffer parameter</Description>
300 | <FormalSpec>data:%String</FormalSpec>
301 | <Implementation><![CDATA[
302 | 	if $SYSTEM.Version.IsUnicode()
303 | 	{
304 | 		set buffer = ..#Buffer
305 | 	} else {
306 | 		set buffer = ..#Buffer*2
307 | 	}
308 | 	
309 | 	if $length(data)>=buffer
310 | 	{
311 | 
312 | 		do ..Write("{""parts"" : """_..DetermineParts($length(data))_"""}")	
313 | 		hang 1
314 | 	}
315 | 	do ..Write(data)
316 | ]]></Implementation>
317 | </Method>
318 | 
319 | <Method name="DetermineParts">
320 | <FormalSpec>length:%Integer</FormalSpec>
321 | <ReturnType>%Integer</ReturnType>
322 | <Implementation><![CDATA[
323 | 
324 | 	if '$SYSTEM.Version.IsUnicode() 
325 | 	{
326 | 		set length = length/2
327 | 	}
328 | 	
329 | 	if length <= 8188 quit 1
330 | 	if length <= 15868 quit 2
331 | 	if length <= 23548 quit 3
332 | 	if length <= 31228 quit 4
333 | 	if length <= 38908 quit 5
334 | 	if length <= 46588 quit 6
335 | 	if length <= 54268 quit 7
336 | 	
337 | 	//set parts = ($length(data) \ buffer) + 1
338 | 	
339 | 	quit 8
340 | ]]></Implementation>
341 | </Method>
342 | </Class>
343 | </Export>
344 | 


--------------------------------------------------------------------------------