Tkabber contrib

Check-in [b34ad81538]
Login

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 | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:b34ad815381666eb01d8c3735edbf33e92e7d936
User & Date: sgolovan 2015-03-30 07:02:13
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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
...
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
...
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
....
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
1802
# "Bldjid" plugin for Tkabber. 2010-06-27 v. 0.9.11.12
# 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 \
................................................................................
		return
	}
	set group [::chat::get_jid $chatid]
	if {$options(rooms2log) != "" && ![string match *$group* $options(rooms2log)]} {
		return
	}
	if {[chat::is_groupchat $chatid]} {
		set user_already_here [lcontain [::muc::roster $chatid] $nick]
		if {!$user_already_here} {
			return
		}
	} else {
		return
	}
	if {[::chat::is_opened $chatid]} {
		if {[::chat::is_groupchat $chatid]} {
................................................................................
	}
	if {![info exists grplist]} {
		return stop
	}
	foreach tmpchatid $grplist {
		set tmpgrp [::chat::get_jid $tmpchatid]
		set nick [get_our_groupchat_nick $tmpchatid]
		if {[lcontain [::muc::roster $tmpchatid] $nick]} {
			switch -- $which {
				admin {
					set iam [whoami $xlib $tmpgrp]
					if {[string match *moderator* $iam] \
						&& ![string match *%*@irc* $tmpgrp]} {
						if {$options(rooms2log) == ""} {
							lappend grpjids $tmpgrp
................................................................................
	variable watched_jids
	global jids_by_chats
    if {![winfo exists [chat::chat_win $chatid]]} {
		return
    }
	set ver_os ""
	set jid $group/$nick
    if {![cequal $res 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)] && \
		 ![cequal $userinfo::userinfo($i,$jid) ""]} {
	    	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
|







 







|
<







 







|







 







|










|







1
2
3
4
5
6
7
8
...
213
214
215
216
217
218
219
220

221
222
223
224
225
226
227
...
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
....
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
# "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 \
................................................................................
		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]} {
................................................................................
	}
	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
................................................................................
	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