Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Fixed unsetting GPG_AGENT_INFO. Don't treat warnings which gpg sends to the standard error as errors. |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
57c5063affaa92c101c94412f2e40802 |
User & Date: | sgolovan 2016-01-13 19:29:09 |
Context
2016-01-13
| ||
19:41 | Fixed regexp which finds gpg version. check-in: 09a9f954b2 user: sgolovan tags: trunk | |
19:29 | Fixed unsetting GPG_AGENT_INFO. Don't treat warnings which gpg sends to the standard error as errors. check-in: 57c5063aff user: sgolovan tags: trunk | |
2016-01-01
| ||
09:54 | Extended copyright years. check-in: 6b7eef336b user: sgolovan tags: trunk | |
Changes
Changes to ChangeLog.
1 2 3 4 5 6 7 | 2016-01-01 Sergei Golovan <sgolovan@nes.ru> * tclgpg.tcl: Fixed parsing the gpg status output during keys import if there are expired keys in the keyring. Also, added a few code comments. * tclgpg.tcl, doc/gpg.man: Extended copyright years. | > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 | 2016-01-13 Sergei Golovan <sgolovan@nes.ru> * tclgpg.test: Fixed unsetting GPG_AGENT_INFO. * tclgpg.tcl: Don't treat warnings which gpg sends to the standard error as errors. 2016-01-01 Sergei Golovan <sgolovan@nes.ru> * tclgpg.tcl: Fixed parsing the gpg status output during keys import if there are expired keys in the keyring. Also, added a few code comments. * tclgpg.tcl, doc/gpg.man: Extended copyright years. |
︙ | ︙ |
Changes to tclgpg.tcl.
︙ | ︙ | |||
22 23 24 25 26 27 28 | if {[info exists ::env(GPG_EXECUTABLE)]} { set gpgExecutable $::env(GPG_EXECUTABLE) } variable Version | | > > > | > | > > > > > | | 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 | if {[info exists ::env(GPG_EXECUTABLE)]} { set gpgExecutable $::env(GPG_EXECUTABLE) } variable Version if {[llength [auto_execok $gpgExecutable]] == 0} { namespace delete ::gpg return -code error "Can't find GnuPG executable $gpgExecutable" } if {[catch { exec [lindex [auto_execok $gpgExecutable] 0] --version 2>@1 } output]} { namespace delete ::gpg return -code error "GnuPG binary $gpgExecutable is unusable" } if {![regexp {^gpg \(GnuPG\) ([\d\.]+)} $output -> Version]} { namespace delete ::gpg return -code error "GnuPG binary $gpgExecutable is unusable" } if {[package vsatisfies $Version 2.0] && \ ![package vsatisfies $Version 2.0.26] && \ ![package vsatisfies $Version 2.1] && \ |
︙ | ︙ |
Changes to tclgpg.test.
︙ | ︙ | |||
12 13 14 15 16 17 18 | namespace import tcltest::* set auto_path [linsert $auto_path 0 [file dirname [info script]]] set env(GNUPGHOME) [file join [file dirname [info script]] gnupg] catch {file attributes $env(GNUPGHOME) -permissions 0700} | | | 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | namespace import tcltest::* set auto_path [linsert $auto_path 0 [file dirname [info script]]] set env(GNUPGHOME) [file join [file dirname [info script]] gnupg] catch {file attributes $env(GNUPGHOME) -permissions 0700} catch {unset env(GPG_AGENT_INFO)} package forget gpg package require -exact gpg 1.1 test new-1.1 {Create context} -body { set c [::gpg::new] list [string equal [info procs $c] $c] \ |
︙ | ︙ |