mirror of
https://github.com/git/git.git
synced 2024-11-06 01:03:02 +01:00
d966e6aa66
Randal L. Schwartz pointed out multiple times that we should be testing the length of the name string here, not if it is "true". The problem is the string '0' is actually false in Perl when we try to evaluate it in this context, as '0' is 0 numerically and the number 0 is treated as a false value. This would cause us to break out of the import loop early if anyone had a file or directory named "0". Signed-off-by: Shawn O. Pearce <spearce@spearce.org>
126 lines
3.1 KiB
Perl
Executable file
126 lines
3.1 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
## tar archive frontend for git-fast-import
|
|
##
|
|
## For example:
|
|
##
|
|
## mkdir project; cd project; git init
|
|
## perl import-tars.perl *.tar.bz2
|
|
## git whatchanged import-tars
|
|
##
|
|
|
|
use strict;
|
|
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';
|
|
|
|
open(FI, '|-', 'git', 'fast-import', '--quiet')
|
|
or die "Unable to start git fast-import: $!\n";
|
|
foreach my $tar_file (@ARGV)
|
|
{
|
|
$tar_file =~ m,([^/]+)$,;
|
|
my $tar_name = $1;
|
|
|
|
if ($tar_name =~ s/\.(tar\.gz|tgz)$//) {
|
|
open(I, '-|', 'gunzip', '-c', $tar_file)
|
|
or die "Unable to gunzip -c $tar_file: $!\n";
|
|
} elsif ($tar_name =~ s/\.(tar\.bz2|tbz2)$//) {
|
|
open(I, '-|', 'bunzip2', '-c', $tar_file)
|
|
or die "Unable to bunzip2 -c $tar_file: $!\n";
|
|
} elsif ($tar_name =~ s/\.tar\.Z$//) {
|
|
open(I, '-|', 'uncompress', '-c', $tar_file)
|
|
or die "Unable to uncompress -c $tar_file: $!\n";
|
|
} elsif ($tar_name =~ s/\.tar$//) {
|
|
open(I, $tar_file) or die "Unable to open $tar_file: $!\n";
|
|
} else {
|
|
die "Unrecognized compression format: $tar_file\n";
|
|
}
|
|
|
|
my $commit_time = 0;
|
|
my $next_mark = 1;
|
|
my $have_top_dir = 1;
|
|
my ($top_dir, %files);
|
|
|
|
while (read(I, $_, 512) == 512) {
|
|
my ($name, $mode, $uid, $gid, $size, $mtime,
|
|
$chksum, $typeflag, $linkname, $magic,
|
|
$version, $uname, $gname, $devmajor, $devminor,
|
|
$prefix) = unpack 'Z100 Z8 Z8 Z8 Z12 Z12
|
|
Z8 Z1 Z100 Z6
|
|
Z2 Z32 Z32 Z8 Z8 Z*', $_;
|
|
last unless length($name);
|
|
if ($name eq '././@LongLink') {
|
|
# GNU tar extension
|
|
if (read(I, $_, 512) != 512) {
|
|
die ('Short archive');
|
|
}
|
|
$name = unpack 'Z257', $_;
|
|
next unless $name;
|
|
|
|
my $dummy;
|
|
if (read(I, $_, 512) != 512) {
|
|
die ('Short archive');
|
|
}
|
|
($dummy, $mode, $uid, $gid, $size, $mtime,
|
|
$chksum, $typeflag, $linkname, $magic,
|
|
$version, $uname, $gname, $devmajor, $devminor,
|
|
$prefix) = unpack 'Z100 Z8 Z8 Z8 Z12 Z12
|
|
Z8 Z1 Z100 Z6
|
|
Z2 Z32 Z32 Z8 Z8 Z*', $_;
|
|
}
|
|
next if $name =~ m{/\z};
|
|
$mode = oct $mode;
|
|
$size = oct $size;
|
|
$mtime = oct $mtime;
|
|
next if $mode & 0040000;
|
|
|
|
print FI "blob\n", "mark :$next_mark\n", "data $size\n";
|
|
while ($size > 0 && read(I, $_, 512) == 512) {
|
|
print FI substr($_, 0, $size);
|
|
$size -= 512;
|
|
}
|
|
print FI "\n";
|
|
|
|
my $path = "$prefix$name";
|
|
$files{$path} = [$next_mark++, $mode];
|
|
|
|
$commit_time = $mtime if $mtime > $commit_time;
|
|
$path =~ m,^([^/]+)/,;
|
|
$top_dir = $1 unless $top_dir;
|
|
$have_top_dir = 0 if $top_dir ne $1;
|
|
}
|
|
|
|
print FI <<EOF;
|
|
commit $branch_ref
|
|
committer $committer_name <$committer_email> $commit_time +0000
|
|
data <<END_OF_COMMIT_MESSAGE
|
|
Imported from $tar_file.
|
|
END_OF_COMMIT_MESSAGE
|
|
|
|
deleteall
|
|
EOF
|
|
|
|
foreach my $path (keys %files)
|
|
{
|
|
my ($mark, $mode) = @{$files{$path}};
|
|
$path =~ s,^([^/]+)/,, if $have_top_dir;
|
|
printf FI "M %o :%i %s\n", $mode & 0111 ? 0755 : 0644, $mark, $path;
|
|
}
|
|
print FI "\n";
|
|
|
|
print FI <<EOF;
|
|
tag $tar_name
|
|
from $branch_ref
|
|
tagger $committer_name <$committer_email> $commit_time +0000
|
|
data <<END_OF_TAG_MESSAGE
|
|
Package $tar_name
|
|
END_OF_TAG_MESSAGE
|
|
|
|
EOF
|
|
|
|
close I;
|
|
}
|
|
close FI;
|