From: <vi...@us...> - 2006-12-11 22:48:04
|
Revision: 7626 http://svn.sourceforge.net/amsn/?rev=7626&view=rev Author: vivia Date: 2006-12-11 14:48:03 -0800 (Mon, 11 Dec 2006) Log Message: ----------- Logging for OIMs according to config key, and maybe logging for mobile messages, though I probably messed this up and I have nobody to test it with. PLEASE TEST MOBILE MSG LOGGING Modified Paths: -------------- trunk/amsn/gui.tcl trunk/amsn/protocol.tcl Modified: trunk/amsn/gui.tcl =================================================================== --- trunk/amsn/gui.tcl 2006-12-11 22:01:30 UTC (rev 7625) +++ trunk/amsn/gui.tcl 2006-12-11 22:48:03 UTC (rev 7626) @@ -8121,7 +8121,9 @@ set ::OIM_GUI::oim_asksend_[string map {: _} ${chatid} ] 0 ::MSNOIM::sendOIMMessage [list ::OIM_GUI::MessageSendCallback $chatid] $email $txt #loging - ::log::PutLog $chatid $email $txt + if {[::config::getKey keep_logs]} { + ::log::PutLog $chatid $email $txt + } } return $answer } @@ -8217,7 +8219,9 @@ #We should add an event for sending message #loging - ::log::PutLog $chatid $user $msg + if {[::config::getKey keep_logs]} { + ::log::PutLog $chatid $user $msg + } } proc OpenOIMWindow { user } { Modified: trunk/amsn/protocol.tcl =================================================================== --- trunk/amsn/protocol.tcl 2006-12-11 22:01:30 UTC (rev 7625) +++ trunk/amsn/protocol.tcl 2006-12-11 22:48:03 UTC (rev 7626) @@ -8012,6 +8012,10 @@ set msglen [string length $msg] #set plen [string length $msg] ::MSN::WriteSBNoNL ns "PGD" "$name 1 $msglen\r\n$msg" + + if {[::config::getKey keep_logs]} { + ::log::PutLog $chatid $name $txt + } } proc MessageReceived { data } { @@ -8053,6 +8057,10 @@ ::amsn::WinWrite $chatid "\n[trans mobilesays $user] : \n" says ::amsn::WinWrite $chatid "$msg" user + if {[::config::getKey keep_logs]} { + ::log::PutLog $chatid $user $msg + } + } This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |