FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-21 07:56:03 +00:00
Code Issues Releases Wiki Activity

98_configdb.pm - removed very experimental functions

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@5407 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen 2014-04-01 20:16:04 +00:00
parent ca0fd12c47
commit affb49f14f
1 changed files with 29 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
fhem/FHEM/98_configdb.pm
View File

@ -14,7 +14,6 @@ my @pathname;
sub configdb_Initialize($$) { sub configdb_Initialize($$) {
my %hash = ( Fn => "CommandConfigdb", my %hash = ( Fn => "CommandConfigdb",
Hlp => "info|list|diff|uuid| Hlp => "info|list|diff|uuid|
export|import|
reorg|recover|backup ,access additional functions from configDB" ); reorg|recover|backup ,access additional functions from configDB" );
$cmds{configdb} = \%hash; $cmds{configdb} = \%hash;
} }
@ -181,22 +180,33 @@ sub CommandConfigdb($$) {
$ret = _cfgDB_Diff($param1, $param2); $ret = _cfgDB_Diff($param1, $param2);
} }
when ('export') { # when ('export') {
return "\n Syntax: configdb export <targetFilename> [version]" if @a <2; # return "\n Syntax: configdb export <targetFilename> [version]" if @a <2;
$param2 = $param2 ? $param2 : 0; # $param2 = $param2 ? $param2 : 0;
my $logtext = "configDB: database backup started into file $param1"; # my $logtext = "configDB: database backup started into file $param1";
$logtext .= " for version $param2"; # $logtext .= " for version $param2";
Log3 ('configDB', 4, $logtext); # Log3 ('configDB', 4, $logtext);
$ret = _cfgDB_Export($param1, $param2); # $ret = _cfgDB_Export($param1, $param2);
} # }
#
when ('import') { # when ('import') {
return "\n Syntax: configdb import <sourceFilename>" if @a != 2; # return "\n Syntax: configdb import <sourceFilename>" if @a != 2;
open ( FILE, "<./$param1" ); # open ( FILE, "<./$param1" );
my @dbconfig = <FILE>; # my @dbconfig = <FILE>;
close ( FILE ); # my @db2;
$ret = _cfgDB_Execute(undef,@dbconfig); # 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') { when ('info') {
Log3('configdb', 4, "info requested."); Log3('configdb', 4, "info requested.");
@ -239,8 +249,8 @@ sub CommandConfigdb($$) {
" configdb attr [attribute] [value]\n". " configdb attr [attribute] [value]\n".
" configdb backup\n". " configdb backup\n".
" configdb diff <device> <version>\n". " configdb diff <device> <version>\n".
" configdb export <targetFilename> [version]". " configdb export <targetFilename> [version]\n".
" configdb import <importFilename>". " configdb import <importFilename>\n".
" configdb info\n". " configdb info\n".
" configdb list [device] [version]\n". " configdb list [device] [version]\n".
" configdb migrate\n". " configdb migrate\n".