FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-13 23:36:37 +00:00
Code Issues Releases Wiki Activity

contrib/configdb: for debugging

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@15011 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen 2017-09-05 14:43:00 +00:00
parent aa9789e817
commit f6cf456abd
1 changed files with 8 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
fhem/contrib/configDB/configDB.pm
View File

@ -179,8 +179,7 @@ sub _cfgDB_Reorg(;$$);
sub _cfgDB_Rotate($$);
sub _cfgDB_Search($$;$);
sub _cfgDB_Uuid();
sub _cfgDB_table_exists($$) {
sub _cfgDB_table_exists($$);
##################################################
# Read configuration file for DB connection
@ -301,20 +300,16 @@ sub cfgDB_Init() {
}
### migrate fhembinfilesave to fhemb64filesave
# check: fhembinfilesave exists?
# # check: fhembinfilesave exists?
# my $sth_test = $fhem_dbh->table_info(undef, 'public', "fhembinfilesave", 'TABLE');
# $sth_test->execute;
# my @info = $sth_test->fetchrow_array;
# my $exists = scalar @info;
# printf "exists: $exists\n";
# if ($exists) {
if ( _cfgDB_table_exists($fhem_dbh,"fhembinfilesave") ) {
if (_cfgDB_table_exists($fhem_dbh,'fhembinfilesave')) {
# $sth_test->finish();
# check: any files for migratione?
$count = undef;
$count = $fhem_dbh->selectrow_array('SELECT count(*) FROM fhembinfilesave');
printf "count: $count\n";
if ($count > 0) {
printf "need to migrate $count files to base64\n";
my @toMigrate;
@ -345,21 +340,22 @@ sub cfgDB_Init() {
# close database connection
$fhem_dbh->commit();
$fhem_dbh->disconnect();
return;
}}
}
sub _cfgDB_table_exists($$) {
my ($dbh,$table) = @_;
printf "looking for table fhembinfilesave\n";
my @tables = $dbh->tables('','','','TABLE');
if (@tables) {
printf "testing 1\n";
printf "testing #1\n";
for (@tables) {
next unless $_;
return 1 if $_ eq $table
}
} else {
printf "testing 2\n";
printf "testing #2\n";
eval {
local $dbh->{PrintError} = 0;
local $dbh->{RaiseError} = 1;
@ -367,7 +363,7 @@ sub _cfgDB_table_exists($$) {
};
return 1 unless $@;
}
printf "table not found.\n";
printf "table not found\n";
return 0;
}