So... I have tried to write a plugin... I have not experience with plugin system as well as tcl/tk :)
Sorry if I don't send a diff file. Diff have various changing.
In logingtcl add:
if { $failed == 1 } {
set color "RED" ;# When the message failed to
deliver, we should show the deliverfail message instead of the user's
nickname.
set user "\|\"LRED[trans deliverfail]"
}
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 $user]} {
::log::WriteLog $user "\|\"LITA$user :\|\"L$color $msg\n" 0
$user
and in the end of proc add: }
If you give me the OK i'll try to work on "user has changed nick in: ... "
features
Thanks
amsnlogplus.tar.gz
Description: GNU Zip compressed data
------------------------------------------------------------------------- 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
