From 2a32bcd9142b8d9f2c85c9d826473e7f108ec9bc Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Mon, 6 Apr 2009 12:28:10 +0200
Subject: use datetime object

---
 cpan-graph.pl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'cpan-graph.pl')

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('/'),
         }
     );
 
-- 
cgit v1.2.3


From 07241f55a28b270068e6cde4384058abea1d3d17 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Mon, 6 Apr 2009 14:13:07 +0200
Subject: remove modules, add datetime, add version

---
 cpan-graph.pl | 16 +++++-----------
 1 file changed, 5 insertions(+), 11 deletions(-)

(limited to 'cpan-graph.pl')

diff --git a/cpan-graph.pl b/cpan-graph.pl
index c9cf369..797a0d5 100755
--- a/cpan-graph.pl
+++ b/cpan-graph.pl
@@ -8,6 +8,7 @@ use lib ( 'lib' );
 use CPAN::Testers;
 use CPAN::cpants;
 use CPAN::mapcpan;
+use DateTime;
 
 my $options = GetOptions(
     'dbtest=s' => \my $db_test,
@@ -32,16 +33,6 @@ while ( my $dist = $dists->next ) {
     my $map_package = $dbmap->resultset( 'packages' )
         ->find_or_create( { dist => $dist->dist, } );
 
-    my $modules
-        = $sqlall->resultset( 'modules' )->search( { dist => $dist->id } );
-    while ( my $module = $modules->next ) {
-        my $map_module = $dbmap->resultset( 'modules' )->find_or_create(
-            {   module  => $module->module,
-                in_dist => $map_package->id,
-            }
-        );
-    }
-
     my $tests_pass = $sqltest->resultset( 'reports' )
         ->count( { distribution => $dist->dist, status => 'PASS' } );
     my $tests_fail = $sqltest->resultset( 'reports' )
@@ -51,10 +42,13 @@ while ( my $dist = $dists->next ) {
     my $tests_success = int( ( $tests_pass / $total_tests ) * 100 );
 
     my $author = $sqlall->resultset( 'author' )->find( $dist->author );
+    my ($year, $month, $day) = $dist->released =~ /^(\d{4})-(\d{2})-(\d{2})/;
     $map_package->update(
         {   tests_success => $tests_success,
             author        => $author->pauseid,
-            released      => $dist->released->ymd('/'),
+            version => $dist->version,
+            released =>
+                DateTime->new( year => $year, month => $month, day => $day ),
         }
     );
 
-- 
cgit v1.2.3