diff options
Diffstat (limited to 'lib/Devscripts/Salsa/fork.pm')
-rw-r--r-- | lib/Devscripts/Salsa/fork.pm | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/lib/Devscripts/Salsa/fork.pm b/lib/Devscripts/Salsa/fork.pm new file mode 100644 index 0000000..13c3deb --- /dev/null +++ b/lib/Devscripts/Salsa/fork.pm @@ -0,0 +1,33 @@ +# Forks a project given by full path into group/user namespace +package Devscripts::Salsa::fork; + +use strict; +use Devscripts::Output; +use Dpkg::IPC; +use Moo::Role; + +with 'Devscripts::Salsa::checkout'; + +sub fork { + my ($self, $project) = @_; + unless ($project) { + ds_warn "Project to fork is missing"; + return 1; + } + my $path = $self->main_path or return 1; + $self->api->fork_project($project, { namespace => $path }); + my $p = $project; + $p =~ s#.*/##; + $self->checkout($p); + chdir $p; + spawn( + exec => [ + qw(git remote add upstream), + $self->config->git_server_url . $project + ], + wait_child => 1 + ); + return 0; +} + +1; |