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

add commandref summary, code design

Browse Source
This commit is contained in:
Marko Oldenburg 2018-03-21 09:46:06 +01:00
parent 4df083cbf9
commit 91110ea98b
1 changed files with 314 additions and 310 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
74_HOMBOT.pm
View File

@ -35,7 +35,7 @@ use Time::HiRes qw(gettimeofday);
use HttpUtils; use HttpUtils;
use Blocking; use Blocking;
my $version = "0.2.4"; my $version = "0.2.5";
@ -237,8 +237,8 @@ sub HOMBOT_getStatusTXT($) {
doTrigger => 1, doTrigger => 1,
callback => \&HOMBOT_RetrieveHomebotInfoFinished, callback => \&HOMBOT_RetrieveHomebotInfoFinished,
id => "statustxt", id => "statustxt",
} });
);
Log3 $name, 4, "HOMBOT ($name) - NonblockingGet get URL"; Log3 $name, 4, "HOMBOT ($name) - NonblockingGet get URL";
Log3 $name, 4, "HOMBOT ($name) - HOMBOT_Retrieve status.txt Information: calling Host: $host"; Log3 $name, 4, "HOMBOT ($name) - HOMBOT_Retrieve status.txt Information: calling Host: $host";
} }
@ -263,8 +263,8 @@ sub HOMBOT_getStatisticHTML($) {
doTrigger => 1, doTrigger => 1,
callback => \&HOMBOT_RetrieveHomebotInfoFinished, callback => \&HOMBOT_RetrieveHomebotInfoFinished,
id => "statistichtml", id => "statistichtml",
} });
);
Log3 $name, 4, "HOMBOT ($name) - NonblockingGet get URL"; Log3 $name, 4, "HOMBOT ($name) - NonblockingGet get URL";
Log3 $name, 4, "HOMBOT ($name) - HOMBOT_Retrieve statistic.html Information: calling Host: $host"; Log3 $name, 4, "HOMBOT ($name) - HOMBOT_Retrieve statistic.html Information: calling Host: $host";
} }
@ -289,8 +289,8 @@ sub HOMBOT_getSchedule($) {
doTrigger => 1, doTrigger => 1,
callback => \&HOMBOT_RetrieveHomebotInfoFinished, callback => \&HOMBOT_RetrieveHomebotInfoFinished,
id => "schedule", id => "schedule",
} });
);
Log3 $name, 4, "HOMBOT ($name) - NonblockingGet get URL"; Log3 $name, 4, "HOMBOT ($name) - NonblockingGet get URL";
Log3 $name, 4, "HOMBOT ($name) - HOMBOT_Retrieve Schedule Information: calling Host: $host"; Log3 $name, 4, "HOMBOT ($name) - HOMBOT_Retrieve Schedule Information: calling Host: $host";
} }
@ -313,7 +313,6 @@ sub HOMBOT_RetrieveHomebotInfoFinished($$$) {
readingsSingleUpdate( $hash, "lastStatusRequestState", "statusRequest_error", 1 ); readingsSingleUpdate( $hash, "lastStatusRequestState", "statusRequest_error", 1 );
if( $hash->{helper}{requestErrorCounter} > 1 && ReadingsVal( $name, "luigiHttpSrvState", "not running" ) eq "running" ) { if( $hash->{helper}{requestErrorCounter} > 1 && ReadingsVal( $name, "luigiHttpSrvState", "not running" ) eq "running" ) {
Log3 $name, 3, "HOMBOT ($name) - Connecting Problem, will check Luigi HTTP Server" unless(exists($hash->{helper}{RUNNING_PID})); Log3 $name, 3, "HOMBOT ($name) - Connecting Problem, will check Luigi HTTP Server" unless(exists($hash->{helper}{RUNNING_PID}));
@ -361,7 +360,9 @@ sub HOMBOT_RetrieveHomebotInfoFinished($$$) {
readingsBulkUpdate ( $hash, "state", "To many Errors"); readingsBulkUpdate ( $hash, "state", "To many Errors");
$hash->{helper}{requestErrorCounter} = 0; $hash->{helper}{requestErrorCounter} = 0;
} }
readingsEndUpdate( $hash, 1 ); readingsEndUpdate( $hash, 1 );
} }
if( defined( $err ) && $err ne "" ) { if( defined( $err ) && $err ne "" ) {
@ -713,8 +714,8 @@ sub HOMBOT_HTTP_POST($$) {
method => "GET", method => "GET",
doTrigger => 1, doTrigger => 1,
callback => \&HOMBOT_HTTP_POSTerrorHandling, callback => \&HOMBOT_HTTP_POSTerrorHandling,
} });
);
Log3 $name, 4, "HOMBOT ($name) - Send HTTP POST with URL $url"; Log3 $name, 4, "HOMBOT ($name) - Send HTTP POST with URL $url";
readingsSingleUpdate( $hash, "state", $state, 1 ); readingsSingleUpdate( $hash, "state", $state, 1 );
@ -778,6 +779,7 @@ sub HOMBOT_HTTP_POSTerrorHandling($$$) {
$hash->{helper}{setErrorCounter} = 0; $hash->{helper}{setErrorCounter} = 0;
$hash->{helper}{requestErrorCounter} = 0; $hash->{helper}{requestErrorCounter} = 0;
} }
readingsEndUpdate( $hash, 1 ); readingsEndUpdate( $hash, 1 );
} }
@ -995,6 +997,8 @@ sub HOMBOT_DetailFn() { # Patch von Andre (justme1968)
=pod =pod
=item summary connection to LG Homebot robotic vacuum cleaner
=item summary_DE Anbindung LG Homebot Staubsaugerroboter
=begin html =begin html
<a name="HOMBOT"></a> <a name="HOMBOT"></a>