10 my $mirror = '/path/to/mirror';
12 my $repos = SVN
::Repos
::open($mirror);
13 my $fs = $repos->fs();
15 my $uuid = $fs->revision_prop(0, 'svn:sync-from-uuid');
16 my $url = $fs->revision_prop(0, 'svn:sync-from-url');
17 my $maxrev = int($fs->revision_prop(0, 'svn:sync-last-merged-rev'));
19 print "# SVN_UUID: $uuid\n";
20 print "# SVN_URL: $url\n";
21 print "# MAX_REV: $maxrev\n";
27 $repos->get_logs([''], 1, $maxrev, 1, 0, sub {
28 my ($paths, $rev, $author, $date, $log, $pool) = @_;
30 print "# SVN_AUTHOR: $author\n";
31 print "# SVN_DATE: $date\n";
33 my $GIT_COMMITTER_NAME=$author;
34 my $GIT_COMMITTER_EMAIL=$author.'@'.$uuid;
35 my $GIT_COMMITTER_DATE=int(str2time
($date)).' +0000';
37 my @commitlogfile = File
::Temp
->new();
38 $commitlog = $commitlogfile[FH
];
40 print $commitlog "commit refs/heads/master\n";
41 print $commitlog "committer $GIT_COMMITTER_NAME <$GIT_COMMITTER_EMAIL> $GIT_COMMITTER_DATE\n";
42 print $commitlog 'data '.length($log)."\n$log\n";
44 my $root = $fs->revision_root($rev, $pool);
46 for my $file (keys %$paths) {
47 my $node = $paths->{$file};
48 my $action = $node->action;
51 print $commitlog "D $file\n";
55 if ($root->is_dir($file, $pool) ) {
57 if (defined $node->copyfrom_rev) {
58 # modifydir($root, $file);
61 modifyfile
($root, $file, $pool);
65 seek $commitlog, 0, 0;
67 while (<$commitlog>) {
72 print "progress to revision $rev\n"
76 my ($root, $file, $pool) = @_;
78 my $proplist = $root->node_proplist($file, $pool);
79 my $md5 = $root->file_md5_checksum($file, $pool);
80 # Strip the leading slash from the path for git
81 my $path = substr($file, 1);
85 if (defined $proplist->{'svn:special'}) {
89 $mode = defined $proplist->{'svn:executable'} ?
'100755' : '100644';
92 my $mark = $marks->{$md5};
95 $marks->{$md5} = $mark;
96 my $length = $root->file_length($file, $pool);
97 $length -= 5 if $mode == '120000';
98 my $contents = $root->file_contents($file, $pool);
99 print "# MD5: $md5\n";
100 print "blob\nmark :$mark\n";
101 print "data $length\n";
104 read $contents, $linkprefix, 5 if $mode == '120000';
105 while (<$contents>) {
111 print $commitlog "M $mode :$mark $path\n";