FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-16 10:46:03 +00:00
Code Issues Releases Wiki Activity

FRITZBOX: bugfix

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@8819 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
tpoitzsch 2015-06-25 07:06:51 +00:00
parent aab72b5a3c
commit 2483dd7985
1 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
fhem/FHEM/72_FRITZBOX.pm
View File

@ -2734,8 +2734,15 @@ sub FRITZBOX_Ring_Run_Web($)
# uses name of port 0-3 (dial port 1-4) to show messages on ringing phone # uses name of port 0-3 (dial port 1-4) to show messages on ringing phone
my $ringWithIntern = AttrVal( $name, "ringWithIntern", 0 ); my $ringWithIntern = AttrVal( $name, "ringWithIntern", 0 );
if ( $ringWithIntern =~ /^([1-3])$/ ) { if ( $ringWithIntern =~ /^([1-3])$/ ) {
if ($startValue->{fonPort}->[$ringWithIntern-1]->{Name}) {
push @webCmdArray, "telcfg:settings/MSN/Port".($ringWithIntern-1)."/Name" => $msg; push @webCmdArray, "telcfg:settings/MSN/Port".($ringWithIntern-1)."/Name" => $msg;
FRITZBOX_Log $hash, 4, "Change temporarily name of calling number fon$ringWithIntern to '$msg'"; FRITZBOX_Log $hash, 4, "Change temporarily name of calling number fon$ringWithIntern to '$msg'";
}
else {
FRITZBOX_Log $hash, 2, "Error: Current name of calling number fon$ringWithIntern could not be determined -> Did not change the name.";
my $temp = Dumper( $startValue );
FRITZBOX_Log $hash, 3, "Debug info: \n".$temp;
}
push @webCmdArray, "telcfg:settings/DialPort" => $ringWithIntern; push @webCmdArray, "telcfg:settings/DialPort" => $ringWithIntern;
} }
elsif ($field{show}) { elsif ($field{show}) {
@ -2796,7 +2803,7 @@ sub FRITZBOX_Ring_Run_Web($)
} }
# Switch of Internet Radio stations # Switch of Internet Radio stations
if (!$ttsLink && $ringTone ==33 ) { if (!$ttsLink && defined $ringTone && $ringTone ==33 ) {
push @webCmdArray, "telcfg:command/Dial **".$intNo; push @webCmdArray, "telcfg:command/Dial **".$intNo;
push @webCmdArray, "telcfg:command/Hangup **".$intNo; push @webCmdArray, "telcfg:command/Hangup **".$intNo;
} }
@ -3488,12 +3495,18 @@ sub FRITZBOX_TR064_Cmd($$$)
my( $service, $control, $action, %params) = @{$_}; my( $service, $control, $action, %params) = @{$_};
my @soapParams; my @soapParams;
# {my $test="/upnp/control/test2";; $test =~ s#/upnp/control/##;; $test;;}
# clean service and control
$service =~ s/urn:dslforum-org:service://;
$control =~ s#/upnp/control/##;
my $logMsg = "service='$service', control='$control', action='$action'"; my $logMsg = "service='$service', control='$control', action='$action'";
# Prepare action parameter # Prepare action parameter
foreach (keys %params) { foreach (keys %params) {
$logMsg .= ", parameter".(int(@soapParams)+1)."='$_' => '$params{$_}'" ; $logMsg .= ", parameter".(int(@soapParams)+1)."='$_' => '$params{$_}'" ;
push @soapParams, SOAP::Data->name( $_ => $params{$_} ); push @soapParams, SOAP::Data->name( $_ => $params{$_} );
} }
FRITZBOX_Log $hash, 4, "Perform TR064 call - ".$logMsg; FRITZBOX_Log $hash, 4, "Perform TR064 call - ".$logMsg;
my $s = SOAP::Lite my $s = SOAP::Lite