diff options
author | tzafrir <tzafrir@5390a7c7-147a-4af0-8ec9-7488f05a26cb> | 2008-01-10 20:10:14 +0000 |
---|---|---|
committer | tzafrir <tzafrir@5390a7c7-147a-4af0-8ec9-7488f05a26cb> | 2008-01-10 20:10:14 +0000 |
commit | 386886c5f539500e16e912009583d4cd3903c069 (patch) | |
tree | ea8770c42e8e31a46fb1db17286ca9118842d345 /xpp/utils/lszaptel | |
parent | 0d01869a1227b56da6982b123ce9aa60810e6693 (diff) |
xpp.r5254:
* Improved polarity reversal hangups in FXO (r5194).
Fixed false detection of polarity reversals.
* Optimize xframe allocation, by not zeroing the whole
memory (in get_xframe()).
* Fixed erronous error message that appeared sometimes
from fpga_load during USB renumeration.
* Zaptel::Chans now provides battery() reporting for some FXO
channels (Astribank FXO and wcfxo).
Merged revisions 3643 via svnmerge from
http://svn.digium.com/svn/zaptel/branches/1.2
git-svn-id: http://svn.digium.com/svn/zaptel/branches/1.4@3646 5390a7c7-147a-4af0-8ec9-7488f05a26cb
Diffstat (limited to 'xpp/utils/lszaptel')
-rwxr-xr-x | xpp/utils/lszaptel | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/xpp/utils/lszaptel b/xpp/utils/lszaptel index 3126c8a..a836d98 100755 --- a/xpp/utils/lszaptel +++ b/xpp/utils/lszaptel @@ -13,8 +13,20 @@ BEGIN { my $dir = dirname($0); unshift(@INC, "$dir", "$dir/zconf"); } use Zaptel; use Zaptel::Span; +use Zaptel::Xpp; +use Zaptel::Xpp::Xbus; +use Zaptel::Xpp::Xpd; + +my @xbuses = Zaptel::Xpp::xbuses("SORT_CONNECTOR"); +my @xpds = map { $_->xpds } @xbuses; foreach my $span (Zaptel::spans()) { + my $spanno = $span->num; + my $xpd = $span->xpd; + my @lines; + my $index = 0; + + @lines = @{$xpd->lines} if defined $xpd; printf "### Span %2d: %s %s\n", $span->num, $span->name, $span->description; foreach my $chan ($span->chans()) { my %type_map = ( @@ -22,7 +34,11 @@ foreach my $span (Zaptel::spans()) { IN => 'Input' ); my ($type) = map { $type_map{$_} or $_ } $chan->type || ("unknown"); - printf "%3d %-10s %-10s %s\n", $chan->num, $type, $chan->signalling, $chan->info; + my $batt = ""; + $batt = "(battery)" if $chan->battery; + printf "%3d %-10s %-10s %s %s\n", + $chan->num, $type, $chan->signalling, $chan->info, $batt; + $index++; } } |