diff options
author | franck cuny <franck@lumberjaph.net> | 2009-04-06 14:20:57 +0200 |
---|---|---|
committer | franck cuny <franck@lumberjaph.net> | 2009-04-06 14:20:57 +0200 |
commit | 8e11a2cd920b4b8e0657bd9ab2b49fc78dde6dfa (patch) | |
tree | 0c605ce0b9c7903f39e4a6380f133489a0873c23 /gen-gdf.pl | |
parent | add type and id in edge (diff) | |
parent | fix date (diff) | |
download | cpan-graph-8e11a2cd920b4b8e0657bd9ab2b49fc78dde6dfa.tar.gz |
merge done
Diffstat (limited to 'gen-gdf.pl')
-rwxr-xr-x | gen-gdf.pl | 17 |
1 files changed, 5 insertions, 12 deletions
diff --git a/gen-gdf.pl b/gen-gdf.pl index b849637..d01dd40 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; @@ -35,23 +36,15 @@ say "done"; print "creating nodes ... "; $struct_graph->{ gexf }->{ graph }->{ nodes } = {}; my $packages = $dbmap->resultset( 'packages' )->search; -while ( my $package = $packages->next ) { - - my $datefrom - = ( $package->released ) - ? substr( $package->released, 0, 10 ) - : '1997-01-01'; - $datefrom =~ s/1970-01-01/1997-01-01/; - #my $dateto = ""; +while ( my $package = $packages->next ) { + my ( $year, $month, $day ) + = $package->released =~ /^(\d{4})-(\d{2})-(\d{2})/; push @{ $struct_graph->{ gexf }->{ graph }->{ nodes }->{ node } }, { id => $package->id, label => $package->dist, author => $package->author, - datefrom => $datefrom, - - #dateto => $dateto, - attvalue => [ { id => 0, value => $package->dist } ], + datefrom => join( '/', $year, $month, $day ), }; } say "done"; |