Changeset 46

Timestamp:

02/11/11 14:38:05 (16 months ago)

Author:

notopic

Message:

v1.3
Added readme, separate settings file for TCL script, SQL script, rearranged dir structure

Location:

QuoteEngine

Files:

• QuoteEngine-settings.sample.tcl (added)
• QuoteEngine.tcl (modified) (7 diffs)
• README (added)
• sql (added)
• sql/quotes.sql (added)
• www (added)
• www/index.php (moved) (moved from QuoteEngine/index.php)
• www/ocean.css (moved) (moved from QuoteEngine/ocean.css)
• www/settings.example.inc (moved) (moved from QuoteEngine/settings.example.inc)
• www/styles.css (moved) (moved from QuoteEngine/styles.css)

QuoteEngine/QuoteEngine.tcl

@@ -10 +10 @@
 
 # load the extension
-# CHANGE ME: My main bot's server has broken TCL, so I need the line below:
-#load /usr/local/lib/mysqltcl-2.12/libmysqltcl2.12.so
-#load /home/notopic/lib/mysqltcl-2.50/libmysqltcl2.50.so
-# BUT most people should get away with this if their server's setup right:
 package require mysqltcl
 
-# Use only one or other of the above!
-
-# connect to database
-# CHANGE ME
-proc quote_connect { } {
-        global db_handle
-                
-        set db_handle [mysqlconnect -host localhost -user notopic -password moo -db quotes]
-
-        if {$db_handle != ""} {
-                return 1
-        } else {
-                return 0
-        }
-}
-
-# url to site
-# CHANGE ME (use blank if you're not using the PHP script)
-set php_page "http://sakaki.jamesoff.net/~notopic/"
-
-# automatically spew "relevant" quotes?
-set quote_automatic 1
-
-# minimum number of seconds between automatic quotes
-set quote_automatic_minimum [expr 3 * 3600]
-
-# bind commands CHANGE as needed
+# Make sure you edit the sample settings file and save it as "QuoteEngine-settings.tcl"
+# in the eggdrop scripts directory!
+source "scripts/QuoteEngine-settings.tcl"
+
+# bind commands CHANGE as needed to set who can use
 # use ".chanset #channel [+/-]quoteengine" to enable/disable individual
 # channels
@@ -60 +34 @@
 bind pubm "-|ov" * quote_auto
 
-# a user with this flag(s) can't use the script at all
-set quote_noflags "Q|Q"
-
-# maximum number of quotes to show in channel when searching before switching
-# to /msg'ing the user
-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
-set quote_version "cvs"
+################################################################################
+#No need to edit beyond this point
+################################################################################
+
+set quote_version "1.3"
 set quote_auto_last(blah) 0
 
@@ -78 +44 @@
 setudef flag quoteengine
 
-### procedures start here
+# connect to database
+proc quote_connect { } {
+        global db_handle quote_db
+                
+        set db_handle [mysqlconnect -host $quote_db(host) -user $quote_db(user) -password $quote_db(password) -db $quote_db(database)]
+
+        if {$db_handle != ""} {
+                return 1
+        } else {
+                return 0
+        }
+}
 
 ################################################################################
@@ -275 +252 @@
 ################################################################################
 proc quote_search { nick host handle channel text } {
-  global db_handle php_page quote_noflags quote_chanmax
+  global db_handle quote_webpage quote_noflags quote_chanmax
 
   if {![channel get $channel quoteengine]} {
@@ -348 +325 @@
 
       regsub "#" $channel "" chan
-      if {$php_page != ""} {
-        puthelp "${command}(Plus $remaining more matches: $php_page?filter=${text}&channel=${chan}&search=search)"
+      if {$quote_webpage != ""} {
+        puthelp "${command}(Plus $remaining more matches: $quote_webpage?filter=${text}&channel=${chan}&search=search)"
       } else {
         puthelp "${command}Plus $remaining other matches"
@@ -377 +354 @@
 ################################################################################
 proc quote_url { nick host handle channel text } {
-  global php_page quote_noflags
-
-  if {![channel get $channel quoteengine]} {
-    return 0
-  }
-
-  if [matchattr $handle $quote_noflags] { return 0 }
-
-  if {$php_page != ""} {
+  global quote_webpage quote_noflags
+
+  if {![channel get $channel quoteengine]} {
+    return 0
+  }
+
+  if [matchattr $handle $quote_noflags] { return 0 }
+
+  if {$quote_webpage != ""} {
 # changed for better url by dubkat
-  puthelp "PRIVMSG $channel :${php_page}?channel=[string range $channel 1 end]"
+  puthelp "PRIVMSG $channel :${quote_webpage}?channel=[string range $channel 1 end]"
   } else {
     puthelp "PRIVMSG $channel :Not available."
@@ -615 +592 @@
                 }
 
-                putlog "RANDOM QUOTE: $quote ($id)"
+                putloglev d * "RANDOM QUOTE: $quote ($id)"
                 puthelp "PRIVMSG $channel :\[\002$id\002\] $quote"
                 set quote_auto_last($channel) [clock seconds]