PageRenderTime 73ms CodeModel.GetById 22ms RepoModel.GetById 1ms app.codeStats 1ms

/git/git-svn.perl

https://review.tizen.org/git/
Perl | 6213 lines | 5519 code | 414 blank | 280 comment | 780 complexity | 674221d6d3d9cdf47333b1897f2da209 MD5 | raw file
Possible License(s): GPL-3.0, AGPL-3.0, GPL-2.0, MPL-2.0, JSON, WTFPL, CC-BY-SA-4.0, CC-BY-3.0, BSD-3-Clause, LGPL-2.0, MPL-2.0-no-copyleft-exception, AGPL-1.0, 0BSD, Zlib, Unlicense, BSD-2-Clause, Apache-2.0, LGPL-3.0, ISC, MIT, CC-BY-SA-3.0, CC0-1.0, LGPL-2.1

Large files files are truncated, but you can click here to view the full file

    

  1. #!/usr/bin/env perl
    2. 

  2. # Copyright (C) 2006, Eric Wong <normalperson@yhbt.net>
    3. 

  3. # License: GPL v2 or later
    4. 

  4. use warnings;
    5. 

  5. use strict;
    6. 

  6. use vars qw/	$AUTHOR $VERSION
    7. 

  7. 		$sha1 $sha1_short $_revision $_repository
    8. 

  8. 		$_q $_authors $_authors_prog %users/;
    9. 

  9. $AUTHOR = 'Eric Wong <normalperson@yhbt.net>';
    10. 

  10. $VERSION = '@@GIT_VERSION@@';
    11. 

  11. 

  12. # From which subdir have we been invoked?
    13. 

  13. my $cmd_dir_prefix = eval {
    14. 

  14. 	command_oneline([qw/rev-parse --show-prefix/], STDERR => 0)
    15. 

  15. } || '';
    16. 

  16. 

  17. my $git_dir_user_set = 1 if defined $ENV{GIT_DIR};
    18. 

  18. $ENV{GIT_DIR} ||= '.git';
    19. 

  19. $Git::SVN::default_repo_id = 'svn';
    20. 

  20. $Git::SVN::default_ref_id = $ENV{GIT_SVN_ID} || 'git-svn';
    21. 

  21. $Git::SVN::Ra::_log_window_size = 100;
    22. 

  22. $Git::SVN::_minimize_url = 'unset';
    23. 

  23. 

  24. if (! exists $ENV{SVN_SSH}) {
    25. 

  25. 	if (exists $ENV{GIT_SSH}) {
    26. 

  26. 		$ENV{SVN_SSH} = $ENV{GIT_SSH};
    27. 

  27. 		if ($^O eq 'msys') {
    28. 

  28. 			$ENV{SVN_SSH} =~ s/\\/\\\\/g;
    29. 

  29. 			$ENV{SVN_SSH} =~ s/(.*)/"$1"/;
    30. 

  30. 		}
    31. 

  31. 	}
    32. 

  32. }
    33. 

  33. 

  34. $Git::SVN::Log::TZ = $ENV{TZ};
    35. 

  35. $ENV{TZ} = 'UTC';
    36. 

  36. $| = 1; # unbuffer STDOUT
    37. 

  37. 

  38. sub fatal (@) { print STDERR "@_\n"; exit 1 }
    39. 

  39. sub _req_svn {
    40. 

  40. 	require SVN::Core; # use()-ing this causes segfaults for me... *shrug*
    41. 

  41. 	require SVN::Ra;
    42. 

  42. 	require SVN::Delta;
    43. 

  43. 	if ($SVN::Core::VERSION lt '1.1.0') {
    44. 

  44. 		fatal "Need SVN::Core 1.1.0 or better (got $SVN::Core::VERSION)";
    45. 

  45. 	}
    46. 

  46. }
    47. 

  47. my $can_compress = eval { require Compress::Zlib; 1};
    48. 

  48. push @Git::SVN::Ra::ISA, 'SVN::Ra';
    49. 

  49. push @SVN::Git::Editor::ISA, 'SVN::Delta::Editor';
    50. 

  50. push @SVN::Git::Fetcher::ISA, 'SVN::Delta::Editor';
    51. 

  51. use Carp qw/croak/;
    52. 

  52. use Digest::MD5;
    53. 

  53. use IO::File qw//;
    54. 

  54. use File::Basename qw/dirname basename/;
    55. 

  55. use File::Path qw/mkpath/;
    56. 

  56. use File::Spec;
    57. 

  57. use File::Find;
    58. 

  58. use Getopt::Long qw/:config gnu_getopt no_ignore_case auto_abbrev/;
    59. 

  59. use IPC::Open3;
    60. 

  60. use Git;
    61. 

  61. 

  62. BEGIN {
    63. 

  63. 	# import functions from Git into our packages, en masse
    64. 

  64. 	no strict 'refs';
    65. 

  65. 	foreach (qw/command command_oneline command_noisy command_output_pipe
    66. 

  66. 	            command_input_pipe command_close_pipe
    67. 

  67. 	            command_bidi_pipe command_close_bidi_pipe/) {
    68. 

  68. 		for my $package ( qw(SVN::Git::Editor SVN::Git::Fetcher
    69. 

  69. 			Git::SVN::Migration Git::SVN::Log Git::SVN),
    70. 

  70. 			__PACKAGE__) {
    71. 

  71. 			*{"${package}::$_"} = \&{"Git::$_"};
    72. 

  72. 		}
    73. 

  73. 	}
    74. 

  74. }
    75. 

  75. 

  76. my ($SVN);
    77. 

  77. 

  78. $sha1 = qr/[a-f\d]{40}/;
    79. 

  79. $sha1_short = qr/[a-f\d]{4,40}/;
    80. 

  80. my ($_stdin, $_help, $_edit,
    81. 

  81. 	$_message, $_file, $_branch_dest,
    82. 

  82. 	$_template, $_shared,
    83. 

  83. 	$_version, $_fetch_all, $_no_rebase, $_fetch_parent,
    84. 

  84. 	$_merge, $_strategy, $_dry_run, $_local,
    85. 

  85. 	$_prefix, $_no_checkout, $_url, $_verbose,
    86. 

  86. 	$_git_format, $_commit_url, $_tag);
    87. 

  87. $Git::SVN::_follow_parent = 1;
    88. 

  88. $_q ||= 0;
    89. 

  89. my %remote_opts = ( 'username=s' => \$Git::SVN::Prompt::_username,
    90. 

  90.                     'config-dir=s' => \$Git::SVN::Ra::config_dir,
    91. 

  91.                     'no-auth-cache' => \$Git::SVN::Prompt::_no_auth_cache,
    92. 

  92.                     'ignore-paths=s' => \$SVN::Git::Fetcher::_ignore_regex );
    93. 

  93. my %fc_opts = ( 'follow-parent|follow!' => \$Git::SVN::_follow_parent,
    94. 

  94. 		'authors-file|A=s' => \$_authors,
    95. 

  95. 		'authors-prog=s' => \$_authors_prog,
    96. 

  96. 		'repack:i' => \$Git::SVN::_repack,
    97. 

  97. 		'noMetadata' => \$Git::SVN::_no_metadata,
    98. 

  98. 		'useSvmProps' => \$Git::SVN::_use_svm_props,
    99. 

  99. 		'useSvnsyncProps' => \$Git::SVN::_use_svnsync_props,
    100. 

  100. 		'log-window-size=i' => \$Git::SVN::Ra::_log_window_size,
    101. 

  101. 		'no-checkout' => \$_no_checkout,
    102. 

  102. 		'quiet|q+' => \$_q,
    103. 

  103. 		'repack-flags|repack-args|repack-opts=s' =>
    104. 

  104. 		   \$Git::SVN::_repack_flags,
    105. 

  105. 		'use-log-author' => \$Git::SVN::_use_log_author,
    106. 

  106. 		'add-author-from' => \$Git::SVN::_add_author_from,
    107. 

  107. 		'localtime' => \$Git::SVN::_localtime,
    108. 

  108. 		%remote_opts );
    109. 

  109. 

  110. my ($_trunk, @_tags, @_branches, $_stdlayout);
    111. 

  111. my %icv;
    112. 

  112. my %init_opts = ( 'template=s' => \$_template, 'shared:s' => \$_shared,
    113. 

  113.                   'trunk|T=s' => \$_trunk, 'tags|t=s@' => \@_tags,
    114. 

  114.                   'branches|b=s@' => \@_branches, 'prefix=s' => \$_prefix,
    115. 

  115.                   'stdlayout|s' => \$_stdlayout,
    116. 

  116.                   'minimize-url|m!' => \$Git::SVN::_minimize_url,
    117. 

  117. 		  'no-metadata' => sub { $icv{noMetadata} = 1 },
    118. 

  118. 		  'use-svm-props' => sub { $icv{useSvmProps} = 1 },
    119. 

  119. 		  'use-svnsync-props' => sub { $icv{useSvnsyncProps} = 1 },
    120. 

  120. 		  'rewrite-root=s' => sub { $icv{rewriteRoot} = $_[1] },
    121. 

  121. 		  'rewrite-uuid=s' => sub { $icv{rewriteUUID} = $_[1] },
    122. 

  122.                   %remote_opts );
    123. 

  123. my %cmt_opts = ( 'edit|e' => \$_edit,
    124. 

  124. 		'rmdir' => \$SVN::Git::Editor::_rmdir,
    125. 

  125. 		'find-copies-harder' => \$SVN::Git::Editor::_find_copies_harder,
    126. 

  126. 		'l=i' => \$SVN::Git::Editor::_rename_limit,
    127. 

  127. 		'copy-similarity|C=i'=> \$SVN::Git::Editor::_cp_similarity
    128. 

  128. );
    129. 

  129. 

  130. my %cmd = (
    131. 

  131. 	fetch => [ \&cmd_fetch, "Download new revisions from SVN",
    132. 

  132. 			{ 'revision|r=s' => \$_revision,
    133. 

  133. 			  'fetch-all|all' => \$_fetch_all,
    134. 

  134. 			  'parent|p' => \$_fetch_parent,
    135. 

  135. 			   %fc_opts } ],
    136. 

  136. 	clone => [ \&cmd_clone, "Initialize and fetch revisions",
    137. 

  137. 			{ 'revision|r=s' => \$_revision,
    138. 

  138. 			   %fc_opts, %init_opts } ],
    139. 

  139. 	init => [ \&cmd_init, "Initialize a repo for tracking" .
    140. 

  140. 			  " (requires URL argument)",
    141. 

  141. 			  \%init_opts ],
    142. 

  142. 	'multi-init' => [ \&cmd_multi_init,
    143. 

  143. 	                  "Deprecated alias for ".
    144. 

  144. 			  "'$0 init -T<trunk> -b<branches> -t<tags>'",
    145. 

  145. 			  \%init_opts ],
    146. 

  146. 	dcommit => [ \&cmd_dcommit,
    147. 

  147. 	             'Commit several diffs to merge with upstream',
    148. 

  148. 			{ 'merge|m|M' => \$_merge,
    149. 

  149. 			  'strategy|s=s' => \$_strategy,
    150. 

  150. 			  'verbose|v' => \$_verbose,
    151. 

  151. 			  'dry-run|n' => \$_dry_run,
    152. 

  152. 			  'fetch-all|all' => \$_fetch_all,
    153. 

  153. 			  'commit-url=s' => \$_commit_url,
    154. 

  154. 			  'revision|r=i' => \$_revision,
    155. 

  155. 			  'no-rebase' => \$_no_rebase,
    156. 

  156. 			%cmt_opts, %fc_opts } ],
    157. 

  157. 	branch => [ \&cmd_branch,
    158. 

  158. 	            'Create a branch in the SVN repository',
    159. 

  159. 	            { 'message|m=s' => \$_message,
    160. 

  160. 	              'destination|d=s' => \$_branch_dest,
    161. 

  161. 	              'dry-run|n' => \$_dry_run,
    162. 

  162. 	              'tag|t' => \$_tag,
    163. 

  163. 	              'username=s' => \$Git::SVN::Prompt::_username,
    164. 

  164. 	              'commit-url=s' => \$_commit_url } ],
    165. 

  165. 	tag => [ sub { $_tag = 1; cmd_branch(@_) },
    166. 

  166. 	         'Create a tag in the SVN repository',
    167. 

  167. 	         { 'message|m=s' => \$_message,
    168. 

  168. 	           'destination|d=s' => \$_branch_dest,
    169. 

  169. 	           'dry-run|n' => \$_dry_run,
    170. 

  170. 	           'username=s' => \$Git::SVN::Prompt::_username,
    171. 

  171. 	           'commit-url=s' => \$_commit_url } ],
    172. 

  172. 	'set-tree' => [ \&cmd_set_tree,
    173. 

  173. 	                "Set an SVN repository to a git tree-ish",
    174. 

  174. 			{ 'stdin' => \$_stdin, %cmt_opts, %fc_opts, } ],
    175. 

  175. 	'create-ignore' => [ \&cmd_create_ignore,
    176. 

  176. 			     'Create a .gitignore per svn:ignore',
    177. 

  177. 			     { 'revision|r=i' => \$_revision
    178. 

  178. 			     } ],
    179. 

  179. 	'mkdirs' => [ \&cmd_mkdirs ,
    180. 

  180. 	              "recreate empty directories after a checkout",
    181. 

  181. 	              { 'revision|r=i' => \$_revision } ],
    182. 

  182.         'propget' => [ \&cmd_propget,
    183. 

  183. 		       'Print the value of a property on a file or directory',
    184. 

  184. 		       { 'revision|r=i' => \$_revision } ],
    185. 

  185.         'proplist' => [ \&cmd_proplist,
    186. 

  186. 		       'List all properties of a file or directory',
    187. 

  187. 		       { 'revision|r=i' => \$_revision } ],
    188. 

  188. 	'show-ignore' => [ \&cmd_show_ignore, "Show svn:ignore listings",
    189. 

  189. 			{ 'revision|r=i' => \$_revision
    190. 

  190. 			} ],
    191. 

  191. 	'show-externals' => [ \&cmd_show_externals, "Show svn:externals listings",
    192. 

  192. 			{ 'revision|r=i' => \$_revision
    193. 

  193. 			} ],
    194. 

  194. 	'multi-fetch' => [ \&cmd_multi_fetch,
    195. 

  195. 	                   "Deprecated alias for $0 fetch --all",
    196. 

  196. 			   { 'revision|r=s' => \$_revision, %fc_opts } ],
    197. 

  197. 	'migrate' => [ sub { },
    198. 

  198. 	               # no-op, we automatically run this anyways,
    199. 

  199. 	               'Migrate configuration/metadata/layout from
    200. 

  200. 		        previous versions of git-svn',
    201. 

  201.                        { 'minimize' => \$Git::SVN::Migration::_minimize,
    202. 

  202. 			 %remote_opts } ],
    203. 

  203. 	'log' => [ \&Git::SVN::Log::cmd_show_log, 'Show commit logs',
    204. 

  204. 			{ 'limit=i' => \$Git::SVN::Log::limit,
    205. 

  205. 			  'revision|r=s' => \$_revision,
    206. 

  206. 			  'verbose|v' => \$Git::SVN::Log::verbose,
    207. 

  207. 			  'incremental' => \$Git::SVN::Log::incremental,
    208. 

  208. 			  'oneline' => \$Git::SVN::Log::oneline,
    209. 

  209. 			  'show-commit' => \$Git::SVN::Log::show_commit,
    210. 

  210. 			  'non-recursive' => \$Git::SVN::Log::non_recursive,
    211. 

  211. 			  'authors-file|A=s' => \$_authors,
    212. 

  212. 			  'color' => \$Git::SVN::Log::color,
    213. 

  213. 			  'pager=s' => \$Git::SVN::Log::pager
    214. 

  214. 			} ],
    215. 

  215. 	'find-rev' => [ \&cmd_find_rev,
    216. 

  216. 	                "Translate between SVN revision numbers and tree-ish",
    217. 

  217. 			{} ],
    218. 

  218. 	'rebase' => [ \&cmd_rebase, "Fetch and rebase your working directory",
    219. 

  219. 			{ 'merge|m|M' => \$_merge,
    220. 

  220. 			  'verbose|v' => \$_verbose,
    221. 

  221. 			  'strategy|s=s' => \$_strategy,
    222. 

  222. 			  'local|l' => \$_local,
    223. 

  223. 			  'fetch-all|all' => \$_fetch_all,
    224. 

  224. 			  'dry-run|n' => \$_dry_run,
    225. 

  225. 			  %fc_opts } ],
    226. 

  226. 	'commit-diff' => [ \&cmd_commit_diff,
    227. 

  227. 	                   'Commit a diff between two trees',
    228. 

  228. 			{ 'message|m=s' => \$_message,
    229. 

  229. 			  'file|F=s' => \$_file,
    230. 

  230. 			  'revision|r=s' => \$_revision,
    231. 

  231. 			%cmt_opts } ],
    232. 

  232. 	'info' => [ \&cmd_info,
    233. 

  233. 		    "Show info about the latest SVN revision
    234. 

  234. 		     on the current branch",
    235. 

  235. 		    { 'url' => \$_url, } ],
    236. 

  236. 	'blame' => [ \&Git::SVN::Log::cmd_blame,
    237. 

  237. 	            "Show what revision and author last modified each line of a file",
    238. 

  238. 		    { 'git-format' => \$_git_format } ],
    239. 

  239. 	'reset' => [ \&cmd_reset,
    240. 

  240. 		     "Undo fetches back to the specified SVN revision",
    241. 

  241. 		     { 'revision|r=s' => \$_revision,
    242. 

  242. 		       'parent|p' => \$_fetch_parent } ],
    243. 

  243. 	'gc' => [ \&cmd_gc,
    244. 

  244. 		  "Compress unhandled.log files in .git/svn and remove " .
    245. 

  245. 		  "index files in .git/svn",
    246. 

  246. 		{} ],
    247. 

  247. );
    248. 

  248. 

  249. my $cmd;
    250. 

  250. for (my $i = 0; $i < @ARGV; $i++) {
    251. 

  251. 	if (defined $cmd{$ARGV[$i]}) {
    252. 

  252. 		$cmd = $ARGV[$i];
    253. 

  253. 		splice @ARGV, $i, 1;
    254. 

  254. 		last;
    255. 

  255. 	} elsif ($ARGV[$i] eq 'help') {
    256. 

  256. 		$cmd = $ARGV[$i+1];
    257. 

  257. 		usage(0);
    258. 

  258. 	}
    259. 

  259. };
    260. 

  260. 

  261. # make sure we're always running at the top-level working directory
    262. 

  262. unless ($cmd && $cmd =~ /(?:clone|init|multi-init)$/) {
    263. 

  263. 	unless (-d $ENV{GIT_DIR}) {
    264. 

  264. 		if ($git_dir_user_set) {
    265. 

  265. 			die "GIT_DIR=$ENV{GIT_DIR} explicitly set, ",
    266. 

  266. 			    "but it is not a directory\n";
    267. 

  267. 		}
    268. 

  268. 		my $git_dir = delete $ENV{GIT_DIR};
    269. 

  269. 		my $cdup = undef;
    270. 

  270. 		git_cmd_try {
    271. 

  271. 			$cdup = command_oneline(qw/rev-parse --show-cdup/);
    272. 

  272. 			$git_dir = '.' unless ($cdup);
    273. 

  273. 			chomp $cdup if ($cdup);
    274. 

  274. 			$cdup = "." unless ($cdup && length $cdup);
    275. 

  275. 		} "Already at toplevel, but $git_dir not found\n";
    276. 

  276. 		chdir $cdup or die "Unable to chdir up to '$cdup'\n";
    277. 

  277. 		unless (-d $git_dir) {
    278. 

  278. 			die "$git_dir still not found after going to ",
    279. 

  279. 			    "'$cdup'\n";
    280. 

  280. 		}
    281. 

  281. 		$ENV{GIT_DIR} = $git_dir;
    282. 

  282. 	}
    283. 

  283. 	$_repository = Git->repository(Repository => $ENV{GIT_DIR});
    284. 

  284. }
    285. 

  285. 

  286. my %opts = %{$cmd{$cmd}->[2]} if (defined $cmd);
    287. 

  287. 

  288. read_git_config(\%opts);
    289. 

  289. if ($cmd && ($cmd eq 'log' || $cmd eq 'blame')) {
    290. 

  290. 	Getopt::Long::Configure('pass_through');
    291. 

  291. }
    292. 

  292. my $rv = GetOptions(%opts, 'help|H|h' => \$_help, 'version|V' => \$_version,
    293. 

  293.                     'minimize-connections' => \$Git::SVN::Migration::_minimize,
    294. 

  294.                     'id|i=s' => \$Git::SVN::default_ref_id,
    295. 

  295.                     'svn-remote|remote|R=s' => sub {
    296. 

  296.                        $Git::SVN::no_reuse_existing = 1;
    297. 

  297.                        $Git::SVN::default_repo_id = $_[1] });
    298. 

  298. exit 1 if (!$rv && $cmd && $cmd ne 'log');
    299. 

  299. 

  300. usage(0) if $_help;
    301. 

  301. version() if $_version;
    302. 

  302. usage(1) unless defined $cmd;
    303. 

  303. load_authors() if $_authors;
    304. 

  304. if (defined $_authors_prog) {
    305. 

  305. 	$_authors_prog = "'" . File::Spec->rel2abs($_authors_prog) . "'";
    306. 

  306. }
    307. 

  307. 

  308. unless ($cmd =~ /^(?:clone|init|multi-init|commit-diff)$/) {
    309. 

  309. 	Git::SVN::Migration::migration_check();
    310. 

  310. }
    311. 

  311. Git::SVN::init_vars();
    312. 

  312. eval {
    313. 

  313. 	Git::SVN::verify_remotes_sanity();
    314. 

  314. 	$cmd{$cmd}->[0]->(@ARGV);
    315. 

  315. };
    316. 

  316. fatal $@ if $@;
    317. 

  317. post_fetch_checkout();
    318. 

  318. exit 0;
    319. 

  319. 

  320. ####################### primary functions ######################
    321. 

  321. sub usage {
    322. 

  322. 	my $exit = shift || 0;
    323. 

  323. 	my $fd = $exit ? \*STDERR : \*STDOUT;
    324. 

  324. 	print $fd <<"";
    325. 

  325. git-svn - bidirectional operations between a single Subversion tree and git
    326. 

  326. Usage: git svn <command> [options] [arguments]\n
    327. 

  327. 

  328. 	print $fd "Available commands:\n" unless $cmd;
    329. 

  329. 

  330. 	foreach (sort keys %cmd) {
    331. 

  331. 		next if $cmd && $cmd ne $_;
    332. 

  332. 		next if /^multi-/; # don't show deprecated commands
    333. 

  333. 		print $fd '  ',pack('A17',$_),$cmd{$_}->[1],"\n";
    334. 

  334. 		foreach (sort keys %{$cmd{$_}->[2]}) {
    335. 

  335. 			# mixed-case options are for .git/config only
    336. 

  336. 			next if /[A-Z]/ && /^[a-z]+$/i;
    337. 

  337. 			# prints out arguments as they should be passed:
    338. 

  338. 			my $x = s#[:=]s$## ? '<arg>' : s#[:=]i$## ? '<num>' : '';
    339. 

  339. 			print $fd ' ' x 21, join(', ', map { length $_ > 1 ?
    340. 

  340. 							"--$_" : "-$_" }
    341. 

  341. 						split /\|/,$_)," $x\n";
    342. 

  342. 		}
    343. 

  343. 	}
    344. 

  344. 	print $fd <<"";
    345. 

  345. \nGIT_SVN_ID may be set in the environment or via the --id/-i switch to an
    346. 

  346. arbitrary identifier if you're tracking multiple SVN branches/repositories in
    347. 

  347. one git repository and want to keep them separate.  See git-svn(1) for more
    348. 

  348. information.
    349. 

  349. 

  350. 	exit $exit;
    351. 

  351. }
    352. 

  352. 

  353. sub version {
    354. 

  354. 	::_req_svn();
    355. 

  355. 	print "git-svn version $VERSION (svn $SVN::Core::VERSION)\n";
    356. 

  356. 	exit 0;
    357. 

  357. }
    358. 

  358. 

  359. sub do_git_init_db {
    360. 

  360. 	unless (-d $ENV{GIT_DIR}) {
    361. 

  361. 		my @init_db = ('init');
    362. 

  362. 		push @init_db, "--template=$_template" if defined $_template;
    363. 

  363. 		if (defined $_shared) {
    364. 

  364. 			if ($_shared =~ /[a-z]/) {
    365. 

  365. 				push @init_db, "--shared=$_shared";
    366. 

  366. 			} else {
    367. 

  367. 				push @init_db, "--shared";
    368. 

  368. 			}
    369. 

  369. 		}
    370. 

  370. 		command_noisy(@init_db);
    371. 

  371. 		$_repository = Git->repository(Repository => ".git");
    372. 

  372. 	}
    373. 

  373. 	my $set;
    374. 

  374. 	my $pfx = "svn-remote.$Git::SVN::default_repo_id";
    375. 

  375. 	foreach my $i (keys %icv) {
    376. 

  376. 		die "'$set' and '$i' cannot both be set\n" if $set;
    377. 

  377. 		next unless defined $icv{$i};
    378. 

  378. 		command_noisy('config', "$pfx.$i", $icv{$i});
    379. 

  379. 		$set = $i;
    380. 

  380. 	}
    381. 

  381. 	my $ignore_regex = \$SVN::Git::Fetcher::_ignore_regex;
    382. 

  382. 	command_noisy('config', "$pfx.ignore-paths", $$ignore_regex)
    383. 

  383. 		if defined $$ignore_regex;
    384. 

  384. }
    385. 

  385. 

  386. sub init_subdir {
    387. 

  387. 	my $repo_path = shift or return;
    388. 

  388. 	mkpath([$repo_path]) unless -d $repo_path;
    389. 

  389. 	chdir $repo_path or die "Couldn't chdir to $repo_path: $!\n";
    390. 

  390. 	$ENV{GIT_DIR} = '.git';
    391. 

  391. 	$_repository = Git->repository(Repository => $ENV{GIT_DIR});
    392. 

  392. }
    393. 

  393. 

  394. sub cmd_clone {
    395. 

  395. 	my ($url, $path) = @_;
    396. 

  396. 	if (!defined $path &&
    397. 

  397. 	    (defined $_trunk || @_branches || @_tags ||
    398. 

  398. 	     defined $_stdlayout) &&
    399. 

  399. 	    $url !~ m#^[a-z\+]+://#) {
    400. 

  400. 		$path = $url;
    401. 

  401. 	}
    402. 

  402. 	$path = basename($url) if !defined $path || !length $path;
    403. 

  403. 	my $authors_absolute = $_authors ? File::Spec->rel2abs($_authors) : "";
    404. 

  404. 	cmd_init($url, $path);
    405. 

  405. 	command_oneline('config', 'svn.authorsfile', $authors_absolute)
    406. 

  406. 	    if $_authors;
    407. 

  407. 	Git::SVN::fetch_all($Git::SVN::default_repo_id);
    408. 

  408. }
    409. 

  409. 

  410. sub cmd_init {
    411. 

  411. 	if (defined $_stdlayout) {
    412. 

  412. 		$_trunk = 'trunk' if (!defined $_trunk);
    413. 

  413. 		@_tags = 'tags' if (! @_tags);
    414. 

  414. 		@_branches = 'branches' if (! @_branches);
    415. 

  415. 	}
    416. 

  416. 	if (defined $_trunk || @_branches || @_tags) {
    417. 

  417. 		return cmd_multi_init(@_);
    418. 

  418. 	}
    419. 

  419. 	my $url = shift or die "SVN repository location required ",
    420. 

  420. 	                       "as a command-line argument\n";
    421. 

  421. 	$url = canonicalize_url($url);
    422. 

  422. 	init_subdir(@_);
    423. 

  423. 	do_git_init_db();
    424. 

  424. 

  425. 	if ($Git::SVN::_minimize_url eq 'unset') {
    426. 

  426. 		$Git::SVN::_minimize_url = 0;
    427. 

  427. 	}
    428. 

  428. 

  429. 	Git::SVN->init($url);
    430. 

  430. }
    431. 

  431. 

  432. sub cmd_fetch {
    433. 

  433. 	if (grep /^\d+=./, @_) {
    434. 

  434. 		die "'<rev>=<commit>' fetch arguments are ",
    435. 

  435. 		    "no longer supported.\n";
    436. 

  436. 	}
    437. 

  437. 	my ($remote) = @_;
    438. 

  438. 	if (@_ > 1) {
    439. 

  439. 		die "Usage: $0 fetch [--all] [--parent] [svn-remote]\n";
    440. 

  440. 	}
    441. 

  441. 	$Git::SVN::no_reuse_existing = undef;
    442. 

  442. 	if ($_fetch_parent) {
    443. 

  443. 		my ($url, $rev, $uuid, $gs) = working_head_info('HEAD');
    444. 

  444. 		unless ($gs) {
    445. 

  445. 			die "Unable to determine upstream SVN information from ",
    446. 

  446. 			    "working tree history\n";
    447. 

  447. 		}
    448. 

  448. 	        # just fetch, don't checkout.
    449. 

  449. 		$_no_checkout = 'true';
    450. 

  450. 		$_fetch_all ? $gs->fetch_all : $gs->fetch;
    451. 

  451. 	} elsif ($_fetch_all) {
    452. 

  452. 		cmd_multi_fetch();
    453. 

  453. 	} else {
    454. 

  454. 		$remote ||= $Git::SVN::default_repo_id;
    455. 

  455. 		Git::SVN::fetch_all($remote, Git::SVN::read_all_remotes());
    456. 

  456. 	}
    457. 

  457. }
    458. 

  458. 

  459. sub cmd_set_tree {
    460. 

  460. 	my (@commits) = @_;
    461. 

  461. 	if ($_stdin || !@commits) {
    462. 

  462. 		print "Reading from stdin...\n";
    463. 

  463. 		@commits = ();
    464. 

  464. 		while (<STDIN>) {
    465. 

  465. 			if (/\b($sha1_short)\b/o) {
    466. 

  466. 				unshift @commits, $1;
    467. 

  467. 			}
    468. 

  468. 		}
    469. 

  469. 	}
    470. 

  470. 	my @revs;
    471. 

  471. 	foreach my $c (@commits) {
    472. 

  472. 		my @tmp = command('rev-parse',$c);
    473. 

  473. 		if (scalar @tmp == 1) {
    474. 

  474. 			push @revs, $tmp[0];
    475. 

  475. 		} elsif (scalar @tmp > 1) {
    476. 

  476. 			push @revs, reverse(command('rev-list',@tmp));
    477. 

  477. 		} else {
    478. 

  478. 			fatal "Failed to rev-parse $c";
    479. 

  479. 		}
    480. 

  480. 	}
    481. 

  481. 	my $gs = Git::SVN->new;
    482. 

  482. 	my ($r_last, $cmt_last) = $gs->last_rev_commit;
    483. 

  483. 	$gs->fetch;
    484. 

  484. 	if (defined $gs->{last_rev} && $r_last != $gs->{last_rev}) {
    485. 

  485. 		fatal "There are new revisions that were fetched ",
    486. 

  486. 		      "and need to be merged (or acknowledged) ",
    487. 

  487. 		      "before committing.\nlast rev: $r_last\n",
    488. 

  488. 		      " current: $gs->{last_rev}";
    489. 

  489. 	}
    490. 

  490. 	$gs->set_tree($_) foreach @revs;
    491. 

  491. 	print "Done committing ",scalar @revs," revisions to SVN\n";
    492. 

  492. 	unlink $gs->{index};
    493. 

  493. }
    494. 

  494. 

  495. sub cmd_dcommit {
    496. 

  496. 	my $head = shift;
    497. 

  497. 	git_cmd_try { command_oneline(qw/diff-index --quiet HEAD/) }
    498. 

  498. 		'Cannot dcommit with a dirty index.  Commit your changes first, '
    499. 

  499. 		. "or stash them with `git stash'.\n";
    500. 

  500. 	$head ||= 'HEAD';
    501. 

  501. 

  502. 	my $old_head;
    503. 

  503. 	if ($head ne 'HEAD') {
    504. 

  504. 		$old_head = eval {
    505. 

  505. 			command_oneline([qw/symbolic-ref -q HEAD/])
    506. 

  506. 		};
    507. 

  507. 		if ($old_head) {
    508. 

  508. 			$old_head =~ s{^refs/heads/}{};
    509. 

  509. 		} else {
    510. 

  510. 			$old_head = eval { command_oneline(qw/rev-parse HEAD/) };
    511. 

  511. 		}
    512. 

  512. 		command(['checkout', $head], STDERR => 0);
    513. 

  513. 	}
    514. 

  514. 

  515. 	my @refs;
    516. 

  516. 	my ($url, $rev, $uuid, $gs) = working_head_info('HEAD', \@refs);
    517. 

  517. 	unless ($gs) {
    518. 

  518. 		die "Unable to determine upstream SVN information from ",
    519. 

  519. 		    "$head history.\nPerhaps the repository is empty.";
    520. 

  520. 	}
    521. 

  521. 

  522. 	if (defined $_commit_url) {
    523. 

  523. 		$url = $_commit_url;
    524. 

  524. 	} else {
    525. 

  525. 		$url = eval { command_oneline('config', '--get',
    526. 

  526. 			      "svn-remote.$gs->{repo_id}.commiturl") };
    527. 

  527. 		if (!$url) {
    528. 

  528. 			$url = $gs->full_url
    529. 

  529. 		}
    530. 

  530. 	}
    531. 

  531. 

  532. 	my $last_rev = $_revision if defined $_revision;
    533. 

  533. 	if ($url) {
    534. 

  534. 		print "Committing to $url ...\n";
    535. 

  535. 	}
    536. 

  536. 	my ($linear_refs, $parents) = linearize_history($gs, \@refs);
    537. 

  537. 	if ($_no_rebase && scalar(@$linear_refs) > 1) {
    538. 

  538. 		warn "Attempting to commit more than one change while ",
    539. 

  539. 		     "--no-rebase is enabled.\n",
    540. 

  540. 		     "If these changes depend on each other, re-running ",
    541. 

  541. 		     "without --no-rebase may be required."
    542. 

  542. 	}
    543. 

  543. 	my $expect_url = $url;
    544. 

  544. 	Git::SVN::remove_username($expect_url);
    545. 

  545. 	while (1) {
    546. 

  546. 		my $d = shift @$linear_refs or last;
    547. 

  547. 		unless (defined $last_rev) {
    548. 

  548. 			(undef, $last_rev, undef) = cmt_metadata("$d~1");
    549. 

  549. 			unless (defined $last_rev) {
    550. 

  550. 				fatal "Unable to extract revision information ",
    551. 

  551. 				      "from commit $d~1";
    552. 

  552. 			}
    553. 

  553. 		}
    554. 

  554. 		if ($_dry_run) {
    555. 

  555. 			print "diff-tree $d~1 $d\n";
    556. 

  556. 		} else {
    557. 

  557. 			my $cmt_rev;
    558. 

  558. 			my %ed_opts = ( r => $last_rev,
    559. 

  559. 			                log => get_commit_entry($d)->{log},
    560. 

  560. 			                ra => Git::SVN::Ra->new($url),
    561. 

  561. 			                config => SVN::Core::config_get_config(
    562. 

  562. 			                        $Git::SVN::Ra::config_dir
    563. 

  563. 			                ),
    564. 

  564. 			                tree_a => "$d~1",
    565. 

  565. 			                tree_b => $d,
    566. 

  566. 			                editor_cb => sub {
    567. 

  567. 			                       print "Committed r$_[0]\n";
    568. 

  568. 			                       $cmt_rev = $_[0];
    569. 

  569. 			                },
    570. 

  570. 			                svn_path => '');
    571. 

  571. 			if (!SVN::Git::Editor->new(\%ed_opts)->apply_diff) {
    572. 

  572. 				print "No changes\n$d~1 == $d\n";
    573. 

  573. 			} elsif ($parents->{$d} && @{$parents->{$d}}) {
    574. 

  574. 				$gs->{inject_parents_dcommit}->{$cmt_rev} =
    575. 

  575. 				                               $parents->{$d};
    576. 

  576. 			}
    577. 

  577. 			$_fetch_all ? $gs->fetch_all : $gs->fetch;
    578. 

  578. 			$last_rev = $cmt_rev;
    579. 

  579. 			next if $_no_rebase;
    580. 

  580. 

  581. 			# we always want to rebase against the current HEAD,
    582. 

  582. 			# not any head that was passed to us
    583. 

  583. 			my @diff = command('diff-tree', $d,
    584. 

  584. 			                   $gs->refname, '--');
    585. 

  585. 			my @finish;
    586. 

  586. 			if (@diff) {
    587. 

  587. 				@finish = rebase_cmd();
    588. 

  588. 				print STDERR "W: $d and ", $gs->refname,
    589. 

  589. 				             " differ, using @finish:\n",
    590. 

  590. 				             join("\n", @diff), "\n";
    591. 

  591. 			} else {
    592. 

  592. 				print "No changes between current HEAD and ",
    593. 

  593. 				      $gs->refname,
    594. 

  594. 				      "\nResetting to the latest ",
    595. 

  595. 				      $gs->refname, "\n";
    596. 

  596. 				@finish = qw/reset --mixed/;
    597. 

  597. 			}
    598. 

  598. 			command_noisy(@finish, $gs->refname);
    599. 

  599. 			if (@diff) {
    600. 

  600. 				@refs = ();
    601. 

  601. 				my ($url_, $rev_, $uuid_, $gs_) =
    602. 

  602. 				              working_head_info('HEAD', \@refs);
    603. 

  603. 				my ($linear_refs_, $parents_) =
    604. 

  604. 				              linearize_history($gs_, \@refs);
    605. 

  605. 				if (scalar(@$linear_refs) !=
    606. 

  606. 				    scalar(@$linear_refs_)) {
    607. 

  607. 					fatal "# of revisions changed ",
    608. 

  608. 					  "\nbefore:\n",
    609. 

  609. 					  join("\n", @$linear_refs),
    610. 

  610. 					  "\n\nafter:\n",
    611. 

  611. 					  join("\n", @$linear_refs_), "\n",
    612. 

  612. 					  'If you are attempting to commit ',
    613. 

  613. 					  "merges, try running:\n\t",
    614. 

  614. 					  'git rebase --interactive',
    615. 

  615. 					  '--preserve-merges ',
    616. 

  616. 					  $gs->refname,
    617. 

  617. 					  "\nBefore dcommitting";
    618. 

  618. 				}
    619. 

  619. 				if ($url_ ne $expect_url) {
    620. 

  620. 					if ($url_ eq $gs->metadata_url) {
    621. 

  621. 						print
    622. 

  622. 						  "Accepting rewritten URL:",
    623. 

  623. 						  " $url_\n";
    624. 

  624. 					} else {
    625. 

  625. 						fatal
    626. 

  626. 						  "URL mismatch after rebase:",
    627. 

  627. 						  " $url_ != $expect_url";
    628. 

  628. 					}
    629. 

  629. 				}
    630. 

  630. 				if ($uuid_ ne $uuid) {
    631. 

  631. 					fatal "uuid mismatch after rebase: ",
    632. 

  632. 					      "$uuid_ != $uuid";
    633. 

  633. 				}
    634. 

  634. 				# remap parents
    635. 

  635. 				my (%p, @l, $i);
    636. 

  636. 				for ($i = 0; $i < scalar @$linear_refs; $i++) {
    637. 

  637. 					my $new = $linear_refs_->[$i] or next;
    638. 

  638. 					$p{$new} =
    639. 

  639. 						$parents->{$linear_refs->[$i]};
    640. 

  640. 					push @l, $new;
    641. 

  641. 				}
    642. 

  642. 				$parents = \%p;
    643. 

  643. 				$linear_refs = \@l;
    644. 

  644. 			}
    645. 

  645. 		}
    646. 

  646. 	}
    647. 

  647. 

  648. 	if ($old_head) {
    649. 

  649. 		my $new_head = command_oneline(qw/rev-parse HEAD/);
    650. 

  650. 		my $new_is_symbolic = eval {
    651. 

  651. 			command_oneline(qw/symbolic-ref -q HEAD/);
    652. 

  652. 		};
    653. 

  653. 		if ($new_is_symbolic) {
    654. 

  654. 			print "dcommitted the branch ", $head, "\n";
    655. 

  655. 		} else {
    656. 

  656. 			print "dcommitted on a detached HEAD because you gave ",
    657. 

  657. 			      "a revision argument.\n",
    658. 

  658. 			      "The rewritten commit is: ", $new_head, "\n";
    659. 

  659. 		}
    660. 

  660. 		command(['checkout', $old_head], STDERR => 0);
    661. 

  661. 	}
    662. 

  662. 

  663. 	unlink $gs->{index};
    664. 

  664. }
    665. 

  665. 

  666. sub cmd_branch {
    667. 

  667. 	my ($branch_name, $head) = @_;
    668. 

  668. 

  669. 	unless (defined $branch_name && length $branch_name) {
    670. 

  670. 		die(($_tag ? "tag" : "branch") . " name required\n");
    671. 

  671. 	}
    672. 

  672. 	$head ||= 'HEAD';
    673. 

  673. 

  674. 	my (undef, $rev, undef, $gs) = working_head_info($head);
    675. 

  675. 	my $src = $gs->full_url;
    676. 

  676. 

  677. 	my $remote = Git::SVN::read_all_remotes()->{$gs->{repo_id}};
    678. 

  678. 	my $allglobs = $remote->{ $_tag ? 'tags' : 'branches' };
    679. 

  679. 	my $glob;
    680. 

  680. 	if ($#{$allglobs} == 0) {
    681. 

  681. 		$glob = $allglobs->[0];
    682. 

  682. 	} else {
    683. 

  683. 		unless(defined $_branch_dest) {
    684. 

  684. 			die "Multiple ",
    685. 

  685. 			    $_tag ? "tag" : "branch",
    686. 

  686. 			    " paths defined for Subversion repository.\n",
    687. 

  687. 		            "You must specify where you want to create the ",
    688. 

  688. 		            $_tag ? "tag" : "branch",
    689. 

  689. 		            " with the --destination argument.\n";
    690. 

  690. 		}
    691. 

  691. 		foreach my $g (@{$allglobs}) {
    692. 

  692. 			# SVN::Git::Editor could probably be moved to Git.pm..
    693. 

  693. 			my $re = SVN::Git::Editor::glob2pat($g->{path}->{left});
    694. 

  694. 			if ($_branch_dest =~ /$re/) {
    695. 

  695. 				$glob = $g;
    696. 

  696. 				last;
    697. 

  697. 			}
    698. 

  698. 		}
    699. 

  699. 		unless (defined $glob) {
    700. 

  700. 			my $dest_re = qr/\b\Q$_branch_dest\E\b/;
    701. 

  701. 			foreach my $g (@{$allglobs}) {
    702. 

  702. 				$g->{path}->{left} =~ /$dest_re/ or next;
    703. 

  703. 				if (defined $glob) {
    704. 

  704. 					die "Ambiguous destination: ",
    705. 

  705. 					    $_branch_dest, "\nmatches both '",
    706. 

  706. 					    $glob->{path}->{left}, "' and '",
    707. 

  707. 					    $g->{path}->{left}, "'\n";
    708. 

  708. 				}
    709. 

  709. 				$glob = $g;
    710. 

  710. 			}
    711. 

  711. 			unless (defined $glob) {
    712. 

  712. 				die "Unknown ",
    713. 

  713. 				    $_tag ? "tag" : "branch",
    714. 

  714. 				    " destination $_branch_dest\n";
    715. 

  715. 			}
    716. 

  716. 		}
    717. 

  717. 	}
    718. 

  718. 	my ($lft, $rgt) = @{ $glob->{path} }{qw/left right/};
    719. 

  719. 	my $url;
    720. 

  720. 	if (defined $_commit_url) {
    721. 

  721. 		$url = $_commit_url;
    722. 

  722. 	} else {
    723. 

  723. 		$url = eval { command_oneline('config', '--get',
    724. 

  724. 			"svn-remote.$gs->{repo_id}.commiturl") };
    725. 

  725. 		if (!$url) {
    726. 

  726. 			$url = $remote->{url};
    727. 

  727. 		}
    728. 

  728. 	}
    729. 

  729. 	my $dst = join '/', $url, $lft, $branch_name, ($rgt || ());
    730. 

  730. 

  731. 	if ($dst =~ /^https:/ && $src =~ /^http:/) {
    732. 

  732. 		$src=~s/^http:/https:/;
    733. 

  733. 	}
    734. 

  734. 

  735. 	::_req_svn();
    736. 

  736. 

  737. 	my $ctx = SVN::Client->new(
    738. 

  738. 		auth    => Git::SVN::Ra::_auth_providers(),
    739. 

  739. 		log_msg => sub {
    740. 

  740. 			${ $_[0] } = defined $_message
    741. 

  741. 				? $_message
    742. 

  742. 				: 'Create ' . ($_tag ? 'tag ' : 'branch ' )
    743. 

  743. 				. $branch_name;
    744. 

  744. 		},
    745. 

  745. 	);
    746. 

  746. 

  747. 	eval {
    748. 

  748. 		$ctx->ls($dst, 'HEAD', 0);
    749. 

  749. 	} and die "branch ${branch_name} already exists\n";
    750. 

  750. 

  751. 	print "Copying ${src} at r${rev} to ${dst}...\n";
    752. 

  752. 	$ctx->copy($src, $rev, $dst)
    753. 

  753. 		unless $_dry_run;
    754. 

  754. 

  755. 	$gs->fetch_all;
    756. 

  756. }
    757. 

  757. 

  758. sub cmd_find_rev {
    759. 

  759. 	my $revision_or_hash = shift or die "SVN or git revision required ",
    760. 

  760. 	                                    "as a command-line argument\n";
    761. 

  761. 	my $result;
    762. 

  762. 	if ($revision_or_hash =~ /^r\d+$/) {
    763. 

  763. 		my $head = shift;
    764. 

  764. 		$head ||= 'HEAD';
    765. 

  765. 		my @refs;
    766. 

  766. 		my (undef, undef, $uuid, $gs) = working_head_info($head, \@refs);
    767. 

  767. 		unless ($gs) {
    768. 

  768. 			die "Unable to determine upstream SVN information from ",
    769. 

  769. 			    "$head history\n";
    770. 

  770. 		}
    771. 

  771. 		my $desired_revision = substr($revision_or_hash, 1);
    772. 

  772. 		$result = $gs->rev_map_get($desired_revision, $uuid);
    773. 

  773. 	} else {
    774. 

  774. 		my (undef, $rev, undef) = cmt_metadata($revision_or_hash);
    775. 

  775. 		$result = $rev;
    776. 

  776. 	}
    777. 

  777. 	print "$result\n" if $result;
    778. 

  778. }
    779. 

  779. 

  780. sub cmd_rebase {
    781. 

  781. 	command_noisy(qw/update-index --refresh/);
    782. 

  782. 	my ($url, $rev, $uuid, $gs) = working_head_info('HEAD');
    783. 

  783. 	unless ($gs) {
    784. 

  784. 		die "Unable to determine upstream SVN information from ",
    785. 

  785. 		    "working tree history\n";
    786. 

  786. 	}
    787. 

  787. 	if ($_dry_run) {
    788. 

  788. 		print "Remote Branch: " . $gs->refname . "\n";
    789. 

  789. 		print "SVN URL: " . $url . "\n";
    790. 

  790. 		return;
    791. 

  791. 	}
    792. 

  792. 	if (command(qw/diff-index HEAD --/)) {
    793. 

  793. 		print STDERR "Cannot rebase with uncommited changes:\n";
    794. 

  794. 		command_noisy('status');
    795. 

  795. 		exit 1;
    796. 

  796. 	}
    797. 

  797. 	unless ($_local) {
    798. 

  798. 		# rebase will checkout for us, so no need to do it explicitly
    799. 

  799. 		$_no_checkout = 'true';
    800. 

  800. 		$_fetch_all ? $gs->fetch_all : $gs->fetch;
    801. 

  801. 	}
    802. 

  802. 	command_noisy(rebase_cmd(), $gs->refname);
    803. 

  803. 	$gs->mkemptydirs;
    804. 

  804. }
    805. 

  805. 

  806. sub cmd_show_ignore {
    807. 

  807. 	my ($url, $rev, $uuid, $gs) = working_head_info('HEAD');
    808. 

  808. 	$gs ||= Git::SVN->new;
    809. 

  809. 	my $r = (defined $_revision ? $_revision : $gs->ra->get_latest_revnum);
    810. 

  810. 	$gs->prop_walk($gs->{path}, $r, sub {
    811. 

  811. 		my ($gs, $path, $props) = @_;
    812. 

  812. 		print STDOUT "\n# $path\n";
    813. 

  813. 		my $s = $props->{'svn:ignore'} or return;
    814. 

  814. 		$s =~ s/[\r\n]+/\n/g;
    815. 

  815. 		$s =~ s/^\n+//;
    816. 

  816. 		chomp $s;
    817. 

  817. 		$s =~ s#^#$path#gm;
    818. 

  818. 		print STDOUT "$s\n";
    819. 

  819. 	});
    820. 

  820. }
    821. 

  821. 

  822. sub cmd_show_externals {
    823. 

  823. 	my ($url, $rev, $uuid, $gs) = working_head_info('HEAD');
    824. 

  824. 	$gs ||= Git::SVN->new;
    825. 

  825. 	my $r = (defined $_revision ? $_revision : $gs->ra->get_latest_revnum);
    826. 

  826. 	$gs->prop_walk($gs->{path}, $r, sub {
    827. 

  827. 		my ($gs, $path, $props) = @_;
    828. 

  828. 		print STDOUT "\n# $path\n";
    829. 

  829. 		my $s = $props->{'svn:externals'} or return;
    830. 

  830. 		$s =~ s/[\r\n]+/\n/g;
    831. 

  831. 		chomp $s;
    832. 

  832. 		$s =~ s#^#$path#gm;
    833. 

  833. 		print STDOUT "$s\n";
    834. 

  834. 	});
    835. 

  835. }
    836. 

  836. 

  837. sub cmd_create_ignore {
    838. 

  838. 	my ($url, $rev, $uuid, $gs) = working_head_info('HEAD');
    839. 

  839. 	$gs ||= Git::SVN->new;
    840. 

  840. 	my $r = (defined $_revision ? $_revision : $gs->ra->get_latest_revnum);
    841. 

  841. 	$gs->prop_walk($gs->{path}, $r, sub {
    842. 

  842. 		my ($gs, $path, $props) = @_;
    843. 

  843. 		# $path is of the form /path/to/dir/
    844. 

  844. 		$path = '.' . $path;
    845. 

  845. 		# SVN can have attributes on empty directories,
    846. 

  846. 		# which git won't track
    847. 

  847. 		mkpath([$path]) unless -d $path;
    848. 

  848. 		my $ignore = $path . '.gitignore';
    849. 

  849. 		my $s = $props->{'svn:ignore'} or return;
    850. 

  850. 		open(GITIGNORE, '>', $ignore)
    851. 

  851. 		  or fatal("Failed to open `$ignore' for writing: $!");
    852. 

  852. 		$s =~ s/[\r\n]+/\n/g;
    853. 

  853. 		$s =~ s/^\n+//;
    854. 

  854. 		chomp $s;
    855. 

  855. 		# Prefix all patterns so that the ignore doesn't apply
    856. 

  856. 		# to sub-directories.
    857. 

  857. 		$s =~ s#^#/#gm;
    858. 

  858. 		print GITIGNORE "$s\n";
    859. 

  859. 		close(GITIGNORE)
    860. 

  860. 		  or fatal("Failed to close `$ignore': $!");
    861. 

  861. 		command_noisy('add', '-f', $ignore);
    862. 

  862. 	});
    863. 

  863. }
    864. 

  864. 

  865. sub cmd_mkdirs {
    866. 

  866. 	my ($url, $rev, $uuid, $gs) = working_head_info('HEAD');
    867. 

  867. 	$gs ||= Git::SVN->new;
    868. 

  868. 	$gs->mkemptydirs($_revision);
    869. 

  869. }
    870. 

  870. 

  871. sub canonicalize_path {
    872. 

  872. 	my ($path) = @_;
    873. 

  873. 	my $dot_slash_added = 0;
    874. 

  874. 	if (substr($path, 0, 1) ne "/") {
    875. 

  875. 		$path = "./" . $path;
    876. 

  876. 		$dot_slash_added = 1;
    877. 

  877. 	}
    878. 

  878. 	# File::Spec->canonpath doesn't collapse x/../y into y (for a
    879. 

  879. 	# good reason), so let's do this manually.
    880. 

  880. 	$path =~ s#/+#/#g;
    881. 

  881. 	$path =~ s#/\.(?:/|$)#/#g;
    882. 

  882. 	$path =~ s#/[^/]+/\.\.##g;
    883. 

  883. 	$path =~ s#/$##g;
    884. 

  884. 	$path =~ s#^\./## if $dot_slash_added;
    885. 

  885. 	$path =~ s#^/##;
    886. 

  886. 	$path =~ s#^\.$##;
    887. 

  887. 	return $path;
    888. 

  888. }
    889. 

  889. 

  890. sub canonicalize_url {
    891. 

  891. 	my ($url) = @_;
    892. 

  892. 	$url =~ s#^([^:]+://[^/]*/)(.*)$#$1 . canonicalize_path($2)#e;
    893. 

  893. 	return $url;
    894. 

  894. }
    895. 

  895. 

  896. # get_svnprops(PATH)
    897. 

  897. # ------------------
    898. 

  898. # Helper for cmd_propget and cmd_proplist below.
    899. 

  899. sub get_svnprops {
    900. 

  900. 	my $path = shift;
    901. 

  901. 	my ($url, $rev, $uuid, $gs) = working_head_info('HEAD');
    902. 

  902. 	$gs ||= Git::SVN->new;
    903. 

  903. 

  904. 	# prefix THE PATH by the sub-directory from which the user
    905. 

  905. 	# invoked us.
    906. 

  906. 	$path = $cmd_dir_prefix . $path;
    907. 

  907. 	fatal("No such file or directory: $path") unless -e $path;
    908. 

  908. 	my $is_dir = -d $path ? 1 : 0;
    909. 

  909. 	$path = $gs->{path} . '/' . $path;
    910. 

  910. 

  911. 	# canonicalize the path (otherwise libsvn will abort or fail to
    912. 

  912. 	# find the file)
    913. 

  913. 	$path = canonicalize_path($path);
    914. 

  914. 

  915. 	my $r = (defined $_revision ? $_revision : $gs->ra->get_latest_revnum);
    916. 

  916. 	my $props;
    917. 

  917. 	if ($is_dir) {
    918. 

  918. 		(undef, undef, $props) = $gs->ra->get_dir($path, $r);
    919. 

  919. 	}
    920. 

  920. 	else {
    921. 

  921. 		(undef, $props) = $gs->ra->get_file($path, $r, undef);
    922. 

  922. 	}
    923. 

  923. 	return $props;
    924. 

  924. }
    925. 

  925. 

  926. # cmd_propget (PROP, PATH)
    927. 

  927. # ------------------------
    928. 

  928. # Print the SVN property PROP for PATH.
    929. 

  929. sub cmd_propget {
    930. 

  930. 	my ($prop, $path) = @_;
    931. 

  931. 	$path = '.' if not defined $path;
    932. 

  932. 	usage(1) if not defined $prop;
    933. 

  933. 	my $props = get_svnprops($path);
    934. 

  934. 	if (not defined $props->{$prop}) {
    935. 

  935. 		fatal("`$path' does not have a `$prop' SVN property.");
    936. 

  936. 	}
    937. 

  937. 	print $props->{$prop} . "\n";
    938. 

  938. }
    939. 

  939. 

  940. # cmd_proplist (PATH)
    941. 

  941. # -------------------
    942. 

  942. # Print the list of SVN properties for PATH.
    943. 

  943. sub cmd_proplist {
    944. 

  944. 	my $path = shift;
    945. 

  945. 	$path = '.' if not defined $path;
    946. 

  946. 	my $props = get_svnprops($path);
    947. 

  947. 	print "Properties on '$path':\n";
    948. 

  948. 	foreach (sort keys %{$props}) {
    949. 

  949. 		print "  $_\n";
    950. 

  950. 	}
    951. 

  951. }
    952. 

  952. 

  953. sub cmd_multi_init {
    954. 

  954. 	my $url = shift;
    955. 

  955. 	unless (defined $_trunk || @_branches || @_tags) {
    956. 

  956. 		usage(1);
    957. 

  957. 	}
    958. 

  958. 

  959. 	$_prefix = '' unless defined $_prefix;
    960. 

  960. 	if (defined $url) {
    961. 

  961. 		$url = canonicalize_url($url);
    962. 

  962. 		init_subdir(@_);
    963. 

  963. 	}
    964. 

  964. 	do_git_init_db();
    965. 

  965. 	if (defined $_trunk) {
    966. 

  966. 		$_trunk =~ s#^/+##;
    967. 

  967. 		my $trunk_ref = 'refs/remotes/' . $_prefix . 'trunk';
    968. 

  968. 		# try both old-style and new-style lookups:
    969. 

  969. 		my $gs_trunk = eval { Git::SVN->new($trunk_ref) };
    970. 

  970. 		unless ($gs_trunk) {
    971. 

  971. 			my ($trunk_url, $trunk_path) =
    972. 

  972. 			                      complete_svn_url($url, $_trunk);
    973. 

  973. 			$gs_trunk = Git::SVN->init($trunk_url, $trunk_path,
    974. 

  974. 						   undef, $trunk_ref);
    975. 

  975. 		}
    976. 

  976. 	}
    977. 

  977. 	return unless @_branches || @_tags;
    978. 

  978. 	my $ra = $url ? Git::SVN::Ra->new($url) : undef;
    979. 

  979. 	foreach my $path (@_branches) {
    980. 

  980. 		complete_url_ls_init($ra, $path, '--branches/-b', $_prefix);
    981. 

  981. 	}
    982. 

  982. 	foreach my $path (@_tags) {
    983. 

  983. 		complete_url_ls_init($ra, $path, '--tags/-t', $_prefix.'tags/');
    984. 

  984. 	}
    985. 

  985. }
    986. 

  986. 

  987. sub cmd_multi_fetch {
    988. 

  988. 	$Git::SVN::no_reuse_existing = undef;
    989. 

  989. 	my $remotes = Git::SVN::read_all_remotes();
    990. 

  990. 	foreach my $repo_id (sort keys %$remotes) {
    991. 

  991. 		if ($remotes->{$repo_id}->{url}) {
    992. 

  992. 			Git::SVN::fetch_all($repo_id, $remotes);
    993. 

  993. 		}
    994. 

  994. 	}
    995. 

  995. }
    996. 

  996. 

  997. # this command is special because it requires no metadata
    998. 

  998. sub cmd_commit_diff {
    999. 

  999. 	my ($ta, $tb, $url) = @_;
    1000. 

  1000. 	my $usage = "Usage: $0 commit-diff -r<revision> ".
    1001. 

  1001. 	            "<tree-ish> <tree-ish> [<URL>]";
    1002. 

  1002. 	fatal($usage) if (!defined $ta || !defined $tb);
    1003. 

  1003. 	my $svn_path = '';
    1004. 

  1004. 	if (!defined $url) {
    1005. 

  1005. 		my $gs = eval { Git::SVN->new };
    1006. 

  1006. 		if (!$gs) {
    1007. 

  1007. 			fatal("Needed URL or usable git-svn --id in ",
    1008. 

  1008. 			      "the command-line\n", $usage);
    1009. 

  1009. 		}
    1010. 

  1010. 		$url = $gs->{url};
    1011. 

  1011. 		$svn_path = $gs->{path};
    1012. 

  1012. 	}
    1013. 

  1013. 	unless (defined $_revision) {
    1014. 

  1014. 		fatal("-r|--revision is a required argument\n", $usage);
    1015. 

  1015. 	}
    1016. 

  1016. 	if (defined $_message && defined $_file) {
    1017. 

  1017. 		fatal("Both --message/-m and --file/-F specified ",
    1018. 

  1018. 		      "for the commit message.\n",
    1019. 

  1019. 		      "I have no idea what you mean");
    1020. 

  1020. 	}
    1021. 

  1021. 	if (defined $_file) {
    1022. 

  1022. 		$_message = file_to_s($_file);
    1023. 

  1023. 	} else {
    1024. 

  1024. 		$_message ||= get_commit_entry($tb)->{log};
    1025. 

  1025. 	}
    1026. 

  1026. 	my $ra ||= Git::SVN::Ra->new($url);
    1027. 

  1027. 	my $r = $_revision;
    1028. 

  1028. 	if ($r eq 'HEAD') {
    1029. 

  1029. 		$r = $ra->get_latest_revnum;
    1030. 

  1030. 	} elsif ($r !~ /^\d+$/) {
    1031. 

  1031. 		die "revision argument: $r not understood by git-svn\n";
    1032. 

  1032. 	}
    1033. 

  1033. 	my %ed_opts = ( r => $r,
    1034. 

  1034. 	                log => $_message,
    1035. 

  1035. 	                ra => $ra,
    1036. 

  1036. 	                tree_a => $ta,
    1037. 

  1037. 	                tree_b => $tb,
    1038. 

  1038. 	                editor_cb => sub { print "Committed r$_[0]\n" },
    1039. 

  1039. 	                svn_path => $svn_path );
    1040. 

  1040. 	if (!SVN::Git::Editor->new(\%ed_opts)->apply_diff) {
    1041. 

  1041. 		print "No changes\n$ta == $tb\n";
    1042. 

  1042. 	}
    1043. 

  1043. }
    1044. 

  1044. 

  1045. sub escape_uri_only {
    1046. 

  1046. 	my ($uri) = @_;
    1047. 

  1047. 	my @tmp;
    1048. 

  1048. 	foreach (split m{/}, $uri) {
    1049. 

  1049. 		s/([^~\w.%+-]|%(?![a-fA-F0-9]{2}))/sprintf("%%%02X",ord($1))/eg;
    1050. 

  1050. 		push @tmp, $_;
    1051. 

  1051. 	}
    1052. 

  1052. 	join('/', @tmp);
    1053. 

  1053. }
    1054. 

  1054. 

  1055. sub escape_url {
    1056. 

  1056. 	my ($url) = @_;
    1057. 

  1057. 	if ($url =~ m#^([^:]+)://([^/]*)(.*)$#) {
    1058. 

  1058. 		my ($scheme, $domain, $uri) = ($1, $2, escape_uri_only($3));
    1059. 

  1059. 		$url = "$scheme://$domain$uri";
    1060. 

  1060. 	}
    1061. 

  1061. 	$url;
    1062. 

  1062. }
    1063. 

  1063. 

  1064. sub cmd_info {
    1065. 

  1065. 	my $path = canonicalize_path(defined($_[0]) ? $_[0] : ".");
    1066. 

  1066. 	my $fullpath = canonicalize_path($cmd_dir_prefix . $path);
    1067. 

  1067. 	if (exists $_[1]) {
    1068. 

  1068. 		die "Too many arguments specified\n";
    1069. 

  1069. 	}
    1070. 

  1070. 

  1071. 	my ($file_type, $diff_status) = find_file_type_and_diff_status($path);
    1072. 

  1072. 

  1073. 	if (!$file_type && !$diff_status) {
    1074. 

  1074. 		print STDERR "svn: '$path' is not under version control\n";
    1075. 

  1075. 		exit 1;
    1076. 

  1076. 	}
    1077. 

  1077. 

  1078. 	my ($url, $rev, $uuid, $gs) = working_head_info('HEAD');
    1079. 

  1079. 	unless ($gs) {
    1080. 

  1080. 		die "Unable to determine upstream SVN information from ",
    1081. 

  1081. 		    "working tree history\n";
    1082. 

  1082. 	}
    1083. 

  1083. 

  1084. 	# canonicalize_path() will return "" to make libsvn 1.5.x happy,
    1085. 

  1085. 	$path = "." if $path eq "";
    1086. 

  1086. 

  1087. 	my $full_url = $url . ($fullpath eq "" ? "" : "/$fullpath");
    1088. 

  1088. 

  1089. 	if ($_url) {
    1090. 

  1090. 		print escape_url($full_url), "\n";
    1091. 

  1091. 		return;
    1092. 

  1092. 	}
    1093. 

  1093. 

  1094. 	my $result = "Path: $path\n";
    1095. 

  1095. 	$result .= "Name: " . basename($path) . "\n" if $file_type ne "dir";
    1096. 

  1096. 	$result .= "URL: " . escape_url($full_url) . "\n";
    1097. 

  1097. 

  1098. 	eval {
    1099. 

  1099. 		my $repos_root = $gs->repos_root;
    1100. 

  1100. 		Git::SVN::remove_username($repos_root);
    1101. 

  1101. 		$result .= "Repository Root: " . escape_url($repos_root) . "\n";
    1102. 

  1102. 	};
    1103. 

  1103. 	if ($@) {
    1104. 

  1104. 		$result .= "Repository Root: (offline)\n";
    1105. 

  1105. 	}
    1106. 

  1106. 	::_req_svn();
    1107. 

  1107. 	$result .= "Repository UUID: $uuid\n" unless $diff_status eq "A" &&
    1108. 

  1108. 		($SVN::Core::VERSION le '1.5.4' || $file_type ne "dir");
    1109. 

  1109. 	$result .= "Revision: " . ($diff_status eq "A" ? 0 : $rev) . "\n";
    1110. 

  1110. 

  1111. 	$result .= "Node Kind: " .
    1112. 

  1112. 		   ($file_type eq "dir" ? "directory" : "file") . "\n";
    1113. 

  1113. 

  1114. 	my $schedule = $diff_status eq "A"
    1115. 

  1115. 		       ? "add"
    1116. 

  1116. 		       : ($diff_status eq "D" ? "delete" : "normal");
    1117. 

  1117. 	$result .= "Schedule: $schedule\n";
    1118. 

  1118. 

  1119. 	if ($diff_status eq "A") {
    1120. 

  1120. 		print $result, "\n";
    1121. 

  1121. 		return;
    1122. 

  1122. 	}
    1123. 

  1123. 

  1124. 	my ($lc_author, $lc_rev, $lc_date_utc);
    1125. 

  1125. 	my @args = Git::SVN::Log::git_svn_log_cmd($rev, $rev, "--", $fullpath);
    1126. 

  1126. 	my $log = command_output_pipe(@args);
    1127. 

  1127. 	my $esc_color = qr/(?:\033\[(?:(?:\d+;)*\d*)?m)*/;
    1128. 

  1128. 	while (<$log>) {
    1129. 

  1129. 		if (/^${esc_color}author (.+) <[^>]+> (\d+) ([\-\+]?\d+)$/o) {
    1130. 

  1130. 			$lc_author = $1;
    1131. 

  1131. 			$lc_date_utc = Git::SVN::Log::parse_git_date($2, $3);
    1132. 

  1132. 		} elsif (/^${esc_color}    (git-svn-id:.+)$/o) {
    1133. 

  1133. 			(undef, $lc_rev, undef) = ::extract_metadata($1);
    1134. 

  1134. 		}
    1135. 

  1135. 	}
    1136. 

  1136. 	close $log;
    1137. 

  1137. 

  1138. 	Git::SVN::Log::set_local_timezone();
    1139. 

  1139. 

  1140. 	$result .= "Last Changed Author: $lc_author\n";
    1141. 

  1141. 	$result .= "Last Changed Rev: $lc_rev\n";
    1142. 

  1142. 	$result .= "Last Changed Date: " .
    1143. 

  1143. 		   Git::SVN::Log::format_svn_date($lc_date_utc) . "\n";
    1144. 

  1144. 

  1145. 	if ($file_type ne "dir") {
    1146. 

  1146. 		my $text_last_updated_date =
    1147. 

  1147. 		    ($diff_status eq "D" ? $lc_date_utc : (stat $path)[9]);
    1148. 

  1148. 		$result .=
    1149. 

  1149. 		    "Text Last Updated: " .
    1150. 

  1150. 		    Git::SVN::Log::format_svn_date($text_last_updated_date) .
    1151. 

  1151. 		    "\n";
    1152. 

  1152. 		my $checksum;
    1153. 

  1153. 		if ($diff_status eq "D") {
    1154. 

  1154. 			my ($fh, $ctx) =
    1155. 

  1155. 			    command_output_pipe(qw(cat-file blob), "HEAD:$path");
    1156. 

  1156. 			if ($file_type eq "link") {
    1157. 

  1157. 				my $file_name = <$fh>;
    1158. 

  1158. 				$checksum = md5sum("link $file_name");
    1159. 

  1159. 			} else {
    1160. 

  1160. 				$checksum = md5sum($fh);
    1161. 

  1161. 			}
    1162. 

  1162. 			command_close_pipe($fh, $ctx);
    1163. 

  1163. 		} elsif ($file_type eq "link") {
    1164. 

  1164. 			my $file_name =
    1165. 

  1165. 			    command(qw(cat-file blob), "HEAD:$path");
    1166. 

  1166. 			$checksum =
    1167. 

  1167. 			    md5sum("link " . $file_name);
    1168. 

  1168. 		} else {
    1169. 

  1169. 			open FILE, "<", $path or die $!;
    1170. 

  1170. 			$checksum = md5sum(\*FILE);
    1171. 

  1171. 			close FILE or die $!;
    1172. 

  1172. 		}
    1173. 

  1173. 		$result .= "Checksum: " . $checksum . "\n";
    1174. 

  1174. 	}
    1175. 

  1175. 

  1176. 	print $result, "\n";
    1177. 

  1177. }
    1178. 

  1178. 

  1179. sub cmd_reset {
    1180. 

  1180. 	my $target = shift || $_revision or die "SVN revision required\n";
    1181. 

  1181. 	$target = $1 if $target =~ /^r(\d+)$/;
    1182. 

  1182. 	$target =~ /^\d+$/ or die "Numeric SVN revision expected\n";
    1183. 

  1183. 	my ($url, $rev, $uuid, $gs) = working_head_info('HEAD');
    1184. 

  1184. 	unless ($gs) {
    1185. 

  1185. 		die "Unable to determine upstream SVN information from ".
    1186. 

  1186. 		    "history\n";
    1187. 

  1187. 	}
    1188. 

  1188. 	my ($r, $c) = $gs->find_rev_before($target, not $_fetch_parent);
    1189. 

  1189. 	die "Cannot find SVN revision $target\n" unless defined($c);
    1190. 

  1190. 	$gs->rev_map_set($r, $c, 'reset', $uuid);
    1191. 

  1191. 	print "r$r = $c ($gs->{ref_id})\n";
    1192. 

  1192. }
    1193. 

  1193. 

  1194. sub cmd_gc {
    1195. 

  1195. 	if (!$can_compress) {
    1196. 

  1196. 		warn "Compress::Zlib could not be found; unhandled.log " .
    1197. 

  1197. 		     "files will not be compressed.\n";
    1198. 

  1198. 	}
    1199. 

  1199. 	find({ wanted => \&gc_directory, no_chdir => 1}, "$ENV{GIT_DIR}/svn");
    1200. 

  1200. }
    1201. 

  1201. 

  1202. ########################### utility functions #########################
    1203. 

  1203. 

  1204. sub rebase_cmd {
    1205. 

  1205. 	my @cmd = qw/rebase/;
    1206. 

  1206. 	push @cmd, '-v' if $_verbose;
    1207. 

  1207. 	push @cmd, qw/--merge/ if $_merge;
    1208. 

  1208. 	push @cmd, "--strategy=$_strategy" if $_strategy;
    1209. 

  1209. 	@cmd;
    1210. 

  1210. }
    1211. 

  1211. 

  1212. sub post_fetch_checkout {
    1213. 

  1213. 	return if $_no_checkout;
    1214. 

  1214. 	my $gs = $Git::SVN::_head or return;
    1215. 

  1215. 	return if verify_ref('refs/heads/master^0');
    1216. 

  1216. 

  1217. 	# look for "trunk" ref if it exists
    1218. 

  1218. 	my $remote = Git::SVN::read_all_remotes()->{$gs->{repo_id}};
    1219. 

  1219. 	my $fetch = $remote->{fetch};
    1220. 

  1220. 	if ($fetch) {
    1221. 

  1221. 		foreach my $p (keys %$fetch) {
    1222. 

  1222. 			basename($fetch->{$p}) eq 'trunk' or next;
    1223. 

  1223. 			$gs = Git::SVN->new($fetch->{$p}, $gs->{repo_id}, $p);
    1224. 

  1224. 			last;
    1225. 

  1225. 		}
    1226. 

  1226. 	}
    1227. 

  1227. 

  1228. 	my $valid_head = verify_ref('HEAD^0');
    1229. 

  1229. 	command_noisy(qw(update-ref refs/heads/master), $gs->refname);
    1230. 

  1230. 	return if ($valid_head || !verify_ref('HEAD^0'));
    1231. 

  1231. 

  1232. 	return if $ENV{GIT_DIR} !~ m#^(?:.*/)?\.git$#;
    1233. 

  1233. 	my $index = $ENV{GIT_INDEX_FILE} || "$ENV{GIT_DIR}/index";
    1234. 

  1234. 	return if -f $index;
    1235. 

  1235. 

  1236. 	return if command_oneline(qw/rev-parse --is-inside-work-tree/) eq 'false';
    1237. 

  1237. 	return if command_oneline(qw/rev-parse --is-inside-git-dir/) eq 'true';
    1238. 

  1238. 	command_noisy(qw/read-tree -m -u -v HEAD HEAD/);
    1239. 

  1239. 	print STDERR "Checked out HEAD:\n  ",
    1240. 

  1240. 	             $gs->full_url, " r", $gs->last_rev, "\n";
    1241. 

  1241. 	$gs->mkemptydirs($gs->last_rev);
    1242. 

  1242. }
    1243. 

  1243. 

  1244. sub complete_svn_url {
    1245. 

  1245. 	my ($url, $path) = @_;
    1246. 

  1246. 	$path =~ s#/+$##;
    1247. 

  1247. 	if ($path !~ m#^[a-z\+]+://#) {
    1248. 

  1248. 		if (!defined $url || $url !~ m#^[a-z\+]+://#) {
    1249. 

  1249. 			fatal("E: '$path' is not a complete URL ",
    1250. 

  1250. 			      "and a separate URL is not specified");
    1251. 

  1251. 		}
    1252. 

  1252. 		return ($url, $path);
    1253. 

  1253. 	}
    1254. 

  1254. 	return ($path, '');
    1255. 

  1255. }
    1256. 

  1256. 

  1257. sub complete_url_ls_init {
    1258. 

  1258. 	my ($ra, $repo_path, $switch, $pfx) = @_;
    1259. 

  1259. 	unless ($repo_path) {
    1260. 

  1260. 		print STDERR "W: $switch not specified\n";
    1261. 

  1261. 		return;
    1262. 

  1262. 	}
    1263. 

  1263. 	$repo_path =~ s#/+$##;
    1264. 

  1264. 	if ($repo_path =~ m#^[a-z\+]+://#) {
    1265. 

  1265. 		$ra = Git::SVN::Ra->new($repo_path);
    1266. 

  1266. 		$repo_path = '';
    1267. 

  1267. 	} else {
    1268. 

  1268. 		$repo_path =~ s#^/+##;
    1269. 

  1269. 		unless ($ra) {
    1270. 

  1270. 			fatal("E: '$repo_path' is not a complete URL ",
    1271. 

  1271. 			      "and a separate URL is not specified");
    1272. 

  1272. 		}
    1273. 

  1273. 	}
    1274. 

  1274. 	my $url = $ra->{url};
    1275. 

  1275. 	my $gs = Git::SVN->init($url, undef, undef, undef, 1);
    1276. 

  1276. 	my $k = "svn-remote.$gs->{repo_id}.url";
    1277. 

  1277. 	my $orig_url = eval { command_oneline(qw/config --get/, $k) };
    1278. 

  1278. 	if ($orig_url && ($orig_url ne $gs->{url})) {
    1279. 

  1279. 		die "$k already set: $orig_url\n",
    1280. 

  1280. 		    "wanted to set to: $gs->{url}\n";
    1281. 

  1281. 	}
    1282. 

  1282. 	command_oneline('config', $k, $gs->{url}) unless $orig_url;
    1283. 

  1283. 	my $remote_path = "$gs->{path}/$repo_path";
    1284. 

  1284. 	$remote_path =~ s{%([0-9A-F]{2})}{chr hex($1)}ieg;
    1285. 

  1285. 	$remote_path =~ s#/+#/#g;
    1286. 

  1286. 	$remote_path =~ s#^/##g;
    1287. 

  1287. 	$remote_path .= "/*" if $remote_path !~ /\*/;
    1288. 

  1288. 	my ($n) = ($switch =~ /^--(\w+)/);
    1289. 

  1289. 	if (length $pfx && $pfx !~ m#/$#) {
    1290. 

  1290. 		die "--prefix='$pfx' must have a trailing slash '/'\n";
    1291. 

  1291. 	}
    1292. 

  1292. 	command_noisy('config',
    1293. 

  1293. 		      '--add',
    1294. 

  1294. 	              "svn-remote.$gs->{repo_id}.$n",
    1295. 

  1295. 	              "$remote_path:refs/remotes/$pfx*" .
    1296. 

  1296. 	                ('/*' x (($remote_path =~ tr/*/*/) - 1)) );
    1297. 

  1297. }
    1298. 

  1298. 

  1299. sub verify_ref {
    1300. 

  1300. 	my ($ref) = @_;
    1301. 

  1301. 	eval { command_oneline([ 'rev-parse', '--verify', $ref ],
    1302. 

  1302. 	                       { STDERR => 0 }); };
    1303. 

  1303. }
    1304. 

  1304. 

  1305. sub get_tree_from_treeish {
    1306. 

  1306. 	my ($treeish) = @_;
    1307. 

  1307. 	# $treeish can be a symbolic ref, too:
    1308. 

  1308. 	my $type = command_oneline(qw/cat-file -t/, $treeish);
    1309. 

  1309. 	my $expected;
    1310. 

  1310. 	while ($type eq 'tag') {
    1311. 

  1311. 		($treeish, $type) = command(qw/cat-file tag/, $treeish);
    1312. 

  1312. 	}
    1313. 

  1313. 	if ($type eq 'commit') {
    1314. 

  1314. 		$expected = (grep /^tree /, command(qw/cat-file commit/,
    1315. 

  1315. 		                                    $treeish))[0];
    1316. 

  1316. 		($expected) = ($expected =~ /^tree ($sha1)$/o);
    1317. 

  1317. 		die "Unable to get tree from $treeish\n" unless $expected;
    1318. 

  1318. 	} elsif ($type eq 'tree') {
    1319. 

  1319. 		$expected = $treeish;
    1320. 

  1320. 	} else {
    1321. 

  1321. 		die "$treeish is a $type, expected tree, tag or commit\n";
    1322. 

  1322. 	}
    1323. 

  1323. 	return $expected;
    1324. 

  1324. }
    1325. 

  1325. 

  1326. sub get_commit_entry {
    1327. 

  1327. 	my ($treeish) = shift;
    1328. 

  1328. 	my %log_entry = ( log => '', tree => get_tree_from_treeish($treeish) );
    1329. 

  1329. 	my $commit_editmsg = "$ENV{GIT_DIR}/COMMIT_EDITMSG";
    1330. 

  1330. 	my $commit_msg = "$ENV{GIT_DIR}/COMMIT_MSG";
    1331. 

  1331. 	open my $log_fh, '>', $commit_editmsg or croak $!;
    1332. 

  1332. 

  1333. 	my $type = command_oneline(qw/cat-file -t/, $treeish);
    1334. 

  1334. 	if ($type eq 'commit' || $type eq 'tag') {
    1335. 

  1335. 		my ($msg_fh, $ctx) = command_output_pipe('cat-file',
    1336. 

  1336. 		                                         $type, $treeish);
    1337. 

  1337. 		my $in_msg = 0;
    1338. 

  1338. 		my $author;
    1339. 

  1339. 		my $saw_from = 0;
    1340. 

  1340. 		my $msgbuf = "";
    1341. 

  1341. 		while (<$msg_fh>) {
    1342. 

  1342. 			if (!$in_msg) {
    1343. 

  1343. 				$in_msg = 1 if (/^\s*$/);
    1344. 

  1344. 				$author = $1 if (/^author (.*>)/);
    1345. 

  1345. 			} elsif (/^git-svn-id: /) {
    1346. 

  1346. 				# skip this for now, we regenerate the
    1347. 

  1347. 				# correct one on re-fetch anyways
    1348. 

  1348. 				# TODO: set *:merge properties or like...
    1349. 

  1349. 			} else {
    1350. 

  1350. 				if (/^From:/ || /^Signed-off-by:/) {
    1351. 

  1351. 					$saw_from = 1;
    1352. 

  1352. 				}
    1353. 

  1353. 				$msgbuf .= $_;
    1354. 

  1354. 			}
    1355. 

  1355. 		}
    1356. 

  1356. 		$msgbuf =~ s/\s+$//s;
    1357. 

  1357. 		if ($Git::SVN::_add_author_from && defined($author)
    1358. 

  1358. 		    && !$saw_from) {
    1359. 

  1359. 			$msgbuf .= "\n\nFrom: $author";
    1360. 

  1360. 		}
    1361. 

  1361. 		print $log_fh $msgbuf or croak $!;
    1362. 

  1362. 		command_close_pipe($msg_fh, $ctx);
    1363. 

  1363. 	}
    1364. 

  1364. 	close $log_fh or croak $!;
    1365. 

  1365. 

  1366. 	if ($_edit || ($type eq 'tree')) {
    1367. 

  1367. 		chomp(my $editor = command_oneline(qw(var GIT_EDITOR)));
    1368. 

  1368. 		system('sh', '-c', $editor.' "$@"', $editor, $commit_editmsg);
    1369. 

  1369. 	}
    1370. 

  1370. 	rename $commit_editmsg, $commit_msg or croak $!;
    1371. 

  1371. 	{
    1372. 

  1372. 		require Encode;
    1373. 

  1373. 		# SVN requires messages to be UTF-8 when entering the repo
    1374. 

  1374. 		local $/;
    1375. 

  1375. 		open $log_fh, '<', $commit_msg or croak $!;
    1376. 

  1376. 		binmode $log_fh;
    1377. 

  1377. 		chomp($log_entry{log} = <$log_fh>);
    1378. 

  1378. 

  1379. 		my $enc = Git::config('i18n.commitencoding') || 'UTF-8';
    1380. 

  1380. 		my $msg = $log_entry{log};
    1381. 

  1381. 

  1382. 		eval { $msg = Encode::decode($enc, $msg, 1) };
    1383. 

  1383. 		if ($@) {
    1384. 

  1384. 			die "Could not decode as $enc:\n", $msg,
    1385. 

  1385. 			    "\nPerhaps you need to set i18n.commitencoding\n";
    1386. 

  1386. 		}
    1387. 

  1387. 

  1388. 		eval { $msg = Encode::encode('UTF-8', $msg, 1) };
    1389. 

  1389. 		die "Could not encode as UTF-8:\n$msg\n" if $@;
    1390. 

  1390. 

  1391. 		$log_entry{log} = $msg;
    1392. 

  1392. 

  1393. 		close $log_fh or croak $!;
    1394. 

  1394. 	}
    1395. 

  1395. 	unlink $commit_msg;
    1396. 

  1396. 	\%log_entry;
    1397. 

  1397. }
    1398. 

  1398. 

  1399. sub s_to_file {
    1400. 

  1400. 	my ($str, $file, $mode) = @_;
    1401. 

  1401. 	open my $fd,'>',$file or croak $!;
    1402. 

  1402. 	print $fd $str,"\n" or croak $!;
    1403. 

  1403. 	close $fd or croak $!;
    1404. 

  1404. 	chmod ($mode &~ umask, $file) if (defined $mode);
    1405. 

  1405. }
    1406. 

  1406. 

  1407. sub file_to_s {
    1408. 

  1408. 	my $file = shift;
    1409. 

  1409. 	open my $fd,'<',$file or croak "$!: file: $file\n";
    1410. 

  1410. 	local $/;
    1411. 

  1411. 	my $ret = <$fd>;
    1412. 

  1412. 	close $fd or croak $!;
    1413. 

  1413. 	$ret =~ s/\s*$//s;
    1414. 

  1414. 	return $ret;
    1415. 

  1415. }
    1416. 

  1416. 

  1417. # '<svn username> = real-name <email address>' mapping based on git-svnimport:
    1418. 

  1418. sub load_authors {
    1419. 

  1419. 	open my $authors, '<', $_authors or die "Can't open $_authors $!\n";
    1420. 

  1420. 	my $log = $cmd eq 'log';
    1421. 

  1421. 	while (<$authors>) {
    1422. 

  1422. 		chomp;
    1423. 

  1423. 		next unless /^(.+?|\(no author\))\s*=\s*(.+?)\s*<(.+)>\s*$/;
    1424. 

  1424. 		my ($user, $name, $email) = ($1, $2, $3);
    1425. 

  1425. 		if ($log) {
    1426. 

  1426. 			$Git::SVN::Log::rusers{"$name <$email>"} = $user;
    1427. 

  1427. 		} else {
    1428. 

  1428. 			$users{$user} = [$name, $email];
    1429. 

  1429. 		}
    1430. 

  1430. 	}
    1431. 

  1431. 	close $authors or croak $!;
    1432. 

  1432. }
    1433. 

  1433. 

  1434. # convert GetOpt::Long specs for use by git-config
    1435. 

  1435. sub read_git_config {
    1436. 

  1436. 	my $opts = shift;
    1437. 

  1437. 	my @config_only;
    1438. 

  1438. 	foreach my $o (keys %$opts) {
    1439. 

  1439. 		# if we have mixedCase and a long option-only, then
    1440. 

  1440. 		# it's a config-only variable that we don't need for
    1441. 

  1441. 		# the command-line.
    1442. 

  1442. 		push @config_only, $o if ($o =~ /[A-Z]/ && $o =~ /^[a-z]+$/i);
    1443. 

  1443. 		my $v = $opts->{$o};
    1444. 

  1444. 		my ($key) = ($o =~ /^([a-zA-Z\-]+)/);
    1445. 

  1445. 		$key =~ s/-//g;
    1446. 

  1446. 		my $arg = 'git config';
    1447. 

  1447. 		$arg .= ' --int' if ($o =~ /[:=]i$/);
    1448. 

  1448. 		$arg .= ' --bool' if ($o !~ /[:=][sfi]$/);
    1449. 

  1449. 		if (ref $v eq 'ARRAY') {
    1450. 

  1450. 			chomp(my @tmp = `$arg --get-all svn.$key`);
    1451. 

  1451. 			@$v = @tmp if @tmp;
    1452. 

  1452. 		} else {
    1453. 

  1453. 			chomp(my $tmp = `$arg --get svn.$key`);
    1454. 

  1454. 			if ($tmp && !($arg =~ / --bool/ && $tmp eq 'false')) {
    1455. 

  1455. 				$$v = $tmp;
    1456. 

  1456. 			}
    1457. 

  1457. 		}
    1458. 

  1458. 	}
    1459. 

  1459. 	delete @$opts{@config_only} if @config_only;
    1460. 

  1460. }
    1461. 

  1461. 

  1462. sub extract_metadata {
    1463. 

  1463. 	my $id = shift or return (undef, undef, undef);
    1464. 

  1464. 	my ($url, $rev, $uuid) = ($id =~ /^\s*git-svn-id:\s+(.*)\@(\d+)
    1465. 

  1465. 							\s([a-f\d\-]+)$/ix);
    1466. 

  1466. 	if (!defined $rev || !$uuid || !$url) {
    1467. 

  1467. 		# some of the original repositories I made had
    1468. 

  1468. 		# identifiers like this:
    1469. 

  1469. 		($rev, $uuid) = ($id =~/^\s*git-svn-id:\s(\d+)\@([a-f\d\-]+)/i);
    1470. 

  1470. 	}
    1471. 

  1471. 	return ($url, $rev, $uuid);
    1472. 

  1472. }
    1473. 

  1473. 

  1474. sub cmt_metadata {
    1475. 

  1475. 	return extract_metadata((grep(/^git-svn-id: /,
    1476. 

  1476. 		command(qw/cat-file commit/, shift)))[-1]);
    1477. 

  1477. }
    1478. 

  1478. 

  1479. sub cmt_sha2rev_batch {
    1480. 

  1480. 	my %s2r;
    1481. 

  1481. 	my ($pid, $in, $out, $ctx) = command_bidi_pipe(qw/cat-file --batch/);
    1482. 

  1482. 	my $list = shift;
    1483. 

  1483. 

  1484. 	foreach my $sha (@{$list}) {
    1485. 

  1485. 		my $first = 1;
    1486. 

  1486. 		my $size = 0;
    1487. 

  1487. 		print $out $sha, "\n";
    1488. 

  1488. 

  1489. 		while (my $line = <$in>) {
    1490. 

  1490. 			if ($first && $line =~ /^[[:xdigit:]]{40}\smissing$/) {
    1491. 

  1491. 				last;
    1492. 

  1492. 			} elsif ($first &&
    1493. 

  1493. 			       $line =~ /^[[:xdigit:]]{40}\scommit\s(\d+)$/) {
    1494. 

  1494. 				$first = 0;
    1495. 

  1495. 				$size = $1;
    1496. 

  1496. 				next;
    1497. 

  1497. 			} elsif ($line =~ /^(git-svn-id: )/) {
    1498. 

  1498. 				my (undef, $rev, undef) =
    1499. 

  1499. 				                      extract_metadata($line);
    1500. 

  1500. 				$s2r{$sha} = $rev;
    1501. 

  1501. 			}
    1502. 

  1502. 

  1503. 			$size -= length($line);
    1504. 

  1504. 			last if ($size == 0);
    1505. 

  1505. 		}
    1506. 

  1506. 	}
    1507. 

  1507. 

  1508. 	command_close_bidi_pipe($pid, $in, $out, $ctx);
    1509. 

  1509. 

  1510. 	return \%s2r;
    1511. 

  1511. }
    1512. 

  1512. 

  1513. sub working_head_info {
    1514. 

  1514. 	my ($head, $refs) = @_;
    1515. 

  1515. 	my @args = ('log', '--no-color', '--first-parent', '--pretty=medium');
    1516. 

  1516. 	my ($fh, $ctx) = command_output_pipe(@args, $head);
    1517. 

  1517. 	my $hash;
    1518. 

  1518. 	my %max;
    1519. 

  1519. 	while (<$fh>) {
    1520. 

  1520. 		if ( m{^commit ($::sha1)$} ) {
    1521. 

  1521. 			unshift @$refs, $hash if $hash and $refs;
    1522. 

  1522. 			$hash = $1;
    1523. 

  1523. 			next;
    1524. 

  1524. 		}
    1525. 

  1525. 		next unless s{^\s*(git-svn-id:)}{$1};
    1526. 

  1526. 		my ($url, $rev, $uuid) = extract_metadata($_);
    1527. 

  1527. 		if (defined $url && defined $rev) {
    1528. 

  1528. 			next if $max{$url} and $max{$url} < $rev;
    1529. 

  1529. 			if (my $gs = Git::SVN->find_by_url($url)) {
    1530. 

  1530. 				my $c = $gs->rev_map_get($rev, $uuid);
    1531. 

  1531. 				if ($c && $c eq $hash) {
    1532. 

  1532. 					close $fh; # break the pipe
    1533. 

  1533. 					return ($url, $rev, $uuid, $gs);
    1534. 

  1534. 				} else {
    1535. 

  1535. 					$max{$url} ||= $gs->rev_map_max;
    1536. 

  1536. 				}
    1537. 

  1537. 			}
    1538. 

  1538. 		}
    1539. 

  1539. 	}
    1540. 

  1540. 	command_close_pipe($fh, $ctx);
    1541. 

  1541. 	(undef, undef, undef, undef);
    1542. 

  1542. }
    1543. 

  1543. 

  1544. sub read_commit_parents {
    1545. 

  1545. 	my ($parents, $c) = @_;
    1546. 

  1546. 	chomp(my $p = command_oneline(qw/rev-list --parents -1/, $c));
    1547. 

  1547. 	$p =~ s/^($c)\s*// or die "rev-list --parents -1 $c failed!\n";
    1548. 

  1548. 	@{$parents->{$c}} = split(/ /, $p);
    1549. 

  1549. }
    1550. 

  1550. 

  1551. sub linearize_history {
    1552. 

  1552. 	my ($gs, $refs) = @_;
    1553. 

  1553. 	my %parents;
    1554. 

  1554. 	foreach my $c (@$refs) {
    1555. 

  1555. 		read_commit_parents(\%parents, $c);
    1556. 

  1556. 	}
    1557. 

  1557. 

  1558. 	my @linear_refs;
    1559. 

  1559. 	my %skip = ();
    1560. 

  1560. 	my $last_svn_commit = $gs->last_commit;
    1561. 

  1561. 	foreach my $c (reverse @$refs) {
    1562. 

  1562. 		next if $c eq $last_svn_commit;
    1563. 

  1563. 		last if $skip{$c};
    1564. 

  1564. 

  1565. 		unshift @linear_refs, $c;
    1566. 

  1566. 		$skip{$c} = 1;
    1567. 

  1567. 

  1568. 		# we only want the first parent to diff against for linear
    1569. 

  1569. 		# history, we save the rest to inject when we finalize the
    1570. 

  1570. 		# svn commit
    1571. 

  1571. 		my $fp_a = verify_ref("$c~1");
    1572. 

  1572. 		my $fp_b = shift @{$parents{$c}} if $parents{$c};
    1573. 

  1573. 		if (!$fp_a || !$fp_b) {
    1574. 

  1574. 			die "Commit $c\n",
    1575. 

  1575. 			    "has no parent commit, and therefore ",
    1576. 

  1576. 			    "nothing to diff against.\n",
    1577. 

  1577. 			    "You should be working from a repository ",
    1578. 

  1578. 			    "originally created by git-svn\n";
    1579. 

  1579. 		}
    1580. 

  1580. 		if ($fp_a ne $fp_b) {
    1581. 

  1581. 			die "$c~1 = $fp_a, however parsing commit $c ",
    1582. 

  1582. 			    "revealed that:\n$c~1 = $fp_b\nBUG!\n";
    1583. 

  1583. 		}
    1584. 

  1584. 

  1585. 		foreach my $p (@{$parents{$c}}) {
    1586. 

  1586. 			$skip{$p} = 1;
    1587. 

  1587. 		}
    1588. 

  1588. 	}
    1589. 

  1589. 	(\@linear_refs, \%parents);
    1590. 

  1590. }
    1591. 

  1591. 

  1592. sub find_file_type_and_diff_status {
    1593. 

  1593. 	my ($path) = @_;
    1594. 

  1594. 	return ('dir', '') if $path eq '';
    1595. 

  1595. 

  1596. 	my $diff_output =
    1597. 

  1597. 	    command_oneline(qw(diff --cached --name-status --), $path) || "";
    1598. 

  1598. 	my $diff_status = (split(' ', $diff_output))[0] || "";
    1599. 

  1599. 

  1600. 	my $ls_tree = command_oneline(qw(ls-tree HEAD), $path) || "";
    1601. 

  1601. 

  1602. 	return (undef, undef) if !$diff_status && !$ls_tree;
    1603. 

  1603. 

  1604. 	if ($diff_status eq "A") {
    1605. 

  1605. 		return ("link", $diff_status) if -l $path;
    1606. 

  1606. 		return ("dir", $diff_status) if -d $path;
    1607. 

  1607. 		return ("file", $diff_status);
    1608. 

  1608. 	}
    1609. 

  1609. 

  1610. 	my $mode = (split(' ', $ls_tree))[0] || "";
    1611. 

  1611. 

  1612. 	return ("link", $diff_status) if $mode eq "120000";
    1613. 

  1613. 	return ("dir", $diff_status) if $mode eq "040000";
    1614. 

  1614. 	return ("file", $diff_status);
    1615. 

  1615. }
    1616. 

  1616. 

  1617. sub md5sum {
    1618. 

  1618. 	my $arg = shift;
    1619. 

  1619. 	my $ref = ref $arg;
    1620. 

  1620. 	my $md5 = Digest::MD5->new();
    1621. 

  1621.         if ($ref eq 'GLOB' || $ref eq 'IO::File' || $ref eq 'File::Temp') {
    1622. 

  1622. 		$md5->addfile($arg) or croak $!;
    1623. 

  1623. 	} elsif ($ref eq 'SCALAR') {
    1624. 

  1624. 		$md5->add($$arg) or croak $!;
    1625. 

  1625. 	} elsif (!$ref) {
    1626. 

  1626. 		$md5->add($arg) or croak $!;
    1627. 

  1627. 	} else {
    1628. 

  1628. 		::fatal "Can't provide MD5 hash for unknown ref type: '", $ref, "'";
    1629. 

  1629. 	}
    1630. 

  1630. 	return $md5->hexdigest();
    1631. 

  1631. }
    1632. 

  1632. 

  1633. sub gc_directory {
    1634. 

  1634. 	if ($can_compress && -f $_ && basename($_) eq "unhandled.log") {
    1635. 

  1635. 		my $out_filename = $_ . ".gz";
    1636. 

  1636. 		open my $in_fh, "<", $_ or die "Unable to open $_: $!\n";
    1637. 

  1637. 		binmode $in_fh;
    1638. 

  1638. 		my $gz = Compress::Zlib::gzopen($out_filename, "ab") or
    1639. 

  1639. 				die "Unable to open $out_filename: $!\n";
    1640. 

  1640. 

  1641. 		my $res;
    1642. 

  1642. 		while ($res = sysread($in_fh, my $str, 1024)) {
    1643. 

  1643. 			$gz->gzwrite($str) or
    1644. 

  1644. 				die "Unable to write: ".$gz->gzerror()."!\n";
    1645. 

  1645. 		}
    1646. 

  1646. 		unlink $_ or die "unlink $File::Find::name: $!\n";
    1647. 

  1647. 	} elsif (-f $_ && basename($_) eq "index") {
    1648. 

  1648. 		unlink $_ or die "unlink $_: $!\n";
    1649. 

  1649. 	}
    1650. 

  1650. }
    1651. 

  1651. 

  1652. package Git::SVN;
    1653. 

  1653. use strict;
    1654. 

  1654. use warnings;
    1655. 

  1655. use Fcntl qw/:DEFAULT :seek/;
    1656. 

  1656. use constant rev_map_fmt => 'NH40';
    1657. 

  1657. use vars qw/$default_repo_id $default_ref_id $_no_metadata $_follow_parent
    1658. 

  1658.             $_repack $_repack_flags $_use_svm_props $_head
    1659. 

  1659.             $_use_svnsync_props $no_reuse_existing $_minimize_url
    1660. 

  1660. 	    $_use_log_author $_add_author_from $_localtime/;
    1661. 

  1661. use Carp qw/croak/;
    1662. 

  1662. use File::Path qw/mkpath/;
    1663. 

  1663. use File::Copy qw/copy/;
    1664. 

  1664. use IPC::Open3;
    1665. 

  1665. use Memoize;  # core since 5.8.0, Jul 2002
    1666. 

  1666. use Memoize::Storable;
    1667. 

  1667. 

  1668. my ($_gc_nr, $_gc_period);
    1669. 

  1669. 

  1670. # properties that we do not log:
    1671. 

  1671. my %SKIP_PROP;
    1672. 

  1672. BEGIN {
    1673. 

  1673. 	%SKIP_PROP = map { $_ => 1 } qw/svn:wc:ra_dav:version-url
    1674. 

  1674. 	                                svn:special svn:executable
    1675. 

  1675. 	                                svn:entry:committed-rev
    1676. 

  1676. 	                                svn:entry:last-author
    1677. 

  1677. 	                                svn:entry:uuid
    1678. 

  1678. 	                                svn:entry:committed-date/;
    1679. 

  1679. 

  1680. 	# some options are read globally, but can be overridden locally
    1681. 

  1681. 	# per [svn-remote "..."] section.  Command-line options will *NOT*
    1682. 

  1682. 	# override options set in an [svn-remote "..."] section
    1683. 

  1683. 	no strict 'refs';
    1684. 

  1684. 	for my $option (qw/follow_parent no_metadata use_svm_props
    1685. 

  1685. 			   use_svnsync_props/) {
    1686. 

  1686. 		my $key = $option;
    1687. 

  1687. 		$key =~ tr/_//d;
    1688. 

  1688. 		my $prop = "-$option";
    1689. 

  1689. 		*$option = sub {
    1690. 

  1690. 			my ($self) = @_;
    1691. 

  1691. 			return $self->{$prop} if exists $self->{$prop};
    1692. 

  1692. 			my $k = "svn-remote.$self->{repo_id}.$key";
    1693. 

  1693. 			eval { command_oneline(qw/config --get/, $k) };
    1694. 

  1694. 			if ($@) {
    1695. 

  1695. 				$self->{$prop} = ${"Git::SVN::_$option"};
    1696. 

  1696. 			} else {
    1697. 

  1697. 				my $v = command_oneline(qw/config --bool/,$k);
    1698. 

  1698. 				$self->{$prop} = $v eq 'false' ? 0 : 1;
    1699. 

  1699. 			}
    1700. 

  1700. 			return $self->{$prop};
    1701. 

  1701. 		}
    1702. 

  1702. 	}
    1703. 

  1703. }
    1704. 

  1704. 

  1705. 

  1706. my (…
    1707.

Large files files are truncated, but you can click here to view the full file