From 2fd33dae6b495ddf237f8ec5eefacfb04af99fc0 Mon Sep 17 00:00:00 2001 From: Tzafrir Cohen Date: Wed, 21 Jul 2010 12:07:20 +0000 Subject: Allow using CONNECTOR/LABEL in genconf_parameters Allow using CONNECTOR/LABEL in addition to SPAN and NUM for pri_termtype in genconf_parameters Merged revisions 8923 via svnmerge from http://svn.digium.com/svn/dahdi/tools/trunk git-svn-id: http://svn.asterisk.org/svn/dahdi/tools/branches/2.3@8960 a0bf4364-ded3-4de4-8d8a-66a801d63aff --- xpp/perl_modules/Dahdi/Span.pm | 15 +++++++++++---- 1 file changed, 11 insertions(+), 4 deletions(-) (limited to 'xpp/perl_modules/Dahdi/Span.pm') diff --git a/xpp/perl_modules/Dahdi/Span.pm b/xpp/perl_modules/Dahdi/Span.pm index b5c6823..9dd3347 100644 --- a/xpp/perl_modules/Dahdi/Span.pm +++ b/xpp/perl_modules/Dahdi/Span.pm @@ -323,10 +323,17 @@ sub pri_set_fromconfig($$) { } push(@pri_specs , 'SPAN/* TE'); # Default my @patlist = ( "SPAN/" . $span->num ); - my ($xbus_name, $xpd_name) = ($name =~ m|(XBUS-\d+)/(XPD-\d+)|); - if(defined $xbus_name) { + my $xpd = $span->{XPD}; + if(defined $xpd) { + my $xbus = $xpd->xbus; + my $xbus_name = $xbus->name; + my $xpd_name = "XPD-" . $xpd->id; + my $label = $xbus->label; + my $connector = $xbus->connector; + #print "DEBUG: '$xbus_name/$xpd_name' LABEL='$label' CONNECTOR='$connector'\n"; push(@patlist, "NUM/$xbus_name/$xpd_name"); -# push(@patlist, "CONNECTOR/$ENV{XBUS_CONNECTOR}/$xpd_name"); + push(@patlist, "LABEL/$label/$xpd_name"); + push(@patlist, "CONNECTOR/$connector/$xpd_name"); } #print STDERR "PATLIST=@patlist\n"; my $match_termtype; @@ -343,7 +350,7 @@ SPEC: foreach my $pattern (@patlist) { #print STDERR "testmatch: $pattern =~ $match\n"; if($pattern =~ $match) { - #print STDERR "$xpd_name: MATCH '$pattern' ~ '$match' termtype=$termtype\n"; + #print STDERR "MATCH '$pattern' ~ '$match' termtype=$termtype\n"; $match_termtype = $termtype; last SPEC; } -- cgit v1.2.3