summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTzafrir Cohen <tzafrir.cohen@xorcom.com>2009-03-09 16:30:36 +0000
committerTzafrir Cohen <tzafrir.cohen@xorcom.com>2009-03-09 16:30:36 +0000
commit094878194250aa5f3a5f76447aa5a195c9f7a7dc (patch)
treec3514a97c2af5d6357d46c7a0b95de5c94baa205
parent1cc5acda270a892f6e7ac7e32c4722a52248f9e2 (diff)
Fix detection of channels of dynamic spans in Dahdi::Chans
Fix the pattern detection of channels belonging to dynamic (dahdi_dynamic) spans in perl programs that use Dahdi::Chans (e.g.: lsdahdi) (closes issue #14630) Reported by: tamiel Patches: 20090309-perl5-Dahdi-Chans.diff uploaded by tamiel (license 712) git-svn-id: http://svn.asterisk.org/svn/dahdi/tools/trunk@6110 a0bf4364-ded3-4de4-8d8a-66a801d63aff
-rw-r--r--xpp/perl_modules/Dahdi/Chans.pm3
1 files changed, 3 insertions, 0 deletions
diff --git a/xpp/perl_modules/Dahdi/Chans.pm b/xpp/perl_modules/Dahdi/Chans.pm
index 6e31a10..b578d95 100644
--- a/xpp/perl_modules/Dahdi/Chans.pm
+++ b/xpp/perl_modules/Dahdi/Chans.pm
@@ -155,6 +155,9 @@ sub new($$$$$$) {
# ZTHFC: HFC-s single-port card (zaphfc/vzaphfc)
# ztqoz: qozap (Junghanns) multi-port HFC card
$type = "BRI";
+ } elsif ($fqn =~ m{\bDYN/.*}) {
+ # DYN : Dynamic span (TDMOE)
+ $type = "DYN"
} elsif ($fqn =~ m{\bztgsm/.*}) {
# Junghanns GSM card
$type = "GSM";