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 (executable)
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";