diff options
| author | Tzafrir Cohen <tzafrir.cohen@xorcom.com> | 2009-11-05 09:41:22 +0000 |
|---|---|---|
| committer | Tzafrir Cohen <tzafrir.cohen@xorcom.com> | 2009-11-05 09:41:22 +0000 |
| commit | eb7afcaf1b0fd5dc34725479eb5ce91108ee06b8 (patch) | |
| tree | 2e18cb9160c3ecc644244527a650646e26b0262d /xpp/perl_modules/Dahdi/Xpp/Xpd.pm | |
| parent | 8dbfb49bdb521a68a700746e974117973c3f4bb8 (diff) | |
Use the timing_priority attribute, if available, to provide more corrent
LED indiction and such.
Merged revisions 7252-7253 via svnmerge from
http://svn.digium.com/svn/dahdi/tools/trunk
........
r7252 | tzafrir | 2009-09-29 21:06:47 +0200 (Tue, 29 Sep 2009) | 2 lines
xpp: xpp_sync: add -v and fix perldoc
........
r7253 | tzafrir | 2009-09-29 21:12:22 +0200 (Tue, 29 Sep 2009) | 2 lines
xpp: use xpd sysfs attr. timing_priority to set NT/TE
........
git-svn-id: http://svn.asterisk.org/svn/dahdi/tools/branches/2.2@7492 a0bf4364-ded3-4de4-8d8a-66a801d63aff
Diffstat (limited to 'xpp/perl_modules/Dahdi/Xpp/Xpd.pm')
| -rw-r--r-- | xpp/perl_modules/Dahdi/Xpp/Xpd.pm | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/xpp/perl_modules/Dahdi/Xpp/Xpd.pm b/xpp/perl_modules/Dahdi/Xpp/Xpd.pm index 5cf6f96..b438b3b 100644 --- a/xpp/perl_modules/Dahdi/Xpp/Xpd.pm +++ b/xpp/perl_modules/Dahdi/Xpp/Xpd.pm @@ -300,14 +300,24 @@ sub new($$$$$) { $self->{CHANNELS} = @offhook; my $type = $self->xpd_getattr('type'); my $span = $self->xpd_getattr('span'); + my $timing_priority = $self->xpd_getattr('timing_priority'); $self->{SPANNO} = $span; $self->{TYPE} = $type; + $self->{TIMING_PRIORITY} = $timing_priority; if($type =~ /BRI_(NT|TE)/) { $self->{IS_BRI} = 1; $self->{TERMTYPE} = $1; $self->{DCHAN_HARDHDLC} = $self->xpd_driver_getattr('dchan_hardhdlc'); + } elsif($type =~ /[ETJ]1/) { + $self->{IS_PRI} = 1; + # older drivers may not have 'timing_priority' + # attribute. Preserve original behaviour: + if(defined($timing_priority) && ($timing_priority == 0)) { + $self->{TERMTYPE} = 'NT'; + } else { + $self->{TERMTYPE} = 'TE'; + } } - $self->{IS_PRI} = ($type =~ /[ETJ]1/); $self->{IS_DIGITAL} = ( $self->{IS_BRI} || $self->{IS_PRI} ); Dahdi::Xpp::Line->create_all($self, $procdir); return $self; |