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

SONOS: Added errorhandling to UPnP Lib

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@13970 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
Reinerlein
2017-04-11 17:42:12 +00:00
parent 7d01e97ca4
commit 88a067d281
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
fhem/FHEM/lib/UPnP/ControlPoint.pm
View File

@@ -306,7 +306,7 @@ sub _createDevice {
{ControlPoint => $self});
} else {
carp('400-URL-Absolute-Error! Location: "'.$location.'", Content: "'.$response->content.'"') if ($response->code == 400);
carp("Loading device description failed with error: " . $response->code . " " . $response->message) if ($response->code != 200);
carp("Loading device description failed with error: " . $response->code . " " . $response->message . ' (Location: ' . $location . ')') if ($response->code != 200);
}
#pop(@LWP::Protocol::http::EXTRA_SOCK_OPTS);
@LWP::Protocol::http::EXTRA_SOCK_OPTS = @SOCK_OPTS_Backup;
@@ -431,7 +431,10 @@ sub _receiveSSDPEvent {
my $buf = '';
my $peer = recv($socket, $buf, 2048, 0);
return if (!defined($peer));
my @peerdata = unpack_sockaddr_in($peer);
return if (!defined($peerdata));
return if (scalar(%USEDONLYIP) && (!$USEDONLYIP{inet_ntoa($peerdata[1])}));
return if ($IGNOREIP{inet_ntoa($peerdata[1])});