FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-02-01 01:09:47 +00:00
Code Issues Releases Wiki Activity

98_RandomTimer: added a better return code to find PERL WARNING "IO::Socket::INET: connect: No route to host" http://forum.fhem.de/index.php/topic,14010.msg309471.html#msg309471

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@8906 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
dietmar63 2015-07-06 17:34:34 +00:00
parent d80bd88633
commit f9388fb682
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fhem/FHEM/98_RandomTimer.pm
View File

@ -166,7 +166,7 @@ sub RandomTimer_Exec($) {
Log3 $hash, 3, "[".$hash->{NAME}."]"." ending RandomTimer on $hash->{DEVICE}: "
. strftime("%H:%M:%S(%d)",localtime($hash->{startTime})) . " - "
. strftime("%H:%M:%S(%d)",localtime($hash->{stopTime}));
RandomTimer_down($hash);
#RandomTimer_down($hash);
RandomTimer_setState($hash);
$hash->{active} = 0;
}
@ -395,19 +395,19 @@ sub RandomTimer_device_switch ($)
Log3 $hash, 4, "[".$hash->{NAME}. "]"." command: $command";
my $ret = AnalyzeCommandChain(undef, $command);
Log3 ($hash, 3, $ret) if($ret)
Log3 ($hash, 3, "[$hash->{NAME}] ERROR: " . $ret . " SENDING " . $command) if($ret)
}
########################################################################
sub RandomTimer_isDisabled($) {
my ($hash) = @_;
my $disable = AttrVal($hash->{NAME}, "disable", 0 );
my $disableCond = AttrVal($hash->{NAME}, "disableCond", "");
$disable = $disable || eval ($disableCond);
if ($@) {
$@ =~ s/\n/ /g;
Log3 ($hash, 3, "[$hash->{NAME}] " . $@);
Log3 ($hash, 3, "[$hash->{NAME}] ERROR: " . $@ . " EVALUATING " . $disableCond);
}
$disable = 0 if (!defined($disable));