temperature alarm e-mail, cw

diff --git a/hmon/hmon_mdc_temp.pl b/hmon/hmon_mdc_temp.pl
index 5631056221c9aefeca18f55b27299fc4034ff714..c065f1af95a97ae03f58c3eb9bd35910795e3d10 100755 (executable)
--- a/hmon/hmon_mdc_temp.pl
+++ b/hmon/hmon_mdc_temp.pl
@@ -7,6 +7,7 @@ use FileHandle;
 use Data::Dumper;
 use POSIX qw/floor ceil/;
 use List::Util 'max';
+use Perl2Epics;
 use QA;
 
 use Hmon;
@@ -28,7 +29,12 @@ my ($max,$min,$avg,$mean);
 
 trb_init_ports() or die trb_strerror();
 
-#Perl2Epics::Connect("TempP2S","HAD:MDC:P2:S1:M1:temp");
+Perl2Epics::Connect("TempAlarmEPICS","HAD:MDC:TEMP:TempLV:alarm");
+my $data = Perl2Epics::GetAll();
+
+#print Dumper $data;
+#print $data->{'TempAlarmEPICS'}->{'val'} . "\n";
+#exit;
 
 while (1) {
   my $rh_mdc_temp;
@@ -74,9 +80,9 @@ while (1) {
                  "Max. temperature in each plane of MDC are " . $str);
   $store = {};
 
-  if($qastate >= QA::ERROR) {
+  if($qastate >= QA::ERROR || ( $data->{'TempAlarmEPICS'}->{'val'} > 0 )  ) {
     if($mailerrstatecnt++ >= 30) {
-      Hmon::SendEmail('j.michel@gsi.de,c.wendisch@gsi.de',"Error: MDC Temperature too high","MDC temperatures are too high:  \n$str");
+      Hmon::SendEmail('c.wendisch@gsi.de',"Error: MDC Temperature too high","MDC temperatures are too high:  \n$str");
       $mailerrstatecnt = 0;
       }
     }