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

[ruz at bestpractical.com]

Author: ruz
Date: Wed Apr 18 10:51:24 2007
New Revision: 7543

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

Log:
 r4976 at cubic-pc:  cubic | 2007-04-18 18:47:09 +0400
 * detection for inline encrypted attachments


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	Wed Apr 18 10:51:24 2007
@@ -287,6 +287,22 @@
         };
     }
 
+    # attachments with inline encryption
+    my @encrypted_files =
+        grep $_->head->recommended_filename
+            && $_->head->recommended_filename =~ /\.pgp$/,
+        $entity->parts;
+
+    foreach my $part ( @encrypted_files ) {
+        $skip{"$part"}++;
+        push @res, {
+            Type      => 'encrypted',
+            Format    => 'Attachment',
+            Top       => $entity,
+            Data      => $part,
+        };
+    }
+
     push @res, FindProtectedParts( Entity => $_ )
         foreach grep !$skip{"$_"}, $entity->parts;