Commit 714bc840 authored by Kevin Atkinson's avatar Kevin Atkinson

parent bdd04847
#!/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");
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment