diff options
Diffstat (limited to 'kernel/xpp/utils/zaptel_hardware')
-rwxr-xr-x | kernel/xpp/utils/zaptel_hardware | 52 |
1 files changed, 42 insertions, 10 deletions
diff --git a/kernel/xpp/utils/zaptel_hardware b/kernel/xpp/utils/zaptel_hardware index 004a44b..81823f1 100755 --- a/kernel/xpp/utils/zaptel_hardware +++ b/kernel/xpp/utils/zaptel_hardware @@ -17,16 +17,16 @@ use Zaptel::Span; use Zaptel::Xpp; use Zaptel::Xpp::Xbus; use Zaptel::Hardware; +use Zaptel::Xpp::Mpp; sub usage { - die "Usage: $0 [-v][-x]\n"; + die "Usage: $0 [-v][-x][-t]\n"; } -our ($opt_v, $opt_x); -getopts('vx') || usage; +my %opts; +getopts('vxt', \%opts) || usage; @ARGV == 0 or usage; -my $hardware = Zaptel::Hardware->scan; my @spans = Zaptel::spans; sub show_xbus($) { @@ -37,6 +37,7 @@ sub show_xbus($) { printf " LABEL=%-20s CONNECTOR=%-20s\n", $label, $connector; foreach my $xpd (@xpds) { my $reg = $xpd->zt_registration; + my $channels = '(' . $xpd->channels . ')'; my $span; my $spanstr; if($reg && @spans) { @@ -48,7 +49,7 @@ sub show_xbus($) { my $master = ''; #$master = "XPP-SYNC" if $xpd->is_sync_master; $master .= " ZAPTEL-SYNC" if defined($span) && $span->is_zaptel_sync_master; - printf "\t%-10s: %-8s %s %s\n", $xpd->fqn, $xpd->type, $spanstr, $master; + printf "\t%-10s: %-8s %-5s %s %s\n", $xpd->fqn, $xpd->type, $channels, $spanstr, $master; } } @@ -59,37 +60,68 @@ sub show_disconnected(%) { my %seen = @_; my $notified_lost = 0; - foreach my $xbus (Zaptel::Xpp::xbuses('SORT_CONNECTOR')) { + foreach my $xbus (Zaptel::Xpp::xbuses) { if(!$seen{$xbus->name}) { print "----------- XPP Spans with disconnected hardware -----------\n" unless $notified_lost++; printf($format, $xbus->name, '', '', '', "NO HARDWARE"); - show_xbus($xbus) if $opt_v; + show_xbus($xbus) if $opts{'v'}; } } } -foreach my $dev ($hardware->device_list) { +# FIXME: For verbose display we also need to see the XPP devices. +# If no spans are registered, this won't happen. A brute-force +# methood for making it happe: +Zaptel::Xpp::xbuses if ($opts{'v'}); + +my @devices = Zaptel::Hardware->device_list; +foreach my $dev (@devices) { my $driver = $dev->driver || ""; my $xbus; my $loaded; + my $tws_port; + my $tws_power; + my $tws_watchdog; + my $mppinfo; if($dev->is_astribank) { $xbus = $dev->xbus; + if($opts{'v'} || $opts{'t'}) { + Zaptel::Xpp::Mpp->mpp_addinfo($dev); + $mppinfo = $dev->mppinfo; + if(defined $mppinfo) { + $tws_port = $mppinfo->{TWINSTAR_PORT}; + $tws_power = $mppinfo->{TWINSTAR_POWER}; + $tws_watchdog = $mppinfo->{TWINSTAR_WATCHDOG}; + } + } } $loaded = $dev->loaded; warn "driver should be '$driver' but is actually '$loaded'\n" if defined($loaded) && $driver ne $loaded; $driver = "$driver" . (($loaded) ? "+" : "-"); + if(defined $tws_power && defined $tws_watchdog) { + my $tws_active = $tws_watchdog && $tws_power->[0] && $tws_power->[1]; + $driver .= "[T]" if $tws_active; + } my $description = $dev->description || ""; printf $format, $dev->hardware_name, $driver, $dev->vendor, $dev->product, $description; + if($opts{'v'} && defined $mppinfo && exists $mppinfo->{MPP_TALK}) { + printf " MPP: TWINSTAR_PORT=$tws_port\n" if defined $tws_port; + printf " MPP: TWINSTAR_WATCHDOG=$tws_watchdog\n" if defined $tws_watchdog; + for(my $i = 0; $i < 2; $i++) { + printf " MPP: TWINSTAR_POWER[%d]=%d\n", + $i, $tws_power->[$i] if defined $tws_power; + } + } if(!defined $xbus || !$xbus) { next; } $seen{$xbus->name} = 1; - show_xbus($xbus) if $opt_v; + show_xbus($xbus) if $opts{'v'}; } -show_disconnected(%seen) if $opt_x; +show_disconnected(%seen) if $opts{'x'}; __END__ |