[Rt-commit] r9053 - in rtir/branches/2.3-EXPERIMENTAL: .

sartak at bestpractical.com sartak at bestpractical.com
Fri Sep 14 12:26:05 EDT 2007


Author: sartak
Date: Fri Sep 14 12:26:04 2007
New Revision: 9053

Modified:
   rtir/branches/2.3-EXPERIMENTAL/   (props changed)
   rtir/branches/2.3-EXPERIMENTAL/html/RTIR/Update.html

Log:
 r42666 at onn:  sartak | 2007-09-14 12:25:52 -0400
 Add key selector to update


Modified: rtir/branches/2.3-EXPERIMENTAL/html/RTIR/Update.html
==============================================================================
--- rtir/branches/2.3-EXPERIMENTAL/html/RTIR/Update.html	(original)
+++ rtir/branches/2.3-EXPERIMENTAL/html/RTIR/Update.html	Fri Sep 14 12:26:04 2007
@@ -48,6 +48,8 @@
 %   }
 % }
 
+<& /Elements/GnuPGKeyIssues, Issues => \@gnupg_keys_issues &>
+
 <table>
 <tr><td><a href="Edit.html?id=<% $id %>"><&|/l&>Correspondents</&></a></td><td align="right" colspan=2></td></tr>
 
@@ -169,7 +171,28 @@
 
 $m->comp( '/RTIR/Create.html:ProcessAttachments', %ARGS );
 
-if ( exists $ARGS{SubmitTicket} ) {
+my $checks_failure;
+
+my @gnupg_keys_issues;
+if ( $ARGS{'Create'} && $ARGS{'Encrypt'} ) {
+
+    my @recipients = $m->comp(
+        '/Ticket/Elements/PreviewScrips:GetRecipients',
+        %ARGS
+    );
+
+    RT::Crypt::GnuPG::UseKeyForEncryption(
+        map { (/^UseKey-(.*)$/)[0] => $ARGS{ $_ } }
+        grep $ARGS{$_} && /^UseKey-/,
+        keys %ARGS
+    );
+
+    my $status;
+    ($status, @gnupg_keys_issues) = RT::Crypt::GnuPG::CheckRecipients( @recipients );
+    $checks_failure = 1 unless $status;
+}
+
+if ( !$checks_failure && exists $ARGS{SubmitTicket} ) {
     $m->callback(CallbackName => 'BeforeDisplay', ARGSRef => \%ARGS, Ticket => $Ticket);
 
     return $m->comp('/RTIR/Display.html', %ARGS);


More information about the Rt-commit mailing list