[Rt-commit] r10081 - in rt/branches/3.7-EXPERIMENTAL: .

ruz at bestpractical.com ruz at bestpractical.com
Mon Dec 24 18:48:43 EST 2007


Author: ruz
Date: Mon Dec 24 18:48:41 2007
New Revision: 10081

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

Log:
 r9843 at cubic-pc (orig r9842):  ruz | 2007-12-07 23:18:34 +0300
 * add docs


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:41 2007
@@ -1594,10 +1594,17 @@
     return ();
 } }
 
+=head2 UseKeyForSigning
+
+Returns or sets identifier of the key that should be used for signing.
+
+Returns the current value when called without arguments.
+
+Sets new value when called with one argument and unsets if it's undef.
+
+=cut
+
 { my $key;
-# no args -> get
-# one arg -> set
-# undef -> clear
 sub UseKeyForSigning {
     if ( @_ ) {
         $key = $_[0];
@@ -2047,15 +2054,22 @@
     return %res;
 }
 
-# signs the input message, to make sure we have a useable passphrase
-# the first argument MUST be the email address of the signer
-# returns a true value if all went well
+=head2 KEY
+
+Signs a small message with the key, to make sure the key exists and 
+we have a useable passphrase. The first argument MUST be a key identifier
+of the signer: either email address, key id or finger print.
+
+Returns a true value if all went well.
+
+=cut
+
 sub DrySign {
     my $from = shift;
 
     my $mime = MIME::Entity->build(
         Type    => "text/plain",
-        From    => $from,
+        From    => 'nobody at localhost',
         To      => 'nobody at localhost',
         Subject => "dry sign",
         Data    => ['t'],


More information about the Rt-commit mailing list