FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 09:16:53 +00:00
Code Issues Releases Wiki Activity

added a note for a minor bug

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@1477 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
borisneubert 2012-04-22 19:28:21 +00:00
parent 4f974b656d
commit 04e39978b5
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
fhem/webfrontend/pgm2/01_FHEMWEB.pm
View File

@ -891,6 +891,7 @@ FW_roomOverview($)
######################## ########################
# Show the overview of devices in one room # Show the overview of devices in one room
# room can be a room, all or Unsorted
sub sub
FW_showRoom() FW_showRoom()
{ {
@ -903,6 +904,11 @@ FW_showRoom()
FW_pO "<div id=\"content\">"; FW_pO "<div id=\"content\">";
FW_pO "<table>"; # Need for equal width of subtables FW_pO "<table>"; # Need for equal width of subtables
foreach my $ty (sort keys %FW_types) {
FW_pO "$ty<BR>\n";
}
my $rf = ($FW_room ? "&amp;room=$FW_room" : ""); # stay in the room my $rf = ($FW_room ? "&amp;room=$FW_room" : ""); # stay in the room
my $row=1; my $row=1;
foreach my $type (sort keys %FW_types) { foreach my $type (sort keys %FW_types) {
@ -997,7 +1003,13 @@ 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);
$re =~ s/%./\.*/g; # note: this fails if the filenames of several FileLogs match the same regexp.
# This is the case e.g. fore
# /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)) {