From b8e7cf69b4af3b0b2191131f83ab2a52f27dfffb Mon Sep 17 00:00:00 2001
From: jowiemann <>
Date: Tue, 23 Jan 2024 07:44:22 +0000
Subject: [PATCH] 72_FRITZBOX.pm: Version 07.57.10a

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

diff --git a/fhem/FHEM/72_FRITZBOX.pm b/fhem/FHEM/72_FRITZBOX.pm
index 44288a1e8..b6c41c329 100644
--- a/fhem/FHEM/72_FRITZBOX.pm
+++ b/fhem/FHEM/72_FRITZBOX.pm
@@ -41,7 +41,7 @@ use warnings;
 use Blocking;
 use HttpUtils;
 
-my $ModulVersion = "07.57.10";
+my $ModulVersion = "07.57.10a";
 my $missingModul = "";
 my $FRITZBOX_TR064pwd;
 my $FRITZBOX_TR064user;
@@ -8384,6 +8384,8 @@ sub FRITZBOX_SOAP_Test_Request($$$$)
    my ($box,$control_url,$service_type,$service_command) = @_;
    my $hash = $defs{$box};
 
+   use Data::Dumper;
+
    return Dumper FRITZBOX_SOAP_Request($hash, $control_url, $service_type, $service_command);
 
 } # end of FRITZBOX_SOAP_Test_Request
@@ -8714,7 +8716,7 @@ sub FRITZBOX_open_Web_Connection ($)
    my $avmModel = InternalVal($name, "MODEL", $hash->{boxModel});
    my $user = AttrVal( $name, "boxUser", "" );
 
-   if ($user eq "" && $avmModel =~ "Box") {
+   if ($user eq "" && $avmModel && $avmModel =~ "Box") {
       FRITZBOX_Log $hash, 2, "No boxUser set. Please define it (once) with 'attr $name boxUser YourBoxUser'";
       %retHash = ( "Error" => "No attr boxUser set", "ResetSID" => "1" ) ;
       return \%retHash;