Dahdi-perl: Add alarms() method for channels. Use it in lsdahdi.

* Better paring of the /proc/dahdi/N channel lines for alarms
* Provide it as a separate alarms() method.


git-svn-id: http://svn.asterisk.org/svn/dahdi/tools/trunk@4764 a0bf4364-ded3-4de4-8d8a-66a801d63aff

1 files changed, 4 insertions, 2 deletions

diff --git a/xpp/lsdahdi b/xpp/lsdahdi
index 5611ddd..2b68e2c 100755
--- a/xpp/lsdahdi
+++ b/xpp/lsdahdi
@@ -36,8 +36,10 @@ foreach my $span (Dahdi::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++;
 	}
 }