From ae6b62f6a3a4bafaa702b23c453f54da568dc11a Mon Sep 17 00:00:00 2001
From: betateilchen <betateilchen@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Thu, 20 Mar 2014 19:43:52 +0000
Subject: [PATCH] configDB - prepare import/export

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

diff --git a/fhem/FHEM/98_configdb.pm b/fhem/FHEM/98_configdb.pm
index 5966bbc20..c458fc3fd 100644
--- a/fhem/FHEM/98_configdb.pm
+++ b/fhem/FHEM/98_configdb.pm
@@ -1,4 +1,4 @@
-# $Id $
+# $Id$
 #
 
 package main;
@@ -14,6 +14,7 @@ my @pathname;
 sub configdb_Initialize($$) {
   my %hash = (  Fn => "CommandConfigdb",
                Hlp => "info|list|diff|uuid|
+          export|import|
           reorg|recover|backup     ,access additional functions from configDB" );
   $cmds{configdb} = \%hash;
 }
@@ -189,6 +190,13 @@ sub CommandConfigdb($$) {
 			$ret = _cfgDB_Export($param1, $param2);
 		}
 
+		when ('import') {
+			open ( FILE, "<./$param1" );
+			my @dbconfig = <FILE>;
+			close ( FILE );
+			$ret = _cfgDB_Execute(undef,@dbconfig);
+		}
+
 		when ('info') {
 			Log3('configdb', 4, "info requested.");
 			$ret = _cfgDB_Info;
@@ -226,7 +234,7 @@ sub CommandConfigdb($$) {
 		}
 
 		default { 	
-			$ret =	"\n Syntax:".
+			$ret =	"\n Syntax:\n".
 					"         configdb attr [attribute] [value]\n".
 					"         configdb backup\n".
 					"         configdb diff <device> <version>\n".
diff --git a/fhem/configDB.pm b/fhem/configDB.pm
index f3f2b0abb..661f773a7 100644
--- a/fhem/configDB.pm
+++ b/fhem/configDB.pm
@@ -49,6 +49,8 @@
 #                        restructured libraray internally
 #                        improved source code documentation
 #
+# 2014-03-20 - added     export/import
+#
 ##############################################################################
 #
 
@@ -624,7 +626,7 @@ sub _cfgDB_Export($$) {
 	open( FILE, ">./$filename" );
 	while ( my $row = $sth->fetchrow_arrayref ) {
 		$counter++;
-		print FILE join( "|", @$row ), "\n";
+		print FILE join( " ", @$row ), "\n";
 	}
 	close ( FILE );