From c58c66c03aececa968df38ffd32bc78bcaa67ab4 Mon Sep 17 00:00:00 2001
From: Hadaq in Frankfurt <hadaq@frankfurt>
Date: Wed, 27 Mar 2013 18:29:24 +0100
Subject: [PATCH] less frequent update of monitor, so that errors can be seen
 bn

---
 soft/toolbox/jtag_atomic/jtagmonitor_usechainsini4.pl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/soft/toolbox/jtag_atomic/jtagmonitor_usechainsini4.pl b/soft/toolbox/jtag_atomic/jtagmonitor_usechainsini4.pl
index 5b598eb..d95e5f6 100755
--- a/soft/toolbox/jtag_atomic/jtagmonitor_usechainsini4.pl
+++ b/soft/toolbox/jtag_atomic/jtagmonitor_usechainsini4.pl
@@ -77,6 +77,7 @@ while (1){
   open(my $lastcounters_fh, ">", $lastcountersfile);
   my $run_counter_changed = 0;
   my $errors_occured = 0;
+  my $notstarted_or_crcerrors = 0;
   foreach my $chain (sort(keys %allchains)) {
     my %settings=%{$allchains{$chain}};
     my $fpga_addr = hex(substr($settings{'FPGAtrbnetAddr'},2));
@@ -130,6 +131,7 @@ while (1){
     else {
       $last_run_successful .= ', CRC Error: '. sprintf('%.8X', $v) . ',';
       $errors_occured = 1;
+      $notstarted_or_crcerrors = 1;
     }
     # Check if M26CS is STARTED (waiting for triggers)
     my $is_started  = trb_register_read(($fpga_addr), ($status2_started_addr));
@@ -139,6 +141,7 @@ while (1){
     $last_run_successful .= ' started: '. substr($vstr, 7, 1) . ')';
     if(not (substr($vstr, 7, 1) == 1)) {
       $errors_occured = 1;
+      $notstarted_or_crcerrors = 1;
     }   
 
 
@@ -277,7 +280,7 @@ while (1){
                        {"bgcolor"=>"#FFCC99", "text" => ""}, {"bgcolor"=>"#FF0000", "text" => ""}, {"bgcolor"=>"#99FF99", "text" => ""}]];
   $status_str .= "<h4>Legend</h4>".colored_table(@legend_table) . "<br><!-- end status //-->";
   $str = $status_str . $str;
-  if((!($run_counter_changed == 0))||$errors_occured != 0) {
+  if((!($run_counter_changed == 0))||($notstarted_or_crcerrors != 0)) {
     Hmon::WriteFile("jtagmonitor_usechainsini",$str);
   }
 
-- 
2.43.0