1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
|
-- acf model for displaying logfiles
module (..., package.seeall)
require("fs")
require("modelfunctions")
-- Function to get detailed information on a specific file.
local function file_info ( path )
-- Check if file is in use
local st = fs.stat(path)
local size = st.size or "0"
local lastmod = st.mtime or "---"
local file_inuse = io.popen("fuser " .. path )
local fileinuseresult = file_inuse:read("*a") or "unknown"
file_inuse:close()
fileinuseresult = (fileinuseresult == "")
return lastmod,size,fileinuseresult
end
-- Function to recursively insert all filenames in a dir into an array
local function recursedir(path, filearray)
filearray = filearray or {}
local k,v
for k,v in pairs(posix.dir(path) or {}) do
-- Ignore files that begins with a '.'
if not string.match(v, "^%.") then
local f = path .. "/" .. v
-- If subfolder exists, list files in this subfolder
if (posix.stat(f).type == "directory") then
recursedir(f, filearray)
else
table.insert(filearray, f)
end
end
end
return filearray
end
-- Function to list available files for view/delete
local function list_files ( ... )
local listed_files = {}
local open_files = {}
local files = {}
local k,v
-- Generate a single table with all the files
for k,v in pairs{...} do
recursedir(v, files)
end
-- Loop through each file and present its info
for k,v in pairs(files) do
-- Get info on this specific file and put it in a table
local lastmod,size,fileinuseresult = file_info(v)
local filename = cfe({ value=v, label="File name" })
local filesize = cfe({ value=size, label="File size" })
local mtime = cfe({ value=lastmod, label="File date" })
local inuse = cfe({ type="boolean", value=fileinuseresult, label="File in use" })
table.insert ( listed_files , cfe({ type="group", value={filename=filename, filesize=filesize, mtime=mtime,
inuse=inuse, label="File details"} }) )
end
table.sort(listed_files, function (a,b) return (a.value.filename.value < b.value.filename.value) end )
return cfe({ type="list", value=listed_files, label="Log files" })
end
get_filedetails = function (path)
local filedetails
local available_files = get()
for i,file in ipairs(available_files.value) do
if ( file.value.filename.value == path ) then
filedetails = modelfunctions.getfiledetails(path)
break
end
end
if not filedetails then
filedetails = modelfunctions.getfiledetails("")
filedetails.value.filename.value = path
end
return filedetails
end
get = function ()
-- These folders (and their subfolers) are going to be listed
return list_files( "/var/log", "/tmp/squid/log" )
end
-- Function to check if a file is deletable, and if it is, then delete it.
delete = function (filetodelete)
local deletedfile = cfe({ label="Delete result", value="File '" .. filetodelete .. "' has not been deleted!" })
-- Get a list of files that could be deleted
local available_files = get()
for i,file in ipairs(available_files.value) do
if ( file.value.filename.value == filetodelete ) then
-- Check if file is deletable (or in use)
if ( not file.value.inuse.value ) then
local status, err = os.remove( filetodelete )
if not ( err ) then
deletedfile.value = "File '"..filetodelete.."' has been successfully deleted!"
else
deletedfile.errtxt = err
end
end
break
end
end
return deletedfile
end
|