ypp-chatlog-alerter: get minute length right (!)

[ypp-sc-tools.db-live.git] / ypp-chatlog-alerter

diff --git a/ypp-chatlog-alerter b/ypp-chatlog-alerter
index fb6bba79d8aae695356c5b96c9303ad0d8d6c086..caefc5e306d3e538b6f38b4d45aa94019760ff92 100755 (executable)
--- a/ypp-chatlog-alerter
+++ b/ypp-chatlog-alerter
@@ -119,7 +119,7 @@ proc retint {} {
        } elseif {$age < 120} {
            lappend newprtimes [format "%3ds" $age]
        } else {
-           lappend newprtimes [format "%3dm" [expr {$age/120}]]
+           lappend newprtimes [format "%3dm" [expr {$age/60}]]
        }
        set latest [expr { $time > $latest ? $time : $latest }]
        set tint [expr { exp( (-($age >= 0 ? $age : 0) + 0.0) / $e_life ) }]
@@ -270,7 +270,7 @@ puts "MESSAGE $l"
 }
 
 proc message {pirate msg} {
-    global times pirates messages
+    global times pirates messages height
     global lw_ls lw_ws
     
     set ix [lsearch -exact $pirates $pirate]
@@ -285,6 +285,13 @@ proc message {pirate msg} {
            }
            incr cix
        }
+       for_lw {
+           set $l [lreplace [set $l] $ix $ix]
+           lappend $l {}
+           $w delete $ix
+           $w insert end {}
+       }
+       set ix [expr {$height-1}]
     }
     for_lw new [list $now $pirate $msg] {
        set $l [lreplace [set $l] $ix $ix $new]