#!/usr/bin/perl -w
#
# $Id: flushalm,v 1.2 2002/04/18 09:22:14 cvs Exp $
#
# listalm: PIFIA alarms lister
#
# flushalm         - removes every alarm of every priority
# flushalm <prio>  - removes every alarm of priority prio
#

use strict;
use File::Basename;

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

my $picabasedir = '<#$picaalarms#>';

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

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

   print "\nDeleting alarms in priority ", basename ($dir), ":\n";
   while (<$dir/*>) {
      my $fullname = $_;
      my $name = basename $_;
      ++$count;
      unlink $fullname;
      print ("   $name\n");
   }

   $count;
}

my $priority = shift ;

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