dahdi-perl: Add basic T1-CAS support for dahdi_genconf

 - Support added in generators of system.conf and of chan_dahdi.conf .
 - Some strange asumptions about being FXS/FXO depending on being timing
   provider/supplier.
 - New gen_cas() method for Chandahdi and System.
 - Now gen_digital() is a bit cleaner.
 - Call gen_cas(), gen_openr2(), gen_digital() according to
   the 'pri_connection_type' config (CAS, R2, PRI/BRI).

xpp rev: 7307


git-svn-id: http://svn.asterisk.org/svn/dahdi/tools/trunk@7019 a0bf4364-ded3-4de4-8d8a-66a801d63aff

1 files changed, 28 insertions, 0 deletions

diff --git a/xpp/perl_modules/Dahdi/Config/Gen/Chandahdi.pm b/xpp/perl_modules/Dahdi/Config/Gen/Chandahdi.pm
index f636340..caa7607 100644
--- a/xpp/perl_modules/Dahdi/Config/Gen/Chandahdi.pm
+++ b/xpp/perl_modules/Dahdi/Config/Gen/Chandahdi.pm
@@ -80,6 +80,31 @@ EOF
 	reset_chandahdi_values(@to_reset);
 }
 
+sub gen_cas($$$) {
+	my $self = shift || die;
+	my $gconfig = shift || die;
+	my $span = shift || die;
+	my $num = $span->num() || die;
+	my $termtype = $span->termtype() || die "$0: Span #$num -- unkown termtype [NT/TE]\n";
+	my $type = $span->type;
+	my $group = $gconfig->{'group'}{"$type"};
+	die "$0: missing default group (termtype=$termtype)\n" unless defined($group);
+	my $context = $gconfig->{'context'}{"$type"};
+	die "$0: missing default context\n" unless $context;
+	# Fake type for signalling
+	my $faketype = ($termtype eq 'TE') ? 'FXO' : 'FXS';
+	my $sig = $gconfig->{'chan_dahdi_signalling'}{$faketype};
+	my @to_reset = qw/context group/;
+	my $chans = Dahdi::Config::Gen::chan_range($span->chans());
+	$group .= "," . (10 + $num);	# Invent unique group per span
+	printf "group=$group\n";
+	printf "context=$context\n";
+	printf "switchtype = %s\n", $span->switchtype;
+	printf "signalling = %s\n", $sig;
+	printf "channel => %s\n", $chans;
+	reset_chandahdi_values(@to_reset);
+}
+
 sub gen_digital($$$) {
 	my $self = shift || die;
 	my $gconfig = shift || die;
@@ -134,6 +159,7 @@ sub gen_channel($$) {
 
 	return if $type eq 'EMPTY';
 	die "missing default_chan_dahdi_signalling for chan #$num type $type" unless $sig;
+	die "missing context for chan #$num type $type" unless $context;
 	$callerid = ($type eq 'FXO')
 			? 'asreceived'
 			: sprintf "\"Channel %d\" <%04d>", $num, $exten;
@@ -199,6 +225,8 @@ HEAD
 			if($span->is_pri) {
 				if($gconfig->{'pri_connection_type'} eq 'R2') {
 					$self->gen_openr2($gconfig, $span);
+				} elsif($gconfig->{'pri_connection_type'} eq 'CAS') {
+					$self->gen_cas($gconfig, $span);
 				} else {
 					$self->gen_digital($gconfig, $span);
 				}