IMO if it's not usefull for everyone, it should be a plugin.


My 2 euro cents

On 2/1/07, Youness Alaoui <[EMAIL PROTECTED]> wrote:
> Hi Square87,
> Thank you for the contribution and the patch.
> It's indeed a useful idea for some users, but I wonder if it's really 
> necessary.
> Of couse, we'll need the change that logs when the user's nick is changed, 
> without it the feature is useless.
> I would also like to have other developer's opinion over this, should it be 
> committed or should it become a
> plugin or something ?
>
> KKRT
>
> On Thu, Feb 01, 2007 at 01:57:56PM +0100, square87 wrote:
> > Hello.
> > Yesterday i have saw an msn plus feature.
> > That is the possibility to log short nicks instead of original nick.
> > Msn Plus abbreviates nicks, in log conversation, to 15 letters. In my
> > implementation for amsn is 10 letters.
> > Anyway with this option enabled you cannot see originals nick in log
> > conversation.
> > So when a conversation starts there is a proc that logs first of all the
> > real nicks.
> > If this "feature" will be accept, I try to write a proc that logs when the
> > nick is changed.
> > Anyway I am not a tcl/tk programmer.
> > Thanks for your attention and sorry for my English.
> > Square87
>
> > Index: gui.tcl
> > ===================================================================
> > --- gui.tcl   (revisione 7874)
> > +++ gui.tcl   (copia locale)
> > @@ -2504,7 +2504,12 @@
> >                       WinWrite $chatid "$message" $type $fontformat 1 $user
> >
> >                       if {[::config::getKey keep_logs]} {
> > -                             ::log::PutLog $chatid $nick $msg $fontformat
> > +                             if {[::config::getKey keep_logsnick]} {
> > +                                     set shortnick [string range $nick 0 9]
> > +                                     ::log::PutLog $chatid $shortnick $msg 
> > $fontformat
> > +                             } else {
> > +                                     ::log::PutLog $chatid $nick $msg 
> > $fontformat
> > +                             }
> >                       }
> >               }
> >
> > Index: config.tcl
> > ===================================================================
> > --- config.tcl        (revisione 7874)
> > +++ config.tcl        (copia locale)
> > @@ -39,6 +39,7 @@
> >               ::config::setKey save_password 0                ;# a config 
> > file: 0|1
> >
> >               ::config::setKey keep_logs 1                    ;#Save log 
> > files: 0|1
> > +             ::config::setKey keep_logsnick 1                ;#Save short 
> > nick in log files instead of normal nick: 0|1
> >               ::config::setKey display_event_connect 1        ;#Display 
> > when someone connect
> >               ::config::setKey display_event_disconnect 1     ;#Display 
> > when someone disconnect
> >               ::config::setKey display_event_email 1  ;#Display when a new 
> > E-Mail is received
> > @@ -1187,6 +1188,7 @@
> >               ::config::setKey save_password 0
> >               ::config::setKey connectas $connectas
> >               ::config::setKey keep_logs 0
> > +             ::config::setKey keep_logsnick 0
> >               ::config::setKey log_event_connect 0
> >               ::config::setKey log_event_disconnect 0
> >               ::config::setKey log_event_email 0
> > Index: preferences.tcl
> > ===================================================================
> > --- preferences.tcl   (revisione 7874)
> > +++ preferences.tcl   (copia locale)
> > @@ -1983,9 +1983,11 @@
> >       label $lfname.plog1 -image [::skin::loadPixmap prefhist]
> >       pack $lfname.plog1 -anchor nw -side left
> >       checkbutton $lfname.log -text "[trans keeplog2]" -onvalue 1 -offvalue 
> > 0 -variable [::config::getVar keep_logs]
> > +     checkbutton $lfname.lognick -text "[trans keeplognick]" -onvalue 1 
> > -offvalue 0 -variable [::config::getVar keep_logsnick]
> >       checkbutton $lfname.date -text "[trans logsbydate]" -onvalue 1 
> > -offvalue 0 -variable [::config::getVar logsbydate]
> >       checkbutton $lfname.camlog -text "[trans logwebcam]" -onvalue 1 
> > -offvalue 0 -variable [::config::getVar webcamlogs]
> >       pack $lfname.log -anchor w
> > +     pack $lfname.lognick -anchor w
> >       pack $lfname.camlog -anchor w
> >       pack $lfname.date -anchor w
> >
> > Index: lang/langen
> > ===================================================================
> > --- lang/langen       (revisione 7874)
> > +++ lang/langen       (copia locale)
> > @@ -403,6 +403,7 @@
> >  justonce Just once
> >  keepalive Keepalive (NAT)
> >  keeplog2 Log all conversations to aMSN's History for future viewing
> > +keeplognick Log short nicks instead of normal nick
> >  keeplog Keep Logs of Chats
> >  language Language
> >  language_manager Language manager
> >
> > Index: loging.tcl
> > ===================================================================
> > --- loging.tcl        (revisione 7874)
> > +++ loging.tcl        (copia locale)
> > @@ -327,7 +327,11 @@
> >                       set fileid [LogArray $email get]
> >                       if { $fileid != 0 } {
> >                               if { $conf == 0 } {
> > -                                     puts -nonewline $fileid 
> > "\|\"LRED\[[trans lconvstarted [clock format [clock seconds] -format "%d %b 
> > %Y %T"]]\]\n"
> > +                                     if {[::config::getKey keep_logsnick]} 
> > {
> > +                                             puts -nonewline $fileid 
> > "\|\"LRED\[[trans lconvstarted [clock format [clock seconds] -format "%d %b 
> > %Y %T"]] \n[::abook::getPersonal MFN]\n [::abook::getDisplayNick 
> > $email]\]\n"
> > +                                     } else {
> > +                                             puts -nonewline $fileid 
> > "\|\"LRED\[[trans lconvstarted [clock format [clock seconds] -format "%d %b 
> > %Y %T"]]\]\n"
> > +                                     }
> >                               } else {
> >                                       puts -nonewline $fileid 
> > "\|\"LRED\[[trans lenteredconf $email [clock format [clock seconds] -format 
> > "%d %b %Y %T"]] \(${users}\) \]\n"
> >                               }
>
> > -------------------------------------------------------------------------
> > 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
>


-- 
o May the Force be with you
o Do it, or not, but there's no try

http://www.yoda-bzh.net
http://blog.yoda-bzh.net
http//LeaBrest.free.fr

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