#! /usr/local/bin/perl 
# A perl program to read the notifAlarmLog Table


use FileHandle;
use IPC::Open2;
use Symbol;
# use Tk;
use Sybase::CTlib;
use Time::Local;
use strict;
my $dbAlarm=new Sybase::CTlib 'harmless','harmless','OPSYB1','';
$dbAlarm->ct_sql("use TomTest");

my $sql =  "SELECT * FROM  notifAlarmLog
            GROUP BY name, AlarmStart";
my (@records) =  $dbAlarm->ct_sql($sql);
my ($record);
my ($t);
my ($PSFaultCount) = 0; # Keeps count of Power Supply Faults
foreach $record (@records) {
  $PSFaultCount++;
  print "$record->[0], $record->[1], $record->[2], $record->[3]\n";
 }
print "There are $PSFaultCount Valid PS Faults.\n";