--- Util.pm.orig	2008-04-16 11:22:23.582714563 +0100
+++ Util.pm	2008-04-16 11:22:35.791980468 +0100
@@ -97,7 +97,7 @@
      'b', sub { $ptime },
      'A', sub { return unless $ptime; Radius::Util::strftime('%b %e, %Y %H:%M', $ptime)}, 
      'F', sub { return unless $ptime; Radius::Util::strftime('%b %e, %Y %H:%M:%S', $ptime)}, 
-     'J', sub { return unless $ptime; Radius::Util::strftime('%Y-%m-%e %H:%M:%S', $ptime)}, 
+     'J', sub { return unless $ptime; Radius::Util::strftime('%Y-%m-%d %H:%M:%S', $ptime)}, 
      'o', sub { return unless $ptime; scalar localtime($ptime)}, 
      'e', sub { return unless $ptime; @ptime = localtime($ptime); sprintf("%02d", $ptime[5] % 100); },
      'f', sub { return unless $ptime; @ptime = localtime($ptime); $ptime[5] + 1900 }, # Correct Y2K behaviour for perl