FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2024-11-22 09:49:50 +00:00
Code Issues Releases Wiki Activity

configDB.pm: fix filelist problem on perl >= 5.20

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@11084 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen 2016-03-19 17:13:07 +00:00
parent a360831bb6
commit 290d6c2dbd
1 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
fhem/configDB.pm
View File

@ -110,6 +110,7 @@ use strict;
use warnings;
use Text::Diff;
use DBI;
use Data::Dumper;
##################################################
# Forward declarations for functions in fhem.pl
@ -1035,23 +1036,18 @@ sub _cfgDB_binFileimport($$;$) {
sub _cfgDB_Filelist(;$) {
my ($notitle) = @_;
my $ret = "Files found in database:\n".
"------------------------------------------------------------\n";
"------------------------------------------------------------\n";
$ret = "" if $notitle;
my $fhem_dbh = _cfgDB_Connect;
my @dbtable = ('fhembinfilesave');
foreach (@dbtable) {
my $sth = $fhem_dbh->prepare( "SELECT filename FROM $_ group by filename order by filename" );
$sth->execute();
while (my $line = $sth->fetchrow_array()) {
$ret .= "$line\n";
}
$sth->finish();
my $sql = "SELECT filename FROM fhembinfilesave group by filename order by filename";
my $content = $fhem_dbh->selectall_arrayref($sql);
foreach my $row (@$content) {
$ret .= "@$row[0]\n" if(defined(@$row[0]));
}
$fhem_dbh->disconnect();
return $ret;
}
1;
=pod