diff --git a/fhem/FHEM/98_RandomTimer.pm b/fhem/FHEM/98_RandomTimer.pm index cbaf14286..452b680da 100644 --- a/fhem/FHEM/98_RandomTimer.pm +++ b/fhem/FHEM/98_RandomTimer.pm @@ -31,34 +31,6 @@ package main; use Time::HiRes qw(gettimeofday); use Time::Local 'timelocal_nocheck'; -# forward declarations ######################################################## -sub RandomTimer_Initialize($); - -sub RandomTimer_Define($$); -sub RandomTimer_Undef($$); -sub RandomTimer_Set($@); -sub RandomTimer_Attr($$$); - -sub RandomTimer_addDays ($$); -sub RandomTimer_device_switch ($); -sub RandomTimer_device_toggle ($); -sub RandomTimer_disableDown($); -sub RandomTimer_down($); -sub RandomTimer_Exec($); -sub RandomTimer_getSecsToNextAbschaltTest($); -sub RandomTimer_isAktive ($); -sub RandomTimer_isDisabled($); -sub RandomTimer_schaltZeitenErmitteln ($$); -sub RandomTimer_setActive($$); -sub RandomTimer_setState($); -sub RandomTimer_setSwitchmode ($$); -sub RandomTimer_SetTimer($); -sub RandomTimer_startZeitErmitteln ($$); -sub RandomTimer_stopTimeReached($); -sub RandomTimer_stopZeitErmitteln ($$); -sub RandomTimer_Wakeup(); -sub RandomTimer_zeitBerechnen ($$$$); - # initialize ################################################################## sub RandomTimer_Initialize($) { my ($hash) = @_; @@ -310,7 +282,7 @@ sub RandomTimer_Exec($) { RandomTimer_down($hash); RandomTimer_setActive($hash, 0); if ( AttrVal($hash->{NAME}, "runonce", -1) eq 1 ) { - Log 3, "[".$hash->{NAME}. "]" ."runonceMode"; + Log3 $hash, 3, "[".$hash->{NAME}. "]" ."runonceMode"; fhem ("delete $hash->{NAME}") ; } RandomTimer_setState($hash); @@ -585,7 +557,7 @@ sub RandomTimer_GetHashIndirekt ($$) { my ($myHash, $function) = @_; if (!defined($myHash->{HASH})) { - Log 3, "[$function] myHash not valid"; + Log3 $myHash, 3, "[$function] myHash not valid"; return undef; }; return $myHash->{HASH}; diff --git a/fhem/FHEM/98_WeekdayTimer.pm b/fhem/FHEM/98_WeekdayTimer.pm index 53558be36..19f73bcdf 100644 --- a/fhem/FHEM/98_WeekdayTimer.pm +++ b/fhem/FHEM/98_WeekdayTimer.pm @@ -208,7 +208,7 @@ sub WeekdayTimer_GetHashIndirekt ($$) { my ($myHash, $function) = @_; if (!defined($myHash->{HASH})) { - Log 3, "[$function] myHash not valid"; + Log3 $myHash, 3, "[$function] myHash not valid"; return undef; }; return $myHash->{HASH}; @@ -1517,7 +1517,6 @@ sub WeekdayTimer_GetWeekprofileReadingTriplett($$) { "runtime" : { "requires" : { "Data::Dumper" : "0", - "POSIX" : "0", "Time::Local" : "0", "strict" : "0", "warnings" : "0"