From 32132f973eb3ca8e29d28be4e9a5bea87cb1038b Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Mon, 13 Jun 2011 18:07:03 +0200
Subject: add mongodb auth.

Signed-off-by: franck cuny <franck@lumberjaph.net>
---
 lib/GitHub/Collector/Role/MongoDB.pm | 11 +++++++++--
 lib/StarGit.pm                       |  2 +-
 2 files changed, 10 insertions(+), 3 deletions(-)

diff --git a/lib/GitHub/Collector/Role/MongoDB.pm b/lib/GitHub/Collector/Role/MongoDB.pm
index e4cc5b1..1801e73 100644
--- a/lib/GitHub/Collector/Role/MongoDB.pm
+++ b/lib/GitHub/Collector/Role/MongoDB.pm
@@ -3,14 +3,21 @@ package GitHub::Collector::Role::MongoDB;
 use Moose::Role;
 use MongoDB;
 
+has mongodb_auth => (
+    is         => 'ro',
+    isa        => 'HashRef',
+    auto_deref => 1,
+    default    => sub {{} },
+);
+
 has mongodb => (
     is      => 'ro',
     isa     => 'Object',
     lazy    => 1,
     default => sub {
         my $self = shift;
-        my $conn =
-          MongoDB::Connection->new( timeout => 60000, query_timeout => 60000 );
+        my $conn = MongoDB::Connection->new(
+            $self->mongodb_auth );
         my $db = $conn->github;
         $self->_create_indexes($db);
         return $db;
diff --git a/lib/StarGit.pm b/lib/StarGit.pm
index 6483a73..de5926d 100644
--- a/lib/StarGit.pm
+++ b/lib/StarGit.pm
@@ -15,7 +15,7 @@ get '/' => sub {
 get '/graph/local/:name' => sub {
     my $name = params->{'name'};
 
-    my $graph = StarGit::Graph->new( name => $name );
+    my $graph = StarGit::Graph->new( name => $name, mongodb_auth => setting('mongodb') );
 
     return send_error( "user " . $name . " doesn't exists", 404 )
       unless $graph->exists($name);
-- 
cgit v1.2.3