Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 22:19:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

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

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

14
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
@ -1038,20 +1039,15 @@ sub _cfgDB_Filelist(;$) {
"------------------------------------------------------------\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