blob: c1822fbf8319b2bf94aa77884698ab631881aef7 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
#!/usr/bin/env perl
use strict;
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,
'network' => \my $network,
'seed' => \my $seed,
'stats' => \my $stats,
'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 => $conf_data->{connect_info},
);
$gh->deploy if $deploy;
$gh->harvest_profiles if $profiles;
$gh->harvest_repo if $repo;
$gh->graph_repo if $network;
$gh->gen_graph if $graph;
$gh->gen_seed if $seed;
$gh->stats_by_country if $stats;
|