From: Adrian Weber <adrian.a.weber@exp2.physik.uni-giessen.de>
Date: Fri, 18 Jan 2019 11:01:25 +0000 (+0100)
Subject: script to write Threshold in Flash for all boards on Broadcast on all chains
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=979500f1353618ba5ded572b36aba875cbd8b677;p=daqtools.git

script to write Threshold in Flash for all boards on Broadcast on all chains
---

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";