[dahdi-commits] tzafrir: tools/trunk r6073 - /tools/trunk/xpp/perl_modules/Dahdi/Config/Gen/

[SVN commits to the DAHDI project]

Author: tzafrir
Date: Mon Mar  2 14:23:15 2009
New Revision: 6073

URL: http://svn.digium.com/svn-view/dahdi?view=rev&rev=6073
Log:
dahdi-perl: Do generate 'echocanceller' in system.conf

Fixed a regression from r6013 .

Modified:
    tools/trunk/xpp/perl_modules/Dahdi/Config/Gen/System.pm

Modified: tools/trunk/xpp/perl_modules/Dahdi/Config/Gen/System.pm
URL: http://svn.digium.com/svn-view/dahdi/tools/trunk/xpp/perl_modules/Dahdi/Config/Gen/System.pm?view=diff&rev=6073&r1=6072&r2=6073
==============================================================================
--- tools/trunk/xpp/perl_modules/Dahdi/Config/Gen/System.pm (original)
+++ tools/trunk/xpp/perl_modules/Dahdi/Config/Gen/System.pm Mon Mar  2 14:23:15 2009
@@ -18,6 +18,15 @@
 }
 
 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;
@@ -63,6 +72,7 @@
 		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 @@
 		printf "# astbanktype: output\n";
 	}
 	printf "$sig=$num\n";
+	print_echo_can($gconfig, $num);
 }
 
 sub generate($$$) {