(CVSROOT, repository): Allow remote repositories a la CVS 1.4.

diff --git a/lib-src/rcs2log b/lib-src/rcs2log
index 3bcf5e9ace9fdebca84d66031d93b91c505fa4ed..632b6679e3a5395ddf3d1b0693df31835ecc2791 100755 (executable)
--- a/lib-src/rcs2log
+++ b/lib-src/rcs2log
@@ -12,7 +12,7 @@
 
 # Author: Paul Eggert <eggert@twinsun.com>
 
-# $Id: rcs2log,v 1.22 1995/04/30 15:34:52 eggert Exp $
+# $Id: rcs2log,v 1.24 1995/06/28 01:47:55 eggert Exp $
 
 # Copyright 1992, 1993, 1994, 1995 Free Software Foundation, Inc.
 
@@ -178,15 +178,23 @@ then
 else
        rlog='cvs log'
        repository=`sed 1q <CVS/Repository` || exit
-       case $repository in
-       /*) ;;
-       *) repository=${CVSROOT?}/$repository
+       test ! -f CVS/Root || CVSROOT=`cat <CVS/Root` || exit
+       case ${CVSROOT?} in
+       *:/*)
+               # remote repository
+               ;;
+       *)
+               # local repository
+               case $repository in
+               /*) ;;
+               *) repository=$CVSROOT/$repository
+               esac
+               if test ! -d "$repository"
+               then
+                       echo >&2 "$0: $repository: bad repository (see CVS/Repository)"
+                       exit 1
+               fi
        esac
-       if test ! -d "$repository"
-       then
-               echo >&2 "$0: $repository: bad repository (see CVS/Repository)"
-               exit 1
-       fi
 fi
 
 # With no arguments, examine all files under the RCS directory.