diff options
Diffstat (limited to 'git-svn.perl')
| -rwxr-xr-x | git-svn.perl | 21 |
1 files changed, 20 insertions, 1 deletions
diff --git a/git-svn.perl b/git-svn.perl index 571259fd0..2cc7c3338 100755 --- a/git-svn.perl +++ b/git-svn.perl @@ -90,6 +90,9 @@ my %cmd = ( { 'revision|r=s' => \$_revision, 'fetch-all|all' => \$_fetch_all, %fc_opts } ], + clone => [ \&cmd_clone, "Initialize and fetch revisions", + { 'revision|r=s' => \$_revision, + %fc_opts, %init_opts } ], init => [ \&cmd_init, "Initialize a repo for tracking" . " (requires URL argument)", \%init_opts ], @@ -167,7 +170,7 @@ usage(0) if $_help; version() if $_version; usage(1) unless defined $cmd; load_authors() if $_authors; -unless ($cmd =~ /^(?:init|multi-init|commit-diff)$/) { +unless ($cmd =~ /^(?:clone|init|multi-init|commit-diff)$/) { Git::SVN::Migration::migration_check(); } Git::SVN::init_vars(); @@ -237,6 +240,22 @@ sub init_subdir { $ENV{GIT_DIR} = $repo_path . "/.git"; } +sub cmd_clone { + my ($url, $path) = @_; + if (!defined $path && + (defined $_trunk || defined $_branches || defined $_tags) && + $url !~ m#^[a-z\+]+://#) { + $path = $url; + } + warn "--path: $path\n" if defined $path; + $path = basename($url) if !defined $path || !length $path; + warn "++path: $path\n" if defined $path; + mkpath([$path]); + chdir $path or die "Couldn't chdir to $path\n"; + cmd_init(@_); + Git::SVN::fetch_all($Git::SVN::default_repo_id); +} + sub cmd_init { if (defined $_trunk || defined $_branches || defined $_tags) { return cmd_multi_init(@_); |