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

[ruz at bestpractical.com]

Author: ruz
Date: Mon Apr 23 19:16:23 2007
New Revision: 7648

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

Log:
 r5101 at cubic-pc:  cubic | 2007-04-24 03:06:00 +0400
 * add 'KeyMissing' to the closest ENC_TO on NO_SECKEY


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	Mon Apr 23 19:16:23 2007
@@ -1122,8 +1122,16 @@
                 Status    => 'MISSING',
                 Message   => ucfirst( $type ) ." key '0x$key' is not available",
                 Key       => $key,
+                KeyType   => $type,
             );
             $res{'User'} = ( $user_hint{ $key } ||= {} );
+            if ( $type eq 'secret' ) {
+                foreach ( reverse @res ) {
+                    next unless $_->{'Keyword'} eq 'ENC_TO' && $_->{'Key'} eq $key;
+                    $_->{'KeyMissing'} = 1;
+                    last;
+                }
+            }
             push @res, \%res;
         }
         # GOODSIG, BADSIG, VALIDSIG, TRUST_*