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

[ruz at bestpractical.com]

Author: ruz
Date: Sat Apr 28 15:24:48 2007
New Revision: 7716

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

Log:
 r5174 at cubic-pc:  cubic | 2007-04-28 23:21:44 +0400
 * pass Signer into GetPassphrase


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	Sat Apr 28 15:24:48 2007
@@ -175,7 +175,7 @@
     my $entity = $args{'Entity'};
 
     if ( $args{'Sign'} && !defined $args{'Passphrase'} ) {
-        $args{'Passphrase'} = GetPassphrase();
+        $args{'Passphrase'} = GetPassphrase( Address => $args{'Signer'} );
     }
 
     my $gnupg = new GnuPG::Interface;
@@ -347,7 +347,7 @@
     return unless $args{'Sign'} || $args{'Encrypt'};
 
     if ( $args{'Sign'} && !defined $args{'Passphrase'} ) {
-        $args{'Passphrase'} = GetPassphrase();
+        $args{'Passphrase'} = GetPassphrase( Address => $args{'Signer'} );
     }
 
     my $gnupg = new GnuPG::Interface;
@@ -431,7 +431,7 @@
     return unless $args{'Sign'} || $args{'Encrypt'};
 
     if ( $args{'Sign'} && !defined $args{'Passphrase'} ) {
-        $args{'Passphrase'} = GetPassphrase();
+        $args{'Passphrase'} = GetPassphrase( Address => $args{'Signer'} );
     }
 
     my $gnupg = new GnuPG::Interface;
@@ -929,8 +929,15 @@
     return %res;
 }
 
+=head2 GetPassphrase [ Address => undef ]
+
+Returns passphrase, called whenever it's required with Address as a named argument.
+
+=cut
+
 sub GetPassphrase {
-    return 'passphrase';
+    my %args = ( Address => undef, @_ );
+    return 'test';
 }
 
 =head2 ParseStatus