[PATCH] Use user.name and user.email in import-tars.perl
Mimic what is done in git-import.sh and git-import.perl
Signed-off-by: Mike Hommey <mh@glandium.org>
---
And that made me wonder if it wouldn't be worth, actually, to have
git config user.name and git config user.email return the "magic" values
gotten from guessing in ident.c when no value is in the config. That would
allow scripts, which have no other simple means to get the user name and
email, to have the same feature as builtins.
contrib/fast-import/import-tars.perl | 6 ++++--
1 files changed, 4 insertions(+), 2 deletions(-)
diff --git a/contrib/fast-import/import-tars.perl b/contrib/fast-import/import-tars.perl
index 23aeb25..39c091c 100755
--- a/contrib/fast-import/import-tars.perl
+++ b/contrib/fast-import/import-tars.perl
@@ -14,8 +14,10 @@ die "usage: import-tars *.tar.{gz,bz2,Z}\n" unless @ARGV;
my $branch_name = 'import-tars';
my $branch_ref = "refs/heads/$branch_name";
-my $committer_name = 'T Ar Creator';
-my $committer_email = 'tar@example.com';
+chomp(my $committer_name = `git config user.name`);
+chomp(my $committer_email = `git config user.email`);
+die 'You need to set user name and email'
+ unless $committer_name && $committer_email;
open(FI, '|-', 'git', 'fast-import', '--quiet')
or die "Unable to start git fast-import: $!\n";
--
1.5.4.1.48.g0d77
Mike Hommey <mh@glandium.org>