From e594beaf47f16883bce725a686440d086683baff Mon Sep 17 00:00:00 2001 From: Tzafrir Cohen Date: Mon, 2 Mar 2009 20:23:15 +0000 Subject: dahdi-perl: Do generate 'echocanceller' in system.conf Fixed a regression from r6013 . git-svn-id: http://svn.asterisk.org/svn/dahdi/tools/trunk@6073 a0bf4364-ded3-4de4-8d8a-66a801d63aff --- xpp/perl_modules/Dahdi/Config/Gen/System.pm | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'xpp/perl_modules') diff --git a/xpp/perl_modules/Dahdi/Config/Gen/System.pm b/xpp/perl_modules/Dahdi/Config/Gen/System.pm index 17fb802..da60ec4 100644 --- a/xpp/perl_modules/Dahdi/Config/Gen/System.pm +++ b/xpp/perl_modules/Dahdi/Config/Gen/System.pm @@ -19,6 +19,15 @@ sub new($$$) { my $bri_te_last_timing = 1; +sub print_echo_can($$) { + my $gconfig = shift || die; + my $chans = shift || die; # channel or range of channels. + my $echo_can = $gconfig->{'echo_can'}; + return if !defined($echo_can) || $echo_can eq 'none'; + + print "echocanceller=$echo_can,$chans\n"; +} + sub gen_digital($$) { my $gconfig = shift || die; my $span = shift || die; @@ -63,6 +72,7 @@ sub gen_digital($$) { printf "cas=%s:$idle_bits\n", Dahdi::Config::Gen::bchan_range($span); printf "dchan=%d\n", $span->dchan()->num(); } + print_echo_can($gconfig, Dahdi::Config::Gen::bchan_range($span)); } sub gen_signalling($$) { @@ -84,6 +94,7 @@ sub gen_signalling($$) { printf "# astbanktype: output\n"; } printf "$sig=$num\n"; + print_echo_can($gconfig, $num); } sub generate($$$) { -- cgit v1.2.3