mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

24_TPLinkHS110: Implemented retry on connect timeout

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@14309 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
vk
2017-05-17 14:39:38 +00:00
parent 89e2ca7792
commit 73f3a32a9f
1 changed files with 30 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
fhem/FHEM/24_TPLinkHS110.pm
View File

@@ -99,7 +99,12 @@ sub TPLinkHS110_Get($$)
Type => SOCK_STREAM,
Timeout => $hash->{TIMEOUT} )
or return "Couldn't connect to $remote_host:$remote_port: $@\n";
eval {
$socket->send($c);
} or do {
Log3 $hash, 2, "TPLinkHS110: $name error sending. Retrying one more time.";
$socket->send($c);
};
my $data;
my $retval = $socket->recv($data,8192);
$socket->close();
@@ -134,7 +139,12 @@ sub TPLinkHS110_Get($$)
Type => SOCK_STREAM,
Timeout => $hash->{TIMEOUT} )
or return "Couldn't connect to $remote_host:$remote_port: $@\n";
$socket->send($rc);
eval {
$socket->send($c);
} or do {
Log3 $hash, 2, "TPLinkHS110: $name error sending. Retrying one more time.";
$socket->send($c);
};
my $rdata;
$retval = $socket->recv($rdata,8192);
$socket->close();
@@ -164,7 +174,12 @@ sub TPLinkHS110_Get($$)
Type => SOCK_STREAM,
Timeout => $hash->{TIMEOUT} )
or return "Couldn't connect to $remote_host:$remote_port: $@\n";
eval {
$socket->send($c);
} or do {
Log3 $hash, 2, "TPLinkHS110: $name error sending. Retrying one more time.";
$socket->send($c);
};
my $data;
$retval = $socket->recv($data,8192);
$socket->close();
@@ -221,7 +236,12 @@ sub TPLinkHS110_Set($$)
Type => SOCK_STREAM,
Timeout => $hash->{TIMEOUT})
or return "Couldn't connect to $remote_host:$remote_port: $@\n";
eval {
$socket->send($c);
} or do {
Log3 $hash, 2, "TPLinkHS110: $name error sending. Retrying one more time.";
$socket->send($c);
};
my $data;
my $retval = $socket->recv($data,8192);
$socket->close();
@@ -310,7 +330,12 @@ sub TPLinkHS110_Attr {
Type => SOCK_STREAM,
Timeout => $hash->{TIMEOUT} )
or return "Couldn't connect to $remote_host:$remote_port: $@\n";
eval {
$socket->send($c);
} or do {
Log3 $hash, 2, "TPLinkHS110: $name error sending. Retrying one more time.";
$socket->send($c);
};
my $data;
my $retval = $socket->recv($data,8192);
$socket->close();