my ($m, $pd);
if (defined $c->stash->{current_model} &&
$c->stash->{current_model} eq 'GitRepos') {
- $m = $c->model()->project($c->stash->{project});
+ $m = $c->stash->{Project};
$pd = $m->path;
} else {
$m = $c->model();
=cut
sub index :Path :Args(0) {
- my ( $self, $c ) = @_;
- $c->stash(current_model => 'GitRepos');
- # Leave actions up to gitweb at this point.
- return $self->run_gitweb($c)
- if $c->req->param('a');
+ my ( $self, $c ) = @_;
+ $c->detach($c->req->param('a')) if $c->req->param('a');
+ $c->stash(current_model => 'GitRepos');
- my $list = $c->model()->list_projects;
- unless(@$list) {
- die "No projects found in ". $c->model->repo_dir;
- }
+ my $list = $c->model()->list_projects;
+ unless(@$list) {
+ die "No projects found in ". $c->model->repo_dir;
+ }
- $c->stash(
- searchtext => $c->req->param('searchtext') || '',
- projects => $list,
- action => 'index',
- );
+ $c->stash(
+ searchtext => $c->req->param('searchtext') || '',
+ projects => $list,
+ action => 'index',
+ );
}
=head2 summary
sub summary : Local {
my ( $self, $c ) = @_;
-
+ $c->stash(current_model => 'GitRepos');
+ my $project = $c->stash->{Project};
my $commit = $self->_get_commit($c);
$c->stash(
commit => $commit,
- info => $c->model()->project_info($c->model()->project),
- log_lines => [$c->model()->list_revs(
- sha1 => $commit->sha1, count => Gitalist->config->{paging}{summary}
+ info => $project->info,
+ log_lines => [$project->list_revs(
+ sha1 => $commit->sha1,
+ count => Gitalist->config->{paging}{summary} || 10
)],
- refs => $c->model()->references,
- heads => [$c->model()->heads],
+ refs => $project->references,
+ heads => [$project->heads],
action => 'summary',
- );
+);
}
=head2 heads
sub heads : Local {
my ( $self, $c ) = @_;
$c->stash( current_model => 'GitRepos' );
- my $project = $c->model()->project( $c->stash->{project} );
+ my $project = $c->stash->{Project};
$c->stash(
commit => $self->_get_commit($c),
heads => [$project->heads],
sub commit : Local {
my ( $self, $c ) = @_;
-
+ $c->stash(current_model => 'GitRepos');
+ my $project = $c->stash->{Project};
my $commit = $self->_get_commit($c);
$c->stash(
commit => $commit,
- diff_tree => ($c->model()->diff(commit => $commit))[0],
- refs => $c->model()->references,
+ diff_tree => ($project->diff(commit => $commit))[0],
+ refs => $project->references,
action => 'commit',
);
}
sub shortlog : Local {
my ( $self, $c ) = @_;
-
+ $c->stash(current_model => 'GitRepos');
+ my $project = $c->stash->{Project};
my $commit = $self->_get_commit($c);
my %logargs = (
sha1 => $commit->sha1,
- count => Gitalist->config->{paging}{log},
+ count => Gitalist->config->{paging}{log} || 25,
($c->req->param('f') ? (file => $c->req->param('f')) : ())
);
$c->stash(
commit => $commit,
- log_lines => [$c->model()->list_revs(%logargs)],
- refs => $c->model()->references,
+ log_lines => [$project->list_revs(%logargs)],
+ refs => $project->references,
action => 'shortlog',
page => $page,
);
sub tree : Local {
my ( $self, $c ) = @_;
-
+ $c->stash(current_model => 'GitRepos');
+ my $project = $c->stash->{Project};
my $commit = $self->_get_commit($c, $c->req->param('hb'));
- my $tree = $c->model()->get_object($c->req->param('h') || $commit->tree_sha1);
+ my $tree = $project->get_object($c->req->param('h') || $commit->tree_sha1);
$c->stash(
# XXX Useful defaults needed ...
commit => $commit,
tree => $tree,
- tree_list => [$c->model()->list_tree($tree->sha1)],
+ tree_list => [$project->list_tree($tree->sha1)],
path => $c->req->param('f') || '',
action => 'tree',
);
sub reflog : Local {
my ( $self, $c ) = @_;
-
- my @log = $c->model()->reflog(
+ $c->stash(current_model => 'GitRepos');
+ my @log = $c->stash->{Project}->reflog(
'--since=yesterday'
);
sub search : Local {
my($self, $c) = @_;
-
+ $c->stash(current_action => 'GitRepos');
+ my $project = $c->stash->{Project};
my $commit = $self->_get_commit($c);
# Lifted from /shortlog.
my %logargs = (
$c->stash(
commit => $commit,
- results => [$c->model()->list_revs(%logargs)],
+ results => [$project->list_revs(%logargs)],
action => 'search',
# This could be added - page => $page,
);
# XXX Move these to a plugin!
$c->stash(
time_since => sub {
+ return 'never' unless $_[0];
return age_string(time - $_[0]->epoch);
},
short_cmt => sub {
$line =~ s/^(.{70,80}\b).*/$1 …/;
return $line;
},
+ abridged_description => sub {
+ join(' ', grep { defined } (split / /, shift)[0..10]);
+ },
);
# Yes, this is hideous.
);
if(defined $project) {
- $c->stash(
- search_text => ( $c->req->param('s') || $c->req->param('searchtext') || ''),
- search_hash => ( $c->req->param('hb') || $c->req->param('hashbase')
- || $c->req->param('h') || $c->req->param('hash')
- || 'HEAD' ),
+ $c->stash(
+ search_text => ( $c->req->param('s') ||
+ $c->req->param('searchtext') || ''),
+ search_hash => ( $c->req->param('hb') || $c->req->param('hashbase')
+ || $c->req->param('h') || $c->req->param('hash')
+ || 'HEAD' ),
+ Project => $c->model('GitRepos')->project($project),
);
}
}
if ($c->stash->{project}) {
if ($c->stash->{current_model} &&
$c->stash->{current_model} eq 'GitRepos') {
- my $project = $c->model()->project($c->stash->{project});
- $c->stash->{HEAD} = $project->head_hash;
+ $c->stash->{HEAD} = $c->stash->{Project}->head_hash;
} else {
$c->stash->{HEAD} = $c->model()->head_hash;
}
}
}
+sub error_404 :Private {
+ my ($self, $c) = @_;
+ $c->response->status(404);
+ $c->stash(
+ title => 'Page not found',
+ content => 'Page not found',
+ )
+}
+
sub age_string {
my $age = shift;
my $age_str;