From 2e439d0f866ae41c9f6ed6be3a89b2809a8ce192 Mon Sep 17 00:00:00 2001
From: betateilchen <betateilchen@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sat, 30 Jan 2016 23:50:20 +0000
Subject: [PATCH] 98_deletefile: new command added

git-svn-id: https://svn.fhem.de/fhem/trunk@10673 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/98_deletefile.pm | 46 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)
 create mode 100644 fhem/FHEM/98_deletefile.pm

diff --git a/fhem/FHEM/98_deletefile.pm b/fhem/FHEM/98_deletefile.pm
new file mode 100644
index 000000000..fcf8783a4
--- /dev/null
+++ b/fhem/FHEM/98_deletefile.pm
@@ -0,0 +1,46 @@
+# $Id$
+
+package main;
+use strict;
+use warnings;
+
+sub Deletefile_Initialize($$) {
+
+  $cmds{deletefile} = {  Fn => "CommandDeletefile",
+                      Hlp=>"[filename],delete file"};
+}
+
+sub CommandDeletefile($$)
+{
+  my ($cl, $param) = @_;
+  return "It is not allowed to delete the configuration file fhem.cfg." if ($param =~ m/fhem.cfg/);
+
+  my $file = FW_fileNameToPath($param);
+  return "File $param not found." unless -f $file;
+
+  eval { unlink $file; };
+  return "Error: $@" if $@;
+
+  return "File $file deleted.";
+}
+
+1;
+
+=pod
+=item command
+=begin html
+
+<a name="deletefile"></a>
+<h3>deletefile</h3>
+<ul>
+  <code>deletefile &lt;filename&gt;</code><br/>
+  <br/>Delete a file in filesystem.<br/>
+  <br/>
+  <li>File must be listed in "Edit files"</li>
+  <li>File fhem.cfg must not be deleted.</li>
+  <li>Wildcards are not evaluated.</li>
+</ul>
+
+=end html
+
+=cut