[Rt-commit] r10080 - in rt/branches/3.7-EXPERIMENTAL: . lib/RT/Crypt

[ruz at bestpractical.com]

Author: ruz
Date: Mon Dec 24 18:48:26 2007
New Revision: 10080

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

Log:
 r9842 at cubic-pc (orig r9841):  ruz | 2007-12-07 19:54:09 +0300
 * drop text argument of DrySign


Modified: rt/branches/3.7-EXPERIMENTAL/html/Ticket/Create.html
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/html/Ticket/Create.html	(original)
+++ rt/branches/3.7-EXPERIMENTAL/html/Ticket/Create.html	Mon Dec 24 18:48:26 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-EXPERIMENTAL/html/Ticket/Update.html
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/html/Ticket/Update.html	(original)
+++ rt/branches/3.7-EXPERIMENTAL/html/Ticket/Update.html	Mon Dec 24 18:48:26 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-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	Mon Dec 24 18:48:26 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(