1
=== added file 'exporters/import-tars.perl'
2
--- exporters/import-tars.perl	1970-01-01 00:00:00 +0000
3
+++ exporters/import-tars.perl	2009-08-11 03:35:05 +0000
4
@@ -0,0 +1,144 @@
5
1
#!/usr/bin/perl
6
2
7
3
## tar archive frontend for git-fast-import
8
4
##
9
5
## For example:
10
6
##
11
7
##  mkdir project; cd project; git init
12
8
##  perl import-tars.perl *.tar.bz2 | git fast-import
13
9
##  git whatchanged import-tars
14
10
##
15
11
16
12
use strict;
17
13
die "usage: import-tars *.tar.{gz,bz2,Z}\n" unless @ARGV;
18
14
19
15
my $branch_name = 'import-tars';
20
16
my $branch_ref = "refs/heads/$branch_name";
21
17
my $author_name = $ENV{'GIT_AUTHOR_NAME'} || 'T Ar Creator';
22
18
my $author_email = $ENV{'GIT_AUTHOR_EMAIL'} || 'tar@example.com';
23
19
my $committer_name = $ENV{'GIT_COMMITTER_NAME'} || `git config --get user.name`;
24
20
my $committer_email = $ENV{'GIT_COMMITTER_EMAIL'} || `git config --get user.email`;
25
21
26
22
chomp($committer_name, $committer_email);
27
23
28
24
*FI = *stdout;
29
25
30
26
foreach my $tar_file (@ARGV)
31
27
{
32
28
	my $commit_time = time;
33
29
	$tar_file =~ m,([^/]+)$,;
34
30
	my $tar_name = $1;
35
31
36
32
	if ($tar_name =~ s/\.(tar\.gz|tgz)$//) {
37
33
		open(I, '-|', 'gunzip', '-c', $tar_file)
38
34
			or die "Unable to gunzip -c $tar_file: $!\n";
39
35
	} elsif ($tar_name =~ s/\.(tar\.bz2|tbz2)$//) {
40
36
		open(I, '-|', 'bunzip2', '-c', $tar_file)
41
37
			or die "Unable to bunzip2 -c $tar_file: $!\n";
42
38
	} elsif ($tar_name =~ s/\.tar\.Z$//) {
43
39
		open(I, '-|', 'uncompress', '-c', $tar_file)
44
40
			or die "Unable to uncompress -c $tar_file: $!\n";
45
41
	} elsif ($tar_name =~ s/\.tar$//) {
46
42
		open(I, $tar_file) or die "Unable to open $tar_file: $!\n";
47
43
	} else {
48
44
		die "Unrecognized compression format: $tar_file\n";
49
45
	}
50
46
51
47
	my $author_time = 0;
52
48
	my $next_mark = 1;
53
49
	my $have_top_dir = 1;
54
50
	my ($top_dir, %files);
55
51
56
52
	while (read(I, $_, 512) == 512) {
57
53
		my ($name, $mode, $uid, $gid, $size, $mtime,
58
54
			$chksum, $typeflag, $linkname, $magic,
59
55
			$version, $uname, $gname, $devmajor, $devminor,
60
56
			$prefix) = unpack 'Z100 Z8 Z8 Z8 Z12 Z12
61
57
			Z8 Z1 Z100 Z6
62
58
			Z2 Z32 Z32 Z8 Z8 Z*', $_;
63
59
		last unless length($name);
64
60
		if ($name eq '././@LongLink') {
65
61
			# GNU tar extension
66
62
			if (read(I, $_, 512) != 512) {
67
63
				die ('Short archive');
68
64
			}
69
65
			$name = unpack 'Z257', $_;
70
66
			next unless $name;
71
67
72
68
			my $dummy;
73
69
			if (read(I, $_, 512) != 512) {
74
70
				die ('Short archive');
75
71
			}
76
72
			($dummy, $mode, $uid, $gid, $size, $mtime,
77
73
			$chksum, $typeflag, $linkname, $magic,
78
74
			$version, $uname, $gname, $devmajor, $devminor,
79
75
			$prefix) = unpack 'Z100 Z8 Z8 Z8 Z12 Z12
80
76
			Z8 Z1 Z100 Z6
81
77
			Z2 Z32 Z32 Z8 Z8 Z*', $_;
82
78
		}
83
79
		next if $name =~ m{/\z};
84
80
		$mode = oct $mode;
85
81
		$size = oct $size;
86
82
		$mtime = oct $mtime;
87
83
		next if $typeflag == 5; # directory
88
84
89
85
		print FI "blob\n", "mark :$next_mark\n";
90
86
		if ($typeflag == 2) { # symbolic link
91
87
			print FI "data ", length($linkname), "\n", $linkname;
92
88
			$mode = 0120000;
93
89
		} else {
94
90
			print FI "data $size\n";
95
91
			while ($size > 0 && read(I, $_, 512) == 512) {
96
92
				print FI substr($_, 0, $size);
97
93
				$size -= 512;
98
94
			}
99
95
		}
100
96
		print FI "\n";
101
97
102
98
		my $path;
103
99
		if ($prefix) {
104
100
			$path = "$prefix/$name";
105
101
		} else {
106
102
			$path = "$name";
107
103
		}
108
104
		$files{$path} = [$next_mark++, $mode];
109
105
110
106
		$author_time = $mtime if $mtime > $author_time;
111
107
		$path =~ m,^([^/]+)/,;
112
108
		$top_dir = $1 unless $top_dir;
113
109
		$have_top_dir = 0 if $top_dir ne $1;
114
110
	}
115
111
116
112
	print FI <<EOF;
117
113
commit $branch_ref
118
114
author $author_name <$author_email> $author_time +0000
119
115
committer $committer_name <$committer_email> $commit_time +0000
120
116
data <<END_OF_COMMIT_MESSAGE
121
117
Imported from $tar_file.
122
118
END_OF_COMMIT_MESSAGE
123
119
124
120
deleteall
125
121
EOF
126
122
127
123
	foreach my $path (keys %files)
128
124
	{
129
125
		my ($mark, $mode) = @{$files{$path}};
130
126
		$path =~ s,^([^/]+)/,, if $have_top_dir;
131
127
		$mode = $mode & 0111 ? 0755 : 0644 unless $mode == 0120000;
132
128
		printf FI "M %o :%i %s\n", $mode, $mark, $path;
133
129
	}
134
130
	print FI "\n";
135
131
136
132
	print FI <<EOF;
137
133
tag $tar_name
138
134
from $branch_ref
139
135
tagger $author_name <$author_email> $author_time +0000
140
136
data <<END_OF_TAG_MESSAGE
141
137
Package $tar_name
142
138
END_OF_TAG_MESSAGE
143
139
144
140
EOF
145
141
146
142
	close I;
147
143
}
148
144
close FI;
Status:	Work in progress
Proposed branch:	lp:~naesten/bzr-fastimport/import-tars
Merge into:	lp:~bzr/bzr-fastimport/fastimport.dev
Diff against target:	None lines
To merge this branch:	bzr merge lp:~naesten/bzr-fastimport/import-tars
Related bugs:	Link a bug report
Reviewer	Review Type	Date Requested	Status
Ian Clatworthy		2009-08-11	Needs Information on 2009-08-12
Review via email: mp+9984@code.launchpad.net