fhem.pl: sleep can now wait for an event (Forum #100306)

git-svn-id: https://svn.fhem.de/fhem/trunk@19374 2b470e98-0d58-463d-a4d8-8e2adae1ed80

fhem/FHEM/91_notify.pm

@@ -67,7 +67,8 @@ notify_Define($$)
   $hash->{".COMMAND"} = $command;
 
   my $doTrigger = ($name !~ m/^$re$/);            # Forum #34516
-  readingsSingleUpdate($hash, "state", "active", $doTrigger);
+  readingsSingleUpdate($hash, "state", "active", $doTrigger)
+        if(!$hash->{TEMPORARY});
   InternalTimer(0, sub(){  notifyRegexpChanged($hash, $re); }, $hash);
 
   return undef;

fhem/docs/commandref_frame.html

@@ -737,7 +737,7 @@ The following local attributes are used by a wider range of devices:
 <ul>
   <code>cancel [&lt;id&gt; [quiet]]</code>
   <br><br>
-  Cancels a named <a href="#sleep">sleep</a>.
+  List named sleeps or cancel a named <a href="#sleep">sleep</a>.
 
 </ul>
 <!-- cancel end -->
@@ -1357,12 +1357,17 @@ The following local attributes are used by a wider range of devices:
 <a name="sleep"></a>
 <h3>sleep</h3>
 <ul>
-  <code>sleep &lt;sec&gt; [&lt;id&gt;] [quiet]</code>
+  <code>sleep &lt;sec|timespec|regex&gt; [&lt;id&gt;] [quiet]</code>
+
   <br><br>
   sleep followed by another command is comparable to a nameless <a
-  href="#at">at</a>, it executes the following commands after waiting the
+  href="#at">at</a> or <a href="#notify">notify</a>, it executes the
-  specified time. The unit is seconds, with millisecond accuracy, as you can
+  following commands after waiting for the specified time or an event matching
-  specify decimal places.<br><br>
+  &lt;regex&gt;. The delay can be given<ul>
+  <li>in seconds, with millisecond accuracy, as you can specify decimal places,
+  </li>
+  <li>as a timespec (HH:MM or HH::MM::SS or {perlfunc})</li>
+  <li>or as a regex (devicename or devicename:event)</li></ul><br>
 
   A sleep with an &lt;id&gt; will replace a sleep with the same &lt;id&gt;
   and can be canceled by <a href="#cancel">cancel</a>.

fhem/docs/commandref_frame_DE.html

@@ -757,7 +757,7 @@ Die folgenden lokalen Attribute werden von mehreren Geräten verwendet:
 <ul>                                         
   <code>cancel [&lt;id&gt; [quiet]]</code>
   <br><br>                                   
-  Entfernt ein benanntes <a href="#sleep">sleep</a>.
+  Listet benannte sleeps oder entfernt ein benanntes <a href="#sleep">sleep</a>.
                                              
 </ul>                                        
 <!-- cancel end -->
@@ -1444,13 +1444,18 @@ Die folgenden lokalen Attribute werden von mehreren Ger&auml;ten verwendet:
 <a name="sleep"></a>
 <h3>sleep</h3>
 <ul>
-  <code>sleep &lt;sec&gt; [&lt;id&gt;] [quiet]</code>
+  <code>sleep &lt;sec|timespec|suchmuster&gt; [&lt;id&gt;] [quiet]</code>
   <br><br>
   sleep gefolgt von weiteren Befehlen ist vergleichbar mit einem namenlosen <a
-  href="#at">at</a> Kommando, es f&uuml;hrt die nachfolgenden Befehle aus,
+  href="#at">at</a> oder <a href="#notify">notify</a> Kommando, es f&uuml;hrt
-  nachdem es die spezifizierte Zeitspanne gewartet hat. Die Einheit ist
+  die nachfolgenden Befehle aus, nachdem es die spezifizierte Zeitspanne
-  Sekunde, Millisekunden genau, da man Nachkommastellen spezifizieren
+  gewartet hat bzw. ein Event welches dem &lt;suchmuster&gt; entspricht
-  kann.<br><br>
+  aufgetreten ist. Die verz&ouml;gerung kann<ul>
+  <li>in Sekunden (Millisekunden genau, da man Nachkommastellen spezifizieren
+      kann)</li>
+  <li> als timespec (HH:MM or HH::MM::SS oder {perlfunc})</li>
+  <li>oder als suchmuster (Ger&auml;tename oder Ger&auml;tename:Event)</li>
+  </ul> angegeben werden.<br>
 
   Ein sleep mit einer &lt;id&gt; ersetzt ein sleep mit der gleichen &lt;id&gt;
   and can mit <a href="#cancel">cancel</a> entfernt werden.

fhem/fhem.pl

@@ -106,7 +106,6 @@ sub SemicolonEscape($);
 sub SignalHandling();
 sub TimeNow();
 sub Value($);
-sub WakeUpFn($);
 sub WriteStatefile();
 sub XmlEscape($);
 sub addEvent($$);
@@ -2059,6 +2058,7 @@ CommandDefine($$)
         if($currcfgfile ne AttrVal("global", "configfile", "") &&
           !configDBUsed());
   $hash{CL}    = $cl;
+  $hash{TEMPORARY} = 1 if($temporary);
 
   # If the device wants to issue initialization gets/sets, then it needs to be
   # in the global hash.
@@ -2073,7 +2073,6 @@ CommandDefine($$)
 
   } else {
     delete $hash{CL};
-    $hash{TEMPORARY} = 1 if($temporary);
     foreach my $da (sort keys (%defaultattr)) {     # Default attributes
       CommandAttr($cl, "$name $da $defaultattr{$da}");
     }
@@ -2082,8 +2081,10 @@ CommandDefine($$)
                 $modules{$m}{NotifyOrderPrefix} : "50-") . $name;
     }
     %ntfyHash = ();
-    addStructChange("define", $name, $def);
+    if(!$temporary && !$init_done) {
-    DoTrigger("global", "DEFINED $name", 1) if($init_done);
+      addStructChange("define", $name, $def);
+      DoTrigger("global", "DEFINED $name", 1);
+    }
   }
   return ($ret && $ignoreErr ?
         "Cannot define $name, remove -ignoreErr for details" : $ret);
@@ -3133,15 +3134,19 @@ CommandTrigger($$)
 
 #####################################
 sub
-WakeUpFn($)
+sleep_WakeUpFn($)
 {
-  my $h = shift;
+  my $id = shift;
-  delete $sleepers{$h->{id}} if( $h->{id} );
+  my $h = $sleepers{$id};
+  return if(!$h);
+  delete $sleepers{$id};
+  CommandDelete($h->{cl}, $h->{name}) if(!defined($h->{sec}));
 
   $evalSpecials = $h->{evalSpecials};
   my $ret = AnalyzeCommandChain($h->{cl}, $h->{cmd});
   Log 2, "After sleep: $ret" if($ret && !$h->{quiet});
 }
+
 sub
 CommandCancel($$)
 {
@@ -3151,16 +3156,18 @@ CommandCancel($$)
 
   if( !$id ) {
     my $ret;
-    foreach $id (keys %sleepers) {
+    foreach $id (sort keys %sleepers) {
+      my $h = $sleepers{$id};
       $ret .= "\n" if( $ret );
-      $ret .= sprintf( "%-10s %s", $id, $sleepers{$id}->{cmd} );
+      $ret .= sprintf( "%-12s %-19s %s", $id, $h->{till}, $h->{cmd} );
     }
-    $ret = "no pending sleeps" if( !$ret );
+    $ret = "no pending sleeps" if(!$ret);
     return $ret;
 
   } elsif( my $h = $sleepers{$id} ) {
-    RemoveInternalTimer( $h );
+    RemoveInternalTimer($id, "sleep_WakeUpFn") if(defined($h->{sec}));
-    delete $sleepers{$h->{id}};
+    CommandDelete($cl, $h->{name}) if(!defined($h->{sec}));
+    delete $sleepers{$id};
 
   } else {
     return "no such id: $id" if( !$quiet );
@@ -3179,24 +3186,47 @@ CommandSleep($$)
     $quiet = $id;
     $id = undef;
   }
-
   return "Argument missing" if(!defined($sec));
-  return "Cannot interpret $sec as seconds" if($sec !~ m/^[0-9\.]+$/);
   return "Last parameter must be quiet" if($quiet && $quiet ne "quiet");
 
-  Log 4, "sleeping for $sec";
+  my $name = ".sleep_".(++$intAtCnt);
+  $id = $name if(!$id);
+
+  my $till;
+  if($sec !~ m/^[0-9\.]+$/) {
+    my ($err, $hr,$min,$s, $fn) = GetTimeSpec($sec);
+    if($err) { # not a valid timespec => treat as regex
+      if(@cmdList && $init_done) {
+        CommandDelete($cl, $name) if($defs{$name});
+        $err = CommandDefine($cl,
+                        "-temporary $name notify $sec {sleep_WakeUpFn('$id')}");
+        $attr{$name}{ignore} = 1;
+        return $err if($err);
+      }
+      $till = $sec;
+      $sec = undef;
+
+    } else {
+      $sec = 3600*$hr+60*$min+$s;
+
+    }
+  }
+  $till = gettimeofday()+$sec if(defined($sec));
 
   if(@cmdList && $init_done) {
     my %h = (cmd          => join(";", @cmdList),
              evalSpecials => $evalSpecials,
              quiet        => $quiet,
+             till         => defined($sec) ? FmtDateTime($till) : $till,
+             sec          => $sec,
+             name         => $name,
              cl           => $cl,
              id           => $id);
-    if( $id ) {
+    if(defined($sec)) {
-      RemoveInternalTimer( $sleepers{$id} ) if( $sleepers{$id} );
+      RemoveInternalTimer($id, "sleep_WakeUpFn");
-      $sleepers{$id} = \%h;
+      InternalTimer($till, "sleep_WakeUpFn", $id, 0);
     }
-    InternalTimer(gettimeofday()+$sec, "WakeUpFn", \%h, 0);
+    $sleepers{$id} = \%h;
     @cmdList=();
 
   } else {