ok, your code is wrong, but it's ok, we know you're not a programmer.
but what if the error happens in a multi user conversation ? 
what if it happens after you closed the window ? You also added the fontformat 
argument but it's not used 
anywhere in the code... 
I'll fix it, commit and read the commit log to understand how it should have 
been done.
thanks

KKRT

On Thu, Feb 01, 2007 at 06:47:52PM +0100, square87 wrote:
> 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


-------------------------------------------------------------------------
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

Reply via email to