Changeset 38 for QuoteEngine/QuoteEngine.tcl

Timestamp:

01/25/08 09:27:34 (4 years ago)

Author:

notopic

Message:

autoquote fixes

File:

• QuoteEngine/QuoteEngine.tcl (modified) (5 diffs)

QuoteEngine/QuoteEngine.tcl

@@ -40 +40 @@
 
 # minimum number of seconds between automatic quotes
-set quote_automatic_minimum 7200
+set quote_automatic_minimum [expr 3 * 3600]
 
 # bind commands CHANGE as needed
@@ -219 +219 @@
   if {[set row [mysqlnext $result]] != ""} {
     set id [lindex $row 0]
-    set quote [lindex $row 3]
+                set quote [lindex $row 3]
+                catch {
+                        set quote [stripcodes bcruag $quote]
+                }
     set by [lindex $row 1]
     set when [clock format [lindex $row 5] -format "%Y/%m/%d %H:%M"]
@@ -521 +524 @@
         }
 
-        global quote_auto_last db_handle
+        global quote_auto_last db_handle quote_automatic_minimum
+
         if [info exists quote_auto_last($channel)] {
                 set diff [expr [clock seconds] - $quote_auto_last($channel)]
+                putloglev 1 * "diff for $channel is $diff"
         } else {
-                set diff 3601
+                set diff [expr $quote_automatic_minimum + 1]
+                putloglev d * "initialising diff for $channel"
                 set quote_auto_last($channel) 0
         }
 
-        if {$diff < 3600} {
+        if {$diff < $quote_automatic_minimum} {
                 return
         }
@@ -537 +543 @@
 
         foreach word $words {
-                if [regexp -nocase {^[a-z0-9']+$} $word] {
-                        if {[lsearch [list "about" "their" "there"] $word] > -1} {
+                if [regexp -nocase {^[a-z0-9']{4,}$} $word] {
+                        if {[lsearch [list "yeah" "about" "hello" "their" "there" "that's" "can't" "morning" "won't"] $word] > -1} {
                                 continue
                         }
@@ -546 +552 @@
                         }
 
-                        if {[string length $word] > 4} {
-                                lappend newwords [mysqlescape $word]
-                        }
+                        lappend newwords [mysqlescape $word]
                 }
         }