DevIo.pm: add hash->{sslargs} (Forum #109910)
git-svn-id: https://svn.fhem.de/fhem/trunk@22117 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
@@ -466,8 +466,6 @@ DevIo_OpenDev($$$;$)
|
|||||||
return &$doCb('websocket is only supported with callback') if(!$callback);
|
return &$doCb('websocket is only supported with callback') if(!$callback);
|
||||||
}
|
}
|
||||||
$path = "/" if(!defined($path) || $path eq "");
|
$path = "/" if(!defined($path) || $path eq "");
|
||||||
Log 1, "P:>$path<";
|
|
||||||
|
|
||||||
|
|
||||||
# This part is called every time the timeout (5sec) is expired _OR_
|
# This part is called every time the timeout (5sec) is expired _OR_
|
||||||
# somebody is communicating over another TCP connection. As the connect
|
# somebody is communicating over another TCP connection. As the connect
|
||||||
@@ -480,7 +478,6 @@ Log 1, "P:>$path<";
|
|||||||
delete($readyfnlist{"$name.$dev"});
|
delete($readyfnlist{"$name.$dev"});
|
||||||
my $timeout = $hash->{TIMEOUT} ? $hash->{TIMEOUT} : 3;
|
my $timeout = $hash->{TIMEOUT} ? $hash->{TIMEOUT} : 3;
|
||||||
|
|
||||||
|
|
||||||
# Do common TCP/IP "afterwork":
|
# Do common TCP/IP "afterwork":
|
||||||
# if connected: set keepalive, fill selectlist, FD, TCPDev.
|
# if connected: set keepalive, fill selectlist, FD, TCPDev.
|
||||||
# if not: report the error and schedule reconnect
|
# if not: report the error and schedule reconnect
|
||||||
@@ -531,6 +528,7 @@ Log 1, "P:>$path<";
|
|||||||
keepalive=>$proto eq "ws:" ? 1 : 0,
|
keepalive=>$proto eq "ws:" ? 1 : 0,
|
||||||
httpversion=>$proto eq "ws:" ? "1.1" : "1.0",
|
httpversion=>$proto eq "ws:" ? "1.1" : "1.0",
|
||||||
header => \%header,
|
header => \%header,
|
||||||
|
sslargs => $hash->{sslargs},
|
||||||
callback=> sub() {
|
callback=> sub() {
|
||||||
my ($h, $err, undef) = @_;
|
my ($h, $err, undef) = @_;
|
||||||
$err = "HTTP CODE $h->{code}"
|
$err = "HTTP CODE $h->{code}"
|
||||||
|
|||||||
Reference in New Issue
Block a user