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

ruz at bestpractical.com ruz at bestpractical.com
Mon Oct 8 12:29:10 EDT 2007


Author: ruz
Date: Mon Oct  8 12:29:10 2007
New Revision: 9239

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

Log:
 r9182 at cubic-pc (orig r9181):  falcone | 2007-09-28 07:26:04 +0400
  r25047 at ketch:  falcone | 2007-09-27 23:22:56 -0400
  * second attempt to catch a failed passphrase in case DrySign
    succeeds.  Make sure we don't sent unsigned mail.
 


Modified: rt/branches/3.7-EXPERIMENTAL/lib/RT/Interface/Email.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/lib/RT/Interface/Email.pm	(original)
+++ rt/branches/3.7-EXPERIMENTAL/lib/RT/Interface/Email.pm	Mon Oct  8 12:29:10 2007
@@ -694,6 +694,14 @@
 
     my @bad_recipients;
     foreach my $line ( @status ) {
+        # if the passphrase fails, either you have a bad passphrase
+        # or gpg-agent has died.  That should get caught in Create and
+        # Update, but at least throw an error here
+        if (($line->{'Operation'}||'' eq 'PassphraseCheck')
+            && $line->{'Status'} =~ /^(?:BAD|MISSING)$/ ) {
+            $RT::Logger->error( "$line->{'Status'} PASSPHRASE: $line->{'Message'}" );
+            return 0;
+        }
         next unless ($line->{'Operation'}||'') eq 'RecipientsCheck';
         next if $line->{'Status'} eq 'DONE';
         $RT::Logger->error( $line->{'Message'} );


More information about the Rt-commit mailing list