FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-26 16:19:32 +00:00
Code Issues Releases Wiki Activity

98_configdb.pm: added command 'export'

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@5260 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen 2014-03-20 15:53:39 +00:00
parent ca47c54842
commit 28b77ae5ed
3 changed files with 53 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
fhem/CHANGED
View File

@ -1,6 +1,7 @@
# Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
# Do not insert empty lines here, update check depends on it.
- SVN
- feature: configdb export added for data security (betateilchen)
- feature: new module 38_netatmo.pm added (justme1968)
- change: 09_CUL_FHTTK.pm: clean up code to avoid "Use of uninitialized
value in concatenation.."

27
fhem/FHEM/98_configdb.pm
View File

@ -175,11 +175,20 @@ sub CommandConfigdb($$) {
}
when ('diff') {
return "Syntax: configdb diff <device> <version>" if @a != 3;
return "\n Syntax: configdb diff <device> <version>" if @a != 3;
Log3('configdb', 4, "configdb: diff requested for device: $param1 in version $param2.");
$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 ('info') {
Log3('configdb', 4, "info requested.");
$ret = _cfgDB_Info;
@ -193,13 +202,13 @@ sub CommandConfigdb($$) {
}
when ('migrate') {
return "Migration not possible. Already running with configDB!" if $configfile eq 'configDB';
return "\n Migration not possible. Already running with configDB!" if $configfile eq 'configDB';
Log3('configdb', 4, "configdb: migration requested.");
$ret = _cfgDB_Migrate;
}
when ('recover') {
return "Syntax: configdb recover <version>" if @a != 2;
return "\n Syntax: configdb recover <version>" if @a != 2;
Log3('configdb', 4, "configdb: recover for version $param1 requested.");
$ret = _cfgDB_Recover($param1);
}
@ -386,6 +395,12 @@ compare device: telnetPort in current version 0 (left) to version: 1 (right)
* 2|attr telnetPort room telnet * | |
+--+--------------------------------------+--+--------------------------------------+</pre>
<li><code>configdb export &lt;targetFilename&gt; [version];</code></li><br/>
Exports specified version from config database into file &lt;targetFilename&gt;<br/>
Default version if not specified = 0<br/>
The target file can be imported again, if needed.<br/>
<br/>
<li><code>configdb info</code></li><br/>
Returns some database statistics<br/>
<pre>
@ -623,6 +638,12 @@ compare device: telnetPort in current version 0 (left) to version: 1 (right)
* 2|attr telnetPort room telnet * | |
+--+--------------------------------------+--+--------------------------------------+</pre>
<li><code>configdb export &lt;zielDateiname&gt; [version];</code></li><br/>
Exportiert die angegebene Version aus der Konfigurationsdatenbank in die Datei &lt;zielDateiname&gt;<br/>
Standardversion, falls nicht angegeben = 0<br/>
Die Zieldatei kann sp&auml;ter f&uuml;r die Wiederherstellung verwendet werden.<br/>
<br/>
<li><code>configdb info</code></li><br/>
Liefert eine Datenbankstatistik<br/>
<pre>

28
fhem/configDB.pm
View File

@ -608,6 +608,34 @@ sub _cfgDB_Diff($$) {
return $ret;
}
# backup database
sub _cfgDB_Export($$) {
my ($filename,$version) = @_;
my ($counter, $ret);
my $sql = "select command,device,p1,p2 from fhemconfig".
" as c join fhemversions as v ON v.versionuuid=c.versionuuid ".
"WHERE v.version = '$version' ORDER BY command DESC";
my $fhem_dbh = _cfgDB_Connect;
my $sth=$fhem_dbh->prepare( $sql );
$sth->execute();
open( FILE, ">./$filename" );
while ( my $row = $sth->fetchrow_arrayref ) {
$counter++;
print FILE join( "|", @$row ), "\n";
}
close ( FILE );
$sth->finish();
$fhem_dbh->disconnect();
$ret = "\n $counter records exported ";
$ret .= "from version $version ";
$ret .= "to $filename";
}
1;
=pod