diff options
Diffstat (limited to 'kernel/xpp/utils/lszaptel')
-rwxr-xr-x | kernel/xpp/utils/lszaptel | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/kernel/xpp/utils/lszaptel b/kernel/xpp/utils/lszaptel index a836d98..d365ca1 100755 --- a/kernel/xpp/utils/lszaptel +++ b/kernel/xpp/utils/lszaptel @@ -36,8 +36,10 @@ foreach my $span (Zaptel::spans()) { my ($type) = map { $type_map{$_} or $_ } $chan->type || ("unknown"); my $batt = ""; $batt = "(battery)" if $chan->battery; - printf "%3d %-10s %-10s %s %s\n", - $chan->num, $type, $chan->signalling, $chan->info, $batt; + my @alarms = $chan->alarms; + my $alarm_str = join(" ", @alarms); + printf "%3d %-10s %-10s %s %s %s\n", + $chan->num, $type, $chan->signalling, $chan->info, $batt, $alarm_str; $index++; } } |