Here I am. Now it should work correctly :) What do you think? Thanks
amsnlogplus.tar.gz
Description: GNU Zip compressed data
Index: loging.tcl
===================================================================
--- loging.tcl (revisione 7904)
+++ loging.tcl (copia locale)
@@ -273,29 +273,39 @@
set color "RED"
# When the message failed to deliver, we should show the deliverfail message instead of the user's nickname.
set user [trans deliverfail]
- }
-
- if {[::OIM_GUI::IsOIM $chatid]} {
- ::log::WriteLog $chatid "\|\"LITA$user :\|\"L$color $msg\n" 0 $chatid
- } else {
- set user_list [::MSN::usersInChat $chatid]
- foreach user_info $user_list {
- set user_login [lindex $user_info 0]
- if { [llength $user_list] > 1 } {
- ::log::WriteLog $user_login "\|\"LITA$user :\|\"L$color $msg\n" 1 $user_list
- } else {
- # for 2 windows (1 priv 1 conf)
- # if conf exists for current user & current chatid is not a conf
- if { [ConfArray $user_login get] == 1 && $chatid == $user_login} {
- ::log::WriteLog $user_login "\|\"LITA\[[trans linprivate]\] $user :\|\"L$color $msg\n" 2 $user_list
+ }
+
+ set evPar(chatid) chatid
+ set evPar(user) user
+ set evPar(msg) msg
+ set evPar(fontformat) fontformat
+ set evPar(failed) failed
+ set evPar(color) color
+ set AmIusingput_log 0
+ set evPar(AmIusingput_log) AmIusingput_log
+ ::plugins::PostEvent put_log evPar
+ if {$AmIusingput_log==0} {
+ if {[::OIM_GUI::IsOIM $chatid]} {
+ ::log::WriteLog $chatid "\|\"LITA$user :\|\"L$color $msg\n" 0 $chatid
+ } else {
+ set user_list [::MSN::usersInChat $chatid]
+ foreach user_info $user_list {
+ set user_login [lindex $user_info 0]
+ if { [llength $user_list] > 1 } {
+ ::log::WriteLog $user_login "\|\"LITA$user :\|\"L$color $msg\n" 1 $user_list
} else {
- ::log::WriteLog $user_login "\|\"LITA$user :\|\"L$color $msg\n" 0 $user_list
+ # for 2 windows (1 priv 1 conf)
+ # if conf exists for current user & current chatid is not a conf
+ if { [ConfArray $user_login get] == 1 && $chatid == $user_login} {
+ ::log::WriteLog $user_login "\|\"LITA\[[trans linprivate]\] $user :\|\"L$color $msg\n" 2 $user_list
+ } else {
+ ::log::WriteLog $user_login "\|\"LITA$user :\|\"L$color $msg\n" 0 $user_list
+ }
}
}
}
}
}
-
#///////////////////////////////////////////////////////////////////////////////
# WriteLog (email txt (conf) (userlist))
------------------------------------------------------------------------- Using Tomcat but need to do more? Need to support web services, security? Get stuff done quickly with pre-integrated technology to make your job easier. Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642
_______________________________________________ Amsn-devel mailing list Amsn-devel@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/amsn-devel
