X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FGitalist%2FController%2FRepository.pm;h=ec28dbb8fed51547b7da167d41af3ac9c9c6e425;hb=2298d93ff984748b0c15d19bad6fdebb1d81c4f1;hp=410f0a2613849e193ed9c5bfd88f4f406b1888c1;hpb=f3be32b45515f1784595ca6320288735c239465a;p=catagits%2FGitalist.git

diff --git a/lib/Gitalist/Controller/Repository.pm b/lib/Gitalist/Controller/Repository.pm
index 410f0a2..ec28dbb 100644
--- a/lib/Gitalist/Controller/Repository.pm
+++ b/lib/Gitalist/Controller/Repository.pm
@@ -1,8 +1,5 @@
 package Gitalist::Controller::Repository;
 use Moose;
-use XML::Atom::Feed;
-use XML::Atom::Entry;
-use XML::RSS;
 use Sys::Hostname qw/hostname/;
 use namespace::autoclean;
 
@@ -11,6 +8,12 @@ with 'Gitalist::URIStructure::Repository';
 
 sub base : Chained('/base') PathPart('') CaptureArgs(0) {}
 
+=encoding UTF-8
+
+=head1 NAME
+
+Gitalist::Controller::Repository - Controller::Repository module for Gitalist
+
 =head2 search
 
 The action for the search form.
@@ -39,21 +42,16 @@ sub search : Chained('find') Args(0) {
   );
 }
 
-=head2 reflog
+=head2 tree
 
-Expose the local reflog. This may go away.
+Provide a simple redirect to C</ref/tree>.
 
 =cut
 
-sub reflog : Chained('find') Args(0) {
-  my ( $self, $c ) = @_;
-  my @log = $c->stash->{Repository}->reflog(
-      '--since=yesterday'
-  );
-
-  $c->stash(
-      log    => \@log,
-  );
+sub tree : Chained('find') Args(0) {
+    my($self, $c) = @_;
+    $c->res->redirect($c->uri_for_action('/ref/tree', [$c->stash->{Repository}->name, 'HEAD']));
+    $c->res->status(301);
 }
 
 =head2 atom