#!/usr/bin/perl -w
#
# This perl script sets the CVSROOT for already
# checked out setups by editing CVS/Root and CVS/Repository
#

$| = 1;

$newroot = "/home/e614mgr/cvs";
die "CVSROOT directory $newroot does not exist: $!\n" if ! -d $newroot;

open (FIND,"find . -type d -print |");
while (<FIND>)
  {
    chop;
    dodir($_);
  }
close FIND;

exit 0;

sub dodir
  {
    my $dir = shift @_;

    return if ! -d "$dir/CVS";

    my $cvsroot = `cat $dir/CVS/Root`; chop $cvsroot;
    my $cvsrepo = `cat $dir/CVS/Repository`; chop $cvsrepo;

    my $pad = " " x (30 - length($dir));

    print "dir: [$dir] $pad [$cvsroot] [$cvsrepo]\n";

    if ($cvsroot ne $newroot)
      {
	`echo $newroot > $dir/CVS/Root`;
      }
  }

#end file