Correct the date format in the RSS/ATOM/OPML feeds

ISSUES

@@ -1,6 +1,5 @@
 * Root /search page doesn't do anything
 * Atom feed sucks shit (see t/atom.t)
-* OPML & RSS & Atom Feed dates incorrect format
 * Gitweb compat URIs are borked - there were some I just wholesale ripped out. Put back..
 * Sort out commitdiff so conflicted merges have an equivalent display to gitweb (d7f39bebabeb31ce9a7b4f1b6f3db9f391b78c3e as a reference)
 * Need to sanitise the input ...

Makefile.PL

@@ -91,6 +91,7 @@ requires 'Git::PurePerl' => '0.47';
 requires 'aliased';
 requires 'CGI';
 requires 'DateTime';
+requires 'DateTime::Format::Mail';
 requires 'File::Copy::Recursive';
 requires 'File::Type';
 requires 'File::Type::WebImages';

lib/Gitalist/Controller/OPML.pm

@@ -3,6 +3,7 @@ package Gitalist::Controller::OPML;
 use Moose;
 use Moose::Autobox;
 use DateTime;
+use DateTime::Format::Mail;
 use Sys::Hostname qw/hostname/;
 
 use namespace::autoclean;
@@ -15,7 +16,7 @@ sub opml : Chained('/base') Args(0) {
     $c->stash(
         title => lc(hostname()) . ' - ' . blessed($c)->config->{name},
         Repositories => $c->model()->repositories,
-        now => DateTime->now,
+        now => DateTime::Format::Mail->format_datetime( DateTime->now ),
         template => 'opml.tt2',
         no_wrapper => 1,
     );

lib/Gitalist/Controller/Repository.pm

@@ -1,8 +1,8 @@
 package Gitalist::Controller::Repository;
 use Moose;
 use Sys::Hostname qw/hostname/;
+use DateTime::Format::Mail;
 use namespace::autoclean;
-
 BEGIN { extends 'Gitalist::Controller' }
 with 'Gitalist::URIStructure::Repository';
 
@@ -66,7 +66,7 @@ sub atom : Chained('find') Does('FilenameArgs') Args() {
     my $host = lc hostname();
     $c->stash(
         title => $host . ' - ' . Gitalist->config->{name},
-        updated => DateTime->now
+        updated => DateTime::Format::Mail->format_datetime( DateTime->now() )
     );
 
     my $repository = $c->stash->{Repository};
@@ -107,8 +107,8 @@ sub rss : Chained('find') Does('FilenameArgs') Args() {
   $c->stash(
     title          => lc(Sys::Hostname::hostname()) . ' - ' . Gitalist->config->{name},
     language       => 'en',
-    pubDate        => DateTime->now,
-    lastBuildDate  => DateTime->now,
+    pubDate        => DateTime::Format::Mail->format_datetime( DateTime->now() ),
+    lastBuildDate  => DateTime::Format::Mail->format_datetime( DateTime->now() ),
     no_wrapper     => 1,
   );