From 103cfbe917ceab134cb7bde47a93a5ddc134c336 Mon Sep 17 00:00:00 2001 From: Wzut Date: Fri, 29 Dec 2017 07:33:27 +0000 Subject: [PATCH] 96_SIP.pm : fix attr sip_audiofile_call value must be a audio file git-svn-id: https://svn.fhem.de/fhem/trunk@15715 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/96_SIP.pm | 26 ++++++++++++++++++++------ 1 file changed, 20 insertions(+), 6 deletions(-) diff --git a/fhem/FHEM/96_SIP.pm b/fhem/FHEM/96_SIP.pm index f7272a3a8..ea867fe49 100644 --- a/fhem/FHEM/96_SIP.pm +++ b/fhem/FHEM/96_SIP.pm @@ -1,6 +1,6 @@ ############################################################################### # -# $Id:17-10-30 13:41:59Z Wzut $ +# $Id$ # 96_SIP.pm # Based on FB_SIP from werner.meines@web.de # @@ -54,7 +54,7 @@ use Net::Domain qw(hostname hostfqdn); use Blocking; # http://www.fhemwiki.de/wiki/Blocking_Call #use Data::Dumper; -my $sip_version ="V1.71 / 16.12.17"; +my $sip_version ="V1.72 / 29.12.17"; my $ua; # SIP user agent my @fifo; @@ -173,7 +173,11 @@ sub SIP_Attr (@) if ($cmd eq "set") { - if (substr($attrName ,0,4) eq "sip_") + if ($attrName eq "sip_audiofile_call") + { + return "unknown audio type, please use only .alaw or .ulaw" if (($attrVal !~ /\.al(.+)$/) && ($attrVal !~ /\.ul(.+)$/)); + } + elsif (substr($attrName ,0,4) eq "sip_") { $_[3] = $attrVal; $hash->{".reset"} = 1 if defined($hash->{LPID}); @@ -766,6 +770,11 @@ sub SIP_Set($@) return undef; } + if (AttrVal($name, "sip_audiofile_call", "") && !defined($a[4])) + { + return "unknown audio type, please use only .alaw or .ulaw" if (($msg !~ /\.al(.+)$/) && ($msg !~ /\.ul(.+)$/)); + } + my $anz = @a; $anz--; # letztes Element @@ -1756,7 +1765,10 @@ sub SIP_rBU($$) {

SIP