Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-01 20:20:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

TcpServerUtils.pm: remove SSL/HTTP check (Forum #108926), add FWTP Hook

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@21344 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2020-03-03 11:10:07 +00:00
parent c8c4157b1a
commit 809162ee8c
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
FHEM/TcpServerUtils.pm
View File

@ -131,15 +131,10 @@ TcpServer_Accept($$)
$err = "" if(!$err); $err = "" if(!$err);
$err .= " ".($SSL_ERROR ? $SSL_ERROR : IO::Socket::SSL::errstr()); $err .= " ".($SSL_ERROR ? $SSL_ERROR : IO::Socket::SSL::errstr());
my $errLevel = ($err =~ m/error:14094416:SSL/ ? 5 : 1); # 61511 my $errLevel = ($err =~ m/error:14094416:SSL/ ? 5 : 1); # 61511
Log3 $name, $errLevel, "$type SSL/HTTPS error: $err (peer: $caddr)"
if($err =~ m/http request/) { # HTTP on HTTPS. if($err !~ m/error:00000000:lib.0.:func.0.:reason.0./); #Forum 56364
Log3 $name, $errLevel, "HTTP connect to HTTP socket (peer: $caddr)"; close($clientinfo[0]);
} else { return undef;
Log3 $name, $errLevel, "$type SSL/HTTPS error: $err (peer: $caddr)"
if($err !~ m/error:00000000:lib.0.:func.0.:reason.0./); #Forum 56364
close($clientinfo[0]);
return undef;
}
} }
} }
@ -314,6 +309,12 @@ TcpServer_WriteBlocking($$)
{ {
my( $hash, $txt ) = @_; my( $hash, $txt ) = @_;
if($hash->{WriteFn}) { # FWTP needs it
no strict "refs";
return &{$hash->{WriteFn}}($hash, \$txt);
use strict "refs";
}
my $sock = $hash->{CD}; my $sock = $hash->{CD};
return undef if(!$sock); return undef if(!$sock);
my $off = 0; my $off = 0;