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

FRITZBOX: resetSid by e.g. 403 forbidden

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@14623 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
tupol 2017-07-02 11:25:51 +00:00
parent 84a060ed7e
commit 1387a8089f
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fhem/FHEM/72_FRITZBOX.pm
View File

@ -2541,9 +2541,9 @@ sub FRITZBOX_GuestWlan_Run_Web($)
} }
elsif ( $hash->{SECPORT} ) { #TR-064 elsif ( $hash->{SECPORT} ) { #TR-064
if ($state == 1) { # WLAN on when Guest WLAN on if ($state == 1) { # WLAN on when Guest WLAN on
push @tr064CmdArray, ["WLANConfiguration:1", "wlanconfig1", "SetEnable", "NewEnable", "1"];
push @tr064CmdArray, ["WLANConfiguration:2", "wlanconfig2", "SetEnable", "NewEnable", "1"] push @tr064CmdArray, ["WLANConfiguration:2", "wlanconfig2", "SetEnable", "NewEnable", "1"]
if $hash->{fhem}->{is_double_wlan} == 1; if $hash->{fhem}->{is_double_wlan} == 1;
push @tr064CmdArray, ["WLANConfiguration:1", "wlanconfig1", "SetEnable", "NewEnable", "1"];
} }
my $gWlanNo = 2; my $gWlanNo = 2;
$gWlanNo = 3 $gWlanNo = 3
@ -2652,10 +2652,10 @@ sub FRITZBOX_Wlan_Run_Web($)
# FRITZBOX_Web_CmdPost ($hash, \@webCmdArray, '/wlan/wlan_settings.lua'); # FRITZBOX_Web_CmdPost ($hash, \@webCmdArray, '/wlan/wlan_settings.lua');
} }
elsif ($hash->{SECPORT}) { #TR-064 elsif ($hash->{SECPORT}) { #TR-064
push @tr064CmdArray, ["WLANConfiguration:1", "wlanconfig1", "SetEnable", "NewEnable", $state]
if $cmd =~ /^(wlan|wlan2\.4)$/;
push @tr064CmdArray, ["WLANConfiguration:2", "wlanconfig2", "SetEnable", "NewEnable", $state] push @tr064CmdArray, ["WLANConfiguration:2", "wlanconfig2", "SetEnable", "NewEnable", $state]
if $hash->{fhem}->{is_double_wlan} == 1 && $cmd ne "wlan2.4"; if $hash->{fhem}->{is_double_wlan} == 1 && $cmd ne "wlan2.4";
push @tr064CmdArray, ["WLANConfiguration:1", "wlanconfig1", "SetEnable", "NewEnable", $state]
if $cmd =~ /^(wlan|wlan2\.4)$/;
$result = FRITZBOX_TR064_Cmd( $hash, 0, \@tr064CmdArray ); $result = FRITZBOX_TR064_Cmd( $hash, 0, \@tr064CmdArray );
} }
else { #no API else { #no API
@ -4581,7 +4581,7 @@ sub FRITZBOX_Web_Query($$@)
FRITZBOX_Log $hash, 5, "Response: ".$response->status_line."\n".$response->content; FRITZBOX_Log $hash, 5, "Response: ".$response->status_line."\n".$response->content;
unless ($response->is_success) { unless ($response->is_success) {
my %retHash = ("Error" => $response->status_line); my %retHash = ("Error" => $response->status_line, "ResetSID" => "1");
FRITZBOX_Log $hash, 3, "Error: ".$response->status_line; FRITZBOX_Log $hash, 3, "Error: ".$response->status_line;
return \%retHash; return \%retHash;
} }