Commit | Line | Data |
89de6a33 |
1 | package Gitalist::Controller::Root; |
42fe5d11 |
2 | use Moose; |
3 | use namespace::autoclean; |
89de6a33 |
4 | |
42fe5d11 |
5 | BEGIN { extends 'Catalyst::Controller' } |
89de6a33 |
6 | |
7 | # |
8 | # Sets the actions in this controller to be registered with no prefix |
9 | # so they function identically to actions created in MyApp.pm |
10 | # |
11 | __PACKAGE__->config->{namespace} = ''; |
12 | |
13 | =head1 NAME |
14 | |
15 | Gitalist::Controller::Root - Root Controller for Gitalist |
16 | |
17 | =head1 DESCRIPTION |
18 | |
19 | [enter your description here] |
20 | |
21 | =head1 METHODS |
22 | |
23 | =cut |
24 | |
25 | =head2 index |
26 | |
27 | =cut |
28 | |
89de6a33 |
29 | use IO::Capture::Stdout; |
d3feefcf |
30 | |
1625cd5f |
31 | =head2 run_gitweb |
32 | |
33 | The main shim around C<gitweb.pm>. |
34 | |
35 | =cut |
36 | |
e66db0fb |
37 | sub run_gitweb { |
86382b95 |
38 | my ( $self, $c ) = @_; |
39 | |
e66db0fb |
40 | # XXX A slippery slope to be sure. |
41 | if($c->req->param('a')) { |
42 | my $capture = IO::Capture::Stdout->new(); |
43 | $capture->start(); |
44 | eval { |
45 | my $action = gitweb::main($c); |
46 | $action->(); |
47 | }; |
48 | $capture->stop(); |
49 | |
50 | use Data::Dumper; |
51 | die Dumper($@) |
52 | if $@; |
53 | |
54 | my $output = join '', $capture->read; |
55 | $c->stash->{gitweb_output} = $output; |
56 | $c->stash->{template} = 'gitweb.tt2'; |
57 | } |
86382b95 |
58 | } |
59 | |
9dc3b9a5 |
60 | sub _get_commit { |
61 | my($self, $c) = @_; |
62 | |
0ee97fec |
63 | my $h = $c->req->param('h'); |
64 | my $f = $c->req->param('f'); |
a7cc1ede |
65 | my $m = $c->model('Git'); |
0ee97fec |
66 | |
9dc3b9a5 |
67 | # Either use the provided h(ash) parameter, the f(ile) parameter or just use HEAD. |
a7cc1ede |
68 | my $hash = ($h =~ /[^a-f0-9]/ ? $m->head_hash($h) : $h) |
69 | || ($f && $m->hash_by_path($f)) |
70 | || $m->head_hash |
9dc3b9a5 |
71 | # XXX This could definitely use more context. |
72 | || Carp::croak("Couldn't find a hash for the commit object!"); |
73 | |
a7cc1ede |
74 | |
75 | (my $pd = $m->project_dir( $m->project )) =~ s{/\.git$}(); |
76 | my $commit = $m->get_object($hash) |
77 | or Carp::croak("Couldn't find a commit object for '$hash' in '$pd'!"); |
9dc3b9a5 |
78 | |
79 | return $commit; |
80 | } |
81 | |
1625cd5f |
82 | =head2 index |
83 | |
84 | Provides the project listing. |
85 | |
86 | =cut |
87 | |
86382b95 |
88 | sub index :Path :Args(0) { |
d5cc37a4 |
89 | my ( $self, $c ) = @_; |
86382b95 |
90 | |
e66db0fb |
91 | # Leave actions up to gitweb at this point. |
92 | return $self->run_gitweb($c) |
93 | if $c->req->param('a'); |
94 | |
d5cc37a4 |
95 | my $list = $c->model('Git')->list_projects; |
96 | unless(@$list) { |
86382b95 |
97 | die "No projects found"; |
98 | } |
99 | |
d5cc37a4 |
100 | $c->stash( |
101 | searchtext => $c->req->param('searchtext') || '', |
102 | projects => $list, |
103 | action => 'index', |
104 | ); |
04d1d917 |
105 | } |
106 | |
790ce598 |
107 | =head2 summary |
108 | |
109 | A summary of what's happening in the repo. |
110 | |
111 | =cut |
112 | |
113 | sub summary : Local { |
114 | my ( $self, $c ) = @_; |
115 | |
9dc3b9a5 |
116 | my $commit = $self->_get_commit($c); |
790ce598 |
117 | $c->stash( |
118 | commit => $commit, |
119 | info => $c->model('Git')->project_info($c->model('Git')->project), |
fde5091f |
120 | log_lines => [$c->model('Git')->list_revs( |
121 | sha1 => $commit->sha1, count => Gitalist->config->{paging}{summary} |
122 | )], |
0ee97fec |
123 | refs => $c->model('Git')->references, |
790ce598 |
124 | heads => [$c->model('Git')->heads], |
125 | action => 'summary', |
126 | ); |
127 | } |
128 | |
129 | =head2 heads |
130 | |
131 | The current list of heads (aka branches) in the repo. |
132 | |
133 | =cut |
134 | |
135 | sub heads : Local { |
136 | my ( $self, $c ) = @_; |
137 | |
138 | $c->stash( |
9dc3b9a5 |
139 | commit => $self->_get_commit($c), |
790ce598 |
140 | heads => [$c->model('Git')->heads], |
141 | action => 'heads', |
142 | ); |
143 | } |
144 | |
1625cd5f |
145 | =head2 blob |
146 | |
147 | The blob action i.e the contents of a file. |
148 | |
149 | =cut |
150 | |
295c9703 |
151 | sub blob : Local { |
152 | my ( $self, $c ) = @_; |
153 | |
c8870bd3 |
154 | my $h = $c->req->param('h') |
155 | || $c->model('Git')->hash_by_path($c->req->param('f')) |
156 | || die "No file or sha1 provided."; |
157 | my $hb = $c->req->param('hb') |
158 | || $c->model('Git')->head_hash |
159 | || die "Couldn't discern the corresponding head."; |
160 | |
f5da8e7a |
161 | my $filename = $c->req->param('f') || ''; |
162 | |
295c9703 |
163 | $c->stash( |
c8870bd3 |
164 | blob => $c->model('Git')->get_object($h)->content, |
165 | head => $c->model('Git')->get_object($hb), |
f5da8e7a |
166 | filename => $filename, |
167 | # XXX Hack hack hack, see View::SyntaxHighlight |
168 | language => ($filename =~ /\.p[lm]$/ ? 'Perl' : ''), |
c8870bd3 |
169 | action => 'blob', |
295c9703 |
170 | ); |
7e54e579 |
171 | |
c8870bd3 |
172 | $c->forward('View::SyntaxHighlight'); |
295c9703 |
173 | } |
174 | |
6cf4366a |
175 | =head2 blobdiff |
176 | |
177 | Exposes a given diff of a blob. |
178 | |
179 | =cut |
180 | |
181 | sub blobdiff : Local { |
182 | my ( $self, $c ) = @_; |
183 | |
184 | my $commit = $self->_get_commit($c); |
185 | my $filename = $c->req->param('f') |
186 | || croak("No file specified!"); |
ad8884fc |
187 | my($tree, $patch) = $c->model('Git')->diff( |
188 | commit => $commit, |
189 | parent => $c->req->param('hp') || '', |
190 | file => $filename, |
191 | patch => 1, |
6cf4366a |
192 | ); |
193 | $c->stash( |
194 | commit => $commit, |
ad8884fc |
195 | diff => $patch, |
6cf4366a |
196 | # XXX Hack hack hack, see View::SyntaxHighlight |
ad8884fc |
197 | blobs => [$patch->[0]->{diff}], |
6cf4366a |
198 | language => 'Diff', |
199 | action => 'blobdiff', |
200 | ); |
201 | |
202 | $c->forward('View::SyntaxHighlight'); |
203 | } |
204 | |
1625cd5f |
205 | =head2 commit |
206 | |
47495599 |
207 | Exposes a given commit. |
1625cd5f |
208 | |
209 | =cut |
210 | |
1feb3d6b |
211 | sub commit : Local { |
d7c9a32f |
212 | my ( $self, $c ) = @_; |
b7aca93a |
213 | |
9dc3b9a5 |
214 | my $commit = $self->_get_commit($c); |
b7aca93a |
215 | $c->stash( |
790ce598 |
216 | commit => $commit, |
ad8884fc |
217 | diff_tree => ($c->model('Git')->diff(commit => $commit))[0], |
790ce598 |
218 | branches_on => [$c->model('Git')->refs_for($commit->sha1)], |
219 | action => 'commit', |
b7aca93a |
220 | ); |
d7c9a32f |
221 | } |
222 | |
2247133f |
223 | =head2 commitdiff |
224 | |
225 | Exposes a given diff of a commit. |
226 | |
227 | =cut |
228 | |
229 | sub commitdiff : Local { |
230 | my ( $self, $c ) = @_; |
231 | |
9dc3b9a5 |
232 | my $commit = $self->_get_commit($c); |
ad8884fc |
233 | my($tree, $patch) = $c->model('Git')->diff( |
234 | commit => $commit, |
235 | parent => $c->req->param('hp') || '', |
236 | patch => 1, |
237 | ); |
2247133f |
238 | $c->stash( |
f5da8e7a |
239 | commit => $commit, |
ad8884fc |
240 | diff_tree => $tree, |
241 | diff => $patch, |
f5da8e7a |
242 | # XXX Hack hack hack, see View::SyntaxHighlight |
ad8884fc |
243 | blobs => [map $_->{diff}, @$patch], |
f5da8e7a |
244 | language => 'Diff', |
245 | action => 'commitdiff', |
2247133f |
246 | ); |
f5da8e7a |
247 | |
248 | $c->forward('View::SyntaxHighlight'); |
2247133f |
249 | } |
250 | |
47495599 |
251 | =head2 shortlog |
252 | |
253 | Expose an abbreviated log of a given sha1. |
254 | |
255 | =cut |
256 | |
257 | sub shortlog : Local { |
258 | my ( $self, $c ) = @_; |
259 | |
63e220b9 |
260 | my $commit = $self->_get_commit($c); |
fde5091f |
261 | my %logargs = ( |
262 | sha1 => $commit->sha1, |
263 | count => Gitalist->config->{paging}{log}, |
63e220b9 |
264 | ($c->req->param('f') ? (file => $c->req->param('f')) : ()) |
265 | ); |
fde5091f |
266 | |
267 | my $page = $c->req->param('pg') || 0; |
268 | $logargs{skip} = $c->req->param('pg') * $logargs{count} |
269 | if $c->req->param('pg'); |
270 | |
47495599 |
271 | $c->stash( |
790ce598 |
272 | commit => $commit, |
fde5091f |
273 | log_lines => [$c->model('Git')->list_revs(%logargs)], |
0ee97fec |
274 | refs => $c->model('Git')->references, |
790ce598 |
275 | action => 'shortlog', |
fde5091f |
276 | page => $page + 1, |
47495599 |
277 | ); |
278 | } |
279 | |
790ce598 |
280 | =head2 log |
281 | |
282 | Calls shortlog internally. Perhaps that should be reversed ... |
283 | |
284 | =cut |
285 | sub log : Local { |
286 | $_[0]->shortlog($_[1]); |
287 | $_[1]->stash->{action} = 'log'; |
288 | } |
289 | |
b3fa97cd |
290 | =head2 tree |
291 | |
292 | The tree of a given commit. |
293 | |
294 | =cut |
295 | |
296 | sub tree : Local { |
297 | my ( $self, $c ) = @_; |
298 | |
9dc3b9a5 |
299 | my $commit = $self->_get_commit($c); |
b3fa97cd |
300 | $c->stash( |
301 | # XXX Useful defaults needed ... |
790ce598 |
302 | commit => $commit, |
303 | tree => $c->model('Git')->get_object($c->req->param('hb')), |
9dc3b9a5 |
304 | tree_list => [$c->model('Git')->list_tree($commit->sha1)], |
790ce598 |
305 | action => 'tree', |
b3fa97cd |
306 | ); |
307 | } |
308 | |
9dc3b9a5 |
309 | =head2 reflog |
310 | |
311 | Expose the local reflog. This may go away. |
312 | |
313 | =cut |
314 | |
315 | sub reflog : Local { |
316 | my ( $self, $c ) = @_; |
317 | |
318 | my @log = $c->model('Git')->reflog( |
319 | '--since=yesterday' |
320 | ); |
321 | |
322 | $c->stash( |
323 | log => \@log, |
324 | action => 'reflog', |
325 | ); |
326 | } |
327 | |
14664e1c |
328 | sub search : Local { |
329 | Carp::croak "Not implemented."; |
330 | } |
331 | |
332 | sub search_help : Local { |
333 | Carp::croak "Not implemented."; |
334 | } |
335 | |
1625cd5f |
336 | =head2 auto |
337 | |
338 | Populate the header and footer. Perhaps not the best location. |
339 | |
340 | =cut |
341 | |
04d1d917 |
342 | sub auto : Private { |
343 | my($self, $c) = @_; |
344 | |
345 | # Yes, this is hideous. |
346 | $self->header($c); |
347 | $self->footer($c); |
348 | } |
349 | |
c5065c66 |
350 | # XXX This could probably be dropped altogether. |
04d1d917 |
351 | use Gitalist::Util qw(to_utf8); |
04d1d917 |
352 | # Formally git_header_html |
353 | sub header { |
354 | my($self, $c) = @_; |
355 | |
c5065c66 |
356 | my $title = $c->config->{sitename}; |
04d1d917 |
357 | |
358 | my $project = $c->req->param('project') || $c->req->param('p'); |
359 | my $action = $c->req->param('action') || $c->req->param('a'); |
360 | my $file_name = $c->req->param('filename') || $c->req->param('f'); |
c5065c66 |
361 | if(defined $project) { |
362 | $title .= " - " . to_utf8($project); |
363 | if (defined $action) { |
364 | $title .= "/$action"; |
365 | if (defined $file_name) { |
366 | $title .= " - " . $file_name; |
367 | if ($action eq "tree" && $file_name !~ m|/$|) { |
368 | $title .= "/"; |
369 | } |
370 | } |
371 | } |
372 | } |
373 | |
374 | $c->stash->{version} = $c->config->{version}; |
375 | $c->stash->{git_version} = $c->model('Git')->run_cmd('--version'); |
376 | $c->stash->{title} = $title; |
04d1d917 |
377 | |
378 | #$c->stash->{baseurl} = $ENV{PATH_INFO} && uri_escape($base_url); |
c5065c66 |
379 | $c->stash->{stylesheet} = $c->config->{stylesheet} || 'gitweb.css'; |
04d1d917 |
380 | |
c5065c66 |
381 | $c->stash->{project} = $project; |
04d1d917 |
382 | my @links; |
c5065c66 |
383 | if($project) { |
384 | my %href_params = $self->feed_info($c); |
385 | $href_params{'-title'} ||= 'log'; |
04d1d917 |
386 | |
c5065c66 |
387 | foreach my $format qw(RSS Atom) { |
388 | my $type = lc($format); |
04d1d917 |
389 | push @links, { |
c5065c66 |
390 | rel => 'alternate', |
391 | title => "$project - $href_params{'-title'} - $format feed", |
392 | |
393 | # XXX A bit hacky and could do with using gitweb::href() features |
394 | href => "?a=$type;p=$project", |
395 | type => "application/$type+xml" |
04d1d917 |
396 | }, { |
c5065c66 |
397 | rel => 'alternate', |
398 | |
399 | # XXX This duplication also feels a bit awkward |
400 | title => "$project - $href_params{'-title'} - $format feed (no merges)", |
401 | href => "?a=$type;p=$project;opt=--no-merges", |
402 | type => "application/$type+xml" |
04d1d917 |
403 | }; |
c5065c66 |
404 | } |
405 | } else { |
04d1d917 |
406 | push @links, { |
c5065c66 |
407 | rel => "alternate", |
408 | title => $c->config->{sitename}." projects list", |
409 | href => '?a=project_index', |
410 | type => "text/plain; charset=utf-8" |
411 | }, { |
412 | rel => "alternate", |
413 | title => $c->config->{sitename}." projects feeds", |
414 | href => '?a=opml', |
415 | type => "text/plain; charset=utf-8" |
416 | }; |
417 | } |
04d1d917 |
418 | |
c5065c66 |
419 | $c->stash->{favicon} = $c->config->{favicon}; |
04d1d917 |
420 | |
c5065c66 |
421 | # </head><body> |
86382b95 |
422 | |
c5065c66 |
423 | $c->stash( |
424 | logo_url => $c->config->{logo_url}, |
425 | logo_label => $c->config->{logo_label}, |
426 | logo_img => $c->config->{logo}, |
427 | home_link => $c->config->{home_link}, |
04d1d917 |
428 | home_link_str => $c->config->{home_link_str}, |
c5065c66 |
429 | ); |
04d1d917 |
430 | |
c5065c66 |
431 | if(defined $project) { |
04d1d917 |
432 | $c->stash( |
14664e1c |
433 | search_text => ( $c->req->param('s') || $c->req->param('searchtext') || ''), |
295c9703 |
434 | search_hash => ( $c->req->param('hb') || $c->req->param('hashbase') |
c5065c66 |
435 | || $c->req->param('h') || $c->req->param('hash') |
436 | || 'HEAD' ), |
437 | ); |
438 | } |
04d1d917 |
439 | } |
440 | |
441 | # Formally git_footer_html |
442 | sub footer { |
443 | my($self, $c) = @_; |
444 | |
c5065c66 |
445 | my $feed_class = 'rss_logo'; |
04d1d917 |
446 | |
447 | my @feeds; |
448 | my $project = $c->req->param('project') || $c->req->param('p'); |
c5065c66 |
449 | if(defined $project) { |
d5cc37a4 |
450 | (my $pstr = $project) =~ s[/?\.git$][]; |
c5065c66 |
451 | my $descr = $c->model('Git')->project_info($project)->{description}; |
452 | $c->stash->{project_description} = defined $descr |
453 | ? $descr |
454 | : ''; |
04d1d917 |
455 | |
c5065c66 |
456 | my %href_params = $self->feed_info($c); |
457 | if (!%href_params) { |
458 | $feed_class .= ' generic'; |
459 | } |
460 | $href_params{'-title'} ||= 'log'; |
04d1d917 |
461 | |
462 | @feeds = [ |
463 | map +{ |
464 | class => $feed_class, |
465 | title => "$href_params{'-title'} $_ feed", |
466 | href => "/?p=$project;a=\L$_", |
467 | name => lc $_, |
c5065c66 |
468 | }, qw(RSS Atom) |
469 | ]; |
470 | } else { |
04d1d917 |
471 | @feeds = [ |
472 | map { |
473 | class => $feed_class, |
c5065c66 |
474 | title => '', |
475 | href => "/?a=$_->[0]", |
476 | name => $_->[1], |
477 | }, [opml=>'OPML'],[project_index=>'TXT'], |
478 | ]; |
479 | } |
89de6a33 |
480 | } |
481 | |
04d1d917 |
482 | # XXX This feels wrong here, should probably be refactored. |
483 | # returns hash to be passed to href to generate gitweb URL |
484 | # in -title key it returns description of link |
485 | sub feed_info { |
486 | my($self, $c) = @_; |
487 | |
c5065c66 |
488 | my $format = shift || 'Atom'; |
489 | my %res = (action => lc($format)); |
04d1d917 |
490 | |
c5065c66 |
491 | # feed links are possible only for project views |
492 | return unless $c->req->param('project'); |
04d1d917 |
493 | |
c5065c66 |
494 | # some views should link to OPML, or to generic project feed, |
495 | # or don't have specific feed yet (so they should use generic) |
496 | return if $c->req->param('action') =~ /^(?:tags|heads|forks|tag|search)$/x; |
497 | |
498 | my $branch; |
04d1d917 |
499 | my $hash = $c->req->param('h') || $c->req->param('hash'); |
500 | my $hash_base = $c->req->param('hb') || $c->req->param('hashbase'); |
c5065c66 |
501 | |
502 | # branches refs uses 'refs/heads/' prefix (fullname) to differentiate |
503 | # from tag links; this also makes possible to detect branch links |
504 | if ((defined $hash_base && $hash_base =~ m!^refs/heads/(.*)$!) || |
505 | (defined $hash && $hash =~ m!^refs/heads/(.*)$!)) { |
506 | $branch = $1; |
507 | } |
508 | |
509 | # find log type for feed description (title) |
510 | my $type = 'log'; |
04d1d917 |
511 | my $file_name = $c->req->param('f') || $c->req->param('filename'); |
c5065c66 |
512 | if (defined $file_name) { |
513 | $type = "history of $file_name"; |
514 | $type .= "/" if $c->req->param('action') eq 'tree'; |
515 | $type .= " on '$branch'" if (defined $branch); |
516 | } else { |
517 | $type = "log of $branch" if (defined $branch); |
518 | } |
519 | |
520 | $res{-title} = $type; |
521 | $res{'hash'} = (defined $branch ? "refs/heads/$branch" : undef); |
522 | $res{'file_name'} = $file_name; |
523 | |
524 | return %res; |
04d1d917 |
525 | } |
89de6a33 |
526 | =head2 end |
527 | |
528 | Attempt to render a view, if needed. |
529 | |
530 | =cut |
531 | |
fde5091f |
532 | sub end : ActionClass('RenderView') { |
533 | # Give every view the current HEAD. |
534 | $_[1]->stash->{HEAD} = $_[1]->model('Git')->head_hash; |
535 | } |
89de6a33 |
536 | |
537 | =head1 AUTHOR |
538 | |
539 | Dan Brook,,, |
540 | |
541 | =head1 LICENSE |
542 | |
543 | This library is free software. You can redistribute it and/or modify |
544 | it under the same terms as Perl itself. |
545 | |
546 | =cut |
547 | |
42fe5d11 |
548 | __PACKAGE__->meta->make_immutable; |