On Fri 28 Jun 2002 at 13:46:30 +0200, Ronald van der Pol wrote:
> On Fri, Jun 28, 2002 at 00:35:36 -0400, Steven M. Bellovin wrote:
> 
> > (A simple 'cvs update' fails if your original source tree came 
> > from the tarballs on releng.netbsd.org.  I wrote a tiny script to edit the
> > myriad instances of CVS/Root back to sanity.)
> 
> Sounds like a useful tool when switching between anoncvs servers. Could
> you post it?

This is what I once wrote:

#!/usr/pkg/bin/perl
# :syntax=perl
# Call this from within a CVS root directory of a module

# find . -name CVS -exec cvsrepository user@bla: /root pkgsrc/ {} \;
#
# To change from anoncvs@anoncvs.fr.netbsd.org:/pub/NetBSD-CVS
#             to :ext:anoncvs@anoncvs.no.netbsd.org:/cvsroot
# do
# find . -name CVS -exec cvsrepository :ext:anoncvs@anoncvs.no.netbsd.org: /cvsroot pkgsrc/ {} \;

use strict;
my $debug = 0;

my $remote = shift;
my $root = shift;
my $prefix = shift;
my $dir = shift;
print "remote=$remote root=$root prefix=$prefix dir=$dir\n" if $debug;

my $relativedir = $dir;
$relativedir =~ s;/CVS$;;;
$relativedir =~ s;^./;;;

my $Root = "$remote$root\n";
my $Repository = "$root/$prefix$relativedir\n";

print "Root = $Root" if $debug;
print "Repository = $Repository" if $debug;

open ROOT, ">$dir/Root";
print ROOT $Root;
close ROOT;

open REPOSITORY, ">$dir/Repository";
print REPOSITORY $Repository;
close REPOSITORY;


> 	rvdp