X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FGitalist%2FController%2FRoot.pm;h=7b921f89281b3f141c6b161b78396d771b39c1d8;hb=e1a23af1e0fa1ee2aa13ba3055c258e559ee4f93;hp=d1c8cf4c1bd708934f5bd62aeb296d5257e0fc5c;hpb=18a8059ab308cfd22f3b1c4ce8cdb39afc55c8f6;p=catagits%2FGitalist.git

diff --git a/lib/Gitalist/Controller/Root.pm b/lib/Gitalist/Controller/Root.pm
index d1c8cf4..7b921f8 100644
--- a/lib/Gitalist/Controller/Root.pm
+++ b/lib/Gitalist/Controller/Root.pm
@@ -1,667 +1,138 @@
 package Gitalist::Controller::Root;
-use Moose;
-use namespace::autoclean;
-
-BEGIN { extends 'Catalyst::Controller' }
-
-__PACKAGE__->config->{namespace} = '';
-
-use Sys::Hostname ();
-use XML::Atom::Feed;
-use XML::Atom::Entry;
-use XML::RSS;
-
-=head1 NAME
-
-Gitalist::Controller::Root - Root Controller for Gitalist
-
-=head1 DESCRIPTION
-
-[enter your description here]
-
-=head1 METHODS
-
-=cut
-
-sub _get_object {
-  my($self, $c, $haveh) = @_;
-
-  my $h = $haveh || $c->req->param('h') || '';
-  my $f = $c->req->param('f');
-
-  my $m = $c->stash->{Project};
-  my $pd = $m->path;
-
-  # Either use the provided h(ash) parameter, the f(ile) parameter or just use HEAD.
-  my $hash = ($h =~ /[^a-f0-9]/ ? $m->head_hash($h) : $h)
-          || ($f && $m->hash_by_path($f))
-          || $m->head_hash
-          # XXX This could definitely use more context.
-          || Carp::croak("Couldn't find a hash for the commit object!");
-
-  my $commit = $m->get_object($hash)
-    or Carp::croak("Couldn't find a commit object for '$hash' in '$pd'!");
-
-  return $commit;
-}
-
-=head2 index
-
-Provides the project listing.
-
-=cut
-
-sub index :Path :Args(0) {
-  my ( $self, $c ) = @_;
-
-  $c->detach($c->req->param('a'))
-    if $c->req->param('a');
-
-  my @list = @{ $c->model()->projects };
-  die 'No projects found in '. $c->model->repo_dir
-    unless @list;
-
-  my $search = $c->req->param('s') || '';
-  if($search) {
-    @list = grep {
-         index($_->name, $search) > -1
-      or ( $_->description !~ /^Unnamed repository/ and index($_->description, $search) > -1 )
-    } @list
-  }
-
-  $c->stash(
-    search_text => $search,
-    projects    => \@list,
-    action      => 'index',
-  );
-}
-
-=head2 summary
-
-A summary of what's happening in the repo.
-
-=cut
-
-sub summary : Local {
-  my ( $self, $c ) = @_;
-  my $project = $c->stash->{Project};
-  $c->detach('error_404') unless $project;
-  my $commit = $self->_get_object($c);
-  my @heads  = @{$project->heads};
-  my $maxitems = Gitalist->config->{paging}{summary} || 10;
-  $c->stash(
-    commit    => $commit,
-    log_lines => [$project->list_revs(
-        sha1 => $commit->sha1,
-        count => $maxitems,
-    )],
-    refs      => $project->references,
-    heads     => [ @heads[0 .. ($#heads < $maxitems ? $#heads : $maxitems)] ],
-    action    => 'summary',
-  );
-}
-
-=head2 heads
-
-The current list of heads (aka branches) in the repo.
-
-=cut
-
-sub heads : Local {
-  my ( $self, $c ) = @_;
-  my $project = $c->stash->{Project};
-  $c->stash(
-    commit => $self->_get_object($c),
-    heads  => $project->heads,
-    action => 'heads',
-  );
-}
-
-=head2 tags
-
-The current list of tags in the repo.
-
-=cut
-
-sub tags : Local {
-  my ( $self, $c ) = @_;
-  my $project = $c->stash->{Project};
-  $c->stash(
-    commit => $self->_get_object($c),
-    tags   => $project->tags,
-    action => 'tags',
-  );
-}
-
-sub blame : Local {
-  my($self, $c) = @_;
-
-  my $project = $c->stash->{Project};
-  my $h  = $c->req->param('h')
-       || $project->hash_by_path($c->req->param('hb'), $c->req->param('f'))
-       || die "No file or sha1 provided.";
-  my $hb = $c->req->param('hb')
-       || $project->head_hash
-       || die "Couldn't discern the corresponding head.";
-  my $filename = $c->req->param('f') || '';
 
-  my($metadata, $filedata) = $project->get_object($hb)->blame($filename);
-  $c->stash(
-    metadata => $metadata,
-    filedata => $filedata,
-    head     => $project->get_object($hb),
-    filename => $filename,
-  );
-  
-}
-
-=head2 blob
-
-The blob action i.e the contents of a file.
-
-=cut
-
-sub blob : Local {
-  my ( $self, $c ) = @_;
-  my $project = $c->stash->{Project};
-  my $h  = $c->req->param('h')
-       || $project->hash_by_path($c->req->param('hb'), $c->req->param('f'))
-       || die "No file or sha1 provided.";
-  my $hb = $c->req->param('hb')
-       || $project->head_hash
-       || die "Couldn't discern the corresponding head.";
-
-  my $filename = $c->req->param('f') || '';
-
-  $c->stash(
-    blob     => $project->get_object($h)->content,
-    head     => $project->get_object($hb),
-    filename => $filename,
-    # XXX Hack hack hack, see View::SyntaxHighlight
-    language => ($filename =~ /\.p[lm]$/ ? 'Perl' : ''),
-    action   => 'blob',
-  );
-
-  $c->forward('View::SyntaxHighlight')
-    unless $c->stash->{no_wrapper};
-}
-
-sub blob_plain : Local {
-  my($self, $c) = @_;
-
-  $c->stash(no_wrapper => 1);
-  $c->response->content_type('text/plain; charset=utf-8');
-
-  $c->forward('blob');
-}
-
-sub blobdiff_plain : Local {
-  my($self, $c) = @_;
-
-  $c->stash(no_wrapper => 1);
-  $c->response->content_type('text/plain; charset=utf-8');
-
-  $c->forward('blobdiff');
-
-}
-
-=head2 blobdiff
-
-Exposes a given diff of a blob.
-
-=cut
-
-sub blobdiff : Local {
-  my ( $self, $c ) = @_;
-  my $commit = $self->_get_object($c, $c->req->param('hb'));
-  my $filename = $c->req->param('f')
-              || croak("No file specified!");
-  my($tree, $patch) = $c->stash->{Project}->diff(
-    commit => $commit,
-    patch  => 1,
-    parent => $c->req->param('hpb') || undef,
-    file   => $filename,
-  );
-  $c->stash(
-    commit    => $commit,
-    diff      => $patch,
-    # XXX Hack hack hack, see View::SyntaxHighlight
-    blobs     => [$patch->[0]->{diff}],
-    language  => 'Diff',
-    action    => 'blobdiff',
-  );
+use Moose;
+use Moose::Autobox;
+use Digest::MD5 qw(md5_hex);
+use Gitalist::Utils qw/ age_string /;
 
-  $c->forward('View::SyntaxHighlight')
-    unless $c->stash->{no_wrapper};
-}
+use namespace::autoclean;
 
-=head2 commit
+BEGIN { extends 'Gitalist::Controller' }
 
-Exposes a given commit.
+__PACKAGE__->config(namespace => '');
 
-=cut
+sub root : Chained('/') PathPart('') CaptureArgs(0) {}
 
-sub commit : Local {
-  my ( $self, $c ) = @_;
-  my $project = $c->stash->{Project};
-  my $commit = $self->_get_object($c);
-  $c->stash(
-      commit      => $commit,
-      diff_tree   => ($project->diff(commit => $commit))[0],
-      refs      => $project->references,
-      action      => 'commit',
-  );
+sub index : Chained('base') PathPart('') Args(0) {
+    my ( $self, $c ) = @_;
+    $c->stash( search_text => $c->req->param('s') || '' ) # FIXME - XSS?
 }
 
-=head2 commitdiff
+# XXX Fragile much?
+sub css : Chained('/root') PathPart('core.css') Args(0) {
+    my ( $self, $c ) = @_;
 
-Exposes a given diff of a commit.
-
-=cut
-
-sub commitdiff : Local {
-  my ( $self, $c ) = @_;
-  my $commit = $self->_get_object($c);
-  my($tree, $patch) = $c->stash->{Project}->diff(
-      commit => $commit,
-      parent => $c->req->param('hp') || undef,
-      patch  => 1,
-  );
-  $c->stash(
-    commit    => $commit,
-    diff_tree => $tree,
-    diff      => $patch,
-    # XXX Hack hack hack, see View::SyntaxHighlight
-    blobs     => [map $_->{diff}, @$patch],
-    language  => 'Diff',
-    action    => 'commitdiff',
-  );
-
-  $c->forward('View::SyntaxHighlight')
-    unless $c->stash->{no_wrapper};
+    $c->stash( template => 'static/css/core.css', content_type => 'text/css' );
 }
 
-sub commitdiff_plain : Local {
+sub base : Chained('/root') PathPart('') CaptureArgs(0) {
   my($self, $c) = @_;
 
-  $c->stash(no_wrapper => 1);
-  $c->response->content_type('text/plain; charset=utf-8');
-
-  $c->forward('commitdiff');
-}
-
-=head2 shortlog
-
-Expose an abbreviated log of a given sha1.
-
-=cut
-
-sub shortlog : Local {
-  my ( $self, $c ) = @_;
-  my $project = $c->stash->{Project};
-  my $commit  = $self->_get_object($c);
-  my %logargs = (
-      sha1   => $commit->sha1,
-      count  => Gitalist->config->{paging}{log} || 25,
-      ($c->req->param('f') ? (file => $c->req->param('f')) : ())
-  );
-
-  my $page = $c->req->param('pg') || 0;
-  $logargs{skip} = $c->req->param('pg') * $logargs{count}
-    if $c->req->param('pg');
-
-  $c->stash(
-      commit    => $commit,
-      log_lines => [$project->list_revs(%logargs)],
-      refs      => $project->references,
-      action    => 'shortlog',
-      page      => $page,
-  );
-}
-
-=head2 log
-
-Calls shortlog internally. Perhaps that should be reversed ...
-
-=cut
-sub log : Local {
-    $_[0]->shortlog($_[1]);
-    $_[1]->stash->{action} = 'log';
-}
-
-# For legacy support.
-sub history : Local {
-  $_[0]->shortlog(@_[1 .. $#_]);
-}
-
-=head2 tree
-
-The tree of a given commit.
-
-=cut
-
-sub tree : Local {
-  my ( $self, $c ) = @_;
-  my $project = $c->stash->{Project};
-  my $commit  = $self->_get_object($c, $c->req->param('hb'));
-  my $tree    = $self->_get_object($c, $c->req->param('h') || $commit->tree_sha1);
+  my $git_version = `git --version`;
+  chomp($git_version);
   $c->stash(
-      commit    => $commit,
-      tree      => $tree,
-      tree_list => [$project->list_tree($tree->sha1)],
-      path      => $c->req->param('f') || '',
-      action    => 'tree',
-  );
-}
-
-=head2 reflog
-
-Expose the local reflog. This may go away.
-
-=cut
-
-sub reflog : Local {
-  my ( $self, $c ) = @_;
-  my @log = $c->stash->{Project}->reflog(
-      '--since=yesterday'
-  );
-
-  $c->stash(
-      log    => \@log,
-      action => 'reflog',
-  );
-}
-
-=head2 search
-
-The action for the search form.
-
-=cut
+    git_version => $git_version,
+    version     => $Gitalist::VERSION,
 
-sub search : Local {
-  my($self, $c) = @_;
-  $c->stash(current_action => 'GitRepos');
-  my $project = $c->stash->{Project};
-  my $commit  = $self->_get_object($c);
-  # Lifted from /shortlog.
-  my %logargs = (
-    sha1   => $commit->sha1,
-    count  => Gitalist->config->{paging}{log},
-    ($c->req->param('f') ? (file => $c->req->param('f')) : ()),
-    search => {
-      type   => $c->req->param('type'),
-      text   => $c->req->param('text'),
-      regexp => $c->req->param('regexp') || 0,
+    time_since => sub {
+      return 'never' unless $_[0];
+      return age_string(time - $_[0]->epoch);
+    },
+    short_cmt => sub {
+      my $cmt = shift;
+      my($line) = split /\n/, $cmt;
+      $line =~ s/^(.{70,80}\b).*/$1 \x{2026}/ if defined $line;
+      return $line;
+    },
+    abridged_description => sub {
+        join(' ', grep { defined } (split / /, shift)[0..10]);
+    },
+    uri_for_gravatar => sub {
+        my $email = shift;
+        my $size = shift;
+        my $uri = 'http://www.gravatar.com/avatar/' . md5_hex($email);
+        $uri .= "?s=$size" if $size;
+        return $uri;
     },
-  );
-
-  $c->stash(
-      commit  => $commit,
-      results => [$project->list_revs(%logargs)],
-      action  => 'search',
-	  # This could be added - page      => $page,
   );
 }
 
+sub search : Chained('base') Args(0) {}
+
 =head2 search_help
 
 Provides some help for the search form.
 
 =cut
 
-sub search_help : Local {
-    my ($self, $c) = @_;
-    $c->stash(template => 'search_help.tt2');
-}
-
-=head2 atom
-
-Provides an atom feed for a given project.
-
-=cut
-
-sub atom : Local {
-  my($self, $c) = @_;
-
-  my $feed = XML::Atom::Feed->new;
-
-  my $host = lc Sys::Hostname::hostname();
-  $feed->title($host . ' - ' . Gitalist->config->{name});
-  $feed->updated(~~DateTime->now);
-
-  my $project = $c->stash->{Project};
-  my %logargs = (
-      sha1   => $project->head_hash,
-      count  => Gitalist->config->{paging}{log} || 25,
-      ($c->req->param('f') ? (file => $c->req->param('f')) : ())
-  );
-
-  my $mk_title = $c->stash->{short_cmt};
-  for my $commit ($project->list_revs(%logargs)) {
-    my $entry = XML::Atom::Entry->new;
-    $entry->title( $mk_title->($commit->comment) );
-    $entry->id($c->uri_for('commit', {h=>$commit->sha1}));
-    # XXX Needs work ...
-    $entry->content($commit->comment);
-    $feed->add_entry($entry);
-  }
-
-  $c->response->body($feed->as_xml);
-  $c->response->content_type('application/atom+xml');
-  $c->response->status(200);
-}
-
-=head2 rss
-
-Provides an RSS feed for a given project.
-
-=cut
-
-sub rss : Local {
-  my ($self, $c) = @_;
+sub search_help : Chained('base') Args(0) {}
 
-  my $project = $c->stash->{Project};
-
-  my $rss = XML::RSS->new(version => '2.0');
-  $rss->channel(
-    title          => lc(Sys::Hostname::hostname()) . ' - ' . Gitalist->config->{name},
-    link           => $c->uri_for('summary', {p=>$project->name}),
-    language       => 'en',
-    description    => $project->description,
-    pubDate        => DateTime->now,
-    lastBuildDate  => DateTime->now,
-  );
-
-  my %logargs = (
-      sha1   => $project->head_hash,
-      count  => Gitalist->config->{paging}{log} || 25,
-      ($c->req->param('f') ? (file => $c->req->param('f')) : ())
-  );
-  my $mk_title = $c->stash->{short_cmt};
-  for my $commit ($project->list_revs(%logargs)) {
-    # XXX Needs work ....
-    $rss->add_item(
-        title       => $mk_title->($commit->comment),
-        permaLink   => $c->uri_for(commit => {h=>$commit->sha1}),
-        description => $commit->comment,
-    );
-  }
-
-  $c->response->body($rss->as_string);
-  $c->response->content_type('application/rss+xml');
-  $c->response->status(200);
+sub end : ActionClass('Serialize') {
+    my ($self, $c) = @_;
+    # Give repository views the current HEAD.
+    if ($c->stash->{Repository}) {
+        $c->stash->{HEAD} = $c->stash->{Repository}->head_hash;
+    }
+    if ($c->stash->{data} && blessed $c->stash->{data}) {
+        $c->stash->{rest} = $c->stash->{data}->pack;
+    }
 }
 
-=head2 patch
-
-A raw patch for a given commit.
-
-=cut
-
-sub patch : Local {
+sub error_404 : Action {
     my ($self, $c) = @_;
-    $c->detach('patches', [1]);
+    $c->response->status(404);
+    $c->response->body('Page not found');
 }
 
-=head2 patches
-
-The patcheset for a given commit ???
-
-=cut
+__PACKAGE__->config(
+    default => 'text/html',
+    map => {
+        'application/json' => [qw/ JSON /],
+        map { $_ => [qw/ View Default /] }
+             qw( text/css text/html text/plain
+                 application/atom+xml application/rss+xml application/rss )
+    },
+    content_type_stash_key => 'content_type',
+);
 
-sub patches : Local {
-    my ($self, $c, $count) = @_;
-    $count ||= Gitalist->config->{patches}{max};
-    my $commit = $self->_get_object($c);
-    my $parent = $c->req->param('hp') || undef;
-    my $patch = $commit->get_patch( $parent, $count );
-    $c->response->body($patch);
-    $c->response->content_type('text/plain');
-    $c->response->status(200);
-}
+__PACKAGE__->meta->make_immutable;
 
-=head2 snapshot
+__END__
 
-Provides a snapshot of a given commit.
+=head1 NAME
 
-=cut
+Gitalist::Controller::Root - Root controller for the application
 
-sub snapshot : Local {
-    my ($self, $c) = @_;
-    my $format = $c->req->param('sf') || 'tgz';
-    die unless $format;
-    my $sha1 = $c->req->param('h') || $self->_get_object($c)->sha1;
-    my @snap = $c->stash->{Project}->snapshot(
-        sha1 => $sha1,
-        format => $format
-    );
-    $c->response->status(200);
-    $c->response->headers->header( 'Content-Disposition' =>
-                                       "attachment; filename=$snap[0]");
-    $c->response->body($snap[1]);
-}
+=head1 DESCRIPTION
 
-=head2 auto
+This controller handles all of the root level paths for the application
 
-Populate the header and footer. Perhaps not the best location.
+=head1 METHODS
 
-=cut
+=head2 root
 
-sub auto : Private {
-  my($self, $c) = @_;
+Root of chained actions
 
-  my $project = $c->req->param('p');
-  if (defined $project) {
-    eval {
-      $c->stash(Project => $c->model('GitRepos')->project($project));
-    };
-    if ($@) {
-      $c->detach('error_404');
-    }
-  }
+=head2 base
 
-  my $a_project = $c->stash->{Project} || $c->model()->projects->[0];
-  $c->stash(
-    git_version => $a_project->run_cmd('--version'),
-    version     => $Gitalist::VERSION,
+Populate the header and footer. Perhaps not the best location.
 
-    # XXX Move these to a plugin!
-    time_since => sub {
-      return 'never' unless $_[0];
-      return age_string(time - $_[0]->epoch);
-    },
-    short_cmt => sub {
-      my $cmt = shift;
-      my($line) = split /\n/, $cmt;
-      $line =~ s/^(.{70,80}\b).*/$1 …/;
-      return $line;
-    },
-    abridged_description => sub {
-        join(' ', grep { defined } (split / /, shift)[0..10]);
-    },
-  );
-}
+=head2 index
 
-sub project_index : Local {
-    # FIXME - implement snapshot
-    Carp::croak "Not implemented.";
-}
-sub opml : Local {
-    # FIXME - implement snapshot
-    Carp::croak "Not implemented.";
-}
+Provides the repository listing.
 
 =head2 end
 
 Attempt to render a view, if needed.
 
-=cut
+=head2 error_404
 
-sub end : ActionClass('RenderView') {
-    my ($self, $c) = @_;
-    # Give project views the current HEAD.
-    if ($c->stash->{Project}) {
-        $c->stash->{HEAD} = $c->stash->{Project}->head_hash;
-    }
-}
+=head1 AUTHORS
 
-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;
-
-  if ( $age > 60 * 60 * 24 * 365 * 2 ) {
-    $age_str  = ( int $age / 60 / 60 / 24 / 365 );
-    $age_str .= " years ago";
-  }
-  elsif ( $age > 60 * 60 * 24 * ( 365 / 12 ) * 2 ) {
-    $age_str  = int $age / 60 / 60 / 24 / ( 365 / 12 );
-    $age_str .= " months ago";
-  }
-  elsif ( $age > 60 * 60 * 24 * 7 * 2 ) {
-    $age_str  = int $age / 60 / 60 / 24 / 7;
-    $age_str .= " weeks ago";
-  }
-  elsif ( $age > 60 * 60 * 24 * 2 ) {
-    $age_str  = int $age / 60 / 60 / 24;
-    $age_str .= " days ago";
-  }
-  elsif ( $age > 60 * 60 * 2 ) {
-    $age_str  = int $age / 60 / 60;
-    $age_str .= " hours ago";
-  }
-  elsif ( $age > 60 * 2 ) {
-    $age_str  = int $age / 60;
-    $age_str .= " min ago";
-  }
-  elsif ( $age > 2 ) {
-    $age_str  = int $age;
-    $age_str .= " sec ago";
-  }
-  else {
-    $age_str .= " right now";
-  }
-  return $age_str;
-}
-
-
-=head1 AUTHOR
-
-Dan Brook
+See L<Gitalist> for authors.
 
 =head1 LICENSE
 
-This library is free software. You can redistribute it and/or modify
-it under the same terms as Perl itself.
+See L<Gitalist> for the license.
 
 =cut
-
-__PACKAGE__->meta->make_immutable;