[Rt-commit] r7400 - in rt/branches/3.7-EXPERIMENTAL: .

ruz at bestpractical.com ruz at bestpractical.com
Thu Mar 29 21:27:22 EDT 2007


Author: ruz
Date: Thu Mar 29 21:27:21 2007
New Revision: 7400

Modified:
   rt/branches/3.7-EXPERIMENTAL/   (props changed)
   rt/branches/3.7-EXPERIMENTAL/lib/RT/Crypt/GnuPG.pm

Log:
 r4867 at cubic-pc:  cubic | 2007-03-30 05:13:40 +0400
 * parse dates


Modified: rt/branches/3.7-EXPERIMENTAL/lib/RT/Crypt/GnuPG.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/lib/RT/Crypt/GnuPG.pm	(original)
+++ rt/branches/3.7-EXPERIMENTAL/lib/RT/Crypt/GnuPG.pm	Thu Mar 29 21:27:21 2007
@@ -893,6 +893,8 @@
             ) } = split /:/, $line, 12;
             $info{'Trust'} = _ConvertTrustChar( $info{'Trust'} );
             $info{'OwnerTrust'} = _ConvertTrustChar( $info{'OwnerTrust'} );
+            $info{ $_ } = _ParseDate( $info{ $_ } )
+                foreach qw(Created Expire);
             push @res, \%info;
         }
         elsif ( $tag eq 'sec' ) {
@@ -903,6 +905,8 @@
                 User Empty KeyCapabilities Other
             ) } = split /:/, $line, 12;
             $info{'OwnerTrust'} = _ConvertTrustChar( $info{'OwnerTrust'} );
+            $info{ $_ } = _ParseDate( $info{ $_ } )
+                foreach qw(Created Expire);
             push @res, \%info;
         }
         elsif ( $tag eq 'uid' ) {
@@ -916,7 +920,6 @@
         elsif ( $tag eq 'fpr' ) {
             $res[-1]{'Fingerprint'} = (split /:/, $line, 10)[8];
         }
-
     }
     return @res;
 }


More information about the Rt-commit mailing list