FHEM/mod-hombot
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Code bereinigt, Intervalanpassung in Abhängigkeit des Arbeitsstatus des Bots

Browse Source
This commit is contained in:
Marko Oldenburg 2015-12-08 12:20:00 +01:00
parent 59a9987982
commit 73b6827888
1 changed files with 29 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
74_HOMBOT.pm
View File

@ -34,7 +34,7 @@ use Time::HiRes qw(gettimeofday);
use HttpUtils;
my $version = "0.1.30";
my $version = "0.1.35";
@ -71,7 +71,7 @@ sub HOMBOT_Define($$) {
my $name = $a[0];
my $host = $a[2];
my $port = 6260;
my $interval = 120;
my $interval = 180;
$hash->{HOST} = $host;
$hash->{PORT} = $port;
@ -182,10 +182,12 @@ sub HOMBOT_Get_stateRequest($) {
my ( $hash ) = @_;
my $name = $hash->{NAME};
HOMBOT_RetrieveHomebotInfomations( $hash ) if( ReadingsVal( $name, "hombotState", "OFFLINE" ) ne "OFFLINE" && AttrVal( $name, "disable", 0 ) ne "1" );
InternalTimer( gettimeofday()+$hash->{INTERVAL}, "HOMBOT_Get_stateRequest", $hash, 1 );
Log3 $name, 4, "HOMBOT ($name) - Call HOMBOT_Get_stateRequest";
return 1;
@ -196,8 +198,8 @@ sub HOMBOT_RetrieveHomebotInfomations($) {
my $name = $hash->{NAME};
HOMBOT_getStatusTXT( $hash );
HOMBOT_getSchedule( $hash ) if( ReadingsVal( "$name","hombotState","CHARGING" ) eq "CHARGING" || ReadingsVal( "$name","hombotState","CHARGING" ) eq "STANDBY" );
HOMBOT_getStatisticHTML( $hash ) if( ReadingsVal( "$name","hombotState","CHARGING" ) eq "CHARGING" || ReadingsVal( "$name","hombotState","CHARGING" ) eq "STANDBY" );
HOMBOT_getSchedule( $hash ) if( ReadingsVal( "$name","hombotState","WORKING" ) eq "CHARGING" || ReadingsVal( "$name","hombotState","WORKING" ) eq "STANDBY" );
HOMBOT_getStatisticHTML( $hash ) if( ReadingsVal( "$name","hombotState","WORKING" ) eq "CHARGING" || ReadingsVal( "$name","hombotState","WORKING" ) eq "STANDBY" );
return undef;
}
@ -403,8 +405,8 @@ sub HOMBOT_RetrieveHomebotInfoFinished($$$) {
readingsBeginUpdate( $hash );
my $t; # fuer Readins Name
my $v; # fuer Radings Value
my $t; # fuer Readings Name
my $v; # fuer Readings Value
if( $parsid eq "statustxt" ) {
@ -485,6 +487,26 @@ sub HOMBOT_RetrieveHomebotInfoFinished($$$) {
readingsBulkUpdate( $hash, "state", "active" ) if( ReadingsVal( $name, "state", 0 ) eq "initialized" );
readingsEndUpdate( $hash, 1 );
## verändert das INTERVAL in Abhängigkeit vom Arbeitsstatus des Bots
if( ReadingsVal( $name, "hombotState", "CHARGING" ) eq "WORKING" || ReadingsVal( $name, "hombotState", "CHARGING" ) eq "HOMING" || ReadingsVal( $name, "hombotState", "CHARGING" ) eq "DOCKING" ) {
$hash->{INTERVAL} = 30;
} else {
my $interval = AttrVal( $name, "interval", 0 );
if( $interval > 0 ) {
$hash->{INTERVAL} = $interval;
} else {
$hash->{INTERVAL} = 180;
}
}
return undef;
}