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

[ruz at bestpractical.com]

Author: ruz
Date: Thu Mar 29 11:53:02 2007
New Revision: 7392

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

Log:
 r4848 at cubic-pc:  cubic | 2007-03-29 19:45:47 +0400
 * parse info about private keys


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 11:53:02 2007
@@ -885,6 +885,16 @@
             $info{'OwnerTrust'} = _ConvertTrustChar( $info{'OwnerTrust'} );
             push @res, \%info;
         }
+        elsif ( $tag eq 'sec' ) {
+            my %info;
+            @info{ qw(
+                Empty KeyLenght Algorithm Key
+                Created Expire Empty OwnerTrust
+                User Empty KeyCapabilities Other
+            ) } = split /:/, $line, 12;
+            $info{'OwnerTrust'} = _ConvertTrustChar( $info{'OwnerTrust'} );
+            push @res, \%info;
+        }
         elsif ( $tag eq 'fpr' ) {
             $res[-1]{'Fingerprint'} = (split /:/, $line, 10)[8];
         }