RandomTimer: delete prototypes, switch to Log3; WeekdayTimer: switch to Log3
git-svn-id: https://svn.fhem.de/fhem/trunk@21512 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
@@ -31,34 +31,6 @@ package main;
|
|||||||
use Time::HiRes qw(gettimeofday);
|
use Time::HiRes qw(gettimeofday);
|
||||||
use Time::Local 'timelocal_nocheck';
|
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 ##################################################################
|
# initialize ##################################################################
|
||||||
sub RandomTimer_Initialize($) {
|
sub RandomTimer_Initialize($) {
|
||||||
my ($hash) = @_;
|
my ($hash) = @_;
|
||||||
@@ -310,7 +282,7 @@ sub RandomTimer_Exec($) {
|
|||||||
RandomTimer_down($hash);
|
RandomTimer_down($hash);
|
||||||
RandomTimer_setActive($hash, 0);
|
RandomTimer_setActive($hash, 0);
|
||||||
if ( AttrVal($hash->{NAME}, "runonce", -1) eq 1 ) {
|
if ( AttrVal($hash->{NAME}, "runonce", -1) eq 1 ) {
|
||||||
Log 3, "[".$hash->{NAME}. "]" ."runonceMode";
|
Log3 $hash, 3, "[".$hash->{NAME}. "]" ."runonceMode";
|
||||||
fhem ("delete $hash->{NAME}") ;
|
fhem ("delete $hash->{NAME}") ;
|
||||||
}
|
}
|
||||||
RandomTimer_setState($hash);
|
RandomTimer_setState($hash);
|
||||||
@@ -585,7 +557,7 @@ sub RandomTimer_GetHashIndirekt ($$) {
|
|||||||
my ($myHash, $function) = @_;
|
my ($myHash, $function) = @_;
|
||||||
|
|
||||||
if (!defined($myHash->{HASH})) {
|
if (!defined($myHash->{HASH})) {
|
||||||
Log 3, "[$function] myHash not valid";
|
Log3 $myHash, 3, "[$function] myHash not valid";
|
||||||
return undef;
|
return undef;
|
||||||
};
|
};
|
||||||
return $myHash->{HASH};
|
return $myHash->{HASH};
|
||||||
|
|||||||
@@ -208,7 +208,7 @@ sub WeekdayTimer_GetHashIndirekt ($$) {
|
|||||||
my ($myHash, $function) = @_;
|
my ($myHash, $function) = @_;
|
||||||
|
|
||||||
if (!defined($myHash->{HASH})) {
|
if (!defined($myHash->{HASH})) {
|
||||||
Log 3, "[$function] myHash not valid";
|
Log3 $myHash, 3, "[$function] myHash not valid";
|
||||||
return undef;
|
return undef;
|
||||||
};
|
};
|
||||||
return $myHash->{HASH};
|
return $myHash->{HASH};
|
||||||
@@ -1517,7 +1517,6 @@ sub WeekdayTimer_GetWeekprofileReadingTriplett($$) {
|
|||||||
"runtime" : {
|
"runtime" : {
|
||||||
"requires" : {
|
"requires" : {
|
||||||
"Data::Dumper" : "0",
|
"Data::Dumper" : "0",
|
||||||
"POSIX" : "0",
|
|
||||||
"Time::Local" : "0",
|
"Time::Local" : "0",
|
||||||
"strict" : "0",
|
"strict" : "0",
|
||||||
"warnings" : "0"
|
"warnings" : "0"
|
||||||
|
|||||||
Reference in New Issue
Block a user