FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-01 12:38:37 +00:00
Code Issues Releases Wiki Activity

72_FRITZBOX.pm: telnet/Fhem on FB disabled

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@27290 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
jowiemann 2023-03-02 04:31:29 +00:00
parent 204fd8ed39
commit a4bb02a5cc
1 changed files with 24 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
fhem/FHEM/72_FRITZBOX.pm
View File

@ -2784,26 +2784,33 @@ sub FRITZBOX_Readout_Run_Web($)
FRITZBOX_Log $hash, 5, "DEBUG: \n" . Dumper ($resultWan->{data}->{scanlist});
$views = $resultWan->{data}->{scanlist};
$nbViews = scalar @$views;
$nbViews = 0;
if (defined $resultWan->{data}->{scanlist}) {
$views = $resultWan->{data}->{scanlist};
$nbViews = scalar @$views;
}
eval {
for(my $i = 0; $i <= $nbViews - 1; $i++) {
my $dName = $resultWan->{data}->{scanlist}->[$i]->{ssid};
$dName .= " (Kanal: " . $resultWan->{data}->{scanlist}->[$i]->{channel};
$dName .= ", Band: " . $resultWan->{data}->{scanlist}->[$i]->{bandId} . ")";
if ($nbViews > 0) {
$rName = $resultWan->{data}->{scanlist}->[$i]->{mac};
$rName =~ s/:/_/g;
$rName = $nbhPrefix . $rName;
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName, $dName;
delete $oldWanDevice{$rName} if exists $oldWanDevice{$rName};
}
};
$rName = "box_wlan_lastScanTime";
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName, $resultWan->{data}->{lastScantime};
delete $oldWanDevice{$rName} if exists $oldWanDevice{$rName};
eval {
for(my $i = 0; $i <= $nbViews - 1; $i++) {
my $dName = $resultWan->{data}->{scanlist}->[$i]->{ssid};
$dName .= " (Kanal: " . $resultWan->{data}->{scanlist}->[$i]->{channel};
$dName .= ", Band: " . $resultWan->{data}->{scanlist}->[$i]->{bandId} . ")";
$rName = $resultWan->{data}->{scanlist}->[$i]->{mac};
$rName =~ s/:/_/g;
$rName = $nbhPrefix . $rName;
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName, $dName;
delete $oldWanDevice{$rName} if exists $oldWanDevice{$rName};
}
};
$rName = "box_wlan_lastScanTime";
FRITZBOX_Readout_Add_Reading $hash, \@roReadings, $rName, $resultWan->{data}->{lastScantime};
delete $oldWanDevice{$rName} if exists $oldWanDevice{$rName};
}
}
# Remove inactive or non existing wan-readings in two steps
foreach ( keys %oldWanDevice ) {
# set the wan readings to 'inactive' and delete at next readout