2
0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-08 13:24:56 +00:00

72_FRITZBOX.pm: Version 07.57.10a

git-svn-id: https://svn.fhem.de/fhem/trunk@28405 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
jowiemann 2024-01-23 07:44:22 +00:00
parent fed9ddeb22
commit b8e7cf69b4

View File

@ -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;