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

26_tahoma.pm:2018-05-25 V 0218 keepalive of http connection corrected

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@16789 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
mike3436
2018-05-27 15:51:44 +00:00
parent 468f0b4eaa
commit 98e9419ed1
1 changed files with 25 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
fhem/FHEM/26_tahoma.pm
View File

@@ -50,6 +50,7 @@
# 2017-07-08 V 0215 default set commands on devices without commands deleted
# 2017-10-08 V 0216 group definition added
# 2018-05-10 V 0217 disable activated on devices
# 2018-05-25 V 0218 keepalive of http connection corrected
package main;
@@ -122,7 +123,7 @@ sub tahoma_Define($$)
my @a = split("[ \t][ \t]*", $def);
my $ModuleVersion = "0217";
my $ModuleVersion = "0218";
my $subtype;
my $name = $a[0];
@@ -398,6 +399,7 @@ sub tahoma_getEvents($)
noshutdown => 1,
hash => $hash,
page => 'getEvents',
method => 'PUSH',
callback => \&tahoma_dispatch,
nonblocking => 1,
});
@@ -1473,6 +1475,28 @@ sub tahoma_UserAgent_NonblockingGet($)
my ($param) = @_;
my ($hash) = $param->{hash};
$hash = $hash->{IODev} if (defined ($hash->{IODev}));
# restore parameter from last HttpUtils call
if (defined $hash->{paramHash} && $hash->{paramHash}{keepalive})
{
my $paramHash = $hash->{paramHash};
if (defined $paramHash)
{
delete $paramHash->{timeout};
delete $paramHash->{noshutdown};
delete $paramHash->{hash};
delete $paramHash->{page};
delete $paramHash->{subpage};
delete $paramHash->{data};
delete $paramHash->{method};
delete $paramHash->{callback};
delete $paramHash->{nonblocking};
}
$paramHash = {} if !(defined $paramHash);
$paramHash->{$_} = $param->{$_} for (keys %$param);
$param = $paramHash;
}
$hash->{paramHash} = $param;
my $name = $hash->{NAME};
Log3 $name, 5, "$name: tahoma_UserAgent_NonblockingGet page=$param->{page}";