From 714bc840f4574c88c6cfa8a3cee6c766f353c4aa Mon Sep 17 00:00:00 2001
From: Kevin Atkinson <kevina@cs.utah.edu>
Date: Thu, 27 Sep 2007 21:45:51 +0000
Subject: [PATCH] Added file to reset the pipes for the elabc cloud.
---
pelab/reset-elabc.pl | 20 ++++++++++++++++++++
1 file changed, 20 insertions(+)
create mode 100755 pelab/reset-elabc.pl
diff --git a/pelab/reset-elabc.pl b/pelab/reset-elabc.pl
new file mode 100755
index 0000000000..6e400579e7
--- /dev/null
+++ b/pelab/reset-elabc.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+
+$proj = $ARGV[0];
+$exp = $ARGV[1];
+
+die "usage: $0 PROJ EXP\n" unless @ARGV == 2;
+
+sub psystem(@) {
+ print join(' ', @_);
+ print "\n";
+ system(@_);
+ die unless $? == 0;
+}
+
+# reset the links
+# wait only on the reset event
+psystem("/usr/testbed/bin/tevc -e $proj/$exp now elabc clear");
+psystem("/usr/testbed/bin/tevc -w -e $proj/$exp now elabc reset");
+psystem("/usr/testbed/bin/tevc -e $proj/$exp now elabc create");
+
--
GitLab