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

[ruz at bestpractical.com]

Author: ruz
Date: Thu Mar 29 11:05:04 2007
New Revision: 7388

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

Log:
 r4834 at cubic-pc:  cubic | 2007-03-29 10:58:07 +0400
 * if ticket is there and Queue dictates to sign or encrypt then
   do it


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	Thu Mar 29 11:05:04 2007
@@ -334,6 +334,19 @@
         $args{'Ticket'} = $args{'Transaction'}->Object;
     }
 
+    if ( $args{'Ticket'} ) {
+        my $sign = $args{'Ticket'}->QueueObj->Sign;
+        my $encrypt = $args{'Ticket'}->QueueObj->Encrypt;
+        if ( $sign || $encrypt ) {
+            require RT::Crypt::GnuPG;
+            my %res = RT::Crypt::GnuPG::SignEncrypt(
+                Entity => $args{'Entity'},
+                Sign => $sign, Encrypt => $encrypt,
+            );
+            return 0 if $res{'exit_code'};
+        }
+    }
+
     my $msgid = $args{'Entity'}->head->get('Message-ID') || '';
     chomp $msgid;