TclGPG  Check-in [57c5063aff]

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:57c5063affaa92c101c94412f2e408028f7e8bc9
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
29
30




31





32
33
34
35
36
37
38
39

    if {[info exists ::env(GPG_EXECUTABLE)]} {
        set gpgExecutable $::env(GPG_EXECUTABLE)
    }

    variable Version

    if {[llength [auto_execok $gpgExecutable]] == 0 || \
            ![regexp {^gpg \(GnuPG\) ([\d\.]+)} \




                     [exec [lindex [auto_execok $gpgExecutable] 0] --version] \





                     -> 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] && \







|
|
>
>
>
>
|
>
>
>
>
>
|







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
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}

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] \







|







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] \