Changeset 41

Timestamp:

02/11/09 05:39:06 (3 years ago)

Author:

notopic

Message:

Add option to shrink multiple spaces down

File:

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

QuoteEngine/QuoteEngine.tcl

@@ -67 +67 @@
 set quote_chanmax 5
 
+# shrink multiple spaces to single spaces when fetching a quote?
+set quote_shrinkspaces 1
+
 ### code starts here (no need to edit stuff below currently)
 #1.00
@@ -146 +149 @@
 ################################################################################
 proc quote_rand { nick host handle channel text } {
-  global db_handle quote_noflags
+  global db_handle quote_noflags quote_shrinkspaces
 
   if {![channel get $channel quoteengine]} {
@@ -178 +181 @@
     set by [lindex $row 1]
     set when [clock format [lindex $row 5] -format "%Y/%m/%d %H:%M"]
+                catch {
+                        if {$quote_shrinkspaces == 1} {
+                                regsub -all "  +" $quote " " quote
+                        }
+                        set quote [stripcodes bcruag $quote]
+                }
 
     puthelp "PRIVMSG $channel :\[\002$id\002\] $quote"
@@ -193 +202 @@
 ################################################################################
 proc quote_fetch { nick host handle channel text } {
-  global db_handle quote_noflags
+  global db_handle quote_noflags quote_shrinkspaces
 
   if {![channel get $channel quoteengine]} {
@@ -224 +233 @@
                 set quote [lindex $row 3]
                 catch {
+                        if {$quote_shrinkspaces == 1} {
+                                regsub -all "  +" $quote " " quote
+                        }
                         set quote [stripcodes bcruag $quote]
                 }