FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-02-01 07:19:24 +00:00
Code Issues Releases Wiki Activity

Fritzbox: Fixed PERL WARNING: Use of uninitialized value in string eq at ./FHEM/72_FRITZBOX.pm line 1577.

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@17437 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
tupol 2018-09-30 18:24:58 +00:00
parent eae45e6cf4
commit 2706741af7
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
fhem/FHEM/72_FRITZBOX.pm
View File

@ -1394,7 +1394,7 @@ sub FRITZBOX_Readout_Run_Web($)
my $result2; my $result2;
my $newQueryPart; my $newQueryPart;
# gets WLAN speed for fw>=6.69 # gets WLAN speed for fw>=6.69 and < 7
$queryStr=""; $queryStr="";
foreach ( @{ $result->{wlanListNew} } ) { foreach ( @{ $result->{wlanListNew} } ) {
$newQueryPart = "&".$_->{_node}."=wlan:settings/".$_->{_node}."/speed_rx"; $newQueryPart = "&".$_->{_node}."=wlan:settings/".$_->{_node}."/speed_rx";
@ -1408,7 +1408,7 @@ sub FRITZBOX_Readout_Run_Web($)
} }
} }
# gets LAN-Port for fw>=6.69 # gets LAN-Port for fw>=6.69 and fw<7
foreach ( @{ $result->{lanDeviceNew} } ) { foreach ( @{ $result->{lanDeviceNew} } ) {
$newQueryPart = "&".$_->{_node}."=landevice:settings/".$_->{_node}."/ethernet_port"; $newQueryPart = "&".$_->{_node}."=landevice:settings/".$_->{_node}."/ethernet_port";
if (length($queryStr.$newQueryPart) < 4050) { if (length($queryStr.$newQueryPart) < 4050) {
@ -1537,7 +1537,7 @@ sub FRITZBOX_Readout_Run_Web($)
foreach ( @{ $result->{wlanList} } ) { foreach ( @{ $result->{wlanList} } ) {
my $mac = $_->{mac}; my $mac = $_->{mac};
$mac =~ s/:/_/g; $mac =~ s/:/_/g;
# Anscheinend gibt es sowohl für repeater als auch für FBoxen Anmeldungen # Anscheinend gibt es Anmeldungen sowohl für Repeater als auch für FBoxen
$wlanList{$mac}{speed} = $_->{speed} if ! defined $wlanList{$mac}{speed} || $_->{speed} ne "0"; $wlanList{$mac}{speed} = $_->{speed} if ! defined $wlanList{$mac}{speed} || $_->{speed} ne "0";
$wlanList{$mac}{speed_rx} = $_->{speed_rx} if ! defined $wlanList{$mac}{speed_rx} || $_->{speed_rx} ne "0"; $wlanList{$mac}{speed_rx} = $_->{speed_rx} if ! defined $wlanList{$mac}{speed_rx} || $_->{speed_rx} ne "0";
#$wlanList{$mac}{speed_rx} = $result_lan->{$_->{_node}}; #$wlanList{$mac}{speed_rx} = $result_lan->{$_->{_node}};
@ -1573,8 +1573,10 @@ sub FRITZBOX_Readout_Run_Web($)
$mac =~ s/:/_/g; $mac =~ s/:/_/g;
# if ( !$_->{ethernet} && $_->{wlan} ) { # funktioniert nicht mehr seit v7 # if ( !$_->{ethernet} && $_->{wlan} ) { # funktioniert nicht mehr seit v7
if ( defined $wlanList{$mac} ) { if ( defined $wlanList{$mac} ) {
# Copes with fw>=7
$_->{guest} = $wlanList{$mac}{is_guest} if defined $wlanList{$mac}{is_guest} && $_->{guest} eq "";
$wlanCount++; $wlanCount++;
$gWlanCount++ if $_->{guest} eq "1" || $wlanList{$mac}{is_guest} eq "1" ; $gWlanCount++ if $_->{guest} eq "1";
$dName .= " ("; $dName .= " (";
$dName .= "g" if $_->{guest}; $dName .= "g" if $_->{guest};
$dName .= "WLAN"; $dName .= "WLAN";