From 6a971f87db0a2f7b34fdfa7f15ae6242df1c76d6 Mon Sep 17 00:00:00 2001
From: Jan Michel <j.michel@gsi.de>
Date: Wed, 5 Nov 2014 18:18:59 +0100
Subject: [PATCH] continued padiwa temp

---
 dmon/scripts/dmon_heatmaprich.pl  | 2 +-
 dmon/scripts/dmon_padiwatemp.pl   | 9 ++++++---
 users/cern_cbmrich/dmon_config.pl | 5 ++---
 3 files changed, 9 insertions(+), 7 deletions(-)

diff --git a/dmon/scripts/dmon_heatmaprich.pl b/dmon/scripts/dmon_heatmaprich.pl
index 5963b31..988c49d 100755
--- a/dmon/scripts/dmon_heatmaprich.pl
+++ b/dmon/scripts/dmon_heatmaprich.pl
@@ -41,7 +41,7 @@ $plot2->{ylabel} = "row";
 $plot2->{addCmd} = "set lmargin at screen 0.07\nset rmargin at screen 0.85\nset bmargin at screen 0.07\nset tmargin at screen 0.95";
 HPlot::PlotInit($plot2);
 
-my $str = Dmon::MakeTitle(10,15,"HeatmapRich",0);
+my $str = Dmon::MakeTitle(9,14,"HeatmapRich",0);
    $str .= qq@<img src="%ADDPNG HeatmapRich.png%" type="image/png">@;
    $str .= Dmon::MakeFooter();
 Dmon::WriteFile("HeatmapRich",$str);
diff --git a/dmon/scripts/dmon_padiwatemp.pl b/dmon/scripts/dmon_padiwatemp.pl
index 5c51aa9..e6ff64f 100755
--- a/dmon/scripts/dmon_padiwatemp.pl
+++ b/dmon/scripts/dmon_padiwatemp.pl
@@ -2,11 +2,13 @@
 
 use warnings;
 use lib "./code";
+use lib "../tools";
 use HADES::TrbNet;
 use Dmon;
+use HPlot;
 use Data::Dumper;
 
-my %config = do $ARGV[0];
+my %config = Dmon::StartUp();
 
 
 
@@ -34,12 +36,13 @@ sub sendcmd {
    
 
 while(1) {
-  my $r = sendcmd(0x10040000,0xfe48,0);
   my $max = 1; 
   my $min = 100;  
   my ($maxboard, $minboard);
 
-  foreach my $b (keys %$r) {
+  foreach my $b ($config{PadiwaTrbAdresses}) {
+    my $r = sendcmd(0x10040000,$b,0);
+    next unless defined $r;
     my $temp = (($r->{$b} & 0xFFF))/16;
     next if ($temp < 10 || $temp > 90);
     if ($max < $temp) {
diff --git a/users/cern_cbmrich/dmon_config.pl b/users/cern_cbmrich/dmon_config.pl
index 2ff1dd9..2088f38 100644
--- a/users/cern_cbmrich/dmon_config.pl
+++ b/users/cern_cbmrich/dmon_config.pl
@@ -5,7 +5,7 @@
 activeScripts => [['time','ping','-','-','daqop'],
                   ['numfee','temperature','reftime','billboard','mbs'],
                   ['trgrate','datarate','deadtime','-','-'],
-                  ['heatmaprich','-','-','-','-'],
+                  ['heatmaprich','padiwatemp','-','-','-'],
                   ['cbmnetlink','cbmnetdata','cbmnetsync','-','-'],],
                   
 #Names to be shown in left column of Overview (max 4 letters!)
@@ -33,8 +33,7 @@ PadiwaTrbAdresses => [0x0010,0x0011,0x0012,0x0013,
                       0x00d0,0x00d1,0x00d2,0x00d3,
                       0x00e0,0x00e1,0x00e2,0x00e3,
                       0x00f0,0x00f1,0x00f2,0x00f3,
-                      0x0100,0x0101,0x0102,0x0103,
-                      0x0110,0x0111,0x0112,0x0113],
+                      0x0100,0x0101,0x0102,0x0103],
 
 HubTrbAdresses =>  [0x7005,0x7000,0x7001,0x7002,0x7003,
                     0x0015,
-- 
2.43.0