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

[ruz at bestpractical.com]

Author: ruz
Date: Fri Apr 20 01:23:47 2007
New Revision: 7582

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

Log:
 r5017 at cubic-pc:  cubic | 2007-04-20 05:45:48 +0400
 * use GnuPGOptions for options of the gpg executable, reserve GnuPG
   for enable/disable flags and other things that control behaviour on
   RT side


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	Fri Apr 20 01:23:47 2007
@@ -65,7 +65,7 @@
     }
 
     my $gnupg = new GnuPG::Interface;
-    my %opt = RT->Config->Get('GnuPG');
+    my %opt = RT->Config->Get('GnuPGOptions');
     $opt{'digest-algo'} ||= 'SHA1';
     $gnupg->options->hash_init(
         _PrepareGnuPGOptions( %opt ),
@@ -355,7 +355,7 @@
     my %args = ( Data => undef, Top => undef, @_ );
 
     my $gnupg = new GnuPG::Interface;
-    my %opt = RT->Config->Get('GnuPG');
+    my %opt = RT->Config->Get('GnuPGOptions');
     $opt{'digest-algo'} ||= 'SHA1';
     $gnupg->options->hash_init(
         _PrepareGnuPGOptions( %opt ),
@@ -401,7 +401,7 @@
     my %args = ( Data => undef, Signature => undef, Top => undef, @_ );
 
     my $gnupg = new GnuPG::Interface;
-    my %opt = RT->Config->Get('GnuPG');
+    my %opt = RT->Config->Get('GnuPGOptions');
     $opt{'digest-algo'} ||= 'SHA1';
     $gnupg->options->hash_init(
         _PrepareGnuPGOptions( %opt ),
@@ -452,7 +452,7 @@
     my %args = ( Data => undef, Signature => undef, Top => undef, @_ );
 
     my $gnupg = new GnuPG::Interface;
-    my %opt = RT->Config->Get('GnuPG');
+    my %opt = RT->Config->Get('GnuPGOptions');
     $opt{'digest-algo'} ||= 'SHA1';
     $gnupg->options->hash_init(
         _PrepareGnuPGOptions( %opt ),
@@ -509,7 +509,7 @@
     );
 
     my $gnupg = new GnuPG::Interface;
-    my %opt = RT->Config->Get('GnuPG');
+    my %opt = RT->Config->Get('GnuPGOptions');
     $opt{'digest-algo'} ||= 'SHA1';
     $gnupg->options->hash_init(
         _PrepareGnuPGOptions( %opt ),
@@ -578,7 +578,7 @@
     );
 
     my $gnupg = new GnuPG::Interface;
-    my %opt = RT->Config->Get('GnuPG');
+    my %opt = RT->Config->Get('GnuPGOptions');
     $opt{'digest-algo'} ||= 'SHA1';
     $gnupg->options->hash_init(
         _PrepareGnuPGOptions( %opt ),
@@ -1019,7 +1019,7 @@
     my $type = shift || 'public';
 
     my $gnupg = new GnuPG::Interface;
-    my %opt = RT->Config->Get('GnuPG');
+    my %opt = RT->Config->Get('GnuPGOptions');
     $opt{'digest-algo'} ||= 'SHA1';
     $opt{'with-colons'} = undef; # parseable format
     $opt{'fixed-list-mode'} = undef; # don't merge uid with keys