less frequent update of monitor, so that errors can be seen

bn

diff --git a/soft/toolbox/jtag_atomic/jtagmonitor_usechainsini4.pl b/soft/toolbox/jtag_atomic/jtagmonitor_usechainsini4.pl
index 5b598ebd60cd343b124ec2623de00cdc3caa21f8..d95e5f659afb31428bf0fc2d846a6b7ed16d6518 100755 (executable)
--- 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);
   }