FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-02-07 23:09:26 +00:00
Code Issues Releases Wiki Activity

FRITZBOX: robustness

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@8956 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
tpoitzsch 2015-07-13 18:02:21 +00:00
parent df4c373cf4
commit dbb3119d93
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/FHEM/72_FRITZBOX.pm
View File

@ -403,10 +403,15 @@ sub FRITZBOX_Set($$@)
return undef;
}
elsif ( lc $cmd eq 'startradio') {
if (int @val > 0) {
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;
}
}
@ -3793,7 +3798,6 @@ sub FRITZBOX_TR064_Cmd($$$)
-> call( $action => @soapParams );
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 $fstring = $s->faultstring; # also available
# my $factor = $s->faultactor;
@ -3801,6 +3805,7 @@ sub FRITZBOX_TR064_Cmd($$$)
my $edesc = $s->faultdetail->{'UPnPError'}->{'errorDescription'};
FRITZBOX_Log $hash, 2, "TR064-Error $ecode:$edesc ($logMsg)";
@{$cmdArray} = ();
my $fdetail = Dumper($s->faultdetail); # returns value of 'detail' element as string or object
return "Error\n".$fdetail;
}