use a conf file for dbi

1 files changed, 12 insertions, 9 deletions

diff --git a/crawl.pl b/crawl.pl
index cbcfe6c..8b240be 100644
--- a/crawl.pl
+++ b/crawl.pl
@@ -4,23 +4,26 @@ use warnings;
 use lib ('lib');
 use githubexplorer;
 use Getopt::Long;
+use YAML::Syck;
 
 GetOptions(
     'deploy'   => \my $deploy,
     'profiles' => \my $profiles,
     'repo'     => \my $repo,
-    'graph' => \my $graph,
+    'graph'    => \my $graph,
+    'conf=s'   => \my $conf,
 );
 
+my $conf_data = LoadFile($conf);
+
 my $gh = githubexplorer->new(
-    seed      => [qw/franckcuny/],
-    api_token => $ENV{'GITHUB_APIKEY'},
-    api_login => $ENV{'GITHUB_LOGIN'},
-    with_repo => $repo,
-    connect_info =>
-        [ 'dbi:SQLite:dbname=test.sqlite', '', '', { AutoCommit => 1 } ],
+    seed         => [qw/franckcuny/],
+    api_token    => $ENV{'GITHUB_APIKEY'},
+    api_login    => $ENV{'GITHUB_LOGIN'},
+    with_repo    => $repo,
+    connect_info => $conf_data->{connect_info},
 );
 
-$gh->deploy if $deploy;
+$gh->deploy           if $deploy;
 $gh->harvest_profiles if $profiles;
-$gh->gen_graph if $graph;
+$gh->gen_graph        if $graph;