#!/usr/bin/perl -w
#
# $Id: listalm,v 1.3 2002/06/22 18:33:31 cvs Exp $
#
# listalm: PIFIA alarms lister
#
# listalm         - lists every alarm of every priority
# listalm <prio>  - lists every alarm of priority prio
#

use strict;
use File::Basename;

#------------------------------------------------[ Configuration Section ]----

my $picabasedir = '/var/lib/pica/alarms';

#-----------------------------------------------------------------------------

sub printalarmdir ($) {
   my ($dir) = @_;
   my $count = 0;

   print "\nAlarms in priority ", basename ($dir), ":\n";
   while (<$dir/*-picacaller>) {
      my $name = basename $_;
      ++$count;
      print ("   $name",(-x )?'*':'', "\n");
   }

   $count;
}

my $priority = shift ;

if (defined $priority) {
   printalarmdir "$picabasedir/$priority";
} else {
   # Process every priority directory
   while (<$picabasedir/*>) {
      if (-d ) {
         print "  (none)\n" unless printalarmdir $_;
      }
   }
}
