From a96a515c6c4f78c5c10ae480f5776acc29f830a7 Mon Sep 17 00:00:00 2001 From: betateilchen Date: Wed, 23 Apr 2014 20:57:03 +0000 Subject: [PATCH] configdb - added command "filemove" git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@5617 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/98_configdb.pm | 47 ++++++++++++++++++++++++++++++++++++---- 1 file changed, 43 insertions(+), 4 deletions(-) diff --git a/fhem/FHEM/98_configdb.pm b/fhem/FHEM/98_configdb.pm index ce13b0506..0498c0bb2 100644 --- a/fhem/FHEM/98_configdb.pm +++ b/fhem/FHEM/98_configdb.pm @@ -226,6 +226,25 @@ sub CommandConfigdb($$) { return _cfgDB_Filelist; } + when ('filemove') { + return "\n Syntax: configdb filemove " if @a != 2; + my $filename; + if($param1 =~ m,^[./],) { + $filename = $param1; + } else { + $filename = $attr{global}{modpath}; + $filename .= "/$param1"; + } + if ( -r $filename ) { + $ret = _cfgDB_Fileimport ($filename,1); + $ret .= "\nFile $filename deleted from local filesystem."; + } elsif ( -e $filename) { + $ret = "\n Read error on file $filename"; + } else { + $ret = "\n File $filename not found."; + } + } + when ('fileshow') { my $r = _cfgDB_Readfile($param1); return ($r)?$r:"File $param1 not found in database."; @@ -307,7 +326,8 @@ sub CommandConfigdb($$) {