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

FRITZBOX: clean-up MACs of guest wlan

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@10172 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
grompo 2015-12-14 20:44:38 +00:00
parent 8379afbb7c
commit fce0a00bdd
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
fhem/FHEM/72_FRITZBOX.pm
View File

@ -1219,6 +1219,7 @@ sub FRITZBOX_Readout_Run_Web($)
$queryStr .= "&box_dect=dect:settings/enabled"; # DECT Sender
$queryStr .= "&handset=dect:settings/Handset/list(User,Manufacturer,Model,FWVersion)"; # DECT Handsets
$queryStr .= "&lanDevice=landevice:settings/landevice/list(ip,name,mac,active)"; # LAN devices
$queryStr .= "&wlanList=wlan:settings/wlanlist/list(state,is_guest,mac)"; # WLAN devices
$queryStr .= "&init=telcfg:settings/Foncontrol"; # Init
$queryStr .= "&box_stdDialPort=telcfg:settings/DialPort"; #Dial Port
$queryStr .= "&dectUser=telcfg:settings/Foncontrol/User/list(Id,Name,Intern,IntRingTone,AlarmRingTone0,RadioRingID,ImagePath,G722RingTone,G722RingToneName)"; # DECT Numbers
@ -1375,6 +1376,24 @@ sub FRITZBOX_Readout_Run_Web($)
}
}
# Remove Guest WLAN devices that are not online anymore
foreach ( @{ $result->{wlanList} } ) {
if ( $_->{is_guest} eq '1' && $_->{state} eq '0' ) {
my $rName = "mac_".$_->{mac};
$rName =~ s/:/_/g;
# set the mac readings to 'inactive' and delete at next readout
if ( exists $hash->{READINGS}{$rName} ) {
if ( $hash->{READINGS}{$rName}{VAL} ne "inactive" ) {
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName, "inactive";
}
else {
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName, "";
}
}
}
}
# WLANs
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_wlan_2.4GHz", $result->{box_wlan_24GHz}, "onoff";
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "box_wlan_5GHz", $result->{box_wlan_5GHz}, "onoff";