From 9af8fff8662142ffc8e5f9390e48ce9ba6ec3608 Mon Sep 17 00:00:00 2001
From: betateilchen <betateilchen@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Mon, 21 Apr 2014 18:53:43 +0000
Subject: [PATCH] configdb - added command "fileshow" to display file content

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@5595 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/98_configdb.pm | 5 +++++
 fhem/configDB.pm         | 4 ++--
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/fhem/FHEM/98_configdb.pm b/fhem/FHEM/98_configdb.pm
index 87ff51fe3..49695c09c 100644
--- a/fhem/FHEM/98_configdb.pm
+++ b/fhem/FHEM/98_configdb.pm
@@ -226,6 +226,11 @@ sub CommandConfigdb($$) {
 			return _cfgDB_Filelist;
 		}
 
+		when ('fileshow') {
+			my $r = _cfgDB_Readfile($param1);
+			return ($r)?$r:"File $param1 not found in database.";
+		}
+
 		when ('info') {
 			Log3('configdb', 4, "info requested.");
 			$ret = _cfgDB_Info;
diff --git a/fhem/configDB.pm b/fhem/configDB.pm
index 78efdd362..ab0c0704d 100644
--- a/fhem/configDB.pm
+++ b/fhem/configDB.pm
@@ -734,7 +734,7 @@ sub _cfgDB_Readfile($) {
 	$sth->execute();
 	my @outfile;
 	while (my @line = $sth->fetchrow_array()) {
-		push @outfile, "$line[0] ";
+		push @outfile, "$line[0]";
 	}
 	$sth->finish();
 	$fhem_dbh->disconnect();
@@ -749,7 +749,7 @@ sub _cfgDB_Writefile($$) {
 	$fhem_dbh->do("delete from fhemfilesave where filename = '$filename'");
 	my $sth = $fhem_dbh->prepare('INSERT INTO fhemfilesave values (?, ?)');
 	foreach (@c){
-		$sth->execute($filename,$_);
+		$sth->execute($filename,rtrim($_));
 	}
 	$sth->finish();
 	$fhem_dbh->commit();