[Rt-commit] r9841 - in rt/branches/3.7-RTIR-RELENG: html/Ticket

[ruz at bestpractical.com]

Author: ruz
Date: Fri Dec  7 11:54:09 2007
New Revision: 9841

Modified:
   rt/branches/3.7-RTIR-RELENG/html/Ticket/Create.html
   rt/branches/3.7-RTIR-RELENG/html/Ticket/Update.html
   rt/branches/3.7-RTIR-RELENG/lib/RT/Crypt/GnuPG.pm

Log:
* drop text argument of DrySign

Modified: rt/branches/3.7-RTIR-RELENG/html/Ticket/Create.html
==============================================================================
--- rt/branches/3.7-RTIR-RELENG/html/Ticket/Create.html	(original)
+++ rt/branches/3.7-RTIR-RELENG/html/Ticket/Create.html	Fri Dec  7 11:54:09 2007
@@ -337,7 +337,7 @@
         my $address = $ARGS{'SignUsing'}
             || $QueueObj->CorrespondAddress
             || RT->Config->Get('CorrespondAddress');
-        unless ( RT::Crypt::GnuPG::DrySign($address, "x") ) {
+        unless ( RT::Crypt::GnuPG::DrySign( $address ) ) {
             push @cannot_sign_as, $address;
             $checks_failure = 1;
         }

Modified: rt/branches/3.7-RTIR-RELENG/html/Ticket/Update.html
==============================================================================
--- rt/branches/3.7-RTIR-RELENG/html/Ticket/Update.html	(original)
+++ rt/branches/3.7-RTIR-RELENG/html/Ticket/Update.html	Fri Dec  7 11:54:09 2007
@@ -261,7 +261,7 @@
                 || RT->Config->Get('CommentAddress') )
             : ( $TicketObj->QueueObj->CorrespondAddress
                 || RT->Config->Get('CorrespondAddress') );
-        unless ( RT::Crypt::GnuPG::DrySign($address, "x") ) {
+        unless ( RT::Crypt::GnuPG::DrySign( $address ) ) {
             push @cannot_sign_as, $address;
             $checks_failure = 1;
         }

Modified: rt/branches/3.7-RTIR-RELENG/lib/RT/Crypt/GnuPG.pm
==============================================================================
--- rt/branches/3.7-RTIR-RELENG/lib/RT/Crypt/GnuPG.pm	(original)
+++ rt/branches/3.7-RTIR-RELENG/lib/RT/Crypt/GnuPG.pm	Fri Dec  7 11:54:09 2007
@@ -2052,14 +2052,13 @@
 # returns a true value if all went well
 sub DrySign {
     my $from = shift;
-    my @message = @_;
 
     my $mime = MIME::Entity->build(
-        Type    => "multipart/mixed",
+        Type    => "text/plain",
         From    => $from,
         To      => 'nobody at localhost',
-        Subject => "dry run",
-        Data    => \@message,
+        Subject => "dry sign",
+        Data    => ['t'],
     );
 
     my %res = SignEncrypt(