From b28e31ea19d5a8c0c4fbe046a23905fcc78a6d47 Mon Sep 17 00:00:00 2001 From: grompo <> Date: Mon, 2 May 2016 06:02:23 +0000 Subject: [PATCH] FRITZBOX: mac with wlan shows RSSI git-svn-id: https://svn.fhem.de/fhem/trunk@11365 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/72_FRITZBOX.pm | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/fhem/FHEM/72_FRITZBOX.pm b/fhem/FHEM/72_FRITZBOX.pm index 31144cb38..da7646c2d 100644 --- a/fhem/FHEM/72_FRITZBOX.pm +++ b/fhem/FHEM/72_FRITZBOX.pm @@ -1252,7 +1252,7 @@ sub FRITZBOX_Readout_Run_Web($) my $queryStr = "&radio=configd:settings/WEBRADIO/list(Name)"; # Webradio $queryStr .= "&box_dect=dect:settings/enabled"; # DECT Sender $queryStr .= "&handset=dect:settings/Handset/list(User,Manufacturer,Model,FWVersion)"; # DECT Handsets - $queryStr .= "&wlanList=wlan:settings/wlanlist/list(mac,speed,speed_rx)"; # WLAN devices + $queryStr .= "&wlanList=wlan:settings/wlanlist/list(mac,speed,speed_rx,rssi)"; # WLAN devices #wlan:settings/wlanlist/list(hostname,mac,UID,state,rssi,quality,is_turbo,cipher,wmm_active,powersave,is_ap,ap_state,is_repeater,flags,flags_set,mode,is_guest,speed,speed_rx,channel_width,streams) $queryStr .= "&lanDevice=landevice:settings/landevice/list(ip,ethernet,ethernet_port,name,mac,active,online,wlan,speed)"; # LAN devices #landevice:settings/landevice/list(name,ip,mac,UID,dhcp,wlan,ethernet,active,static_dhcp,manu_name,wakeup,deleteable,source,online,speed,wlan_UIDs,auto_wakeup,guest,url,wlan_station_type,vendorname) @@ -1395,8 +1395,10 @@ sub FRITZBOX_Readout_Run_Web($) foreach ( @{ $result->{wlanList} } ) { $wlanList{$_->{mac}}{speed} = $_->{speed}; $wlanList{$_->{mac}}{speed_rx} = $_->{speed_rx}; + $wlanList{$_->{mac}}{rssi} = $_->{rssi}; FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fhem->wlanDevice->".$_->{mac}."->speed", $_->{speed}; FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fhem->wlanDevice->".$_->{mac}."->speed_rx", $_->{speed_rx}; + FRITZBOX_Readout_Add_Reading $hash, \@roReadings, "fhem->wlanDevice->".$_->{mac}."->rssi", $_->{rssi}; } # Create LanDevice list and delete inactive devices @@ -1418,7 +1420,8 @@ sub FRITZBOX_Readout_Run_Web($) $dName .= " ("; $dName .= "guest" if $_->{guest}; $dName .= "WLAN"; - $dName .= ", " . $wlanList{$_->{mac}}{speed} . " / " . $wlanList{$_->{mac}}{speed_rx} . " Mbit/s" if defined $wlanList{$_->{mac}}; + $dName .= ", " . $wlanList{$_->{mac}}{speed} . " / " . $wlanList{$_->{mac}}{speed_rx} . " Mbit/s, ". $wlanList{$_->{mac}}{rssi} + if defined $wlanList{$_->{mac}}; $dName .= ")"; } if ( $_->{ethernet} == 1 ) { @@ -4988,7 +4991,7 @@ sub FRITZBOX_fritztris($)