From 78f5650bdc1cee01c4ed51ee78f3e003bd382dc4 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Wed, 15 Oct 2014 17:11:07 +0000
Subject: [PATCH] fhem.pl: global ATTR/DELETEATTR/MODIFIED events (Forum
 #27731)

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@6770 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/CHANGED                       |  1 +
 fhem/docs/commandref_frame.html    |  3 ++
 fhem/docs/commandref_frame_DE.html | 10 +++++--
 fhem/fhem.pl                       | 46 +++++++++++++++++++-----------
 4 files changed, 40 insertions(+), 20 deletions(-)

diff --git a/fhem/CHANGED b/fhem/CHANGED
index c173bfb72..01d847b63 100644
--- a/fhem/CHANGED
+++ b/fhem/CHANGED
@@ -1,5 +1,6 @@
 # Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
 # Do not insert empty lines here, update check depends on it.
+  - feature: global ATTR/DELETEATTR/MODIFIED events
   - feature: 55_GDS.pm - attr disable added
   - bugfix: SYSMON: prevent endless loop at startup with 'disable' attribute  
   - feature: SYSMON: added FritzBox informations: DSL rate, DSLAM sync time, count of CRC an FEC
diff --git a/fhem/docs/commandref_frame.html b/fhem/docs/commandref_frame.html
index de53fb2b7..bb5a79c0e 100644
--- a/fhem/docs/commandref_frame.html
+++ b/fhem/docs/commandref_frame.html
@@ -593,6 +593,7 @@ The following local attributes are used by a wider range of devices:
   Use "attr &lt;name&gt; ?" to get a list of possible attributes.
   See the <a href="#devspec">Device specification</a> section for details on
   &lt;devspec&gt;.
+  After setting the attribute, the global event "ATTR" will be generated.
   <br><br>
 
   Examples:
@@ -688,6 +689,7 @@ The following local attributes are used by a wider range of devices:
   or all attributes for a device (if no &lt;attrname&gt; is defined).
   See the <a href="#devspec">Device specification</a> section for details on
   &lt;devspec&gt;.<br>
+  After deleting the attribute, the global event "DELETEATTR" will be generated.
   <br>
 
   Examples:
@@ -891,6 +893,7 @@ The following local attributes are used by a wider range of devices:
   one argument to an at type definition, only the time part will be changed. In
   case of a notify type definition, only the regex part will be changed.  All
   other values (state, attributes, etc) will remain intact.
+  After modify, the global event "MODIFIED" will be generated.
   <br><br>
   Example:
   <ul>
diff --git a/fhem/docs/commandref_frame_DE.html b/fhem/docs/commandref_frame_DE.html
index 0ce7fb664..360157d79 100644
--- a/fhem/docs/commandref_frame_DE.html
+++ b/fhem/docs/commandref_frame_DE.html
@@ -623,6 +623,7 @@ Die folgenden lokalen Attribute werden von mehreren Ger&auml;te verwendet:
 
   Ger&auml;tespezifische Attribute sind in der Beschreibung zum jeweiligen
   Ger&auml;t aufgef&uuml;hrt.
+  Nach der Durchf&uuml;hrung das globale Ereignis "ATTR" wird generiert.
   <br>
 
   Beispiele:
@@ -687,8 +688,7 @@ Die folgenden lokalen Attribute werden von mehreren Ger&auml;te verwendet:
   "lamp off" anstatt "Device 5673, Button 00, Code 00 (off)" als Text enth&auml;lt. <br>
   Geben Sie an der Befehlszeile "define &lt;name&gt; ?" ein, um eine Liste der 
   verf&uuml;gbaren &quot;types&quot; zu erhalten.<br>
-  Nach der Definition, wird das globale Ereignis "DEFINED" genriert. Genauere 
-  Beschreibung erhalten Sie im Abschnitt &quot;notify&quot;.<br>
+  Nach der Durchf&uuml;hrung das globale Ereignis "MODIFIED" wird generiert.
   <br><br>
 
   Jedes Ger&auml;t besitzt unterschiedliche hinzuf&uuml;gbare Argumente per Definition, 
@@ -727,6 +727,7 @@ Die folgenden lokalen Attribute werden von mehreren Ger&auml;te verwendet:
   kein &lt;attrname&gt; angegeben wird).<br>
   Siehe den Abschnitt &uuml;ber <a href="#devspec">Ger&auml;te-Spezifikation</a>
   f&uuml;r Details der &lt;devspec&gt;.<br>
+  Nach der Durchf&uuml;hrung das globale Ereignis "DELETEATTR" wird generiert.
   <br>
 
   Beispiele:
@@ -937,7 +938,10 @@ Die folgenden lokalen Attribute werden von mehreren Ger&auml;te verwendet:
   ver&auml;ndern, dann wird nur der f&uuml;r die Zeit zust&auml;ndige Teil
   ge&auml;ndert. Im Falle der Ver&auml;nderung einer Definition vom Typ
   &quot;notify&quot; wird nur der&nbsp; regex Teil ge&auml;ndert. Alle anderen
-  Werte (Stati, Attribute,&nbsp; etc) bleiben erhalten.  <br><br>
+  Werte (Stati, Attribute,&nbsp; etc) bleiben erhalten.
+  After modify, the global event "MODIFIED" will be generated.
+  Nach der Durchf&uuml;hrung das globale Ereignis "MODIFIED" wird generiert.
+  <br><br>
 
   Beispiel:
   <ul>
diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index 02c3be1d7..9ef33eb17 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -1193,6 +1193,7 @@ CommandRereadCfg($$)
   %attr = ();
   %selectlist = ();
   %readyfnlist = ();
+  my $informMe = $inform{$name};
   %inform = ();
 
   doGlobalDef($cfgfile);
@@ -1211,8 +1212,9 @@ CommandRereadCfg($$)
     }
   }
 
-  DoTrigger("global", "REREADCFG", 1);
   $defs{$name} = $selectlist{$name} = $cl if($name && $name ne "__anonymous__");
+  $inform{$name} = $informMe if($informMe);
+  DoTrigger("global", "REREADCFG", 1);
 
   $init_done = 1;
   $reread_active=0;
@@ -1613,7 +1615,12 @@ CommandModify($$)
   $hash->{DEF} = $a[1];
   my $ret = CallFn($a[0], "DefFn", $hash,
         "$a[0] $hash->{TYPE}".(defined($a[1]) ? " $a[1]" : ""));
-  $hash->{DEF} = $hash->{OLDDEF} if($ret);
+  if($ret) {
+    $hash->{DEF} = $hash->{OLDDEF};
+  } else {
+    DoTrigger("global", "MODIFIED $a[0]", 1) if($init_done);
+  }
+
   delete($hash->{OLDDEF});
   $lastDefChange++ if(!$hash->{TEMPORARY});
   return $ret;
@@ -1752,8 +1759,12 @@ CommandDeleteAttr($$)
 
     if(@a == 1) {
       delete($attr{$sdev});
+      DoTrigger("global", "DELETEATTR $sdev", 1) if($init_done);
+
     } else {
       delete($attr{$sdev}{$a[1]}) if(defined($attr{$sdev}));
+      DoTrigger("global", "DELETEATTR $sdev $a[1]", 1) if($init_done);
+
     }
 
   }
@@ -2205,34 +2216,35 @@ CommandAttr($$)
   my @rets;
   foreach my $sdev (devspec2array($a[0])) {
 
-    my $hash =  $defs{$sdev};
+    my $hash = $defs{$sdev};
+    my $attrName = $a[1];
     if(!defined($hash)) {
       push @rets, "Please define $sdev first";
       next;
     }
 
     my $list = getAllAttr($sdev);
-    if($a[1] eq "?") {
-      push @rets, "$sdev: unknown attribute $a[1], choose one of $list";
+    if($attrName eq "?") {
+      push @rets, "$sdev: unknown attribute $attrName, choose one of $list";
       next;
     }
 
-    if(" $list " !~ m/ ${a[1]}[ :;]/) {
+    if(" $list " !~ m/ ${attrName}[ :;]/) {
        my $found = 0;
        foreach my $atr (split("[ \t]", $list)) { # is it a regexp?
-         if(${a[1]} =~ m/^$atr$/) {
+         if(${attrName} =~ m/^$atr$/) {
            $found++;
            last;
          }
       }
       if(!$found) {
-        push @rets, "$sdev: unknown attribute $a[1]. ".
+        push @rets, "$sdev: unknown attribute $attrName. ".
                         "Type 'attr $a[0] ?' for a detailed list.";
         next;
       }
     }
 
-    if($a[1] eq "userReadings") {
+    if($attrName eq "userReadings") {
 
       my %userReadings;
       # myReading1[:trigger1] [modifier1] { codecodecode1 }, ...
@@ -2265,7 +2277,7 @@ CommandAttr($$)
       $hash->{'.userReadings'}= \%userReadings;
     } 
 
-    if($a[1] eq "IODev" && (!$a[2] || !defined($defs{$a[2]}))) {
+    if($attrName eq "IODev" && (!$a[2] || !defined($defs{$a[2]}))) {
       push @rets,"$sdev: unknown IODev specified";
       next;
     }
@@ -2279,21 +2291,21 @@ CommandAttr($$)
       next;
     }
 
-    if(defined($a[2])) {
-      $attr{$sdev}{$a[1]} = $a[2];
-    } else {
-      $attr{$sdev}{$a[1]} = "1";
-    }
-    if($a[1] eq "IODev") {
+    my $val = $a[2];
+    $val = 1 if(!defined($val));
+    $attr{$sdev}{$attrName} = $val;
+
+    if($attrName eq "IODev") {
       my $ioname = $a[2];
       $hash->{IODev} = $defs{$ioname};
       $hash->{NR} = $devcount++
         if($defs{$ioname}{NR} > $hash->{NR});
       delete($defs{$ioname}{".clientArray"}); # Force a recompute
     }
-    if($a[1] eq "stateFormat" && $init_done) {
+    if($attrName eq "stateFormat" && $init_done) {
       evalStateFormat($hash);
     }
+    DoTrigger("global", "ATTR $sdev $attrName $val", 1) if($init_done);
 
   }