[Rt-commit] r8937 - rt/branches/3.7-EXPERIMENTAL/lib/RT/Interface

[ruz at bestpractical.com]

Author: ruz
Date: Wed Sep  5 10:26:09 2007
New Revision: 8937

Modified:
   rt/branches/3.7-EXPERIMENTAL/lib/RT/Interface/Web.pm

Log:
* encrypt/sign on create

Modified: rt/branches/3.7-EXPERIMENTAL/lib/RT/Interface/Web.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/lib/RT/Interface/Web.pm	(original)
+++ rt/branches/3.7-EXPERIMENTAL/lib/RT/Interface/Web.pm	Wed Sep  5 10:26:09 2007
@@ -343,6 +343,12 @@
         }
     }
 
+    foreach my $argument (qw(Encrypt Sign)) {
+        $MIMEObj->head->add(
+            "X-RT-$argument" => $ARGS{ $argument }
+        ) if defined $ARGS{ $argument };
+    }
+
     my %create_args = (
         Type            => $ARGS{'Type'} || 'ticket',
         Queue           => $ARGS{'Queue'},