Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 22:19:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

FRITZBOX: robustness

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@8956 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
tpoitzsch 2015-07-13 18:02:21 +00:00
parent 758af67a96
commit 2b10e75dca
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
FHEM/72_FRITZBOX.pm
View File

@ -403,10 +403,15 @@ sub FRITZBOX_Set($$@)
return undef; return undef;
} }
elsif ( lc $cmd eq 'startradio') { elsif ( lc $cmd eq 'startradio') {
if (int @val > 0) { if (int @val > 0) {
Log3 $name, 3, "FRITZBOX: set $name $cmd ".join(" ", @val); Log3 $name, 3, "FRITZBOX: set $name $cmd ".join(" ", @val);
return FRITZBOX_StartRadio_Web $hash, @val unless ($forceShell) {
unless $forceShell; return FRITZBOX_StartRadio_Web $hash, @val if $hash->{WEBCM};
my $msg = "startRadio cannot be performed. Device '$name' misses API 'webcm'.";
Log3 $name, 2, $msg;
return $msg;
}
return FRITZBOX_StartRadio_Shell $hash, @val; return FRITZBOX_StartRadio_Shell $hash, @val;
} }
} }
@ -3793,7 +3798,6 @@ sub FRITZBOX_TR064_Cmd($$$)
-> call( $action => @soapParams ); -> call( $action => @soapParams );
if ($s->fault) { # will be defined if Fault element is in the message if ($s->fault) { # will be defined if Fault element is in the message
my $fdetail = Dumper($s->faultdetail); # returns value of 'detail' element as string or object
# my $fcode = $s->faultcode; # # my $fcode = $s->faultcode; #
# my $fstring = $s->faultstring; # also available # my $fstring = $s->faultstring; # also available
# my $factor = $s->faultactor; # my $factor = $s->faultactor;
@ -3801,6 +3805,7 @@ sub FRITZBOX_TR064_Cmd($$$)
my $edesc = $s->faultdetail->{'UPnPError'}->{'errorDescription'}; my $edesc = $s->faultdetail->{'UPnPError'}->{'errorDescription'};
FRITZBOX_Log $hash, 2, "TR064-Error $ecode:$edesc ($logMsg)"; FRITZBOX_Log $hash, 2, "TR064-Error $ecode:$edesc ($logMsg)";
@{$cmdArray} = (); @{$cmdArray} = ();
my $fdetail = Dumper($s->faultdetail); # returns value of 'detail' element as string or object
return "Error\n".$fdetail; return "Error\n".$fdetail;
} }