From ffd97f3a35d8394773409f17d58156b32ca911cf Mon Sep 17 00:00:00 2001 From: Andreas Ericsson Date: Fri, 13 Jan 2006 00:38:59 +0100 Subject: [PATCH] git-cvsimport: Add -A option This patch adds the option to specify an author name/email conversion file in the format exon=Andreas Ericsson spawn=Simon Pawn which will translate the ugly cvs authornames to the more informative git style. The info is saved in $GIT_DIR/cvs-authors, so that subsequent incremental imports will use the same author-info even if no -A option is specified. If an -A option *is* specified, the info in $GIT_DIR/cvs-authors is appended/updated appropriately. Docs updated accordingly. Signed-off-by: Andreas Ericsson Signed-off-by: Junio C Hamano --- Documentation/git-cvsimport.txt | 20 ++++++++++++ git-cvsimport.perl | 56 +++++++++++++++++++++++++++++---- 2 files changed, 70 insertions(+), 6 deletions(-) diff --git a/Documentation/git-cvsimport.txt b/Documentation/git-cvsimport.txt index 01ca7ef96f..dfe86ceea3 100644 --- a/Documentation/git-cvsimport.txt +++ b/Documentation/git-cvsimport.txt @@ -89,6 +89,26 @@ If you need to pass multiple options, separate them with a comma. -s :: Substitute the character "/" in branch names with +-A :: + CVS by default uses the unix username when writing its + commit logs. Using this option and an author-conv-file + in this format + + exon=Andreas Ericsson + spawn=Simon Pawn + + git-cvsimport will make it appear as those authors had + their GIT_AUTHOR_NAME and GIT_AUTHOR_EMAIL set properly + all along. + + For convenience, this data is saved to $GIT_DIR/cvs-authors + each time the -A option is provided and read from that same + file each time git-cvsimport is run. + + It is not recommended to use this feature if you intend to + export changes back to CVS again later with + git-link[1]::git-cvsexportcommit. + OUTPUT ------ If '-v' is specified, the script reports what it is doing. diff --git a/git-cvsimport.perl b/git-cvsimport.perl index 8619e7d183..8d493c2a4f 100755 --- a/git-cvsimport.perl +++ b/git-cvsimport.perl @@ -29,19 +29,52 @@ use IPC::Open2; $SIG{'PIPE'}="IGNORE"; $ENV{'TZ'}="UTC"; -our($opt_h,$opt_o,$opt_v,$opt_k,$opt_u,$opt_d,$opt_p,$opt_C,$opt_z,$opt_i,$opt_P, $opt_s,$opt_m,$opt_M); +our($opt_h,$opt_o,$opt_v,$opt_k,$opt_u,$opt_d,$opt_p,$opt_C,$opt_z,$opt_i,$opt_P, $opt_s,$opt_m,$opt_M,$opt_A); +my (%conv_author_name, %conv_author_email); sub usage() { print STDERR <) { + chomp; + # Expected format is this; + # exon=Andreas Ericsson + if (m/^([^ \t=]*)[ \t=]*([^<]*)(<.*$)\s*/) { + $user = $1; + $conv_author_name{$1} = $2; + $conv_author_email{$1} = $3; + # strip trailing whitespace from author name + $conv_author_name{$1} =~ s/\s*$//; + } + } + close ($f); +} + +sub write_author_info($) { + my ($file) = @_; + open my $f, '>', $file or + die("Failed to open $file for writing: $!"); + + foreach (keys %conv_author_name) { + print $f "$_=" . $conv_author_name{$_} . + " " . $conv_author_email{$_} . "\n"; + } + close ($f); +} + +getopts("hivmkuo:d:p:C:z:s:M:P:A:") or usage(); usage if $opt_h; @ARGV <= 1 or usage(); @@ -453,7 +486,7 @@ CVS2GIT_HEAD exists. Make sure your working directory corresponds to HEAD and remove CVS2GIT_HEAD. You may need to run - git-read-tree -m -u CVS2GIT_HEAD HEAD + git read-tree -m -u CVS2GIT_HEAD HEAD EOM } system('cp', "$git_dir/HEAD", "$git_dir/CVS2GIT_HEAD"); @@ -489,6 +522,14 @@ EOM -d $git_dir or die "Could not create git subdir ($git_dir).\n"; +# now we read (and possibly save) author-info as well +-f "$git_dir/cvs-authors" and + read_author_info("$git_dir/cvs-authors"); +if ($opt_A) { + read_author_info($opt_A); + write_author_info("$git_dir/cvs-authors"); +} + my $pid = open(CVS,"-|"); die "Cannot fork: $!\n" unless defined $pid; unless($pid) { @@ -702,6 +743,9 @@ while() { s/\s+$//; if (/^(.*?)\s+<(.*)>/) { ($author_name, $author_email) = ($1, $2); + } elsif ($conv_author_name{$_}) { + $author_name = $conv_author_name{$_}; + $author_email = $conv_author_email{$_}; } else { $author_name = $author_email = $_; }