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 + + +

deletefile

+ + +=end html + +=cut