thr2Flash changed

diff --git a/users/giessen_lab/thr2flash.pl b/users/giessen_lab/thr2flash.pl
new file mode 100755 (executable)
index 0000000..46d28c8
--- /dev/null
+++ b/users/giessen_lab/thr2flash.pl
@@ -0,0 +1,32 @@
+#!/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);
+  writeThr2Flash($addr);
+}
+#print Dumper $dirich;
+
+
+sub writeThr2Flash {
+  my $addr = @_;
+  print $addr."...";
+
+  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 "done!\n"; 
+}

diff --git a/users/giessen_lab/thr2flash.py b/users/giessen_lab/thr2flash.py
deleted file mode 100755 (executable)
index 06a1d30..0000000
--- a/users/giessen_lab/thr2flash.py
+++ /dev/null
@@ -1,25 +0,0 @@
-#!/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";