[Rt-commit] r8758 - in rt/branches/3.7-EXPERIMENTAL-TUNIS: lib/RT/Crypt

[sartak at bestpractical.com]

Author: sartak
Date: Tue Aug 28 12:55:29 2007
New Revision: 8758

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

Log:
 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-TUNIS/lib/RT/Crypt/GnuPG.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Crypt/GnuPG.pm	(original)
+++ rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Crypt/GnuPG.pm	Tue Aug 28 12:55:29 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;