diff options
| author | Tzafrir Cohen <tzafrir.cohen@xorcom.com> | 2009-03-02 20:23:15 +0000 |
|---|---|---|
| committer | Tzafrir Cohen <tzafrir.cohen@xorcom.com> | 2009-03-02 20:23:15 +0000 |
| commit | e594beaf47f16883bce725a686440d086683baff (patch) | |
| tree | 5c4b63fcddddff5e2f18022d3dcb1c459aeacb98 | |
| parent | 9fafdebb4139e53af3cbcbfcfd88ea384586b51e (diff) | |
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
| -rw-r--r-- | xpp/perl_modules/Dahdi/Config/Gen/System.pm | 11 |
1 files changed, 11 insertions, 0 deletions
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($$$) { |