scripts/shell/change_cvs_author.pl

#!/usr/bin/perl

# script to change an author in all files
# in a cvs repository. Handy if a users
# login changes.

# tdb, 09/12/2001.

# sample line to fix:
#date     2000.10.08.21.13.25;  author tdb1;  state Exp;

# cvsroot
$cvsroot = "/usr/home/tdb/cvsup/i-scream";

# kick the recursion off
&checkdir($cvsroot);

# subroutine to check a directory, and recusively
# call itself on all subdirectories. Also makes
# appropriate changes to files as it finds them.
sub checkdir() {
    my($dir) = @_;
    print "* checking $dir...\n";
    # read current dir
    opendir(DIR, $dir);
    my(@contents) = readdir(DIR);
    closedir DIR;
    # look at each item
    foreach my $item (@contents) {
         # lets ignore . and .. :)
         if($item =~ /^.$/ || $item =~ /^..$/) {
             next;
         }
         # if it ends in ,v it's an RCS file!
         # ... and if it's a file, of course :)
         elsif($item =~ /,v$/ && -f "$dir/$item") {
             print "rcsfile: $item\n";
             # keep a copy to read from
             print `cp $dir/$item $dir/$item.b4`;
             # cvs doesn't give us write access
             print `chmod u+w $dir/$item`;
             # open the original for reading
             open(OFILE, "$dir/$item.b4");
             # and the new file (overwriting!)
             open(NFILE, ">$dir/$item") or die("can't write!");
             while(<OFILE>) {
                 # see if it's an author line..
                 if($_ =~ /^(date\s+\S+;\s+author\s+)(\S+)(;\s+state\s+\S+;)$/) {
                     print "  old author: $2\n";
                     # some hardcoded checking to see if we
                     # should change the author
                     if($2 eq "tdb1") {
                         print "  new author: tdb\n";
                         print NFILE $1 . "tdb" . $3;
                     }
                     elsif($2 eq "ajm4") {
                         print "  new author: ajm\n";
                         print NFILE $1 . "ajm" . $3;
                     }
                     # or just leave it alone
                     else { 
                         print "  unchanged\n";
                         print NFILE $_;
                     }
                 }
                 # not an author line, just add to new file
                 else {
                     print NFILE $_;
                 }
             }
             # close the files
             close OFILE;
             close NFILE;
             # get rid of that write we added :)
             print `chmod u-w $dir/$item`;
             # and get rid of our temporary file
             print `rm -f $dir/$item.b4`;
         }
         # recurse down the subdirectories
         elsif(-d "$dir/$item") {
             &checkdir("$dir/$item");
         }
    }
    print "* finished $dir.\n";
}
Revision:	1.1
Committed:	Sun Dec 9 02:33:25 2001 UTC (22 years, 11 months ago) by tdb
Content type:	text/plain
Branch:	MAIN
Log Message:	Script to change an author's login in the CVS repository. I'm just about to use it to change all occurances of "tdb1" to "tdb". It's written in perl and seems to be fairly sound. Tested on a small selection of files, including binary... with no problems.
#	User	Rev	Content
1	tdb	1.1	#!/usr/bin/perl
2
3			# script to change an author in all files
4			# in a cvs repository. Handy if a users
5			# login changes.
6
7			# tdb, 09/12/2001.
8
9			# sample line to fix:
10			#date 2000.10.08.21.13.25; author tdb1; state Exp;
11
12			# cvsroot
13			$cvsroot = "/usr/home/tdb/cvsup/i-scream";
14
15			# kick the recursion off
16			&checkdir($cvsroot);
17
18			# subroutine to check a directory, and recusively
19			# call itself on all subdirectories. Also makes
20			# appropriate changes to files as it finds them.
21			sub checkdir() {
22			my($dir) = @_;
23			print "* checking $dir...\n";
24			# read current dir
25			opendir(DIR, $dir);
26			my(@contents) = readdir(DIR);
27			closedir DIR;
28			# look at each item
29			foreach my $item (@contents) {
30			# lets ignore . and .. :)
31			if($item =~ /^.$/ \|\| $item =~ /^..$/) {
32			next;
33			}
34			# if it ends in ,v it's an RCS file!
35			# ... and if it's a file, of course :)
36			elsif($item =~ /,v$/ && -f "$dir/$item") {
37			print "rcsfile: $item\n";
38			# keep a copy to read from
39			print `cp $dir/$item $dir/$item.b4`;
40			# cvs doesn't give us write access
41			print `chmod u+w $dir/$item`;
42			# open the original for reading
43			open(OFILE, "$dir/$item.b4");
44			# and the new file (overwriting!)
45			open(NFILE, ">$dir/$item") or die("can't write!");
46			while(<OFILE>) {
47			# see if it's an author line..
48			if($_ =~ /^(date\s+\S+;\s+author\s+)(\S+)(;\s+state\s+\S+;)$/) {
49			print " old author: $2\n";
50			# some hardcoded checking to see if we
51			# should change the author
52			if($2 eq "tdb1") {
53			print " new author: tdb\n";
54			print NFILE $1 . "tdb" . $3;
55			}
56			elsif($2 eq "ajm4") {
57			print " new author: ajm\n";
58			print NFILE $1 . "ajm" . $3;
59			}
60			# or just leave it alone
61			else {
62			print " unchanged\n";
63			print NFILE $_;
64			}
65			}
66			# not an author line, just add to new file
67			else {
68			print NFILE $_;
69			}
70			}
71			# close the files
72			close OFILE;
73			close NFILE;
74			# get rid of that write we added :)
75			print `chmod u-w $dir/$item`;
76			# and get rid of our temporary file
77			print `rm -f $dir/$item.b4`;
78			}
79			# recurse down the subdirectories
80			elsif(-d "$dir/$item") {
81			&checkdir("$dir/$item");
82			}
83			}
84			print "* finished $dir.\n";
85			}