Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Got rid of [lcontain] and [cequal] calls because they are about to be removed from Tkabber. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
b34ad815381666eb01d8c3735edbf33e |
| User & Date: | sgolovan 2015-03-30 07:02:13.974 |
Context
|
2015-03-30
| ||
| 07:04 | bldjid2.tcl: Got rid of [lcontain] and [cequal] calls because they are about to be removed from Tkabber. check-in: 2c2736ffd4 user: sgolovan tags: trunk | |
| 07:02 | Got rid of [lcontain] and [cequal] calls because they are about to be removed from Tkabber. check-in: b34ad81538 user: sgolovan tags: trunk | |
| 06:56 | alarm.tcl: Got rid of [cequal] calls because this command is about to be deleted from Tkabber. check-in: adabe332a8 user: sgolovan tags: trunk | |
Changes
Changes to bldjid/ChangeLog.
1 2 3 4 5 6 7 |
2010-06-27 Serge Yudin <xmpp:bigote@jabber.ru> <mailto:bigote@gmail.com>
--- Version 0.9.11.12 of the plugin.
--- Files modified:
bldjid.tcl, ChangeLog.
| > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
2015-03-30 Sergei Golovan <xmpp:sgolovan@nes.ru> <mailto:sgolovan@nes.ru>
--- Version 0.9.11.13 of the plugin.
--- Files modified:
bldjid.tcl, ChangeLog.
--- Changes:
Got rid of [lcontain] and [cequal] calls because they are about
to be removed from Tkabber.
2010-06-27 Serge Yudin <xmpp:bigote@jabber.ru> <mailto:bigote@gmail.com>
--- Version 0.9.11.12 of the plugin.
--- Files modified:
bldjid.tcl, ChangeLog.
|
| ︙ | ︙ |
Changes to bldjid/bldjid.tcl.
|
| | | 1 2 3 4 5 6 7 8 |
# "Bldjid" plugin for Tkabber. 2015-03-30 v. 0.9.11.13
# Written by Serge Yudin xmpp:bigote@jabber.ru
# See README or README.ru file for usage.
namespace eval bldjid {
::msgcat::mcload [file join [file dirname [info script]] msgs]
if {![::plugins::is_registered bldjid]} {
::plugins::register bldjid \
|
| ︙ | ︙ | |||
213 214 215 216 217 218 219 |
return
}
set group [::chat::get_jid $chatid]
if {$options(rooms2log) != "" && ![string match *$group* $options(rooms2log)]} {
return
}
if {[chat::is_groupchat $chatid]} {
| | < | 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 |
return
}
set group [::chat::get_jid $chatid]
if {$options(rooms2log) != "" && ![string match *$group* $options(rooms2log)]} {
return
}
if {[chat::is_groupchat $chatid]} {
if {[lsearch -exact [::muc::roster $chatid] $nick] < 0} {
return
}
} else {
return
}
if {[::chat::is_opened $chatid]} {
if {[::chat::is_groupchat $chatid]} {
|
| ︙ | ︙ | |||
952 953 954 955 956 957 958 |
}
if {![info exists grplist]} {
return stop
}
foreach tmpchatid $grplist {
set tmpgrp [::chat::get_jid $tmpchatid]
set nick [get_our_groupchat_nick $tmpchatid]
| | | 951 952 953 954 955 956 957 958 959 960 961 962 963 964 965 |
}
if {![info exists grplist]} {
return stop
}
foreach tmpchatid $grplist {
set tmpgrp [::chat::get_jid $tmpchatid]
set nick [get_our_groupchat_nick $tmpchatid]
if {[lsearch -exact [::muc::roster $tmpchatid] $nick] >= 0} {
switch -- $which {
admin {
set iam [whoami $xlib $tmpgrp]
if {[string match *moderator* $iam] \
&& ![string match *%*@irc* $tmpgrp]} {
if {$options(rooms2log) == ""} {
lappend grpjids $tmpgrp
|
| ︙ | ︙ | |||
1777 1778 1779 1780 1781 1782 1783 |
variable watched_jids
global jids_by_chats
if {![winfo exists [chat::chat_win $chatid]]} {
return
}
set ver_os ""
set jid $group/$nick
| | | | 1776 1777 1778 1779 1780 1781 1782 1783 1784 1785 1786 1787 1788 1789 1790 1791 1792 1793 1794 1795 1796 1797 1798 1799 1800 1801 |
variable watched_jids
global jids_by_chats
if {![winfo exists [chat::chat_win $chatid]]} {
return
}
set ver_os ""
set jid $group/$nick
if {$res ne "ok"} {
set ver_os "*NO VER/OS*"
}
::xmpp::xml::split $child tag xmlns attrs cdata subels
userinfo::parse_iqversion_item $jid $subels
foreach {i j} [list clientname [::msgcat::mc "Client:"] \
clientversion [::msgcat::mc "Version:"] \
os [::msgcat::mc "OS:"]] {
if {[info exists userinfo::userinfo($i,$jid)] && \
$userinfo::userinfo($i,$jid) ne ""} {
append ver_os " $j $userinfo::userinfo($i,$jid)"
}
}
set ver_os [string trim $ver_os]
set ver_os [join [split $ver_os \n] ""]
if {[string equal \*NO\ VER\/OS\* $ver_os] && $node != ""} {
set ver_os $node
|
| ︙ | ︙ |