From 979500f1353618ba5ded572b36aba875cbd8b677 Mon Sep 17 00:00:00 2001
From: Adrian Weber <adrian.a.weber@exp2.physik.uni-giessen.de>
Date: Fri, 18 Jan 2019 12:01:25 +0100
Subject: [PATCH] script to write Threshold in Flash for all boards on
 Broadcast on all chains

---
 users/giessen_lab/thr2flash.py | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100755 users/giessen_lab/thr2flash.py

diff --git a/users/giessen_lab/thr2flash.py b/users/giessen_lab/thr2flash.py
new file mode 100755
index 0000000..06a1d30
--- /dev/null
+++ b/users/giessen_lab/thr2flash.py
@@ -0,0 +1,25 @@
+#!/usr/bin/perl -w
+
+use HADES::TrbNet;
+use Data::Dumper;
+
+if (!defined $ENV{'DAQOPSERVER'}) {
+  die "DAQOPSERVER not set in environment";
+}
+
+if (!defined &trb_init_ports()) {
+  die("can not connect to trbnet-daemon on the $ENV{'DAQOPSERVER'}");
+}
+
+my $dirich = trb_register_read(0xfe51,0x0);
+
+foreach my $b (keys $dirich) {
+my $addr = sprintf("0x%x",$b);
+print $addr."\n";
+my $str =  qx(/home/hadaq/trbsoft/daqtools/tools/spi_slave.pl  -e=$addr -c=0 -flashcmd=8 -x=memtoflash --range '0x0..0xf');
+print $str."\n";
+$str =  qx(/home/hadaq/trbsoft/daqtools/tools/spi_slave.pl  -e=$addr -c=1 -flashcmd=8 -x=memtoflash --range '0x0..0xf');
+print $str."\n";
+}
+#print Dumper $dirich;
+print "TEST\n";
-- 
2.43.0