version 1.7, 2000/07/26 15:29:54
|
version 1.16, 2003/08/27 12:13:49
|
Line 1
|
Line 1
|
#! /usr/local/bin/bash |
#! /usr/local/bin/bash |
#test dist on all MACHINES given in MACHINES |
#test dist on all MACHINES given in MACHINES |
#usage: MACHINES="..." testall dirs/gforth-version.tar.gz |
#usage: MACHINES="..." testall dirs/gforth-version.tar.gz |
test "x$MACHINES" != x || MACHINES="jupiter pcs d0 mips aertl@fpr.zserv.tuwien.ac.at aertl@fbma.tuwien.ac.at aertl@stat.zserv.tuwien.ac.at a5 w4.infosys.tuwien.ac.at samhain.ifs.tuwien.ac.at" |
if test $# = 0; then |
#taken out: hpws03.infosys.tuwien.ac.at a8 calis |
echo "usage: `basename $0` gforth-xxx.tar.gz" |
|
exit 1 |
|
fi |
|
test "x$MACHINES" != x || |
|
MACHINES="mips aertl@fpr.zserv.tuwien.ac.at \ |
|
b1 b2 b3 b4 c2 \ |
|
samhain.ifs.tuwien.ac.at calis aertl@mail.zserv.tuwien.ac.at \ |
|
aertl@stat.zserv.tuwien.ac.at \ |
|
rlwinm.ifs.tuwien.ac.at fmadd.ifs.tuwien.ac.at lfsux.ifs.tuwien.ac.at \ |
|
s4addq.ifs.tuwien.ac.at \ |
|
128.130.204.24 128.130.204.25 128.130.204.26 \ |
|
cdbook jupiter \ |
|
complang@red.a-business.co.at" |
|
#taken out: hpws03.infosys.tuwien.ac.at aertl@fbma.tuwien.ac.at w4.infosys.tuwien.ac.at d0 struppi pcs |
|
SSH_PROTOCOL=-oProtocol=1,2 |
for i in $MACHINES |
for i in $MACHINES |
do |
do |
( ssh $i "test -d xxxgforthtest||mkdir xxxgforthtest; cd xxxgforthtest; test -d $i||mkdir $i; rm -rf $i/*"; \ |
if false; then |
scp -pq $1 testdist $i:xxxgforthtest/$i; \ |
echo; echo $i |
ssh $i "cd xxxgforthtest/$i; ./testdist `basename $1`" >$i 2>&1; \ |
/usr/bin/ssh $SSH_PROTOCOL -x $i echo ok |
echo "$i done" `tail -1 $i`) & |
else |
|
( ssh $SSH_PROTOCOL -q -x $i "test -d xxxgforthtest||mkdir xxxgforthtest; cd xxxgforthtest; test -d $i||mkdir $i; rm -rf $i/*" >$i 2>&1; \ |
|
scp $SSH_PROTOCOL -p -q $1 ../testdist $i:xxxgforthtest/$i >>$i 2>&1; \ |
|
ssh $SSH_PROTOCOL -q -x $i "cd xxxgforthtest/$i; ./testdist `basename $1`" >>$i 2>&1; \ |
|
echo "$i done" "`tail -1 $i`") & |
|
fi |
done |
done |
wait |
wait |
echo all done |
echo all done |