From c9657b2010d31267eda9b14f3409822f77341be8 Mon Sep 17 00:00:00 2001
From: betateilchen <>
Date: Fri, 9 Mar 2018 20:55:19 +0000
Subject: [PATCH] deletefile: move to deprecated

git-svn-id: https://svn.fhem.de/fhem/trunk@16364 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/contrib/deprecated/.gitkeep         |  0
 fhem/contrib/deprecated/98_deletefile.pm | 46 ++++++++++++++++++++++++
 2 files changed, 46 insertions(+)
 delete mode 100644 fhem/contrib/deprecated/.gitkeep
 create mode 100644 fhem/contrib/deprecated/98_deletefile.pm

diff --git a/fhem/contrib/deprecated/.gitkeep b/fhem/contrib/deprecated/.gitkeep
deleted file mode 100644
index e69de29bb..000000000
diff --git a/fhem/contrib/deprecated/98_deletefile.pm b/fhem/contrib/deprecated/98_deletefile.pm
new file mode 100644
index 000000000..fcf8783a4
--- /dev/null
+++ b/fhem/contrib/deprecated/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