[m-rev.] for review: tools/test_mercury: s/rsh/ssh/g

[Fergus Henderson]

I noticed that we were still using rsh.
All of our machines now support ssh, AFAIK,
and as a matter of policy the department is shifting towards
turning rsh support off, so I think we should change.

I had to chmod g-w /home/mercury/public to get this to work
on some of our machines, though; without that, some versions of ssh 
would refuse to trust the files in /home/mercury/public/cron/.ssh.
(The refusal is wrong, I think, since the sticky bit on /home/mercury/public
means that only root and the `mercury' user can modify the
/home/mercury/public/cron directory; maybe that is why other (later?)
versions of ssh do allow it.)

Probably I won't commit this one until after the 0.11 release.

Estimated hours taken: 0.25
Branches: main

tools/test_mercury:
	Use ssh rather than rsh, and scp rather than rcp.

Workspace: /home/ceres/fjh/mercury
Index: tools/test_mercury
===================================================================
RCS file: /home/mercury1/repository/mercury/tools/test_mercury,v
retrieving revision 1.220
diff -u -d -r1.220 test_mercury
--- tools/test_mercury	13 Nov 2002 06:31:47 -0000	1.220
+++ tools/test_mercury	17 Nov 2002 08:33:44 -0000
@@ -960,15 +960,15 @@
 	else 
 		rm -f $UNSTABLE/mercury-test-failures-$version-unstable.txt
 	fi &&
-	rsh $BETA_FTPHOST \
+	ssh $BETA_FTPHOST \
 		"rm -f $BETA_FTPDIR/mercury-compiler-$RELEASE_VERSION_PATTERN-unstable.tar.gz" &&
-	rsh $BETA_FTPHOST \
+	ssh $BETA_FTPHOST \
 		"rm -f $BETA_FTPDIR/mercury-extras-$RELEASE_VERSION_PATTERN-unstable.tar.gz" &&
-	rsh $BETA_FTPHOST \
+	ssh $BETA_FTPHOST \
 		"rm -f $BETA_FTPDIR/mercury-tests-$RELEASE_VERSION_PATTERN-unstable.tar.gz" &&
-	rsh $BETA_FTPHOST \
+	ssh $BETA_FTPHOST \
 		"rm -f $BETA_FTPDIR/mercury-*-$RELEASE_VERSION_PATTERN-unstable.txt" &&
-	rcp $UNSTABLE/mercury-*-$version-unstable.* \
+	scp $UNSTABLE/mercury-*-$version-unstable.* \
 		$BETA_FTPHOST:$BETA_FTPDIR  &&
 	rm -f $BETA_WEBDIR/mercury-compiler-$RELEASE_VERSION_PATTERN-unstable.tar.gz &&
 	rm -f $BETA_WEBDIR/mercury-extras-$RELEASE_VERSION_PATTERN-unstable.tar.gz &&
@@ -978,9 +978,9 @@
 	;;
 esac
 case $HOST in $GCC_ROTD_HOST)
-	rsh $BETA_FTPHOST \
+	ssh $BETA_FTPHOST \
 		"rm -f $BETA_FTPDIR/mercury-gcc-$RELEASE_VERSION_PATTERN-unstable.tar.gz" &&
-	rcp $UNSTABLE/mercury-gcc-$version-unstable.* \
+	scp $UNSTABLE/mercury-gcc-$version-unstable.* \
 		$BETA_FTPHOST:$BETA_FTPDIR  &&
 	rm -f $BETA_WEBDIR/mercury-gcc-$RELEASE_VERSION_PATTERN-unstable.tar.gz &&
 	cp $UNSTABLE/mercury-gcc-$version-unstable.* $BETA_WEBDIR
@@ -1112,10 +1112,10 @@
 		$STABLE/mercury-NEWS-$version.$fullname.txt &&
 	$LN $UNSTABLE/mercury-INSTALL-$version.$fullname.txt \
 		$STABLE/mercury-INSTALL-$version.$fullname.txt &&
-	rsh $BETA_FTPHOST "rm -f \
+	ssh $BETA_FTPHOST "rm -f \
 		$BETA_FTPDIR/mercury-$RELEASE_VERSION_PATTERN.$fullname.tar.gz \
 		$BETA_FTPDIR/mercury*-$RELEASE_VERSION_PATTERN.$fullname.txt" &&
-	rcp $STABLE/mercury*-$version.$fullname.* $BETA_FTPHOST:$BETA_FTPDIR &&
+	scp $STABLE/mercury*-$version.$fullname.* $BETA_FTPHOST:$BETA_FTPDIR &&
 	case "$CVSROOT" in
 	    :pserver:guest* | :pserver:anon*)
 		echo "Not tagging CVS repository" \
@@ -1169,7 +1169,7 @@
 	    $LN $UNSTABLE/mercury-INSTALL-$version-unstable.txt \
 	        $STABLE/mercury-INSTALL-$version.txt &&
 
-	    rsh $BETA_FTPHOST "\
+	    ssh $BETA_FTPHOST "\
 	    rm -f $BETA_FTPDIR/mercury-*-$RELEASE_VERSION_PATTERN[0-9].tar.gz && 
 	    rm -f $BETA_FTPDIR/mercury-*-$version.tar.gz && 
 	    rm -f $BETA_FTPDIR/mercury-*-$RELEASE_VERSION_PATTERN[0-9].txt && 
@@ -1209,7 +1209,7 @@
 	    $LN $UNSTABLE/mercury-gcc-$version-unstable.tar.gz \
 	        $STABLE/mercury-gcc-$version.tar.gz &&
 
-	    rsh $BETA_FTPHOST "\
+	    ssh $BETA_FTPHOST "\
 	    rm -f $BETA_FTPDIR/mercury-gcc-$RELEASE_VERSION_PATTERN[0-9].tar.gz && 
 	    rm -f $BETA_FTPDIR/mercury-gcc-$version.tar.gz && 
 	    $LN $BETA_FTPDIR/mercury-gcc-$version-unstable.tar.gz \

-- 
Fergus Henderson <fjh at cs.mu.oz.au>  |  "I have always known that the pursuit
The University of Melbourne         |  of excellence is a lethal habit"
WWW: <http://www.cs.mu.oz.au/~fjh>  |     -- the last words of T. S. Garp.
--------------------------------------------------------------------------
mercury-reviews mailing list
post:  mercury-reviews at cs.mu.oz.au
administrative address: owner-mercury-reviews at cs.mu.oz.au
unsubscribe: Address: mercury-reviews-request at cs.mu.oz.au Message: unsubscribe
subscribe:   Address: mercury-reviews-request at cs.mu.oz.au Message: subscribe
--------------------------------------------------------------------------