THZ Datum und Zeit justieren

[wla]

Verwendung auf eigene Verantwortung. (Verbesserungs)kommentare erwünscht:

Code Auswählen Erweitern

define Mythz_SetDate at *13:30:30 {\
  my $d=fhem("get Mythz pClockYear");;\
  if ( ($d eq $d+0) && ($d > 0)  && ($d ne $year-2000) )           { $d=$year-2000 ;; Log (3, "Adjust THZ.year to: $d")  ;; fhem("set Mythz pClockYear $d")  };;\
  $d=fhem("get Mythz pClockMonth");;\
  if ( ($d eq $d+0) && ($d > 0)  && ($d <= 12) && ($d ne $month) ) { $d=$month     ;; Log (3, "Adjust THZ.month to: $d") ;; fhem("set Mythz pClockMonth $d") };;\
  $d=fhem("get Mythz pClockDay");;\
  if ( ($d eq $d+0) && ($d > 0)  && ($d <= 31) && ($d ne $mday)  ) { $d=$mday      ;; Log (3, "Adjust THZ.day to: $d")   ;; fhem("set Mythz pClockDay $d")   };;\
  $d=fhem("get Mythz pClockHour");;\
  if ( ($d eq $d+0) && ($d >= 0) && ($d < 24)  && ($d ne $hour)  ) { $d=$hour      ;; Log (3, "Adjust THZ.hour to: $d")  ;; fhem("set Mythz pClockHour $d")  };;\
  $d=fhem("get Mythz pClockMinutes");;\
  if ( ($d eq $d+0) && ($d >= 0) && ($d < 60)  && ($d ne $min)   ) { $d=$min+1     ;; Log (3, "Adjust THZ.min to: $d")   ;; fhem("sleep 30 ;; set Mythz pClockMinutes $d") };;\
}
attr Mythz_SetDate room Heizung