Tkabber

Check-in [ed33c3cdb4]
Login

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

Overview
Comment:Use 'from' attribute when opening XMPP streams.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: ed33c3cdb4ad14fa3cb6fb7632e8133b466a98ff
User & Date: sgolovan 2016-01-06 13:41:59
Context
2016-01-06
20:06
Fixed interval between reconnections. check-in: 8c215baf06 user: sgolovan tags: trunk
13:41
Use 'from' attribute when opening XMPP streams. check-in: ed33c3cdb4 user: sgolovan tags: trunk
2016-01-04
19:54
Improved the fetch key information dialog. Updated Russain and Ukrainian translations. check-in: 05ccd5dc66 user: sgolovan tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ChangeLog.






1
2
3
4
5
6
7





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

	* plugins/general/gpgme.tcl: Improved the fetch key information dialog.

	* msgs/ru.msg, msgs/uk.msg: Updated Russain and Ukrainian translations.

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







1
2
3
4
5
6
7
8
9
10
11
12
2016-01-06  Sergei Golovan  <sgolovan@nes.ru>

	* login.tcl, tkabber.tcl: Use 'from' attribute when opening XMPP
	  streams.

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

	* plugins/general/gpgme.tcl: Improved the fetch key information dialog.

	* msgs/ru.msg, msgs/uk.msg: Updated Russain and Ukrainian translations.

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

Changes to login.tcl.

699
700
701
702
703
704
705

706
707
708
709

710
711
712
713
714
715
716
    array set lc $logindata

    if {($use_tls && $lc(stream_options) == "encrypted") || \
            ($have_compress && $lc(stream_options) == "compressed") || \
            ($have_sasl && $lc(usesasl)) || \
            $lc(stream_management)} {
        ::xmpp::openStream $xlib $lc(server) \

                           -version 1.0 \
                           -command [list login_login1 $xlib $logindata]
    } else {
        ::xmpp::openStream $xlib $lc(server) \

                           -command [list login_login1 $xlib $logindata]
    }
}

proc login_login1 {xlib logindata status sessionid} {
    global use_tls have_compress








>




>







699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
    array set lc $logindata

    if {($use_tls && $lc(stream_options) == "encrypted") || \
            ($have_compress && $lc(stream_options) == "compressed") || \
            ($have_sasl && $lc(usesasl)) || \
            $lc(stream_management)} {
        ::xmpp::openStream $xlib $lc(server) \
                           -from [::xmpp::jid::jid $lc(user) $lc(server)] \
                           -version 1.0 \
                           -command [list login_login1 $xlib $logindata]
    } else {
        ::xmpp::openStream $xlib $lc(server) \
                           -from [::xmpp::jid::jid $lc(user) $lc(server)] \
                           -command [list login_login1 $xlib $logindata]
    }
}

proc login_login1 {xlib logindata status sessionid} {
    global use_tls have_compress

Changes to tkabber.tcl.

194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
    if {[file exists $f]} {
        option readfile $f
        break
    }
}
unset pr f

package require xmpp
package require xmpp::delay

load_source xmppmime.tcl

foreach {opt val} $argv {
    switch -- $opt {
        -mime       {set mime_file $val}







|







194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
    if {[file exists $f]} {
        option readfile $f
        break
    }
}
unset pr f

package require xmpp 0.3
package require xmpp::delay

load_source xmppmime.tcl

foreach {opt val} $argv {
    switch -- $opt {
        -mime       {set mime_file $val}