lib/Gitalist/Controller/Repository.pm

   1 package Gitalist::Controller::Repository;
   2 use Moose;
   3 use XML::Atom::Feed;
   4 use XML::Atom::Entry;
   5 use XML::RSS;
   6 use Sys::Hostname qw/hostname/;
   7 use namespace::autoclean;
   8
   9 BEGIN { extends 'Gitalist::Controller' }
  10 with 'Gitalist::URIStructure::Repository';
  11
  12 sub base : Chained('/base') PathPart('') CaptureArgs(0) {}
  13
  14 =head2 search
  15
  16 The action for the search form.
  17
  18 =cut
  19
  20 sub search : Chained('find') Args(0) {
  21   my($self, $c) = @_;
  22   my $repository = $c->stash->{Repository};
  23   # Lifted from /shortlog.
  24   my %logargs = (
  25     sha1   => $repository->head_hash,
  26 #    count  => Gitalist->config->{paging}{log},
  27 #    ($c->req->param('f') ? (file => $c->req->param('f')) : ()),
  28     search => {
  29       type   => $c->req->param('type'),
  30       text   => $c->req->param('text'),
  31       regexp => $c->req->param('regexp') || 0,
  32     },
  33   );
  34
  35   $c->stash(
  36 #      commit  => $commit,
  37       results => [$repository->list_revs(%logargs)],
  38           # This could be added - page      => $page,
  39   );
  40 }
  41
  42 =head2 reflog
  43
  44 Expose the local reflog. This may go away.
  45
  46 =cut
  47
  48 sub reflog : Chained('find') Args(0) {
  49   my ( $self, $c ) = @_;
  50   my @log = $c->stash->{Repository}->reflog(
  51       '--since=yesterday'
  52   );
  53
  54   $c->stash(
  55       log    => \@log,
  56   );
  57 }
  58
  59 =head2 atom
  60
  61 Provides an atom feed for a given repository.
  62
  63 =cut
  64
  65 sub atom : Chained('find') Does('FilenameArgs') Args() {
  66     my ($self, $c) = @_;
  67
  68     my $host = lc hostname();
  69     $c->stash(
  70         title => $host . ' - ' . Gitalist->config->{name},
  71         updated => DateTime->now
  72     );
  73
  74     my $repository = $c->stash->{Repository};
  75     my %logargs = (
  76         sha1     => $repository->head_hash,
  77         count    => Gitalist->config->{paging}{log} || 25,
  78         ($c->stash->{filename} ? (file => $c->stash->{filename}) : ()),
  79     );
  80
  81     my @revs;
  82     my $mk_title = $c->stash->{short_cmt};
  83     for my $commit ($repository->list_revs(%logargs)) {
  84         my $entry = {};
  85         $entry->{title} = $mk_title->($commit->comment);
  86         $entry->{id} = $c->uri_for_action('/ref/commit', [$repository->name, $commit->sha1]);
  87         # XXX FIXME Needs work ...
  88         $entry->{content} = $commit->comment;
  89         push(@revs, $entry);
  90     }
  91     $c->stash(
  92         Commits => \@revs,
  93         no_wrapper => 1,
  94     );
  95     $c->response->content_type('application/atom+xml');
  96 }
  97
  98 =head2 rss
  99
 100 Provides an RSS feed for a given repository.
 101
 102 =cut
 103
 104 sub rss : Chained('find') Does('FilenameArgs') Args() {
 105   my ($self, $c) = @_;
 106
 107   my $repository = $c->stash->{Repository};
 108
 109   $c->stash(
 110     title          => lc(Sys::Hostname::hostname()) . ' - ' . Gitalist->config->{name},
 111     language       => 'en',
 112     pubDate        => DateTime->now,
 113     lastBuildDate  => DateTime->now,
 114     no_wrapper     => 1,
 115   );
 116
 117   my %logargs = (
 118       sha1   => $repository->head_hash,
 119       count  => Gitalist->config->{paging}{log} || 25,
 120       ($c->stash->{filename} ? (file => $c->stash->{filename}) : ()),
 121   );
 122   my @revs;
 123   my $mk_title = $c->stash->{short_cmt};
 124   for my $commit ($repository->list_revs(%logargs)) {
 125     # XXX FIXME Needs work ....
 126     push(@revs, {
 127         title       => $mk_title->($commit->comment),
 128         permaLink   => $c->uri_for_action('/ref/commit', [$repository->name, $commit->sha1]),
 129         description => $commit->comment,
 130     });
 131   }
 132   $c->stash(Commits => \@revs);
 133   $c->response->content_type('application/rss+xml');
 134 }
 135
 136 __PACKAGE__->meta->make_immutable;