Finding only the specified FileLogs (for Boris)

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@1496 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2012-04-29 07:14:45 +00:00
parent 2095bf8fcc
commit 0209af8ed6

View File

@ -1024,14 +1024,7 @@ FW_fileList($)
$fname =~ m,^(.*)/([^/]*)$,; # Split into dir and file $fname =~ m,^(.*)/([^/]*)$,; # Split into dir and file
my ($dir,$re) = ($1, $2); my ($dir,$re) = ($1, $2);
return if(!$re); return if(!$re);
# note: this fails if the filenames of several FileLogs match the same regexp. $re =~ s/%./[A-Za-z0-9]*/g;
# This is the case e.g. for
# /var/log/fhem/foo-%Y.log
# /var/log/fhem/foo-%Y-%m-%d.log
# I do not fix it because this could easily be avoided by using a different
# naming.
# BN 2012-04-22
$re =~ s/%./\.*/g;
my @ret; my @ret;
return @ret if(!opendir(DH, $dir)); return @ret if(!opendir(DH, $dir));
while(my $f = readdir(DH)) { while(my $f = readdir(DH)) {