Fixed test bug and make the plain diffs plainer.

[catagits/Gitalist.git] / lib / Gitalist / Controller / LegacyURI.pm

package Gitalist::Controller::LegacyURI;
use Moose;
use Moose::Autobox;
use namespace::autoclean;

BEGIN { extends 'Gitalist::Controller' }

sub handler : Chained('/base') PathPart('legacy') Args() {
    my ( $self, $c, $repos ) = @_;
    my ($action, @captures);
    if (my $a = $c->req->param('a')) {
        $a eq 'opml' && do { $action = '/opml/opml'; };
        $a eq 'project_index' && do { $action = '/legacyuri/project_index'; };
        $a =~ /^(summary|heads|tags)$/ && do { $action = "/repository/$1"; push(@captures, $repos); };
    }
    die("Not supported") unless $action;
    $c->res->redirect($c->uri_for_action($action, \@captures));
    $c->res->status(301);
}

sub project_index : Chained('/base') Args(0) {
      my ( $self, $c ) = @_;

      $c->response->content_type('text/plain');
      $c->response->body(
          join "\n", map $_->name, $c->model()->repositories->flatten
      ) or die 'No repositories found in '. $c->model->repo_dir;
}

__PACKAGE__->meta->make_immutable;