From 0135a6b2ad5a2068986272aa02a3ac2ded7c1ff8 Mon Sep 17 00:00:00 2001
From: jowiemann <jowiemann@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Thu, 2 Mar 2023 04:40:30 +0000
Subject: [PATCH] 72_FRITZBOX.pm: telnet/Fhem on FB disabled

git-svn-id: https://svn.fhem.de/fhem/trunk@27291 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/72_FRITZBOX.pm | 13 +++++--------
 1 file changed, 5 insertions(+), 8 deletions(-)

diff --git a/fhem/FHEM/72_FRITZBOX.pm b/fhem/FHEM/72_FRITZBOX.pm
index a193b214a..7285911a9 100644
--- a/fhem/FHEM/72_FRITZBOX.pm
+++ b/fhem/FHEM/72_FRITZBOX.pm
@@ -7480,13 +7480,6 @@ sub FRITZBOX_Lan_Devices_List($) {
      return $returnStr . $tmp;
    }
 
-   my $p_test = $result->{data}->{passive}->[0]->{state};
-   my $a_test = $result->{data}->{active}->[0]->{state};
-
-   my $views = $result->{data}->{active};
-   my $nbViews = scalar @$views;
-   my $lDump = "";
-
 #  $returnStr .= '<table border="8" cellspacing="10" cellpadding="20">';
    $returnStr .= '<table cellspacing="10" cellpadding="20">';
    $returnStr .= "<tr>\n";
@@ -7496,7 +7489,9 @@ sub FRITZBOX_Lan_Devices_List($) {
    $returnStr .= "<td>MAC</td><td>IPv4</td><td>UID</td><td>NAME</td><td>STATUS</td><td>INFO</td>\n";
    $returnStr .= "</tr>\n";
 
-   $nbViews = 0;
+   my $views;
+   my $nbViews = 0;
+
    if (defined $result->{data}->{active}) {
      $views = $result->{data}->{active};
      $nbViews = scalar @$views;
@@ -7532,6 +7527,8 @@ sub FRITZBOX_Lan_Devices_List($) {
    $returnStr .= "<td>MAC</td><td>IPv4</td><td>UID</td><td>NAME</td><td>STATUS</td><td>INFO</td>\n";
    $returnStr .= "</tr>\n";
 
+   $nbViews = 0;
+
    if (defined $result->{data}->{passive}) {
      $views = $result->{data}->{passive};
      $nbViews = scalar @$views;