FHTTK: Benachrichtigung bei offenem Fenster

Wer wird nicht gerne per Mail benachrichtigt, wenn ein Fenster auf- oder zugemacht wird? Richtig komfortabel ist es, wenn man dann auch noch gleich eine Liste aller FHTTK-devices mitgeliefert bekommt, die den Status "Window: Open" haben:

in (z.B.) 99_myUtils.pm:

sub FHTTK_status {
 my @fhttks = devspec2array("TYPE=CUL_FHTTK");
 my @wopen = ();
 foreach(@fhttks) {
  my $fhttk_window = ReadingsVal($_, "Window", "nA");
  push (@wopen,$_) if ($fhttk_window eq "Open" );
 }
 my $num_wopen = @wopen;
 my $resultstring='';
 if ( $num_wopen gt 0 ) {
  $resultstring="folgende Fenster sind noch offen:\n\n";
  foreach(@wopen) {
   $resultstring.="- ".$_."\n";
   Log 4, "FHTTK_status: ". $_. "noch offen";
  }
 } else {
  $resultstring="alle Fenster sind derzeit geschlossen.";
 }
 return $resultstring;
}

in die Konfiguration (hier für Eingabe in fhem.cfg formatiert):

define n_Fenster notify .*:Window.*(Open|Closed) { \
 my $window_state=ReadingsVal("$NAME", "Window", "nA");;\
 my $deftype=$defs{$NAME}{TYPE};;\
 return if ( $deftype ne "CUL_FHTTK" );;\
 if ( $defs{$NAME}{PREVSTATE} ne $window_state ) { \
  my $fhttk_status=FHTTK_status;;\
  my $subject="FHEM: Fenster $NAME ".$window_state;; \
  fb_mail('xxx@@xxx.de',$subject,$fhttk_status);;\
  Log 3, "$NAME: Window ".$window_state;;\
 }\
}

Achtung: Hier wird fb_mail als Mailer benutzt (siehe auch E-Mail senden) - je nach *nix-Version muss u.U. der Pfad angepasst sowie die entsprechenden Codezeilen in die .pm-Datei übernommen werden.

Randbemerkung zum Config-Code: Ein "notify <sensor>:Open" alleine reicht nicht. Da der Sensor etwa alle zwei Minuten seinen Status sendet, muss zudem der vorherige Status abgefragt werden, um nur bei Statusänderungen zu reagieren.