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

[sartak at bestpractical.com]

Author: sartak
Date: Fri Oct 19 11:42:09 2007
New Revision: 9353

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

Log:
 r43869 at onn:  sartak | 2007-10-19 11:41:54 -0400
 Add DrySign to Incident/Reply


Modified: rtir/branches/2.3-EXPERIMENTAL/html/RTIR/Incident/Reply.html
==============================================================================
--- rtir/branches/2.3-EXPERIMENTAL/html/RTIR/Incident/Reply.html	(original)
+++ rtir/branches/2.3-EXPERIMENTAL/html/RTIR/Incident/Reply.html	Fri Oct 19 11:42:09 2007
@@ -45,6 +45,10 @@
 <input type="hidden" name="All" value="<% $All %>" />
 <input type="hidden" name="Query" value="<% $Query %>" />
 
+% if ($cannot_sign) {
+<& /Elements/GnuPGSignIssues &>
+% }
+
 <& /Elements/GnuPGKeyIssues, Issues => \@gnupg_keys_issues &>
 
 % my $recipients = 0;
@@ -155,6 +159,15 @@
 
 my $checks_failure = 0;
 
+my $cannot_sign = 0;
+if ( $SubmitTicket && $ARGS{'Sign'} ) {
+    # XXX: address grokking needs improvement
+    if (!RT::Crypt::GnuPG::DrySign($QueueObj->CorrespondAddress, "x")) {
+        $cannot_sign = 1;
+        $checks_failure = 1;
+    }
+}
+
 my @gnupg_keys_issues;
 if ( $SubmitTicket && $ARGS{'Encrypt'} ) {
     require RT::Crypt::GnuPG;