diff options
| author | franck cuny <franck@lumberjaph.net> | 2009-04-06 12:28:10 +0200 |
|---|---|---|
| committer | franck cuny <franck@lumberjaph.net> | 2009-04-06 12:28:10 +0200 |
| commit | 2a32bcd9142b8d9f2c85c9d826473e7f108ec9bc (patch) | |
| tree | 1777194a756b0c509734284a13d74f0783fc1425 /cpan-graph.pl | |
| parent | use XML::Simple, generate gdf (diff) | |
| download | cpan-graph-2a32bcd9142b8d9f2c85c9d826473e7f108ec9bc.tar.gz | |
use datetime object
Diffstat (limited to '')
| -rwxr-xr-x | cpan-graph.pl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/cpan-graph.pl b/cpan-graph.pl index c2e5324..c9cf369 100755 --- a/cpan-graph.pl +++ b/cpan-graph.pl @@ -15,6 +15,9 @@ my $options = GetOptions( 'dbout=s' => \my $db_out, ); +# TODO +# generer une carte des auteurs + my $sqltest = CPAN::Testers->connect( "dbi:SQLite:dbname=" . $db_test, '', '' ); my $sqlall = CPAN::cpants->connect( "dbi:SQLite:dbname=" . $db_all, '', '' ); @@ -51,7 +54,7 @@ while ( my $dist = $dists->next ) { $map_package->update( { tests_success => $tests_success, author => $author->pauseid, - released => $dist->released, + released => $dist->released->ymd('/'), } ); |