Hello.
Sometime sending message fails so the user don't read what we have written,
but the log system logs not-sending-messages, too.
When we read the conversation, for example, after two weeks we don't
remember if certain messages are sending or not.
So i think that this patch is useful.
I am not a TCL/Tk programmer.
Thanks for your attention and sorry for my English.
Index: loging.tcl
===================================================================
--- loging.tcl (revisione 7874)
+++ loging.tcl (copia locale)
@@ -289,6 +289,12 @@
}
}
+ proc WriteLogForDeliveryFailed {chatid msg {fontformat ""}} {
+ set fileid [LogArray $chatid get]
+ if { $fileid != 0 } {
+ puts -nonewline $fileid "\|\"LRED\[[trans deliverfail]: [timestamp]: $msg\]\n"
+ }
+ }
#///////////////////////////////////////////////////////////////////////////////
# WriteLog (email txt (conf) (userlist))
Index: gui.tcl
===================================================================
--- gui.tcl (revisione 7874)
+++ gui.tcl (copia locale)
@@ -2401,6 +2401,9 @@
proc WinWriteFail {chatid msg} {
WinWrite $chatid "\n[timestamp] [trans deliverfail]:\n" red
WinWrite $chatid "$msg" gray "" 1 [::config::getKey login]
+ if {[::config::getKey keep_logs]} {
+ ::log::WriteLogForDeliveryFailed $chatid $msg
+ }
}
#///////////////////////////////////////////////////////////////////////////////
-------------------------------------------------------------------------
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
