FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 09:16:53 +00:00
Code Issues Releases Wiki Activity

FRITZBOX: Soap timeout

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@13696 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
tupol 2017-03-13 20:09:44 +00:00
parent 469c27bced
commit 8dbc20a5ae
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
fhem/FHEM/72_FRITZBOX.pm
View File

@ -369,6 +369,7 @@ sub FRITZBOX_Set($$@)
elsif ( lc $cmd eq 'checkapis') { elsif ( lc $cmd eq 'checkapis') {
Log3 $name, 3, "FRITZBOX: set $name $cmd ".join(" ", @val); Log3 $name, 3, "FRITZBOX: set $name $cmd ".join(" ", @val);
$hash->{APICHECKED} = 0; $hash->{APICHECKED} = 0;
$hash->{fhem}{sidTime} = 0;
$hash->{fhem}{LOCAL} = 1; $hash->{fhem}{LOCAL} = 1;
FRITZBOX_Readout_Start($hash->{helper}{TimerReadout}); FRITZBOX_Readout_Start($hash->{helper}{TimerReadout});
$hash->{fhem}{LOCAL} = 0; $hash->{fhem}{LOCAL} = 0;
@ -4233,7 +4234,7 @@ sub FRITZBOX_TR064_Cmd($$$)
my $soap = SOAP::Lite my $soap = SOAP::Lite
-> on_fault ( sub {} ) -> on_fault ( sub {} )
-> uri( "urn:dslforum-org:service:".$service ) -> uri( "urn:dslforum-org:service:".$service )
-> proxy('https://'.$host.":".$port."/upnp/control/".$control, ssl_opts => [ SSL_verify_mode => 0 ] ) -> proxy('https://'.$host.":".$port."/upnp/control/".$control, ssl_opts => [ SSL_verify_mode => 0 ], timeout => 10 )
-> readable(1); -> readable(1);
my $res = $soap -> call( $action => @soapParams ); my $res = $soap -> call( $action => @soapParams );
@ -4396,7 +4397,7 @@ sub FRITZBOX_TR064_Init ($$)
FRITZBOX_Log $hash, 4, "Open TR-064 connection and ask for security port"; FRITZBOX_Log $hash, 4, "Open TR-064 connection and ask for security port";
my $s = SOAP::Lite my $s = SOAP::Lite
-> uri('urn:dslforum-org:service:DeviceInfo:1') -> uri('urn:dslforum-org:service:DeviceInfo:1')
-> proxy('http://'.$host.':49000/upnp/control/deviceinfo') -> proxy('http://'.$host.':49000/upnp/control/deviceinfo', timeout => 10 )
-> getSecurityPort(); -> getSecurityPort();
my $port = $s->result; my $port = $s->result;