| 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 |
} |
