From eb7afcaf1b0fd5dc34725479eb5ce91108ee06b8 Mon Sep 17 00:00:00 2001
From: Tzafrir Cohen <tzafrir.cohen@xorcom.com>
Date: Thu, 5 Nov 2009 09:41:22 +0000
Subject: 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
---
 xpp/perl_modules/Dahdi/Xpp/Xpd.pm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

(limited to 'xpp/perl_modules/Dahdi/Xpp/Xpd.pm')

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;
-- 
cgit v1.2.3