From 95e09a7942c9cd7f75c09d09fe59c28cd45183b8 Mon Sep 17 00:00:00 2001
From: betateilchen <>
Date: Tue, 1 Apr 2014 20:16:04 +0000
Subject: [PATCH] 98_configdb.pm - removed very experimental functions

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@5407 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 FHEM/98_configdb.pm | 48 +++++++++++++++++++++++++++------------------
 1 file changed, 29 insertions(+), 19 deletions(-)

diff --git a/FHEM/98_configdb.pm b/FHEM/98_configdb.pm
index 943c0168b..187a04aff 100644
--- a/FHEM/98_configdb.pm
+++ b/FHEM/98_configdb.pm
@@ -14,7 +14,6 @@ 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;
 }
@@ -181,22 +180,33 @@ sub CommandConfigdb($$) {
 			$ret = _cfgDB_Diff($param1, $param2);
 		}
 
-		when ('export') {
-			return "\n Syntax: configdb export <targetFilename> [version]" if @a <2;
-			$param2 = $param2 ? $param2 : 0;
-			my $logtext = "configDB: database backup started into file $param1";
-			$logtext .= " for version $param2";
-			Log3 ('configDB', 4, $logtext);
-			$ret = _cfgDB_Export($param1, $param2);
-		}
-
-		when ('import') {
-			return "\n Syntax: configdb import <sourceFilename>" if @a != 2;
-			open ( FILE, "<./$param1" );
-			my @dbconfig = <FILE>;
-			close ( FILE );
-			$ret = _cfgDB_Execute(undef,@dbconfig);
-		}
+# 		when ('export') {
+# 			return "\n Syntax: configdb export <targetFilename> [version]" if @a <2;
+# 			$param2 = $param2 ? $param2 : 0;
+# 			my $logtext = "configDB: database backup started into file $param1";
+# 			$logtext .= " for version $param2";
+# 			Log3 ('configDB', 4, $logtext);
+# 			$ret = _cfgDB_Export($param1, $param2);
+# 		}
+# 
+# 		when ('import') {
+# 			return "\n Syntax: configdb import <sourceFilename>" if @a != 2;
+# 			open ( FILE, "<./$param1" );
+# 			my @dbconfig = <FILE>;
+# 			my @db2;
+# 			close ( FILE );
+# 			foreach (@dbconfig) {
+# 				my $p = $_;
+# 				my(@p) = split(/\|/,$p,4);
+# 				$p = join(' ',@p);
+# 				$_ = $p;
+# 			}
+# 			$ret  = _cfgDB_Execute(undef,@dbconfig);
+# 			$ret .=	"\n\n".
+# 							"Import executed into running configuration.\n".
+# 							"Please use <save config> to store\n".
+# 							"this configuration into database!";
+# 		}
 
 		when ('info') {
 			Log3('configdb', 4, "info requested.");
@@ -239,8 +249,8 @@ sub CommandConfigdb($$) {
 					"         configdb attr [attribute] [value]\n".
 					"         configdb backup\n".
 					"         configdb diff <device> <version>\n".
-					"         configdb export <targetFilename> [version]".
-					"         configdb import <importFilename>".
+					"         configdb export <targetFilename> [version]\n".
+					"         configdb import <importFilename>\n".
 					"         configdb info\n".
 					"         configdb list [device] [version]\n".
 					"         configdb migrate\n".