persistent class apptools.lte.fileserver
extends %Persistent
fileserver module for LTE admin application
(%Persistent, apptools.lte.adminTabs) [ ClassType = "", DependsOn = apptools.core.msg, ProcedureBlock ]
• parameter AppRoles = "ui_fileserver";
Roles
• parameter GNStore = "^apptools.fileserver";
Global Name Store Referens files
• parameter HeaderText = "fileserver";
Application title
• property App
as %String(MAXLEN="");
Application
• property ClientIPAddress
as %String(MAXLEN=32) [ InitialExpression = ..GetClientAddress() ];
User IP address
• property Description
as %String(MAXLEN="");
Description
• property Filename
as %String(MAXLEN="");
Filename
• property Namespace
as %String(MAXLEN="");
Namespace
• property PathFilename
as %String(MAXLEN="");
PathFilename
• property Size
as %String(MAXLEN="");
Size
• property TimeStamp
as %TimeStamp [ InitialExpression = $zdt($h, 3, 1) ];
Date and time
• property UserName
as %String(MAXLEN=128) [ InitialExpression = $username ];
Cache user
• classmethod AFSResult(Par="")
as %Status
Admins files
• classmethod AddRecord(Namespace As %String = "", UserName As %String = "", Filename As %String = "", PathFilename As %String = "", Description As %String = "", app="", size="")
select * from apptools_lte.fileserver
Example do ##class(apptools.lte.fileserver).AddRecord($namespace, $username, "file.xml", "/iris-backup/temp/file.xml", "Description file","app")
• classmethod AddRefDownLoad(Val, Col, Head, Temp, mode)
Generate active links for DownLoad files
• classmethod FSResult(Par="")
as %Status
Files
• classmethod FirstHead(Par="")
as %Status
• classmethod GetApp(ByRef opt, key, id, title, ns, sideMenu)
as %Status
do ##class(apptools.lte.fileserver).GetApp(.opt,"FilesServ","FS","Files",$namespace,sideMenu)
• classmethod GetClientAddress()
Determine user IP address
write ##class(apptools.core.Log).GetClientAddress()
• classmethod GetSelectNSpace(divId, CurNs=$Namespace)
as %String
• classmethod GetUrlLog(sql="select top 5 * from apptools_core.Log where EventType = '?' order by id desc", mode="STAT")
write ##class(apptools.lte.fileserver).GetUrlLog()
• classmethod Result(Par="")
as %Status
•index (idxApp on App) [Type = bitmap];
•index (idxClientIPAddress on ClientIPAddress);
•index (idxFilename on Filename) [Type = bitmap];
•index (idxNamespace on Namespace) [Type = bitmap];
•index (idxPathFilename on PathFilename) [Type = bitmap];
•index (idxSize on Size) [Type = bitmap];
•index (idxTimeStamp on TimeStamp) [Type = bitslice];
•index (idxUserName on UserName) [Type = bitmap];
