From 2a32bcd9142b8d9f2c85c9d826473e7f108ec9bc Mon Sep 17 00:00:00 2001 From: franck cuny Date: Mon, 6 Apr 2009 12:28:10 +0200 Subject: use datetime object --- cpan-graph.pl | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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 20c10280962a059b8a594c71b12faedd5df5a03d Mon Sep 17 00:00:00 2001 From: franck cuny Date: Mon, 6 Apr 2009 12:28:21 +0200 Subject: use datetime object --- gen-gdf.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gen-gdf.pl b/gen-gdf.pl index ec8709c..18ab3a1 100755 --- a/gen-gdf.pl +++ b/gen-gdf.pl @@ -31,7 +31,7 @@ while ( my $package = $packages->next ) { id => $package->id, label => $package->dist, author => $package->author, - date => $package->released, + date => $package->released->ymd('/'), attvalue => [ { id => 0, value => $package->dist } ], }; } -- cgit v1.2.3 From d4369fe70f4704913fed53c20026d091ee9a555f Mon Sep 17 00:00:00 2001 From: franck cuny Date: Mon, 6 Apr 2009 12:28:36 +0200 Subject: use inflate datetime --- lib/CPAN/cpants.pm | 2 +- lib/CPAN/mapcpan.pm | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/CPAN/cpants.pm b/lib/CPAN/cpants.pm index 686c834..10f8275 100644 --- a/lib/CPAN/cpants.pm +++ b/lib/CPAN/cpants.pm @@ -744,7 +744,7 @@ use base 'DBIx::Class'; use strict; use warnings; -__PACKAGE__->load_components( qw/ Core/ ); +__PACKAGE__->load_components( qw/ Core InflateColumn::DateTime/ ); __PACKAGE__->table( 'dist' ); __PACKAGE__->add_columns( diff --git a/lib/CPAN/mapcpan.pm b/lib/CPAN/mapcpan.pm index 7dcd13e..58a8c57 100644 --- a/lib/CPAN/mapcpan.pm +++ b/lib/CPAN/mapcpan.pm @@ -42,7 +42,7 @@ use base 'DBIx::Class'; use strict; use warnings; -__PACKAGE__->load_components( qw/ Core/ ); +__PACKAGE__->load_components( qw/InflateColumn::DateTime Core/ ); __PACKAGE__->table( 'packages' ); __PACKAGE__->add_columns( @@ -83,7 +83,7 @@ __PACKAGE__->add_columns( 'size' => 0 }, 'released' => { - 'data_type' => 'date', + 'data_type' => 'datetime', 'is_auto_increment' => 0, 'default_value' => undef, 'is_foreign_key' => 0, -- cgit v1.2.3 From 38a98e6bbe17416786d9d47ca7298d72d9baa1fe Mon Sep 17 00:00:00 2001 From: franck cuny Date: Mon, 6 Apr 2009 14:10:42 +0200 Subject: remove datetime --- lib/CPAN/cpants.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/CPAN/cpants.pm b/lib/CPAN/cpants.pm index 10f8275..e64dc29 100644 --- a/lib/CPAN/cpants.pm +++ b/lib/CPAN/cpants.pm @@ -744,7 +744,7 @@ use base 'DBIx::Class'; use strict; use warnings; -__PACKAGE__->load_components( qw/ Core InflateColumn::DateTime/ ); +__PACKAGE__->load_components( qw/ Core / ); __PACKAGE__->table( 'dist' ); __PACKAGE__->add_columns( -- cgit v1.2.3 From b3c04af1e6ab982a6b7111ac8fec89d253698d55 Mon Sep 17 00:00:00 2001 From: franck cuny Date: Mon, 6 Apr 2009 14:11:28 +0200 Subject: remove modules --- lib/CPAN/mapcpan.pm | 49 +++++++++---------------------------------------- 1 file changed, 9 insertions(+), 40 deletions(-) diff --git a/lib/CPAN/mapcpan.pm b/lib/CPAN/mapcpan.pm index 58a8c57..f93f8c8 100644 --- a/lib/CPAN/mapcpan.pm +++ b/lib/CPAN/mapcpan.pm @@ -64,6 +64,15 @@ __PACKAGE__->add_columns( 'is_nullable' => 1, 'size' => 0 }, + 'version' => { + 'data_type' => 'text', + 'is_auto_increment' => 0, + 'default_value' => undef, + 'is_foreign_key' => 0, + 'name' => 'version', + 'is_nullable' => 1, + 'size' => 0 + }, 'tests_success' => { 'data_type' => 'integer', 'is_auto_increment' => 0, @@ -94,45 +103,6 @@ __PACKAGE__->add_columns( ); __PACKAGE__->set_primary_key('id'); -package CPAN::cpanmap::modules; -use base 'DBIx::Class'; -use strict; -use warnings; - -__PACKAGE__->load_components( qw/ Core/ ); -__PACKAGE__->table( 'modules' ); - -__PACKAGE__->add_columns( - 'id' => { - 'data_type' => 'integer', - 'is_auto_increment' => 0, - 'default_value' => undef, - 'is_foreign_key' => 0, - 'name' => 'id', - 'is_nullable' => 0, - 'size' => 0 - }, - 'module' => { - 'data_type' => 'text', - 'is_auto_increment' => 0, - 'default_value' => undef, - 'is_foreign_key' => 0, - 'name' => 'module', - 'is_nullable' => 1, - 'size' => 0 - }, - 'in_dist' => { - 'data_type' => 'integer', - 'is_auto_increment' => 0, - 'default_value' => undef, - 'is_foreign_key' => 0, - 'name' => 'in_dist', - 'is_nullable' => 1, - 'size' => 0 - }, -); -__PACKAGE__->set_primary_key('id'); - package CPAN::cpanmap; use base 'DBIx::Class::Schema'; use strict; @@ -140,6 +110,5 @@ use warnings; __PACKAGE__->register_class( 'edges', 'CPAN::cpanmap::edges' ); __PACKAGE__->register_class( 'packages', 'CPAN::cpanmap::packages' ); -__PACKAGE__->register_class( 'modules', 'CPAN::cpanmap::modules' ); 1; -- cgit v1.2.3 From 07241f55a28b270068e6cde4384058abea1d3d17 Mon Sep 17 00:00:00 2001 From: franck cuny 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(-) 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 From fd6849a75cc3175e6763ee52b4811ab6fa30ab59 Mon Sep 17 00:00:00 2001 From: franck cuny Date: Mon, 6 Apr 2009 14:19:15 +0200 Subject: fix date --- gen-gdf.pl | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/gen-gdf.pl b/gen-gdf.pl index 18ab3a1..106752e 100755 --- a/gen-gdf.pl +++ b/gen-gdf.pl @@ -5,6 +5,7 @@ use Getopt::Long; use XML::Simple; use YAML::Syck; use IO::All; +use DateTime; use lib ( 'lib' ); use CPAN::mapcpan; @@ -27,11 +28,13 @@ $struct_graph->{graph}->{attributes} = { }; while ( my $package = $packages->next ) { + my ( $year, $month, $day ) + = $package->released =~ /^(\d{4})-(\d{2})-(\d{2})/; $struct_graph->{ graph }->{ nodes }->{ $package->id } = { id => $package->id, label => $package->dist, author => $package->author, - date => $package->released->ymd('/'), + date => join( '/', $year, $month, $day ), attvalue => [ { id => 0, value => $package->dist } ], }; } -- cgit v1.2.3