[Tkabber-dev] [tclgpg] r74 committed - * tclgpg.tcl: Added --use-agent option to the gpg call, which makes...

tclgpg at googlecode.com tclgpg at googlecode.com
Sat Jan 29 10:53:56 MSK 2011


Revision: 74
Author: sgolovan
Date: Fri Jan 28 23:49:22 2011
Log: 	* tclgpg.tcl: Added --use-agent option to the gpg call, which makes
	  gpg using gpg-agent if it's present instead of an internal
	  passphrase callback (Fixes issue 4).

http://code.google.com/p/tclgpg/source/detail?r=74

Modified:
  /trunk/ChangeLog
  /trunk/tclgpg.tcl

=======================================
--- /trunk/ChangeLog	Thu Jul  1 21:35:44 2010
+++ /trunk/ChangeLog	Fri Jan 28 23:49:22 2011
@@ -1,3 +1,9 @@
+2011-01-29  Sergei Golovan  <sgolovan at nes.ru>
+
+	* tclgpg.tcl: Added --use-agent option to the gpg call, which makes
+	  gpg using gpg-agent if it's present instead of an internal
+	  passphrase callback (Fixes issue 4).
+
  2010-07-02  Sergei Golovan  <sgolovan at nes.ru>

  	* configure.in: Moved AC_PROG_INSTALL macro out of enable-c-helper
=======================================
--- /trunk/tclgpg.tcl	Sun Nov 15 01:50:54 2009
+++ /trunk/tclgpg.tcl	Fri Jan 28 23:49:22 2011
@@ -1059,11 +1059,12 @@
  # ::gpg::ExecGPG --
  #
  #       Spawn a new gpg process adding several common arguments to a  
supplied
-#       arguments list. Added arguments are --no-tty, --quiet, --output -,
-#       --status-fd 2. If --batch doesn't belong to aruments list then
-#       --command-fd 0 is also added. But if the proc CExecGPG exists then  
it
-#       is called and its result is returned to a caller (with prepended  
empty
-#       string to show that there's no temporary file to delete).
+#       arguments list. Added arguments are --use-agent --no-tty, --quiet,
+#       --output -, --status-fd 2. If --batch doesn't belong to aruments  
list
+#       then --command-fd 0 is also added. But if the proc CExecGPG exists
+#       then it is called and its result is returned to a caller (with
+#       prepended empty string to show that there's no temporary file to
+#       delete).
  #
  # Arguments:
  #       token       A GPG context token created in ::gpg::context.
@@ -1090,9 +1091,11 @@
  proc ::gpg::ExecGPG {token operation args} {
      Debug 1 $args

-    # Add common --no-tty, --quiet, --output -, --charset utf-8 arguments
-
-    set args [linsert $args 0 --no-tty --quiet --output - --charset utf-8]
+    # Add common --use-agent --no-tty, --quiet, --output -, --charset utf-8
+    # arguments
+
+    set args [linsert $args 0 --use-agent --no-tty --quiet --output - \
+                              --charset utf-8]

      # Set --armor option before calling CExecGPG



More information about the Tkabber-dev mailing list