projects / catagits/Gitalist.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw
Implement the 'patch' action.
[catagits/Gitalist.git] / lib / Gitalist / Controller / Root.pm
diff --git a/lib/Gitalist/Controller/Root.pm b/lib/Gitalist/Controller/Root.pm
index 8528f2d..69517c3 100644 (file)
--- a/lib/Gitalist/Controller/Root.pm
+++ b/lib/Gitalist/Controller/Root.pm
@@ -58,22 +58,14 @@ sub run_gitweb {
   }
 }
 
-sub _get_commit {
+sub _get_object {
   my($self, $c, $haveh) = @_;
 
   my $h = $haveh || $c->req->param('h') || '';
   my $f = $c->req->param('f');
 
-  # FIXME this can die when everything is migrated
-  my ($m, $pd);
-  if (defined $c->stash->{current_model} &&
-          $c->stash->{current_model} eq 'GitRepos') {
-      $m = $c->stash->{Project};
-      $pd = $m->path;
-  } else {
-      $m = $c->model();
-      ($pd = $m->project_dir( $m->project )) =~ s{/\.git$}();
-  }
+  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)
@@ -95,20 +87,28 @@ Provides the project listing.
 =cut
 
 sub index :Path :Args(0) {
-    my ( $self, $c ) = @_;
-    $c->detach($c->req->param('a')) if $c->req->param('a');
-    $c->stash(current_model => 'GitRepos');
+  my ( $self, $c ) = @_;
 
-    my $list = $c->model()->list_projects;
-    unless(@$list) {
-        die "No projects found in ". $c->model->repo_dir;
-    }
+  $c->detach($c->req->param('a'))
+    if $c->req->param('a');
 
-    $c->stash(
-        searchtext => $c->req->param('searchtext') || '',
-        projects   => $list,
-        action     => 'index',
-    );
+  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
@@ -119,20 +119,22 @@ A summary of what's happening in the repo.
 
 sub summary : Local {
   my ( $self, $c ) = @_;
-  $c->stash(current_model => 'GitRepos');
   my $project = $c->stash->{Project};
-  my $commit = $self->_get_commit($c);
+  $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,
-    info      => $project->info,
+#    info      => $project->info,
     log_lines => [$project->list_revs(
         sha1 => $commit->sha1,
-        count => Gitalist->config->{paging}{summary} || 10
+        count => $maxitems,
     )],
     refs      => $project->references,
-    heads     => [$project->heads],
+    heads     => [ @heads[0 .. ($#heads < $maxitems ? $#heads : $maxitems)] ],
     action    => 'summary',
-);
+  );
 }
 
 =head2 heads
@@ -143,11 +145,10 @@ The current list of heads (aka branches) in the repo.
 
 sub heads : Local {
   my ( $self, $c ) = @_;
-  $c->stash( current_model => 'GitRepos' );
   my $project = $c->stash->{Project};
   $c->stash(
-    commit => $self->_get_commit($c),
-    heads  => [$project->heads],
+    commit => $self->_get_object($c),
+    heads  => $project->heads,
     action => 'heads',
   );
 }
@@ -160,7 +161,6 @@ The blob action i.e the contents of a file.
 
 sub blob : Local {
   my ( $self, $c ) = @_;
-  $c->stash(current_model => 'GitRepos');
   my $project = $c->stash->{Project};
   my $h  = $c->req->param('h')
        || $project->hash_by_path($c->req->param('hb'), $c->req->param('f'))
@@ -172,7 +172,7 @@ sub blob : Local {
   my $filename = $c->req->param('f') || '';
 
   $c->stash(
-    blob     => $project->get_object($h)->contents,
+    blob     => $project->get_object($h)->content,
     head     => $project->get_object($hb),
     filename => $filename,
     # XXX Hack hack hack, see View::SyntaxHighlight
@@ -191,8 +191,7 @@ Exposes a given diff of a blob.
 
 sub blobdiff : Local {
   my ( $self, $c ) = @_;
-  $c->stash(current_model => 'GitRepos');
-  my $commit = $self->_get_commit($c, $c->req->param('hb'));
+  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(
@@ -221,9 +220,8 @@ Exposes a given commit.
 
 sub commit : Local {
   my ( $self, $c ) = @_;
-  $c->stash(current_model => 'GitRepos');
   my $project = $c->stash->{Project};
-  my $commit = $self->_get_commit($c);
+  my $commit = $self->_get_object($c);
   $c->stash(
       commit      => $commit,
       diff_tree   => ($project->diff(commit => $commit))[0],
@@ -240,8 +238,7 @@ Exposes a given diff of a commit.
 
 sub commitdiff : Local {
   my ( $self, $c ) = @_;
-  $c->stash(current_model => 'GitRepos');
-  my $commit = $self->_get_commit($c);
+  my $commit = $self->_get_object($c);
   my($tree, $patch) = $c->stash->{Project}->diff(
       commit => $commit,
       parent => $c->req->param('hp') || undef,
@@ -268,9 +265,8 @@ Expose an abbreviated log of a given sha1.
 
 sub shortlog : Local {
   my ( $self, $c ) = @_;
-  $c->stash(current_model => 'GitRepos');
   my $project = $c->stash->{Project};
-  my $commit  = $self->_get_commit($c);
+  my $commit  = $self->_get_object($c);
   my %logargs = (
       sha1   => $commit->sha1,
       count  => Gitalist->config->{paging}{log} || 25,
@@ -308,16 +304,14 @@ The tree of a given commit.
 
 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   = $project->get_object($c->req->param('h') || $commit->tree_sha1);
+  my $commit  = $self->_get_object($c, $c->req->param('hb'));
+  my $tree    = $self->_get_object($c, $c->req->param('h') || $commit->tree_sha1);
   $c->stash(
-      # XXX Useful defaults needed ...
       commit    => $commit,
       tree      => $tree,
       tree_list => [$project->list_tree($tree->sha1)],
-         path      => $c->req->param('f') || '',
+      path      => $c->req->param('f') || '',
       action    => 'tree',
   );
 }
@@ -330,7 +324,6 @@ Expose the local reflog. This may go away.
 
 sub reflog : Local {
   my ( $self, $c ) = @_;
-  $c->stash(current_model => 'GitRepos');
   my @log = $c->stash->{Project}->reflog(
       '--since=yesterday'
   );
@@ -345,7 +338,7 @@ sub search : Local {
   my($self, $c) = @_;
   $c->stash(current_action => 'GitRepos');
   my $project = $c->stash->{Project};
-  my $commit  = $self->_get_commit($c);
+  my $commit  = $self->_get_object($c);
   # Lifted from /shortlog.
   my %logargs = (
     sha1   => $commit->sha1,
@@ -367,8 +360,8 @@ sub search : Local {
 }
 
 sub search_help : Local {
-    # FIXME - implement search_help
-    Carp::croak "Not implemented.";
+    my ($self, $c) = @_;
+    $c->stash(template => 'search_help.tt2');
 }
 
 sub atom : Local {
@@ -392,13 +385,19 @@ sub blob_plain : Local {
 }
 
 sub patch : Local {
-    # FIXME - implement patches
-    Carp::croak "Not implemented.";
+    my ($self, $c) = @_;
+    $c->detach('patches', [1]);
 }
 
 sub patches : Local {
-    # FIXME - implement patches
-    Carp::croak "Not implemented.";
+    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->patch( $parent, $count );
+    $c->response->body($patch);
+    $c->response->content_type('text/plain');
+    $c->response->status(200);
 }
 
 sub snapshot : Local {
@@ -406,18 +405,11 @@ sub snapshot : Local {
     Carp::croak "Not implemented.";
 }
 
-sub history : Local {
-    # FIXME - implement history
-    Carp::croak "Not implemented.";
-}
-
 sub commitdiff_plain : Local {
     # FIXME - implement commitdiff_plain
     Carp::croak "Not implemented.";
 }
 
-
-
 =head2 auto
 
 Populate the header and footer. Perhaps not the best location.
@@ -473,11 +465,10 @@ sub header {
     }
   }
 
-  $c->stash->{version}     = $c->config->{version};
-  $c->stash->{git_version} = $c->model()->run_cmd('--version');
+  $c->stash->{version}     = $Gitalist::VERSION;
+  # check git's version by running it on the first project in the list.
   $c->stash->{title}       = $title;
 
-  #$c->stash->{baseurl} = $ENV{PATH_INFO} && uri_escape($base_url);
   $c->stash->{stylesheet} = $c->config->{stylesheet} || 'gitweb.css';
 
   $c->stash->{project} = $project;
@@ -530,16 +521,23 @@ sub header {
     home_link_str => $c->config->{home_link_str},
     );
 
-  if(defined $project) {
+  if (defined $project) {
+      eval {
+          $c->stash(Project => $c->model('GitRepos')->project($project));
+      };
+      if ($@) {
+          $c->detach('error_404');
+      }
       $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),
       );
   }
+  my $a_project = $c->stash->{Project} || $c->model()->projects->[0];
+  $c->stash->{git_version} = $a_project->run_cmd('--version');
 }
 
 # Formally git_footer_html
@@ -633,16 +631,11 @@ Attempt to render a view, if needed.
 =cut
 
 sub end : ActionClass('RenderView') {
-  my ($self, $c) = @_;
-  # Give project views the current HEAD.
-  if ($c->stash->{project}) {
-      if ($c->stash->{current_model} &&
-              $c->stash->{current_model} eq 'GitRepos') {
-          $c->stash->{HEAD} = $c->stash->{Project}->head_hash;
-      } else {
-          $c->stash->{HEAD} = $c->model()->head_hash;
-      }
-  }
+    my ($self, $c) = @_;
+    # Give project views the current HEAD.
+    if ($c->stash->{Project}) {
+        $c->stash->{HEAD} = $c->stash->{Project}->head_hash;
+    }
 }
 
 sub error_404 :Private {
@@ -651,7 +644,7 @@ sub error_404 :Private {
     $c->stash(
         title => 'Page not found',
         content => 'Page not found',
-    )
+    );
 }
 
 sub age_string {
Git web viewer in Catalyst