Nachtwaechter Funktion

[P.A.Trick]

Da es manchmal vorkommt, dass meine Frau und ich vorm Fernseher einschlafen, habe ich mir eine Nachtwächter Funktion gebaut, die
nachts aufgerufen wird und alle Devices mit dem State "on" deaktiviert.

Sofern es Verbraucher vom Typ FS20 oder CUL_HM sind, werden diese abgeschaltet.
Einfach in Eure 99_MyUtils.pm o.ä. eintragen!

Code Auswählen Erweitern

##########################################################
# Nachtwaechter: Schaltet Verbraucher ab, sofern sie
# eingeschaltet sind!
##########################################################
sub disable_all_consumer {

my @devices=devspec2array("TYPE=(CUL_HM|FS20)");
my $nr_disabled_devices=0;
my $disable_cmd="";

   foreach(@devices) {
   
     if (!/PIRI_BTN_1/) {
   
       my $group=ReadingsVal($_, "state", "n/a");
       my $value=Value($_);
     
       if ($value eq "on") {
         Log 3,"[disable_all_consumer] - Trying to disable device ".$_;
       
         $disable_cmd=$disable_cmd."set ".$_." off;sleep 2;";
         $nr_disabled_devices++;
       }
    }
   }
   if ($nr_disabled_devices > 0) {
  fhem($disable_cmd);
  Log 4,"DEBUG:".$disable_cmd;
      Log 3,"[disable_all_consumer] ".$nr_disabled_devices." devices have been disabled!";
   }
   else {
      Log 3,"[disable_all_consumer] - nothing to do!";
   }
}

Hier noch die Def für den at-Job

Code Auswählen Erweitern

*02:00:00 {disable_all_consumer;}

Vielleicht kann es jemand von Euch gebrauchen!

PS: Mein IR Melder PIRI_BTN_1 ist in der Blacklist. Ihr könnt da noch weitere Devices eintragen, die ignoriert werden sollen!