[Rt-commit] r8764 - in rt/branches/3.7-EXPERIMENTAL-TUNIS: lib/RT/Crypt

[sartak at bestpractical.com]

Author: sartak
Date: Tue Aug 28 14:11:54 2007
New Revision: 8764

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

Log:
 r37491 at onn:  sartak | 2007-08-28 14:11:42 -0400
 Add a hook for retrieving multiple keys for an email address


Modified: rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Crypt/GnuPG.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Crypt/GnuPG.pm	(original)
+++ rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Crypt/GnuPG.pm	Tue Aug 28 14:11:54 2007
@@ -1546,6 +1546,12 @@
 }
 
 sub GetKeyInfo {
+    my %res = GetKeysInfo(@_);
+    $res{'info'} = $res{'info'}->[0];
+    return %res;
+}
+
+sub GetKeysInfo {
     my $email = shift;
     my $type = shift || 'public';
 
@@ -1597,7 +1603,7 @@
     }
 
     @info = ParseKeysInfo( @info );
-    $res{'info'} = $info[0];
+    $res{'info'} = \@info;
     return %res;
 }