[Midnightbsd-cvs] mports [22944] trunk/Tools/magus/www/data/magus/index.cgi: formatting dates.

[laffer1 at midnightbsd.org]

Revision: 22944
          http://svnweb.midnightbsd.org/mports/?rev=22944
Author:   laffer1
Date:     2017-10-11 23:01:42 -0400 (Wed, 11 Oct 2017)
Log Message:
-----------
formatting dates.

Modified Paths:
--------------
    trunk/Tools/magus/www/data/magus/index.cgi

Modified: trunk/Tools/magus/www/data/magus/index.cgi
===================================================================
--- trunk/Tools/magus/www/data/magus/index.cgi	2017-10-11 23:27:35 UTC (rev 22943)
+++ trunk/Tools/magus/www/data/magus/index.cgi	2017-10-12 03:01:42 UTC (rev 22944)
@@ -9,6 +9,7 @@
 use CGI::Fast;
 use HTML::Template;
 use JSON::XS;
+use DateTime::Format::Pg;
 
 #
 # This is a trick we do so that the abstract search stuff isn't required
@@ -91,7 +92,8 @@
   my @runOut;
 
   foreach my $r (@runs) {
-     push(@runOut, {"blessed", $r->{blessed}, "status", $r->{status}, "created", $r->{created},  "osversion", $r->{osversion}, "arch", $r->{arch}, "id", $r->{id}});
+     my $dt = DateTime::Format::Pg->parse_datetime( $r->{created} );
+     push(@runOut, {"blessed", $r->{blessed}, "status", $r->{status}, "created", $dt->strftime('%FT%TZ'),  "osversion", $r->{osversion}, "arch", $r->{arch}, "id", $r->{id}});
   }
 
     print $p->header(-type => 'application/json'), encode_json(\@runOut);