configdb - code cleanup

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@5585 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen
2014-04-20 14:05:50 +00:00
parent 168eebd408
commit 8a9bacb802

View File

@@ -183,7 +183,7 @@ sub CommandConfigdb($$) {
when ('filedelete') {
return "\n Syntax: configdb fileexport <pathToFile>" if @a != 2;
my $filename;
if(substr($param1,0,1) eq '/') {
if($param1 =~ m,^[./],) {
$filename = $param1;
} else {
$filename = $attr{global}{modpath};
@@ -195,7 +195,7 @@ sub CommandConfigdb($$) {
when ('fileexport') {
return "\n Syntax: configdb fileexport <pathToFile>" if @a != 2;
my $filename;
if(substr($param1,0,1) eq '/') {
if($param1 =~ m,^[./],) {
$filename = $param1;
} else {
$filename = $attr{global}{modpath};
@@ -207,7 +207,7 @@ sub CommandConfigdb($$) {
when ('fileimport') {
return "\n Syntax: configdb fileimport <pathToFile>" if @a != 2;
my $filename;
if(substr($param1,0,1) eq '/') {
if($param1 =~ m,^[./],) {
$filename = $param1;
} else {
$filename = $attr{global}{modpath};