Changeset 42

Timestamp:

02/14/09 18:53:10 (3 years ago)

Author:

notopic

Message:

missed a shrinkspaces point

File:

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

QuoteEngine/QuoteEngine.tcl

@@ -534 +534 @@
 
 proc quote_auto { nick host handle channel text } {
-        global quote_automatic
+        global quote_automatic quote_shrinkspaces
         if {$quote_automatic == 0} {
                 return
@@ -603 +603 @@
                 set quote [lindex $row 3]
 
+                catch {
+                        if {$quote_shrinkspaces == 1} {
+                                regsub -all "  +" $quote " " quote
+                        }
+                        set quote [stripcodes bcruag $quote]
+                }
+
                 putlog "RANDOM QUOTE: $quote ($id)"
                 puthelp "PRIVMSG $channel :\[\002$id\002\] $quote"