X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FGitalist%2FModel%2FCollectionOfRepos.pm;h=1071d82f3de0f9d360b222f2a28985a1340d8487;hb=2a285433482e95730447a82158092929efc50aad;hp=84e107d628da920b6f9f5e24b3fa7526129a39d4;hpb=1d72763415136a65d6b965ab168403e99c1cf9c3;p=catagits%2FGitalist.git

diff --git a/lib/Gitalist/Model/CollectionOfRepos.pm b/lib/Gitalist/Model/CollectionOfRepos.pm
index 84e107d..1071d82 100644
--- a/lib/Gitalist/Model/CollectionOfRepos.pm
+++ b/lib/Gitalist/Model/CollectionOfRepos.pm
@@ -1,88 +1,123 @@
 package Gitalist::Model::CollectionOfRepos;
 
 use Moose;
-use Gitalist::Git::CollectionOfRepositories::FromDirectoryRecursive;
-use Gitalist::Git::CollectionOfRepositories::FromListOfDirectories;
-use MooseX::Types::Moose qw/Maybe ArrayRef/;
+use MooseX::Types::Moose qw/Undef Maybe ArrayRef Str/;
 use MooseX::Types::Common::String qw/NonEmptySimpleStr/;
+use MooseX::Types::LoadableClass qw/ LoadableClass /;
+use Gitalist::Git::Types qw/ ArrayRefOfDirs Dir DirOrUndef /;
 use Moose::Util::TypeConstraints;
 use Moose::Autobox;
+use Path::Class qw/ dir /;
 use namespace::autoclean;
 
 extends 'Catalyst::Model';
 
+with 'Catalyst::Component::ApplicationAttribute';
 with 'Catalyst::Component::InstancePerContext';
 
-my $repo_dir_t = subtype NonEmptySimpleStr,
-    where { -d $_ },
-    message { 'Cannot find repository dir: "' . $_ . '", please set up gitalist.conf, or set GITALIST_REPO_DIR environment or pass the --repo_dir parameter when starting the application' };
+has class => (
+    isa => LoadableClass,
+    is  => 'ro',
+    lazy => 1,
+    coerce => 1,
+    builder => '_build_class',
+);
 
-my $arrayof_repos_dir_t = subtype ArrayRef[$repo_dir_t],
-    where { 1 },
-    message { 'Cannot find repository directories listed in config - these are invalid directories: ' . join(', ', $_->flatten) };
+sub _build_class {
+    my ($self) = @_;
 
-coerce $arrayof_repos_dir_t,
-    from NonEmptySimpleStr,
-    via { [ $_ ] };
+    if($self->whitelist && -f $self->whitelist) {
+        return 'Gitalist::Git::CollectionOfRepositories::FromDirectory::WhiteList';
+    }
+    elsif($self->search_recursively) {
+        return 'Gitalist::Git::CollectionOfRepositories::FromDirectoryRecursive';
+    }
+    elsif ($self->repos) {
+        return 'Gitalist::Git::CollectionOfRepositories::FromListOfDirectories';
+    }
+    elsif ($self->repos_dir) {
+        return 'Gitalist::Git::CollectionOfRepositories::FromDirectory';
+    }
+    else {
+        return "Don't know where to get repositores from. Try a --repos_dir option, or setting up config";
+    }
+}
 
-has config_repo_dir => (
-    isa => NonEmptySimpleStr,
-    is => 'ro',
-    init_arg => 'repo_dir',
-    predicate => 'has_config_repo_dir',
+has args => (
+    isa     => 'HashRef',
+    is      => 'ro',
+    default => sub { {} },
+);
+
+has search_recursively => (
+    is      => 'ro',
+    isa     => 'Bool',
+    default => 0,
+);
+
+## XX What is this for?
+has export_ok => (
+    is  => 'ro',
+    isa => 'Str',
+);
+
+has whitelist => (
+    is  => 'ro',
+    isa => 'Str',
+    predicate => '_has_whitelist',
 );
 
 has repo_dir => (
-    isa => $repo_dir_t,
-    is => 'ro',
-    lazy_build => 1
+    is         => 'ro',
+    isa        => DirOrUndef,
+    coerce     => 1,
+    predicate => '_has_repo_dir',
 );
 
-has repos => (
-    isa => $arrayof_repos_dir_t,
+# Simple directory of repositories (for list)
+has repos_dir => (
     is => 'ro',
-    default => sub { [] },
-    traits => ['Array'],
-    handles => {
-        _repos_count => 'count',
-    },
+    isa => DirOrUndef,
     coerce => 1,
+    builder => '_build_repos_dir',
+    lazy => 1,
 );
 
-has export_ok => (
-    is  => 'ro',
-    isa => 'Str',
+# Directory containing list of one or more repositories
+has repos => (
+    is => 'ro',
+    isa => ArrayRefOfDirs,
+    coerce => 1,
 );
 
-sub _build_repo_dir {
+sub _build_repos_dir {
     my $self = shift;
-    $ENV{GITALIST_REPO_DIR} ?
-        $ENV{GITALIST_REPO_DIR}
-      : $self->has_config_repo_dir
-      ? $self->config_repo_dir
-        : '';
+    my $opts = $self->_application->run_options || {};
+    return $self->_has_repo_dir && $self->repo_dir
+        || $opts->{repos_dir} || $ENV{GITALIST_REPO_DIR} || undef;
 }
 
-after BUILD => sub {
+sub BUILD {
     my $self = shift;
-    # Explode loudly at app startup time if there is no list of
-    # repositories or repos dir, rather than on first hit
-    $self->_repos_count || $self->repo_dir;
-};
+    $self->class();
+    if ($self->repos_dir) { $self->repos_dir->resolve }
+}
 
 sub build_per_context_instance {
-    my ($self, $app) = @_;
+    my ($self, $ctx) = @_;
 
-    my %args = (export_ok => $self->export_ok || '');
-    my $class;
-    if ($self->_repos_count) {
-        $class = 'Gitalist::Git::CollectionOfRepositories::FromListOfDirectories';
-        $args{repos} = $self->repos;
-    }
-    else {
-        $class = 'Gitalist::Git::CollectionOfRepositories::FromDirectoryRecursive';
-        $args{repo_dir} = $self->repo_dir;
-    }
+    my %args = (
+        export_ok => $self->export_ok || '',
+        $self->_has_whitelist ? (whitelist => $self->whitelist) : (),
+        repos => $self->repos,
+        repo_dir => $self->repos_dir,
+        vhost => $ctx->request->uri->host,
+        %{ $self->args }
+    );
+
+    my $class = $self->class;
+
+    $ctx->log->debug("Using class '$class'") if $c->debug;
 
     return $class->new(%args);
 }
@@ -91,6 +126,30 @@ __PACKAGE__->meta->make_immutable;
 
 __END__
 
+=encoding UTF-8
+
+=head1 NAME
+
+Gitalist::Model::CollectionOfRepos - Model::CollectionOfRepos module for Gitalist
+
+=head1 DESCRIPTION
+
+This Model is a factory for an object implementing the L<Gitalist::Git::CollectionOfRepositories>
+interface.
+
+The simple options passed on the command line (like C<--repos_dir>), a class will by picked by default 
+L<Gitalist::Git::CollectionOfRepositories::FromDirectory>.
+
+This can be overridden from config by explicitly passing in a class name and args for that class
+in config:
+
+    <Model::CollectionOfRepos>
+        class MyClassName
+        <args>
+            ...
+        </args>
+    </Model::CollectionOfRepos>
+
 =head1 AUTHORS
 
 See L<Gitalist> for authors.