Adding delete() to be able to remove .rrd DB's

Hiding some debug information in the listrrd view-file.

1 files changed, 26 insertions, 3 deletions

diff --git a/rrdtool-model.lua b/rrdtool-model.lua
index 9e9295f..f85f08b 100644
--- a/rrdtool-model.lua
+++ b/rrdtool-model.lua
@@ -43,13 +43,13 @@ local function file_info ( path )
 	return lastmod,size
 end
 
-local function list_files ( ... )
+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
+	for k,v in pairs{databases} do
 		recursedir(v, files)
 	end
 
@@ -68,6 +68,15 @@ local function list_files ( ... )
 end
 
 
+local function validfilename(path)
+	local files = list_files()
+	for k,v in pairs(files.value) do
+		if (v["value"]["filename"]["value"] == path) then
+			return true, tostring(v["value"]["filename"]["value"])
+		end
+	end
+	return false, "Not a valid filename!"
+end
 
 -- ################################################################################
 -- PUBLIC FUNCTIONS
@@ -89,7 +98,7 @@ function setconfigfile(filedetails)
 end
 
 function getrrdlist()
-	return list_files(databases)
+	return list_files()
 end
 
 function createnewrrd()
@@ -102,3 +111,17 @@ DS:ds-name:COMPUTE:rpn-expression"})
 		newdb.rra = cfe({label="Round Robin Archive",value="",descr="RRA:AVERAGE | MIN | MAX | LAST:xff:steps:rows"})
 	return {value=newdb}
 end
+
+function remove_file(self, path, userid)
+	local success = "Failed to delete file"
+	local errtxt
+	if not (fs.is_file(path)) then
+		errtxt = "File doesn't exist!"
+	elseif (validfilename(path)) then
+		os.remove(path)
+		success = "File Deleted"
+	else
+		errtxt = "Not a valid filename!"
+	end
+	return cfe({ value=success, label="Delete config file result", errtxt=errtxt })
+end