[Openautomation-svn] SF.net SVN: openautomation:[414] wiregate/plugin/generic/emx_uhr.pl

[<e....@us...>]

Revision: 414
          http://openautomation.svn.sourceforge.net/openautomation/?rev=414&view=rev
Author:   e.max
Date:     2011-09-10 08:29:05 +0000 (Sat, 10 Sep 2011)
Log Message:
-----------
Bug im Vergleich in 'sub matches' gefixt: Da dieser Vergleich zur Vermeidung von Laufzeitfehlern auf Alphabasis gemacht wird, wurden numerische Werte mit f?\195?\188hrenden Nullen nicht korrekt verglichen, wenn der Vergleichswert auf der anderen Seite keine fuehrenden Nullen hatte.

Modified Paths:
--------------
    wiregate/plugin/generic/emx_uhr.pl

Modified: wiregate/plugin/generic/emx_uhr.pl
===================================================================
--- wiregate/plugin/generic/emx_uhr.pl	2011-09-07 18:11:25 UTC (rev 413)
+++ wiregate/plugin/generic/emx_uhr.pl	2011-09-10 08:29:05 UTC (rev 414)
@@ -10,6 +10,7 @@
 #  ##  who  yyyymmdd   bug#  description
 #  --  ---  --------  -----  ----------------------------------------
 #   .  ...  ........  .....  vorlage 
+#   2  edh  20110910  -----  Bug im Wertevergleich in 'matches()' gefixt
 #   1  edh  20110807  -----  wg. utf-8 Zirkus Umlaute in ae/ue/oe geaendert
 #   0  edh  20110708  -----  erste Version
  
@@ -58,12 +59,13 @@
 #--------------------------------------------------------------------
 sub matches
 {
-    my ($value, $def) = @_;  # Zu pruefender Wert, Bereichsdefinition
+    my ($value, $def) = @_;        # Zu pruefender Wert, Bereichsdefinition
     (!$def) and return 1;
     foreach (split(/,/, $def))
     {        
-        s/\s+//g;
-        (/^$value$/) and return 1;
+        s/\s+//g;                  # Blanks entfernen
+        s/^0+//g;                  # fuehrende Nullen entfernen
+        (/^$value$/) and return 1; # Alpha-Vergleich (vermeidet Laufzeitfehler)
         (/^([\d]+)-(\d+)/) and return ($value >= $1 && $value <= $2);
     }
     return 0;
@@ -96,7 +98,7 @@
 #
 # Bei der Erstausfuehrung des Plugins nimmt dieses erst nach Erreichen 
 # des vorgesehenen Zeitfensters die eigentliche Arbeit auf, weil der 
-# Abstand zwischen zwei sonst zu klein werden koennte.
+# Abstand zwischen zwei Triggern sonst zu klein werden koennte.
 #--------------------------------------------------------------------
 
 if ($curSec >= $slotEnd)

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.