basic github crawler using api

1 files changed, 25 insertions, 0 deletions

diff --git a/crawl.pl b/crawl.pl
new file mode 100644
index 0000000..fa7ae4e
--- /dev/null
+++ b/crawl.pl
@@ -0,0 +1,25 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use lib ('lib');
+use githubexplorer;
+use Getopt::Long;
+
+GetOptions(
+    'deploy'   => \my $deploy,
+    'profiles' => \my $profiles,
+    'repo'     => \my $repo
+);
+
+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 } ],
+);
+
+$gh->deploy if $deploy;
+$gh->harvest_profiles;
+