<%
  # API
  my $api = gitprep_api;
  
  # Parameters
  my $user_id = param('user');
  my $project_id = param('project');
  my $session_user_row_id = session('user_row_id');
  my $session_user = app->dbi->model('user')->select(
    where => {row_id => $session_user_row_id}
  )->one;
  
  # Can fork?
  unless ($api->logined) {
    $self->redirect_to('/');
    return;
  }
  
  # Repository is already exists
  if (app->manager->exists_project($session_user->{id}, $project_id)) {
    $self->redirect_to("/$session_user->{id}/$project_id");
    return;
  }
  # Fork
  else {
    eval { app->manager->fork_project($session_user->{id}, $user_id, $project_id) };
    if (my $e = $@) {
      $self->reply->exception('Internal Error');
      app->log->error(url_for . ": $e");
    }
    else {
      flash(message => "Repository is forked from /$user_id/$project_id.");
      $self->redirect_to("/$session_user->{id}/$project_id");
    }
    return;
  }
%>