support remote imports (you must have a local cvs with same path as

remote for this to work)

Approved/Improved by: joerg

1 files changed, 3 insertions, 2 deletions

diff --git a/gnu/usr.bin/cvs/contrib/easy-import.pl b/gnu/usr.bin/cvs/contrib/easy-import.pl
index 2c457ac..9caba25 100644
--- a/gnu/usr.bin/cvs/contrib/easy-import.pl
+++ b/gnu/usr.bin/cvs/contrib/easy-import.pl
@@ -8,7 +8,7 @@
 #
 # Written by Jörg Wunsch, 95/03/07, and placed in the public domain.
 #
-# $Id$
+# $Id: easy-import.pl,v 1.12 1997/02/22 15:45:12 peter Exp $
 
 require "complete.pl";
 require "getopts.pl";
@@ -22,7 +22,7 @@ sub scan_opts
 
     $dont_do_it = "-n" if $opt_n;
     if($opt_v) {
-	print STDERR '$Source: /home/ncvs/src/gnu/usr.bin/cvs/contrib/easy-import.pl,v $ $Revision: 1.11 $' . "\n"; # 'emacs kludge
+	print STDERR '$Source: /home/ncvs/src/gnu/usr.bin/cvs/contrib/easy-import.pl,v $ $Revision: 1.12 $' . "\n"; # 'emacs kludge
 	exit 0;
     }
     die "usage: $0 [-v] [-n] [moduledir]\n" .
@@ -155,6 +155,7 @@ sub cvs_init
 
     # get the list of available repositories
     $cvsroot = $ENV{'CVSROOT'};
+    $cvsroot = (split(/:/, $cvsroot, 2))[1] if $cvsroot =~ /:/;
     @reps = &lsdir($cvsroot);
 }