TclGPG  Check-in [8d1c1f78b9]

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Clarified a few failure reasons for fetching keys.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:8d1c1f78b906c051e1564dcbcb1f520c1b8e0371
User & Date: sgolovan 2017-08-08 08:59:34
Context
2017-08-08
09:03
Clear flags for expired and/or revoked key in case of successful decryption. Leaf check-in: cff821af0f user: sgolovan tags: trunk
08:59
Clarified a few failure reasons for fetching keys. check-in: 8d1c1f78b9 user: sgolovan tags: trunk
2016-06-15
12:02
Fixed conversion encoding for the test with binary message. This closes ticket [c3263a9efa]. check-in: ffd35a0769 user: sgolovan tags: trunk
Changes

Changes to tclgpg.tcl.

1810
1811
1812
1813
1814
1815
1816
1817
1818















1819



1820
1821
1822
1823
1824
1825
1826
                }
            }
            INV_SGNR {
                set output 0
                break
            }
            FAILURE {
                # TODO: Figure out the real reason of failure
















                set state(badpassphrase) 1



                set eof 1
                break
            }
            IMPORT_OK {
                set f [lindex $fields 2]
                if {$f == 0} {
                    set flags {unchanged}







|

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







1810
1811
1812
1813
1814
1815
1816
1817
1818
1819
1820
1821
1822
1823
1824
1825
1826
1827
1828
1829
1830
1831
1832
1833
1834
1835
1836
1837
1838
1839
1840
1841
1842
1843
1844
                }
            }
            INV_SGNR {
                set output 0
                break
            }
            FAILURE {
                # TODO: Figure out the other reasons of failure

                switch -- [lindex $fields 2] {
                    recv-keys {
                        switch -- [lindex $fields 3] {
                            167772346 {
                                FinishWithError $channels $commands "Can't connect to a keyserver"
                            }
                            167772218 {
                                FinishWithError $channels $commands "Invalid data to import"
                            }
                            default {
                                FinishWithError $channels $commands "No specific reason given"
                            }
                        }
                    }
                    default {
                        set state(badpassphrase) 1
                    }
                }

                set eof 1
                break
            }
            IMPORT_OK {
                set f [lindex $fields 2]
                if {$f == 0} {
                    set flags {unchanged}