Modify import-tars.perl

This commit is contained in:
Reynir Björnsson 2024-01-06 12:50:48 +01:00
parent 3efff8996e
commit 3964928563

View file

@ -1,5 +1,8 @@
#!/usr/bin/perl #!/usr/bin/perl
# @reynir: imported from git source:
# https://git.kernel.org/pub/scm/git/git.git/plain/contrib/fast-import/import-tars.perl?id=HEAD
## tar archive frontend for git-fast-import ## tar archive frontend for git-fast-import
## ##
## For example: ## For example:
@ -23,10 +26,10 @@ my $metaext = '';
die "usage: import-tars [--metainfo=extension] *.tar.{gz,bz2,lzma,xz,Z}\n" die "usage: import-tars [--metainfo=extension] *.tar.{gz,bz2,lzma,xz,Z}\n"
unless GetOptions('metainfo=s' => \$metaext) && @ARGV; unless GetOptions('metainfo=s' => \$metaext) && @ARGV;
my $branch_name = 'import-tars'; my $branch_name = 'production';
my $branch_ref = "refs/heads/$branch_name"; my $branch_ref = "refs/heads/$branch_name";
my $author_name = $ENV{'GIT_AUTHOR_NAME'} || 'T Ar Creator'; my $author_name = $ENV{'GIT_AUTHOR_NAME'} || 'Lim Chee Aun';
my $author_email = $ENV{'GIT_AUTHOR_EMAIL'} || 'tar@example.com'; my $author_email = $ENV{'GIT_AUTHOR_EMAIL'} || 'cheeaun' . '@' . 'gmail.com';
my $committer_name = $ENV{'GIT_COMMITTER_NAME'} || `git config --get user.name`; my $committer_name = $ENV{'GIT_COMMITTER_NAME'} || `git config --get user.name`;
my $committer_email = $ENV{'GIT_COMMITTER_EMAIL'} || `git config --get user.email`; my $committer_email = $ENV{'GIT_COMMITTER_EMAIL'} || `git config --get user.email`;