1 contributor
<%
# API
my $api = gitprep_api;
# Paramters
my $user = param('user');
my $project = param('project');
my $current_user = session('user');
# Can fork?
unless ($api->logined) {
$self->redirect_to('/');
return;
}
# Repository is already exists
if (app->manager->exists_project($current_user, $project)) {
$self->redirect_to("/$current_user/$project");
return;
}
# Fork
else {
eval { app->manager->fork_project($current_user, $user, $project) };
if (my $e = $@) {
$self->reply->exception('Internal Error');
app->log->error(url_for . ": $e");
}
else {
flash(message => "Repository is forked from /$user/$project.");
$self->redirect_to("/$current_user/$project");
}
return;
}
%>