Tkabber

Check-in [1e026b7b28]
Login
Home Timeline Branches Tags Tickets Wiki

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

Overview
Comment:Disabled the X-GOOGLE-TOKEN SASL authentication mechanism because it doesn't work anymore.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 1e026b7b287c91d5a42336004c05454cee37a1d2
User & Date: sgolovan 2016-01-25 20:37:56
Context
2016-01-26
16:06
Fixed tab titles for chats with groupchat occupants. They were broken when search for conference roster items was fixed. check-in: 7cbebd0400 user: sgolovan tags: trunk
2016-01-25
20:37
Disabled the X-GOOGLE-TOKEN SASL authentication mechanism because it doesn't work anymore. check-in: 1e026b7b28 user: sgolovan tags: trunk
15:07
Fixed typo in loginconf(useboshkeys) option definition. check-in: 4c3447657b user: sgolovan tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ChangeLog. 

1
2
3
4
5
6
7
8
9
10
11



12
13
14
15
16
17
18

2016-01-25  Sergei Golovan  <sgolovan@nes.ru>

	* plugins/roster/rosterx.tcl: Fixed the attached users dialogs clash.

	* plugins/roster/rosterx.tcl: Show only users missing in roster when
	  displaying add users dialog.

	* muc.tcl: Added a dirty hack which makes Tkabber ignore the MUC
	  invitations to the rooms where the user is an occupant already.

	* login.tcl: Fixed typo in loginconf(useboshkeys) option definition.




2016-01-24  Sergei Golovan  <sgolovan@nes.ru>

	* ifacetk/iface.tcl, tk/bwidget.tcl: Fixed sending the text status
	  selected in the corresponding combobox.

2016-01-16  Sergei Golovan  <sgolovan@nes.ru>












>
>
>








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

2016-01-25  Sergei Golovan  <sgolovan@nes.ru>

	* plugins/roster/rosterx.tcl: Fixed the attached users dialogs clash.

	* plugins/roster/rosterx.tcl: Show only users missing in roster when
	  displaying add users dialog.

	* muc.tcl: Added a dirty hack which makes Tkabber ignore the MUC
	  invitations to the rooms where the user is an occupant already.

	* login.tcl: Fixed typo in loginconf(useboshkeys) option definition.

	* ifacetk/login.tcl, login.tcl: Disabled the X-GOOGLE-TOKEN SASL
	  authentication mechanism because it doesn't work anymore.

2016-01-24  Sergei Golovan  <sgolovan@nes.ru>

	* ifacetk/iface.tcl, tk/bwidget.tcl: Fixed sending the text status
	  selected in the corresponding combobox.

2016-01-16  Sergei Golovan  <sgolovan@nes.ru>
︙︙

Changes to ifacetk/login.tcl.

︙︙
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74

        enable_disable_field $l.usehttppoll normal
        set checks {usehttppoll {lpollurl pollurl usepollkeys}
                                {dontusessl usecompress legacyssl encrypted
                                 sslcertfile lsslcertfile bsslcertfile}}
    }

    foreach {check enable disable} [concat $checks \
            {usealtserver {altserver laltserver port lport} {} \
            usesasl {allowgoogletoken} {}}] {

        if {![info exists ltmp($check)] || ![winfo exists $l.$check]} {
            continue
        }

        if {$ltmp($check) && [$l.$check cget -state] ne "disabled"} {
            set state1 normal








|
<








59
60
61
62
63
64
65
66

67
68
69
70
71
72
73

        enable_disable_field $l.usehttppoll normal
        set checks {usehttppoll {lpollurl pollurl usepollkeys}
                                {dontusessl usecompress legacyssl encrypted
                                 sslcertfile lsslcertfile bsslcertfile}}
    }

    foreach {check enable disable} [concat $checks \
            {usealtserver {altserver laltserver port lport} {}}] {


        if {![info exists ltmp($check)] || ![winfo exists $l.$check]} {
            continue
        }

        if {$ltmp($check) && [$l.$check cget -state] ne "disabled"} {
            set state1 normal
︙︙
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267

    if {$have_sasl} {
        Checkbutton $l.usesasl \
            -text [::msgcat::mc "Use SASL authentication"] \
            -variable ltmp(usesasl) \
            -command [list [namespace current]::update_login_entries $l]

        grid $l.usesasl -row 1 -column 0 -sticky w -in $auth_page

        Checkbutton $l.allowgoogletoken \
            -text [::msgcat::mc "Allow X-GOOGLE-TOKEN SASL mechanism"] \
            -variable ltmp(allowgoogletoken) \
            -command [list [namespace current]::update_login_entries $l]

        grid $l.allowgoogletoken -row 2 -column 0 -sticky w -in $auth_page
    }

    grid columnconfigure $auth_page 0 -weight 1

    if {$use_tls || $have_compress} {
        if {$use_tls && $have_compress} {
                set page_label [::msgcat::mc "SSL & Compression"]








<
<
<
<
<
<
<








246
247
248
249
250
251
252







253
254
255
256
257
258
259

    if {$have_sasl} {
        Checkbutton $l.usesasl \
            -text [::msgcat::mc "Use SASL authentication"] \
            -variable ltmp(usesasl) \
            -command [list [namespace current]::update_login_entries $l]

        grid $l.usesasl -row 1 -column 0 -sticky w -in $auth_page







    }

    grid columnconfigure $auth_page 0 -weight 1

    if {$use_tls || $have_compress} {
        if {$use_tls && $have_compress} {
                set page_label [::msgcat::mc "SSL & Compression"]
︙︙

Changes to login.tcl.

︙︙
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103

    -group Login -type integer

custom::defvar loginconf(allowauthplain) 0 \
    [::msgcat::mc "Allow plaintext authentication mechanisms (when password\
                   is transmitted unencrypted)."] \
        -group Login -type boolean

custom::defvar loginconf(allowgoogletoken) 1 \
    [::msgcat::mc "Allow X-GOOGLE-TOKEN authentication mechanisms. It requires\
                   connection to Google via HTTPS."] \
        -group Login -type boolean

if {$have_sasl} {
    custom::defvar loginconf(usesasl) 1 \
        [::msgcat::mc "Use SASL authentication."] \
        -group Login -type boolean
}

set values [list plaintext [::msgcat::mc "Plaintext"]]








<
<
<
<
<








85
86
87
88
89
90
91





92
93
94
95
96
97
98

    -group Login -type integer

custom::defvar loginconf(allowauthplain) 0 \
    [::msgcat::mc "Allow plaintext authentication mechanisms (when password\
                   is transmitted unencrypted)."] \
        -group Login -type boolean






if {$have_sasl} {
    custom::defvar loginconf(usesasl) 1 \
        [::msgcat::mc "Use SASL authentication."] \
        -group Login -type boolean
}

set values [list plaintext [::msgcat::mc "Plaintext"]]
︙︙
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775


    if {$lc(allowauthplain)} {
        set digest auto
    } else {
        set digest true
    }

    if {$lc(allowgoogletoken)} {
        set disable {}
    } else {
        set disable {X-GOOGLE-TOKEN}
    }

    if {$lc(stream_management)} {
        set sm enable
    } else {
        set sm disable
    }









<
|
|
|
<








752
753
754
755
756
757
758

759
760
761

762
763
764
765
766
767
768


    if {$lc(allowauthplain)} {
        set digest auto
    } else {
        set digest true
    }


    # Disable the X-GOOGLE-TOKEN SASL mechanism because it doesn't work anymore

    set disable {X-GOOGLE-TOKEN}


    if {$lc(stream_management)} {
        set sm enable
    } else {
        set sm disable
    }
︙︙

This page was generated in about 0.035s by Fossil version [66ee0beb9b] 2023-05-31 15:26:08