From fd6849a75cc3175e6763ee52b4811ab6fa30ab59 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Mon, 6 Apr 2009 14:19:15 +0200
Subject: fix date

---
 gen-gdf.pl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'gen-gdf.pl')

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 1.4.1