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 |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
57c5063affaa92c101c94412f2e40802 |
| User & Date: | sgolovan 2016-01-13 19:29:09.707 |
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] \
|
| ︙ | ︙ |