From: <bi...@us...> - 2007-03-18 11:14:38
|
Revision: 8244 http://svn.sourceforge.net/amsn/?rev=8244&view=rev Author: billiob Date: 2007-03-17 15:23:16 -0700 (Sat, 17 Mar 2007) Log Message: ----------- change the way we parse the log, should be better with OIM now Modified Paths: -------------- trunk/amsn/plugins/remind/remind.tcl Modified: trunk/amsn/plugins/remind/remind.tcl =================================================================== --- trunk/amsn/plugins/remind/remind.tcl 2007-03-17 16:25:25 UTC (rev 8243) +++ trunk/amsn/plugins/remind/remind.tcl 2007-03-17 22:23:16 UTC (rev 8244) @@ -126,103 +126,63 @@ # Allow something to be written into the chat window if { $version == "0.94" } { - ${win_name}.f.out.text configure -state normal -font bplainf -foreground black + set textw ${win_name}.f.out.text + $textw configure -state normal -font bplainf -foreground black } else { - [::ChatWindow::GetOutText ${win_name}] configure -state normal -font bplainf -foreground black + set textw [::ChatWindow::GetOutText ${win_name}] + $textw configure -state normal -font bplainf -foreground black } - ::remind::WinWrite "$chatid" "$::remind::language(lastsentence) :" blue + # Set up formatting tags + $textw tag configure red -foreground red + $textw tag configure RED -foreground red + $textw tag configure gray -foreground gray + $textw tag configure GRA -foreground gray + $textw tag configure normal -foreground black + $textw tag configure NOR -foreground black + $textw tag configure italic -foreground blue + $textw tag configure ITA -foreground blue + $textw tag configure GRE -foreground darkgreen - foreach line $loglines { + ::remind::WinWrite "$chatid" "$::remind::language(lastsentence) :\n" blue - # If the line doesn't begin with |"L - if { [string range $line 0 2] != "\|\"L" & $line != ""} { - ::remind::WinWrite $chatid "\n$line" $tagname $fontformat - } else { - - set color [string range $line 3 5] - - switch $color { - - GRA { # If the line is a message... - - set aidx [string first "\|\"L" $line 16] - - set color2 [string range $line [expr {$aidx + 3}] [expr {$aidx + 5}]] - - switch $color2 { - - ITA { - - # Check if the time must be displayed or not - if { [::config::getKey showtimestamps] } { - set tstamp [string range $line 6 15] - } else { - set tstamp "" - } - - set aidx [string first "\|\"L" $line 19] - set nick [string range $line 23 [expr {$aidx - 2}]] - - # Look at the style used in chatwindows - switch [::config::getKey chatstyle] { - msn {::config::setKey customchatstyle "\$tstamp [trans says \$nick]:\n"} - irc {::config::setKey customchatstyle "\$tstamp <\$nick> "} - - { } - } - - set customchat [string map {"\\" "\\\\" "\$" "\\\$" "\(" "\\\(" } [::config::getKey customchatstyle]] - set customchat [string map { "\\\$nick" "\${nick}" "\\\$tstamp" "\${tstamp}" } $customchat] - set customchat [string map {"\\\$newline" "\n" } $customchat] - set customchat [subst -nocommands $customchat] - - # Look if there is a color information in the message - if {[string index $line [expr {$aidx + 3}]] == "C"} { - set color [string range $line [expr {$aidx + 4}] [expr {$aidx + 9}]] - set fontformat [list "$font" "" "$color"] - set tagname "user" - set string [string range $line [expr {$aidx + 11}] end] - } else { - set fontformat [list "$font" "" ""] - set tagname black - set string [string range $line [expr {$aidx + 8}] end] - } - - ::remind::WinWrite $chatid "\n$customchat" gray - ::remind::WinWrite $chatid "$string" $tagname $fontformat - - } - - GRE { #... or a filetransfert - - if { $::remind::config(filetransfert) == 1 } { - set string "\n[string range $line [expr {$aidx + 6}] end]" - set tagname green - ::remind::WinWrite $chatid "$string" green - } - - } - - - { } - + set nbline 0 + foreach line $loglines { + incr nbline + set aidx 0 + while {$aidx != -1} { + # Checks if the line begins by |"L (it happens when we go to the line in the chat window). + # If not, use the tags of the previous line + if { $aidx == 0 & [string range $line 0 2] != "\|\"L" } { + set bidx -1 + } else { + # If the portion of the line begins by |"LC, there is a color information. + # The color is indicated by the 6 fingers after it + if {[string index $line [expr {$aidx + 3}]] == "C"} { + set color [string range $line [expr {$aidx + 4}] [expr {$aidx + 9}]] + $textw tag configure C_$nbline -foreground "#$color" + set color "C_$nbline" + incr aidx 10 + # Else, it is the system with LNOR, LGRA... + } else { + set color [string range $line [expr {$aidx + 3}] [expr {$aidx + 5}]] + incr aidx 6 } - + set bidx [string first "\|\"L" $line $aidx] } - - RED { #If the line is an information (e.g. conversation closed) - - if { $::remind::config(beginend) == 1 } { - set string "\n[string range $line 6 end]" - set tagname red - ::remind::WinWrite $chatid "$string" red - } + if { [string first "\|\"L" $line] == -1 } { + set string [string range $line 0 end] + } elseif { $bidx != -1 } { + set string [string range $line $aidx [expr {$bidx - 1}]] + } else { + set string [string range $line $aidx end] } - - - { } + ::remind::WinWrite $chatid "$string" $color + set aidx $bidx } - - } - + if {$string != ""} { + ::remind::WinWrite $chatid "$string\n" $color + } } ::remind::WinWrite $chatid "\n" black This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <bi...@us...> - 2007-03-18 22:13:43
|
Revision: 8252 http://svn.sourceforge.net/amsn/?rev=8252&view=rev Author: billiob Date: 2007-03-18 14:41:53 -0700 (Sun, 18 Mar 2007) Log Message: ----------- should fix my previous commit Modified Paths: -------------- trunk/amsn/plugins/remind/remind.tcl Modified: trunk/amsn/plugins/remind/remind.tcl =================================================================== --- trunk/amsn/plugins/remind/remind.tcl 2007-03-18 21:37:46 UTC (rev 8251) +++ trunk/amsn/plugins/remind/remind.tcl 2007-03-18 21:41:53 UTC (rev 8252) @@ -181,11 +181,10 @@ set aidx $bidx } if {$string != ""} { - ::remind::WinWrite $chatid "$string\n" $color + ::remind::WinWrite $chatid "\n" black } } - ::remind::WinWrite $chatid "\n" black ::amsn::WinWriteIcon $chatid greyline 3 if { $version == "0.94" } { This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <bi...@us...> - 2007-03-18 23:29:55
|
Revision: 8254 http://svn.sourceforge.net/amsn/?rev=8254&view=rev Author: billiob Date: 2007-03-18 16:16:31 -0700 (Sun, 18 Mar 2007) Log Message: ----------- badcode.fix++ Modified Paths: -------------- trunk/amsn/plugins/remind/remind.tcl Modified: trunk/amsn/plugins/remind/remind.tcl =================================================================== --- trunk/amsn/plugins/remind/remind.tcl 2007-03-18 22:32:03 UTC (rev 8253) +++ trunk/amsn/plugins/remind/remind.tcl 2007-03-18 23:16:31 UTC (rev 8254) @@ -148,41 +148,43 @@ set nbline 0 foreach line $loglines { - incr nbline - set aidx 0 - while {$aidx != -1} { - # Checks if the line begins by |"L (it happens when we go to the line in the chat window). - # If not, use the tags of the previous line - if { $aidx == 0 & [string range $line 0 2] != "\|\"L" } { - set bidx -1 + incr nbline + set aidx 0 + while {$aidx != -1} { + # Checks if the line begins by |"L (it happens when we go to the line in the chat window). + # If not, use the tags of the previous line + if { $aidx == 0 & [string range $line 0 2] != "\|\"L" } { + set bidx -1 + } else { + # If the portion of the line begins by |"LC, there is a color information. + # The color is indicated by the 6 fingers after it + if {[string index $line [expr {$aidx + 3}]] == "C"} { + set color [string range $line [expr {$aidx + 4}] [expr {$aidx + 9}]] + $textw tag configure C_$nbline -foreground "#$color" + set color "C_$nbline" + incr aidx 10 + # Else, it is the system with LNOR, LGRA... } else { - # If the portion of the line begins by |"LC, there is a color information. - # The color is indicated by the 6 fingers after it - if {[string index $line [expr {$aidx + 3}]] == "C"} { - set color [string range $line [expr {$aidx + 4}] [expr {$aidx + 9}]] - $textw tag configure C_$nbline -foreground "#$color" - set color "C_$nbline" - incr aidx 10 - # Else, it is the system with LNOR, LGRA... - } else { - set color [string range $line [expr {$aidx + 3}] [expr {$aidx + 5}]] - incr aidx 6 - } - set bidx [string first "\|\"L" $line $aidx] + set color [string range $line [expr {$aidx + 3}] [expr {$aidx + 5}]] + incr aidx 6 } - if { [string first "\|\"L" $line] == -1 } { - set string [string range $line 0 end] - } elseif { $bidx != -1 } { - set string [string range $line $aidx [expr {$bidx - 1}]] - } else { - set string [string range $line $aidx end] - } - ::remind::WinWrite $chatid "$string" $color - set aidx $bidx + set bidx [string first "\|\"L" $line $aidx] } + if { [string first "\|\"L" $line] == -1 } { + set string [string range $line 0 end] + } elseif { $bidx != -1 } { + set string [string range $line $aidx [expr {$bidx - 1}]] + } else { + set string [string range $line $aidx end] + } if {$string != ""} { - ::remind::WinWrite $chatid "\n" black + ::remind::WinWrite $chatid "$string" $color } + set aidx $bidx + } + if {$string != ""} { + ::remind::WinWrite $chatid "\n" black + } } ::amsn::WinWriteIcon $chatid greyline 3 This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <air...@us...> - 2007-09-16 21:56:44
|
Revision: 9044 http://amsn.svn.sourceforge.net/amsn/?rev=9044&view=rev Author: airadier Date: 2007-09-16 14:50:47 -0700 (Sun, 16 Sep 2007) Log Message: ----------- Fixed 100% CPU when log files were too big. Modified Paths: -------------- trunk/amsn/plugins/remind/remind.tcl Modified: trunk/amsn/plugins/remind/remind.tcl =================================================================== --- trunk/amsn/plugins/remind/remind.tcl 2007-09-16 19:32:09 UTC (rev 9043) +++ trunk/amsn/plugins/remind/remind.tcl 2007-09-16 21:50:47 UTC (rev 9044) @@ -236,19 +236,27 @@ } fconfigure $id -encoding utf-8 - set logvar [read $id] + + if { $size > 16384 } { + #Avoid loading the full log if it's too big + seek $id [expr {$size - 16384}] + set logvar [read $id 16384] + } else { + set logvar [read $id $size] + } + close $id # Select the $nbline last lines set loglines [split $logvar "\n"] -status_log "LOG_LINES 1 = $loglines" green + #status_log "LOG_LINES 1 = $loglines" green set nbline [expr {int($::remind::config(nbline))}] set begin [expr {[llength $loglines] - $nbline}] while {[string range [lindex $loglines $begin] 0 2] != "\|\"L" && $begin >= 0 } { incr begin -1; } set loglines [lrange $loglines $begin end] -status_log "LOG_LINES 2 = $loglines" green + #status_log "LOG_LINES 2 = $loglines" green return $loglines } This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <sc...@us...> - 2008-01-09 21:57:23
|
Revision: 9333 http://amsn.svn.sourceforge.net/amsn/?rev=9333&view=rev Author: scapor Date: 2008-01-09 13:57:25 -0800 (Wed, 09 Jan 2008) Log Message: ----------- I'm glad to introduce to you all: the lightning fast remind plugin :p. Instead of substituting smileys all over again now it only does it once. Modified Paths: -------------- trunk/amsn/plugins/remind/remind.tcl Modified: trunk/amsn/plugins/remind/remind.tcl =================================================================== --- trunk/amsn/plugins/remind/remind.tcl 2008-01-09 21:49:08 UTC (rev 9332) +++ trunk/amsn/plugins/remind/remind.tcl 2008-01-09 21:57:25 UTC (rev 9333) @@ -131,7 +131,6 @@ set textw [::ChatWindow::GetOutText ${win_name}] $textw configure -state normal -font bplainf -foreground black } - # Set up formatting tags $textw tag configure red -foreground red $textw tag configure RED -foreground red @@ -199,6 +198,9 @@ } } + after 0 custom_smile_subst $chatid [::ChatWindow::GetOutText ${win_name}] 0.0 end + after 0 ::smiley::substSmileys [::ChatWindow::GetOutText ${win_name}] 0.0 end 0 0 + ::amsn::WinWriteIcon $chatid greyline 3 if { $version == "0.94" } { @@ -345,16 +347,6 @@ [::ChatWindow::GetOutText ${win_name}] roinsert end "$txt" $tagid } - if {[::config::getKey chatsmileys]} { - if { $version == "0.94" } { - custom_smile_subst $chatid ${win_name}.f.out.text $text_start end - ::smiley::substSmileys ${win_name}.f.out.text $text_start end 0 - } else { - custom_smile_subst $chatid [::ChatWindow::GetOutText ${win_name}] $text_start end - ::smiley::substSmileys [::ChatWindow::GetOutText ${win_name}] $text_start end 0 0 - } - } - } This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <sc...@us...> - 2008-01-10 12:55:06
|
Revision: 9336 http://amsn.svn.sourceforge.net/amsn/?rev=9336&view=rev Author: scapor Date: 2008-01-10 04:55:08 -0800 (Thu, 10 Jan 2008) Log Message: ----------- cleaning up Modified Paths: -------------- trunk/amsn/plugins/remind/remind.tcl Modified: trunk/amsn/plugins/remind/remind.tcl =================================================================== --- trunk/amsn/plugins/remind/remind.tcl 2008-01-09 23:13:40 UTC (rev 9335) +++ trunk/amsn/plugins/remind/remind.tcl 2008-01-10 12:55:08 UTC (rev 9336) @@ -2,15 +2,12 @@ # REMIND PLUGIN # ####################################################### # Maintainer: Frederic Diaz (gad...@us...) # +# updated and speeded up by Karel "scapor" Demeyer # ####################################################### namespace eval ::remind { - variable config - variable configlist - variable language - ############################## # ::remind::InitPlugin dir # # ---------------------------# @@ -18,45 +15,29 @@ ############################## proc InitPlugin { dir } { - - global version - ::plugins::RegisterPlugin remind - source [file join $dir remind.tcl] ::plugins::RegisterEvent remind new_conversation Remind - array set ::remind::config [list beginend {1} daysnumber {7} filetransfert {1} nbline {10} checknote {1} when {1}] - # Loads langs if aMSN version is upper than 0.95 - if { $version == "0.94" | ![file isdirectory "$dir/lang"] } { - array set ::remind::language [list always {Always} beginendconversation {Display begin and end of conversation} checknote {Display if there are notes} daysnumber {Number of days} filetransfert {Display file transfers} lastsentence {Last sentences in the previous conversations} nbdisplay {Number of line displayed} noteswritten {You have written notes about this contact} talklast {If we have talk in the last x days} talkwinthin {If we have not talk within x days}] + # Loads langsset langdir [file join $dir "lang"] - set ::remind::configlist [list \ - [list str "$::remind::language(nbdisplay)" nbline] \ - [list bool "$::remind::language(beginendconversation)" beginend] \ - [list bool "$::remind::language(filetransfert)" filetransfert] \ - ] + set lang [::config::getGlobalKey language] + set langdir [file join $dir "lang"] + load_lang en $langdir + load_lang $lang $langdir - } else { + array set ::remind::config [list beginend {1} daysnumber {7} filetransfert {1} nbline {10} checknote {1} when {1}] + set ::remind::configlist [list \ + [list str "[trans nbdisplay]" nbline] \ + [list rbt "[trans always]" "[trans talklast]" "[trans talkwithin]" when] \ + [list str "[trans daysnumber]" daysnumber] \ + [list bool "[trans beginendconversation]" beginend] \ + [list bool "[trans filetransfert]" filetransfert] \ + [list bool "[trans checknote]" checknote] \ + ] + - set langdir [file join $dir "lang"] - set lang [::config::getGlobalKey language] - load_lang en $langdir - load_lang $lang $langdir - array set ::remind::language [list always "[trans always]" beginendconversation "[trans beginendconversation]" checknote "[trans checknote]" daysnumber "[trans daysnumber]" filetransfert "[trans filetransfert]" lastsentence "[trans lastsentence]" nbdisplay "[trans nbdisplay]" noteswritten "[trans noteswritten]" talklast "[trans talklast]" talkwithin "[trans talkwithin]"] - - set ::remind::configlist [list \ - [list str "$::remind::language(nbdisplay)" nbline] \ - [list rbt "$::remind::language(always)" "$::remind::language(talklast)" "$::remind::language(talkwithin)" when] \ - [list str "$::remind::language(daysnumber)" daysnumber] \ - [list bool "$::remind::language(beginendconversation)" beginend] \ - [list bool "$::remind::language(filetransfert)" filetransfert] \ - [list bool "$::remind::language(checknote)" checknote] \ - ] - - } - } @@ -67,40 +48,27 @@ ################################################################ proc Remind { event evpar } { - - global version - upvar 2 $evpar parameters + set chatid $parameters(chatid) set email $parameters(usr_name) - - if { $version == "0.94" } { - - ::remind::ShowLastSentences $chatid $email - - } else { - - - set lastmessage [string range [::abook::getContactData $email last_msgedme] 0 7] - set date [clock format [clock seconds] -format "%D"] - - set lastmessage [clock scan $lastmessage] - set date [clock scan $date] - set timeline [expr { $::remind::config(daysnumber) * 86400 }] - if { $::remind::config(when) == 1 - || ( $::remind::config(when) == 2 && [expr { $date - $lastmessage }] <= $timeline ) - || ( $::remind::config(when) == 3 && [expr { $date - $lastmessage }] >= $timeline ) - } { - ::remind::ShowLastSentences $chatid $email - } + set lastmessage [clock scan [string range [::abook::getContactData $email last_msgedme] 0 7] ] - if { $::remind::config(checknote) == 1 } { - ::remind::CheckNote $chatid $email - } + set date [clock scan [clock format [clock seconds] -format "%D"]] + set timeline [expr { $::remind::config(daysnumber) * 86400 }] + + if { $::remind::config(when) == 1 + || ( $::remind::config(when) == 2 && [expr { $date - $lastmessage }] <= $timeline ) + || ( $::remind::config(when) == 3 && [expr { $date - $lastmessage }] >= $timeline ) + } { + ::remind::ShowLastSentences $chatid $email } - + + if { $::remind::config(checknote) == 1 } { + ::remind::CheckNote $chatid $email + } } @@ -112,8 +80,6 @@ proc ShowLastSentences { chatid email } { - global version - # Get the last sentences of the contact set loglines [::remind::GetLastSentences $email] set tagname "black" @@ -124,13 +90,9 @@ set win_name [::ChatWindow::For $chatid] # Allow something to be written into the chat window - if { $version == "0.94" } { - set textw ${win_name}.f.out.text - $textw configure -state normal -font bplainf -foreground black - } else { - set textw [::ChatWindow::GetOutText ${win_name}] - $textw configure -state normal -font bplainf -foreground black - } + set textw [::ChatWindow::GetOutText ${win_name}] + $textw configure -state normal -font bplainf -foreground black + # Set up formatting tags $textw tag configure red -foreground red $textw tag configure RED -foreground red @@ -142,7 +104,7 @@ $textw tag configure ITA -foreground blue $textw tag configure GRE -foreground darkgreen - ::remind::WinWrite "$chatid" "$::remind::language(lastsentence) :\n" blue + ::remind::WinWrite "$chatid" "[trans lastsentence] :\n" blue set nbline 0 foreach line $loglines { @@ -198,19 +160,16 @@ } } - after 0 custom_smile_subst $chatid [::ChatWindow::GetOutText ${win_name}] 0.0 end - after 0 ::smiley::substSmileys [::ChatWindow::GetOutText ${win_name}] 0.0 end 0 0 + #substitute the smlileys + custom_smile_subst $chatid [::ChatWindow::GetOutText ${win_name}] 0.0 end] + ::smiley::substSmileys [::ChatWindow::GetOutText ${win_name}] 0.0 end 0 0] ::amsn::WinWriteIcon $chatid greyline 3 - if { $version == "0.94" } { - ${win_name}.f.out.text yview end - ${win_name}.f.out.text configure -state disabled - } else { - [::ChatWindow::GetOutText $win_name] yview end - [::ChatWindow::GetOutText ${win_name}] configure -state normal -font bplainf -foreground black - } + [::ChatWindow::GetOutText $win_name] yview end + [::ChatWindow::GetOutText ${win_name}] configure -state normal -font bplainf -foreground black + } @@ -291,7 +250,7 @@ if { [file exists $file] } { status_log "REMIND : OK\n" red - ::remind::WinWrite "$chatid" "\n$::remind::language(noteswritten)\n" blue + ::remind::WinWrite "$chatid" "\n[trans noteswritten]\n" blue } @@ -306,7 +265,6 @@ proc WinWrite {chatid txt tagname {fontformat ""}} { - global version set win_name [::ChatWindow::For $chatid] @@ -318,15 +276,6 @@ set fontstyle [lindex $fontformat 1] set fontcolor [lindex $fontformat 2] - #Store position for later smiley - if { $version == "0.94" } { - set text_start [${win_name}.f.out.text index end] - } else { - set text_start [[::ChatWindow::GetOutText ${win_name}] index end] - } - set posyx [split $text_start "."] - set text_start "[expr {[lindex $posyx 0]-1}].[lindex $posyx 1]" - set tagid $tagname if { $tagid == "user" } { @@ -334,18 +283,10 @@ set font "\"$fontname\" $size $fontstyle" set tagid [::md5::md5 "$font$fontcolor"] - if { $version == "0.94" } { - ${win_name}.f.out.text tag configure $tagid -foreground #$fontcolor -font $font - } else { - [::ChatWindow::GetOutText ${win_name}] tag configure $tagid -foreground #$fontcolor -font $font - } + [::ChatWindow::GetOutText ${win_name}] tag configure $tagid -foreground #$fontcolor -font $font } - if { $version == "0.94" } { - ${win_name}.f.out.text insert end "$txt" $tagid - } else { - [::ChatWindow::GetOutText ${win_name}] roinsert end "$txt" $tagid - } + [::ChatWindow::GetOutText ${win_name}] roinsert end "$txt" $tagid } This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <sc...@us...> - 2008-01-11 10:48:25
|
Revision: 9353 http://amsn.svn.sourceforge.net/amsn/?rev=9353&view=rev Author: scapor Date: 2008-01-11 02:48:27 -0800 (Fri, 11 Jan 2008) Log Message: ----------- now all smileys are substituted Modified Paths: -------------- trunk/amsn/plugins/remind/remind.tcl Modified: trunk/amsn/plugins/remind/remind.tcl =================================================================== --- trunk/amsn/plugins/remind/remind.tcl 2008-01-11 08:38:52 UTC (rev 9352) +++ trunk/amsn/plugins/remind/remind.tcl 2008-01-11 10:48:27 UTC (rev 9353) @@ -161,8 +161,7 @@ } #substitute the smlileys - custom_smile_subst $chatid [::ChatWindow::GetOutText ${win_name}] 0.0 end] - ::smiley::substSmileys [::ChatWindow::GetOutText ${win_name}] 0.0 end 0 0] + ::smiley::substSmileys [::ChatWindow::GetOutText ${win_name}] 0.0 end 0 1] ::amsn::WinWriteIcon $chatid greyline 3 This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <sc...@us...> - 2008-02-23 23:11:04
|
Revision: 9599 http://amsn.svn.sourceforge.net/amsn/?rev=9599&view=rev Author: scapor Date: 2008-02-23 15:11:05 -0800 (Sat, 23 Feb 2008) Log Message: ----------- add some debug stuff Modified Paths: -------------- trunk/amsn/plugins/remind/remind.tcl Modified: trunk/amsn/plugins/remind/remind.tcl =================================================================== --- trunk/amsn/plugins/remind/remind.tcl 2008-02-23 23:00:15 UTC (rev 9598) +++ trunk/amsn/plugins/remind/remind.tcl 2008-02-23 23:11:05 UTC (rev 9599) @@ -48,6 +48,9 @@ ################################################################ proc Remind { event evpar } { + + plugins_log remind "New conversation window. Let's check if we need to digg up messages for you, sir." + upvar 2 $evpar parameters set chatid $parameters(chatid) @@ -63,6 +66,7 @@ || ( $::remind::config(when) == 2 && [expr { $date - $lastmessage }] <= $timeline ) || ( $::remind::config(when) == 3 && [expr { $date - $lastmessage }] >= $timeline ) } { + plugins_log remind "You wanted mle to show some messages, so that's what I'm about to do..." ::remind::ShowLastSentences $chatid $email } @@ -80,6 +84,8 @@ proc ShowLastSentences { chatid email } { + plugins_log remind "So, here we go, get ready to rumble!" + # Get the last sentences of the contact set loglines [::remind::GetLastSentences $email] set tagname "black" @@ -160,7 +166,9 @@ } } - #substitute the smlileys + plugins_log remind "There's your text sir. You want any smileys with it ? \nYes I know you want. Here they are ..." + + #substitute the smileys ::smiley::substSmileys [::ChatWindow::GetOutText ${win_name}] 0.0 end 0 1] ::amsn::WinWriteIcon $chatid greyline 3 @@ -179,7 +187,7 @@ ############################################# proc GetLastSentences { email } { - + plugins_log remind "Getting you messages for $email ..." global log_dir # Select the last logging file, and cancel the proc if there is no log file yet This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |