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

[ruz at bestpractical.com]

Author: ruz
Date: Tue Aug 28 14:47:55 2007
New Revision: 8808

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

Log:
 r8759 at cubic-pc (orig r8758):  sartak | 2007-08-28 20:55:29 +0400
  r37477 at onn:  sartak | 2007-08-28 12:55:16 -0400
  Add hook for getting the original trust-char from Crypt::GnuPG, that way we sidestep the future problem of loc on the trust types
 


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	Tue Aug 28 14:47:55 2007
@@ -1612,12 +1612,12 @@
         if ( $tag eq 'pub' ) {
             my %info;
             @info{ qw(
-                Trust KeyLength Algorithm Key
-                Created Expire Empty OwnerTrust
+                TrustChar KeyLength Algorithm Key
+                Created Expire Empty OwnerTrustChar
                 Empty Empty KeyCapabilities Other
             ) } = split /:/, $line, 12;
-            $info{'Trust'} = _ConvertTrustChar( $info{'Trust'} );
-            $info{'OwnerTrust'} = _ConvertTrustChar( $info{'OwnerTrust'} );
+            $info{'Trust'} = _ConvertTrustChar( $info{'TrustChar'} );
+            $info{'OwnerTrust'} = _ConvertTrustChar( $info{'OwnerTrustChar'} );
             $info{ $_ } = _ParseDate( $info{ $_ } )
                 foreach qw(Created Expire);
             push @res, \%info;
@@ -1626,10 +1626,10 @@
             my %info;
             @info{ qw(
                 Empty KeyLength Algorithm Key
-                Created Expire Empty OwnerTrust
+                Created Expire Empty OwnerTrustChar
                 Empty Empty KeyCapabilities Other
             ) } = split /:/, $line, 12;
-            $info{'OwnerTrust'} = _ConvertTrustChar( $info{'OwnerTrust'} );
+            $info{'OwnerTrust'} = _ConvertTrustChar( $info{'OwnerTrustChar'} );
             $info{ $_ } = _ParseDate( $info{ $_ } )
                 foreach qw(Created Expire);
             push @res, \%info;