package Gitalist::Controller::Ref; use Moose; use namespace::autoclean; BEGIN { extends 'Gitalist::Controller' } with 'Gitalist::URIStructure::Ref'; use File::Type; use File::Type::WebImages (); sub base : Chained('/repository/find') PathPart('') CaptureArgs(0) {} after commit => sub { my($self, $c) = @_; $c->stash->{diff_tree} = ( $c->stash->{Commit}->diff )[0]; }; sub raw : Chained('find') Does('FilenameArgs') Args() { my ($self, $c) = @_; $c->forward('find_blob'); if(!Gitalist::Utils::is_binary($c->stash->{blob})) { $c->response->content_type('text/plain; charset=utf-8'); } else { my $ft = File::Type->new(); $c->response->content_type( File::Type::WebImages::mime_type($c->stash->{blob}) || File::Type->new->mime_type($c->stash->{blob}) ); } utf8::decode($c->stash->{blob}); $c->response->body(delete $c->stash->{blob}); } =encoding UTF-8 =head1 NAME Gitalist::Controller::Ref - Controller::Ref module for Gitalist =head2 snapshot Provides a snapshot of a given commit. =cut sub snapshot : Chained('find') PathPart('snapshot') Args() { my ($self, $c, $format) = @_; $format ||= 'tgz'; my @snap = $c->stash->{Repository}->snapshot( sha1 => $c->stash->{Commit}->sha1, format => $format ); $c->response->status(200); $c->response->headers->header( 'Content-Disposition' => "attachment; filename=$snap[0]"); $c->response->body($snap[1]); } =head2 patch A raw patch for a given commit. =cut sub patch : Chained('find') Args(0) { my ($self, $c) = @_; $c->detach('patches', [1]); } =head2 patches The patcheset for a given commit ??? =cut sub patches : Chained('find') Args(1) { my ($self, $c, $count) = @_; $count ||= Gitalist->config->{patches}{max}; my $commit = $c->stash->{Commit}; my $parent = $c->req->param('hp') || undef; # FIXME 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;