From 7fe17bca218dbcfec15bc566c05d8f011dcfa89d Mon Sep 17 00:00:00 2001
From: borisneubert <>
Date: Sun, 22 Apr 2012 19:28:21 +0000
Subject: [PATCH] added a note for a minor bug

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@1477 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 webfrontend/pgm2/01_FHEMWEB.pm | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/webfrontend/pgm2/01_FHEMWEB.pm b/webfrontend/pgm2/01_FHEMWEB.pm
index a7afe5087..f2e85a7c9 100755
--- a/webfrontend/pgm2/01_FHEMWEB.pm
+++ b/webfrontend/pgm2/01_FHEMWEB.pm
@@ -891,6 +891,7 @@ FW_roomOverview($)
 
 ########################
 # Show the overview of devices in one room
+# room can be a room, all or Unsorted
 sub
 FW_showRoom()
 {
@@ -903,6 +904,11 @@ FW_showRoom()
   FW_pO "<div id=\"content\">";
   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 $row=1;
   foreach my $type (sort keys %FW_types) {
@@ -997,7 +1003,13 @@ FW_fileList($)
   $fname =~ m,^(.*)/([^/]*)$,; # Split into dir and file
   my ($dir,$re) = ($1, $2);
   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;
   return @ret if(!opendir(DH, $dir));
   while(my $f = readdir(DH)) {