From: hadaq <M.Traxler@gsi.de>
Date: Tue, 26 May 2015 21:57:38 +0000 (+0200)
Subject: added, mt
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=002c42bf0bc248c03141f537ab41a99830cbc173;p=daqtools.git

added, mt
---

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);
+}