package Gitalist;
use Moose;
-use namespace::autoclean;
-
+BEGIN { require 5.008006; }
use Catalyst::Runtime 5.80;
+use namespace::autoclean;
extends 'Catalyst';
use Catalyst qw/
ConfigLoader
+ Unicode::Encoding
Static::Simple
- StackTrace/;
+ StackTrace
+/;
-our $VERSION = '0.01';
-
-# Bring in the libified gitweb.cgi.
-use gitweb;
+our $VERSION = '0.000000_01';
+$VERSION = eval $VERSION;
__PACKAGE__->config(
name => 'Gitalist',
default_view => 'Default',
- default_model => 'Git', # Yes, we are going to be changing this.
- # Set to 1 to make your fcgi die the request after you push :)
- exit_at_end_of_request_if_updated => 0,
+ default_model => 'GitRepos',
);
-{
- my $version;
- my $get_version = sub {
- my $gitdir = shift->path_to('.git');
- my $version = qx{cat "$gitdir/`cut -d' ' -f2 .git/HEAD`"};
- chomp $version;
- return $version;
- };
-
- after setup_finalize => sub {
- my $c = shift;
- $version = $c->$get_version
- if $c->config->{exit_at_end_of_request_if_updated};
- };
- after handle_request => sub {
- my $c = shift;
- if ($version) {
- my $new = $c->$get_version;
- exit 0 unless $new eq $version;
- }
- };
-}
-
-
-# Start the application
__PACKAGE__->setup();
around uri_for => sub {
my ($orig, $c) = (shift, shift);
- local $c->stash->{current_model}; # FIXME - for zts..
+ my $project_name = $c->stash->{'Project'} && $c->stash->{'Project'}->name;
my $hash = ref($_[-1]) eq 'HASH' ? pop @_ : {};
my $params = Catalyst::Utils::merge_hashes(
- { p => $hash->{p} || $c->model()->project },
+ { p => $hash->{p} || $project_name },
$hash,
);
+ delete $params->{p} unless defined $params->{p} && length $params->{p};
(my $uri = $c->$orig(@_, $params))
=~ tr[&][;];
return $uri;
};
+1;
+
+__END__
+
=head1 NAME
-Gitalist - Catalyst based application
+Gitalist - A modern git web viewer
=head1 SYNOPSIS
script/gitalist_server.pl
+=head1 INSTALL
+
+As Gitalist follows the usual Perl module format the usual approach
+for installation should work e.g
+
+ perl Makefile.PL
+ make
+ make test
+ make install
+
+If you're running a git checkout of Gitalist then you'll additionally
+need the author modules.
+
=head1 DESCRIPTION
-[enter your description here]
+Gitalist is a web frontend for git repositories based on gitweb.cgi
+and backed by Catalyst.
+
+=head2 History
+
+This project started off as an attempt to port gitweb.cgi to a
+Catalyst app in a piecemeal fashion. As it turns out, thanks largely
+to Florian Ragwitz's earlier effort, it was easier to use gitweb.cgi
+as a template for building a new Catalyst application.
=head1 SEE ALSO
-L<Gitalist::Controller::Root>, L<Catalyst>
+L<Gitalist::Controller::Root>
+
+L<Gitalist::Git::Project>
+
+L<Catalyst>
=head1 AUTHORS AND COPYRIGHT
Catalyst application:
- (C) 2009 Venda Ltd and Dan Brook <dbrook@venda.com>
+ (C) 2009 Venda Ltd and Dan Brook <broq@cpan.org>
+ (C) 2009, Tom Doran <bobtfish@bobtfish.net>
+ (C) 2009, Zac Stevens <zts@cryptocracy.com>
Original gitweb.cgi from which this was derived:
(C) 2005-2006, Kay Sievers <kay.sievers@vrfy.org>
(C) 2005, Christian Gierke
-=head1 LICENSE
+ Model based on http://github.com/rafl/gitweb
+ (C) 2008, Florian Ragwitz
-FIXME - Is this going to be GPLv2 as per gitweb? If so this is broken..
+=head1 LICENSE
-This library is free software. You can redistribute it and/or modify
-it under the same terms as Perl itself.
+Licensed under GNU GPL v2
=cut
-
-1;