lib/Gitalist.pm

   1 package Gitalist;
   2 use Moose;
   3 use namespace::autoclean;
   4
   5 use Catalyst::Runtime 5.80;
   6
   7 extends 'Catalyst';
   8
   9 use Catalyst qw/
  10                 ConfigLoader
  11                 Static::Simple
  12                 StackTrace/;
  13
  14 our $VERSION = '0.01';
  15
  16 # Bring in the libified gitweb.cgi.
  17 use gitweb;
  18
  19 __PACKAGE__->config(
  20     name => 'Gitalist',
  21     default_view => 'Default',
  22     default_model => 'Git', # Yes, we are going to be changing this.
  23     # Set to 1 to make your fcgi die the request after you push :)
  24     exit_at_end_of_request_if_updated => 0,
  25 );
  26
  27 {
  28     my $version;
  29     my $get_version = sub {
  30         my $gitdir = shift->path_to('.git');
  31         my $version = qx{cat "$gitdir/`cut -d' ' -f2 .git/HEAD`"};
  32         chomp $version;
  33         return $version;
  34     };
  35
  36     after setup_finalize => sub {
  37         my $c = shift;
  38         $version = $c->$get_version
  39             if $c->config->{exit_at_end_of_request_if_updated};
  40     };
  41     after handle_request => sub {
  42         my $c = shift;
  43         if ($version) {
  44             my $new = $c->$get_version;
  45             exit 0 unless $new eq $version;
  46         }
  47     };
  48 }
  49
  50
  51 # Start the application
  52 __PACKAGE__->setup();
  53
  54 around uri_for => sub {
  55   my ($orig, $c) = (shift, shift);
  56   local $c->stash->{current_model}; # FIXME - for zts..
  57   my $hash = ref($_[-1]) eq 'HASH' ? pop @_ : {};
  58   my $params = Catalyst::Utils::merge_hashes(
  59     { p => $hash->{p} || $c->model()->project },
  60     $hash,
  61   );
  62   (my $uri = $c->$orig(@_, $params))
  63     =~ tr[&][;];
  64   return $uri;
  65 };
  66
  67 =head1 NAME
  68
  69 Gitalist - Catalyst based application
  70
  71 =head1 SYNOPSIS
  72
  73     script/gitalist_server.pl
  74
  75 =head1 DESCRIPTION
  76
  77 [enter your description here]
  78
  79 =head1 SEE ALSO
  80
  81 L<Gitalist::Controller::Root>, L<Catalyst>
  82
  83 =head1 AUTHORS AND COPYRIGHT
  84
  85   Catalyst application:
  86     (C) 2009 Venda Ltd and Dan Brook <dbrook@venda.com>
  87
  88   Original gitweb.cgi from which this was derived:
  89     (C) 2005-2006, Kay Sievers <kay.sievers@vrfy.org>
  90     (C) 2005, Christian Gierke
  91
  92 =head1 LICENSE
  93
  94 FIXME - Is this going to be GPLv2 as per gitweb? If so this is broken..
  95
  96 This library is free software. You can redistribute it and/or modify
  97 it under the same terms as Perl itself.
  98
  99 =cut
 100
 101 1;