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 025a8fe..69517c3 100644 (file)
--- a/lib/Gitalist/Controller/Root.pm
+++ b/lib/Gitalist/Controller/Root.pm
@@ -58,7 +58,7 @@ sub run_gitweb {
   }
 }
 
-sub _get_commit {
+sub _get_object {
   my($self, $c, $haveh) = @_;
 
   my $h = $haveh || $c->req->param('h') || '';
@@ -87,19 +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');
+  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
@@ -111,18 +120,19 @@ A summary of what's happening in the repo.
 sub summary : Local {
   my ( $self, $c ) = @_;
   my $project = $c->stash->{Project};
-  my $commit = $self->_get_commit($c);
-  my @heads  = $project->heads;
+  $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 => $maxitems,
     )],
     refs      => $project->references,
-    heads     => [ @heads[0 .. $maxitems] ],
+    heads     => [ @heads[0 .. ($#heads < $maxitems ? $#heads : $maxitems)] ],
     action    => 'summary',
   );
 }
@@ -137,8 +147,8 @@ sub heads : Local {
   my ( $self, $c ) = @_;
   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',
   );
 }
@@ -162,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
@@ -181,7 +191,7 @@ Exposes a given diff of a blob.
 
 sub blobdiff : Local {
   my ( $self, $c ) = @_;
-  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(
@@ -211,7 +221,7 @@ Exposes a given commit.
 sub commit : Local {
   my ( $self, $c ) = @_;
   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],
@@ -228,7 +238,7 @@ Exposes a given diff of a commit.
 
 sub commitdiff : Local {
   my ( $self, $c ) = @_;
-  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,
@@ -256,7 +266,7 @@ Expose an abbreviated log of a given sha1.
 sub shortlog : Local {
   my ( $self, $c ) = @_;
   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,
@@ -295,14 +305,13 @@ The tree of a given commit.
 sub tree : Local {
   my ( $self, $c ) = @_;
   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',
   );
 }
@@ -329,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,
@@ -351,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 {
@@ -376,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 {
@@ -390,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.
@@ -458,10 +466,9 @@ sub header {
   }
 
   $c->stash->{version}     = $Gitalist::VERSION;
-  $c->stash->{git_version} = $c->model('GitRepos')->run_cmd('--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;
@@ -514,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
Git web viewer in Catalyst