ViewVC Help
View File | Revision Log | Show Annotations | Revision Graph | Root Listing
root/i-scream/misc/scripts/shell/change_cvs_author.pl
Revision: 1.2
Committed: Tue Jan 8 17:39:38 2002 UTC (22 years, 3 months ago) by tdb
Content type: text/plain
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +1 -1 lines
Log Message:
Glaring bug. When looking for . and .. it's a good idea to escape the . in
the regexp :)

File Contents

# 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 tdb 1.2 if($item =~ /^\.$/ || $item =~ /^\.\.$/) {
32 tdb 1.1 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     }