Verwendung auf eigene Verantwortung. (Verbesserungs)kommentare erwünscht:
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