--- gforth/testall	2000/09/23 18:59:00	1.9
+++ gforth/testall	2003/02/01 14:28:07	1.12
@@ -5,14 +5,24 @@ if test $# = 0; then
   echo "usage: `basename $0` gforth-xxx.tar.gz"
   exit 1
 fi
-test "x$MACHINES" != x || MACHINES="jupiter pcs d0 mips aertl@fpr.zserv.tuwien.ac.at aertl@stat.zserv.tuwien.ac.at a5 w4.infosys.tuwien.ac.at samhain.ifs.tuwien.ac.at calis a9"
-#taken out: hpws03.infosys.tuwien.ac.at aertl@fbma.tuwien.ac.at
+test "x$MACHINES" != x || 
+MACHINES="pcs d0 mips aertl@fpr.zserv.tuwien.ac.at \
+b1 b2 b3 b4 struppi \
+samhain.ifs.tuwien.ac.at calis aertl@mail.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 \
+128.130.173.38"
+#taken out: hpws03.infosys.tuwien.ac.at aertl@fbma.tuwien.ac.at w4.infosys.tuwien.ac.at jupiter aertl@stat.zserv.tuwien.ac.at  c2.complang.tuwien.ac.at
+SSH_PROTOCOL=-oProtocol=1,2
 for i in $MACHINES
 do
-	( ssh $i "test -d xxxgforthtest||mkdir xxxgforthtest; cd xxxgforthtest; test -d $i||mkdir $i; rm -rf $i/*"; \
-	 scp -pq $1 testdist $i:xxxgforthtest/$i; \
-	 ssh $i "cd xxxgforthtest/$i; ./testdist `basename $1`" >$i 2>&1; \
-	 echo "$i done" `tail -1 $i`) &
+#    echo; echo $i
+#    /usr/bin/ssh $SSH_PROTOCOL -x $i echo ok
+    ( 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`") &
 done
 wait
 echo all done