added, mt

diff --git a/users/gsi_dirc/trbreset_loop.pl b/users/gsi_dirc/trbreset_loop.pl
new file mode 100755 (executable)
index 0000000..36c295a
--- /dev/null
+++ b/users/gsi_dirc/trbreset_loop.pl
@@ -0,0 +1,30 @@
+#!/usr/bin/perl
+
+use strict; 
+use warnings;
+
+### Change THIS!
+##js my $required_endpoints = 65;
+my $required_endpoints = 35;
+
+
+
+my $max_counter = 10;
+my $counter = 0;
+my $number = 0;
+
+
+#js while (($number != 65) || ($counter > $max_counter)) {
+while (($number != 35) || ($counter > $max_counter)) {
+    my $c; my $res;
+
+    $counter++;
+    $c= "trbcmd reset";
+    $res = qx($c);
+
+    $c = "trbcmd i 0xffff | wc -l";
+    $res = qx($c),
+    print "- number of trb endpoints in the system: $res";
+    ($number) = $res =~ /(\d+)/;
+    print "number of enpoints smaller than $required_endpoints, so try next reset!\n" if ($number <$required_endpoints);
+}