1 package Gitalist::Controller::LegacyURI;
4 use namespace::autoclean;
6 BEGIN { extends 'Gitalist::Controller' }
8 my %LEGACY_DISPATCH = (
9 opml => sub { '/opml/opml' },
10 project_index => sub { '/legacyuri/project_index' },
11 '(?:summary|heads|tags)' => sub {
12 my($c, $action, $repos) = @_;
13 return "/repository/$action", [$repos];
16 my($c, $action, $repos) = @_;
17 my $ref = $c->req->param('hb') || $c->req->param('h');
18 return '/ref/blob', [$repos, $ref], $c->req->param('f');
21 my($c, $action, $repos) = @_;
22 my $ref = $c->req->param('hb') || $c->req->param('h');
23 return '/ref/raw', [$repos, $ref], $c->req->param('f');
28 my($self, $c, $repos, $action) = @_;
33 my @result = grep { $action =~ /^$_$/ } keys %LEGACY_DISPATCH;
34 die "Matched too many actions for '$a' - @result"
37 return $LEGACY_DISPATCH{$result[0]}->($c, $action, $repos)
41 sub handler : Chained('/base') PathPart('legacy') Args() {
42 my ( $self, $c, $repos ) = @_;
44 my ($action, $captures, @args) = $self->_legacy_uri($c, $repos, $c->req->param('a'));
49 $c->res->redirect($c->uri_for_action($action, $captures || [], @args));
53 sub project_index : Chained('/base') Args(0) {
54 my ( $self, $c ) = @_;
56 $c->response->content_type('text/plain');
58 join "\n", map $_->name, $c->model()->repositories->flatten
59 ) or die 'No repositories found in '. $c->model->repo_dir;
62 __PACKAGE__->meta->make_immutable;