From 002c42bf0bc248c03141f537ab41a99830cbc173 Mon Sep 17 00:00:00 2001
From: hadaq <M.Traxler@gsi.de>
Date: Tue, 26 May 2015 23:57:38 +0200
Subject: [PATCH] added, mt

---
 users/gsi_dirc/trbreset_loop.pl | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100755 users/gsi_dirc/trbreset_loop.pl

diff --git a/users/gsi_dirc/trbreset_loop.pl b/users/gsi_dirc/trbreset_loop.pl
new file mode 100755
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);
+}
-- 
2.43.0