diff options
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++; } } |