Tkabber plugins

Check-in [3f5a72ffcb]
Login

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

Overview
Comment:Added new gpg debug category which prints debug logs for the gpg package.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 3f5a72ffcba9f58fa5b10f984afa2e37a06f1ad1
User & Date: sgolovan 2015-05-25 11:18:02.147
Context
2015-05-26
05:40
Clarified the error message, fixed typo. check-in: bf8928abd5 user: sgolovan tags: trunk
2015-05-25
11:18
Added new gpg debug category which prints debug logs for the gpg package. check-in: 3f5a72ffcb user: sgolovan tags: trunk
2015-05-24
04:52
Reformatted the code. check-in: bf2a5964fa user: sgolovan tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to ChangeLog.





1
2
3
4
5
6
7





2015-05-24  Sergei Golovan  <sgolovan@nes.ru>

	* COPYING, aniemoticons/msgs/de.msg, attline/msgs/de.msg,
	  attline/msgs/es.msg, attline/msgs/pl.msg, attline/msgs/ru.msg,
	  attline/msgs/uk.msg, battleship/msgs/ru.msg, bc/msgs/ru.msg,
	  checkers/README, checkers/proto, chess/proto, cyrillize/msgs/ru.msg,
	  floatinglog/ChangeLog, iconsets/amibulb/roster/icondef.xml,
>
>
>
>
>







1
2
3
4
5
6
7
8
9
10
11
12
2015-05-25  Sergei Golovan  <sgolovan@nes.ru>

	* debug/debug.tcl: Added new gpg debug category which prints debug
	  logs for the gpg package.

2015-05-24  Sergei Golovan  <sgolovan@nes.ru>

	* COPYING, aniemoticons/msgs/de.msg, attline/msgs/de.msg,
	  attline/msgs/es.msg, attline/msgs/pl.msg, attline/msgs/ru.msg,
	  attline/msgs/uk.msg, battleship/msgs/ru.msg, bc/msgs/ru.msg,
	  checkers/README, checkers/proto, chess/proto, cyrillize/msgs/ru.msg,
	  floatinglog/ChangeLog, iconsets/amibulb/roster/icondef.xml,
Changes to debug/debug.tcl.
51
52
53
54
55
56
57

58
59
60
61
62
63
64
                        conference
                        custom
                        disco
                        emoticons
                        filetransfer
                        filters
                        georoster

                        headlines
                        hook
                        http
                        iface
                        iq
                        jidlink
                        logger







>







51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
                        conference
                        custom
                        disco
                        emoticons
                        filetransfer
                        filters
                        georoster
                        gpg
                        headlines
                        hook
                        http
                        iface
                        iq
                        jidlink
                        logger
118
119
120
121
122
123
124








125
126
127
128
129
130
131
132
133
134
135
136
137
                xmpp::transport::poll} {
        if {[llength [info procs ::${ns}::Debug:debug]] == 0} {
            rename ::${ns}::Debug ::${ns}::Debug:debug
            proc ::${ns}::Debug {xlib level str} \
                 "[namespace current]::debugmsg $ns \"\$xlib \$str\""
        }
    }









    if {[llength [info procs ::otr::smp::Debug:debug]] == 0} {
            rename ::otr::smp::Debug ::otr::smp::Debug:debug
            proc ::otr::smp::Debug {level str} \
                 "[namespace current]::debugmsg otr \$str"
        }

    hook::add finload_hook [namespace current]::setup_menu

    if {![catch {.mainframe getmenu debug}]} {
        setup_menu
    }
}







>
>
>
>
>
>
>
>





|







119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
                xmpp::transport::poll} {
        if {[llength [info procs ::${ns}::Debug:debug]] == 0} {
            rename ::${ns}::Debug ::${ns}::Debug:debug
            proc ::${ns}::Debug {xlib level str} \
                 "[namespace current]::debugmsg $ns \"\$xlib \$str\""
        }
    }

    foreach ns {gpg} {
        if {[llength [info procs ::${ns}::Debug:debug]] == 0} {
            rename ::${ns}::Debug ::${ns}::Debug:debug
            proc ::${ns}::Debug {level str} \
                 "[namespace current]::debugmsg $ns \"\$str\""
        }
    }

    if {[llength [info procs ::otr::smp::Debug:debug]] == 0} {
            rename ::otr::smp::Debug ::otr::smp::Debug:debug
            proc ::otr::smp::Debug {level str} \
                 "[namespace current]::debugmsg otr \$str"
    }

    hook::add finload_hook [namespace current]::setup_menu

    if {![catch {.mainframe getmenu debug}]} {
        setup_menu
    }
}
150
151
152
153
154
155
156
157


158
159
160
161
162
163
164

    if {[winfo exists .debug]} {
        destroy_win .debug
    }

    hook::remove finload_hook [namespace current]::setup_menu

    foreach ns {pconnect::https


                pconnect::socks4
                pconnect::socks5
                xmpp
                xmpp::transport::bosh
                xmpp::transport::poll} {
        if {[llength [info procs ::${ns}::Debug:debug]] > 0} {
            rename ::${ns}::Debug ""







|
>
>







159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175

    if {[winfo exists .debug]} {
        destroy_win .debug
    }

    hook::remove finload_hook [namespace current]::setup_menu

    foreach ns {gpg
                otr
                pconnect::https
                pconnect::socks4
                pconnect::socks5
                xmpp
                xmpp::transport::bosh
                xmpp::transport::poll} {
        if {[llength [info procs ::${ns}::Debug:debug]] > 0} {
            rename ::${ns}::Debug ""