Import

QuoteEngine/QuoteEngine.tcl

@@ -0,0 +1,442 @@
+# $Id: QuoteEngine.tcl,v 1.20 2004/03/30 21:52:12 James Exp $
+
+###############################################################################
+# QuoteEngine for eggdrop bots
+# Copyright (C) James Michael Seward 2003
+#
+# This program is covered by the GPL, please refer the to LICENCE file in the
+# distribution.
+###############################################################################
+
+# 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
+set db_handle [mysqlconnect -host localhost -user notopic -password moo -db quotes]
+
+# url to site
+# CHANGE ME (use blank if you're not using the PHP script)
+set php_page "http://sakaki.jamesoff.net/~notopic/"
+
+# bind commands CHANGE as needed
+# use ".chanset #channel [+/-]quoteengine" to enable/disable individual
+# channels
+bind pub "m|fov" !addquote quote_add
+bind pub "m|fov" !randquote quote_rand
+bind pub "m|fov" !fetchquote quote_fetch
+bind pub "m|fov" !getquote quote_fetch
+bind pub "m|fov" !findquote quote_search
+bind pub "m|fov" !searchquote quote_search
+bind pub "m|fov" !urlquote quote_url
+bind pub "-|-" !quoteurl quote_url
+bind pub "m|ov" !delquote quote_delete
+bind pub "m|ov" !deletequote quote_delete
+bind pub "m|ov" !quotestats quote_stats
+bind pub "-|-" !quoteversion quote_version
+bind pub "-|-" !quotehelp quote_help
+
+# 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 0
+
+### code starts here (no need to edit stuff below currently)
+#1.00
+set quote_version "cvs"
+
+#add setting to channel
+setudef flag quoteengine
+
+### procedures start here
+
+################################################################################
+# quote_add
+# !addquote <text>
+#   Adds a quote to the database
+################################################################################
+proc quote_add { nick host handle channel text } {
+  global db_handle quote_noflags
+
+  if {![channel get $channel quoteengine]} {
+    return 0
+  }
+
+  if [matchattr $handle $quote_noflags] { return 0 }
+
+  if {($handle == "") || ($handle == "*")} {
+    set handle $nick
+  }
+
+  set sql "INSERT INTO quotes VALUES(null, "
+  append sql "'$handle', "
+  append sql "'$nick!$host', "
+  set text [mysqlescape $text]
+  append sql "'$text', "
+  append sql "'$channel', "
+  append sql "'[clock seconds]')"
+
+  putloglev d * "QuoteEngine: executing $sql"
+
+  set result [mysqlexec $db_handle $sql]
+  if {$result != 1} {
+    putlog "An error occurred with the sql :("
+  } else {
+    set id [mysqlinsertid $db_handle]
+    puthelp "PRIVMSG $channel :Quote \002$id\002 added"
+  }
+}
+
+
+################################################################################
+# quote_rand
+# !randquote [--all|--channel #channel]
+#   Gets a random quote from the database for the current channel
+#     --all: Choose from entire database
+#     --channel: Choose from given channel
+#     -c: Shortcut for --channel
+################################################################################
+proc quote_rand { nick host handle channel text } {
+  global db_handle quote_noflags
+
+  if {![channel get $channel quoteengine]} {
+    return 0
+  }
+
+  if [matchattr $handle $quote_noflags] { return 0 }
+
+  set where_clause "WHERE channel='$channel'"
+  if [regexp -- "--?all" $text] {
+    set where_clause ""
+  }
+
+  if [regexp -- "--?c(hannel)?( |=)(.+)" $text matches skip1 skip2 newchan] {
+    set where_clause "WHERE channel='[mysqlescape $newchan]'"
+  }
+
+  set sql "SELECT * FROM quotes $where_clause ORDER BY RAND() LIMIT 1"
+  putloglev d * "QuoteEngine: executing $sql"
+
+  set result [mysqlquery $db_handle $sql]
+
+  if {[set row [mysqlnext $result]] != ""} {
+    set id [lindex $row 0]
+    set quote [lindex $row 3]
+    set by [lindex $row 1]
+    set when [clock format [lindex $row 5] -format "%Y/%m/%d %H:%M"]
+
+    puthelp "PRIVMSG $channel :\[\002$id\002\] $quote"
+  } else {
+    puthelp "PRIVMSG $channel :Couldn't find a quote :("
+  }
+  mysqlendquery $result
+}
+
+
+################################################################################
+# quote_fetch
+# !getquote <id>
+#   Fetches the given quote from the database
+################################################################################
+proc quote_fetch { nick host handle channel text } {
+  global db_handle quote_noflags
+
+  if {![channel get $channel quoteengine]} {
+    return 0
+  }
+
+  if [matchattr $handle $quote_noflags] { return 0 }
+
+  if {![regexp {[0-9]+} $text]} {
+    puthelp "PRIVMSG $channel: Use: !getquote <id>"
+    return 0
+  }
+
+	set text [mysqlescape $text]
+  set sql "SELECT * FROM quotes WHERE id='$text'"
+  putloglev d * "QuoteEngine: executing $sql"
+
+  set result [mysqlquery $db_handle $sql]
+
+  if {[set row [mysqlnext $result]] != ""} {
+    set id [lindex $row 0]
+    set quote [lindex $row 3]
+    set by [lindex $row 1]
+    set when [clock format [lindex $row 5] -format "%Y/%m/%d %H:%M"]
+    set chan [lindex $row 4]
+    if {$chan != $channel} {
+      puthelp "PRIVMSG $channel :\[\002$id\002\] $quote"
+      puthelp "PRIVMSG $channel :\[\002$id\002\] From $chan, added $by at $when."
+    } else {
+      puthelp "PRIVMSG $channel :\[\002$id\002\] $quote"
+      puthelp "PRIVMSG $channel :\[\002$id\002\] Added $by at $when."
+    }
+  } else {
+    puthelp "PRIVMSG $channel :Couldn't find quote $text"
+  }
+
+  mysqlendquery $result
+}
+
+
+################################################################################
+# quote_search
+# !findquote [--all] [--channel #channel] [--count <int>] <text>
+#   Find all quotes with "text" in them. (in random order)
+#   The first 5 (by default) are listed in the channel. The rest are /msg'd to
+#   you up to the maxiumum (default 5).
+#     --all: Search all channels, not just current one
+#     --channel: Search given channel
+#     --count <int>: Find this many total quotes
+#     -c: Shortcut for --channel
+#     -n: Shortcut for --count
+#   Note this is a SQL search, so use % as the wildcard (instead of *)
+#   The script automatically puts %s around your text when searching.
+################################################################################
+proc quote_search { nick host handle channel text } {
+  global db_handle php_page quote_noflags quote_chanmax
+
+  if {![channel get $channel quoteengine]} {
+    return 0
+  }
+
+  if [matchattr $handle $quote_noflags] { return 0 }
+
+  if {$text == ""} {
+    puthelp "PRIVMSG $channel :Use: !findquote <text>"
+    return 0
+  }
+
+  set where_clause "AND channel='[mysqlescape $channel]'"
+  if [regexp -- "--?all " $text matches skip1] {
+    set where_clause ""
+    regsub -- $matches $text "" text
+  }
+
+  if [regexp -- {--?c(hannel)?( |=)([^ ]+)} $text matches skip1 skip2 newchan] {
+    set where_clause "AND channel='[mysqlescape $newchan]'"
+    regsub -- $matches $text "" text
+  }
+
+  set limit 5
+  if [regexp -- {--?count( |=)([^ ]+)} $text matches skip1 count] {
+    set limit [mysqlescape $count]
+    regsub -- $matches $text "" text
+  }
+
+  if [regexp -- {-n( )?([^ ]+)} $text matches skip1 count] {
+    set limit [mysqlescape $count]
+    regsub -- $matches $text "" text
+  }
+
+  set sql "SELECT * FROM quotes WHERE quote LIKE '%[mysqlescape $text]%' $where_clause ORDER BY RAND()"
+
+  putloglev d * "QuoteEngine: executing $sql"
+
+  if {[mysqlsel $db_handle $sql] > 0} {
+
+    set count 0
+    mysqlmap $db_handle {id qnick qhost quote qchannel qts} {
+      if {$count == $limit} {
+        break
+      }
+
+      if {$count == $quote_chanmax} {
+        puthelp "PRIVMSG $nick :Rest of matches for your search '$text' follow in private:"
+      }
+
+      if {$count < 5} {
+        puthelp "PRIVMSG $channel :\[\002$id\002\] $quote"
+      } else {
+        puthelp "PRIVMSG $nick :\[\002$id\002\] $quote"
+      }
+      incr count
+    }
+
+    set remaining [mysqlresult $db_handle rows?]
+    if {$remaining > 0} {
+      regsub "#" $channel "" chan
+      if {$php_page != ""} {
+        puthelp "PRIVMSG $channel :(Plus $remaining more matches: $php_page?filter=${text}&channel=${chan}&search=search)"
+      } else {
+        puthelp "PRIVMSG $channel :Plus $remaining other matches"
+      }
+    } else {
+      if {$count == 1} {
+        puthelp "PRIVMSG $channel :(All of 1 match)"
+      } else {
+        puthelp "PRIVMSG $channel :(All of $count matches)"
+      }
+    }
+  } else {
+    puthelp "PRIVMSG $channel :No matches"
+  }
+}
+
+
+################################################################################
+# quote_url
+# !quoteurl
+#   Gives the web of the web interface
+################################################################################
+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 != ""} {
+# changed for better url by dubkat
+  puthelp "PRIVMSG $channel :${php_page}?channel=[string range $channel 1 end]"
+  } else {
+    puthelp "PRIVMSG $channel :Not available."
+  }
+}
+
+
+################################################################################
+# quote_stats
+# !quotestats
+#   Give some simple statistics about the db, channel, and user
+################################################################################
+proc quote_stats { nick host handle channel text } {
+  global db_handle quote_noflags
+
+  if {![channel get $channel quoteengine]} {
+    return 0
+  }
+
+  if [matchattr $handle $quote_noflags] { return 0 }
+
+  set sql "SELECT COUNT(*) AS total FROM quotes WHERE channel='$channel'"
+  putloglev d * "QuoteEngine: executing $sql"
+
+  set result [mysqlquery $db_handle $sql]
+  set total 0
+  set chan 0
+
+  if {[set row [mysqlnext $result]] != ""} {
+    set total [lindex $row 0]
+  }
+
+  mysqlendquery $result
+
+  set sql "SELECT COUNT(*) AS total FROM quotes"
+  putloglev d * "QuoteEngine: executing $sql"
+
+  set result [mysqlquery $db_handle $sql]
+
+  if {[set row [mysqlnext $result]] != ""} {
+    set chan [lindex $row 0]
+  }
+
+  mysqlendquery $result
+
+  set sql "SELECT COUNT(*) AS total FROM quotes WHERE nick='$handle' AND channel='$channel'"
+  putloglev d * "QuoteEngine: executing $sql"
+
+  set result [mysqlquery $db_handle $sql]
+
+  if {[set row [mysqlnext $result]] != ""} {
+    set by_handle [lindex $row 0]
+  }
+
+  mysqlendquery $result
+
+  puthelp "PRIVMSG $channel :Quotes for $channel: \002$total\002 (total: $chan). You have added \002$by_handle\002 quotes in this channel."
+}
+
+
+################################################################################
+# quote_delete
+# !delquote <id>
+#   Removes a quote from the database. You can only delete the quote if you
+#   are a bot/channel master, or if you're the person who added it.
+################################################################################
+proc quote_delete  { nick host handle channel text } {
+  global db_handle quote_noflags
+
+  if {![channel get $channel quoteengine]} {
+    return 0
+  }
+
+  if [matchattr $handle $quote_noflags] { return 0 }
+
+  set text [mysqlescape $text]
+  if {![matchattr $handle m|m $channel]} {
+    set sql "SELECT nick FROM quotes WHERE id='$text'"
+    putloglev d * "QuoteEngine: executing $sql"
+
+    set result [mysqlquery $db_handle $sql]
+    set owner [lindex [mysqlnext $result] 0]
+    mysqlendquery $result
+    if {$owner != $handle} {
+      puthelp "NOTICE $nick :You cannot delete that quote."
+      return 0
+    }
+  }
+
+  set sql "DELETE FROM quotes WHERE id='$text'"
+  putloglev d * "QuoteEngine: executing $sql"
+
+  set result [mysqlexec $db_handle $sql]
+  if {$result != 1} {
+    puthelp "PRIVMSG $channel :An error occurred deleting the quote :("
+    return 0
+  } else {
+    puthelp "PRIVMSG $channel :Deleted quote $text"
+  }
+}
+
+
+################################################################################
+# quote_version
+# !quoteversion
+#   Gives the version of the script
+################################################################################
+proc quote_version { nick host handle channel text } {
+  global quote_version quote_noflags
+
+  if [matchattr $handle $quote_noflags] { return 0 }
+
+  puthelp "PRIVMSG $channel :This is the QuoteEngine version $quote_version by JamesOff (http://www.jamesoff.net/go/quoteengine)"
+  return 0
+}
+
+
+################################################################################
+# quote_help
+# !quotehelp
+#   Handle help requests
+################################################################################
+ proc quote_help { nick host handle channel text } {
+  global quote_noflags
+
+  if [matchattr $handle $quote_noflags] { return 0 }
+
+  puthelp "PRIVMSG $nick :Commands for the QuoteEngine script:"
+  puthelp "PRIVMSG $nick :  !addquote <quote text> - adds a quote to the database"
+  puthelp "PRIVMSG $nick :  !delquote <id> - deletes a quote. You must be either a bot/channel master or the person who added the quote to delete it."
+  puthelp "PRIVMSG $nick :  !randquote \[--all\] \[--channel=#channel\] \[-c #channel\] - fetches a random quote from the current channel. --all chooses from all channels, not just the one the command is executed from. --channel and -c choose only from the given channel."
+  puthelp "PRIVMSG $nick :  !getquote <id> - fetches the quote with number <id>"
+  puthelp "PRIVMSG $nick :  !findquote \[--all\] \[--channel=#channel\] \[-c #channel\] \[--count <int>\] \[-n <int>\] <text> - finds up to <int> (default 5) quotes containing 'text'. Optional parameters same as !randquote. -n is a shortcut for --count."
+  puthelp "PRIVMSG $nick :  !quoteurl - get the URL for the web interface to the quotes"
+  puthelp "PRIVMSG $nick :  !quotestats - get some information"
+  puthelp "PRIVMSG $nick :  !quoteversion - get the version of the script"
+  puthelp "PRIVMSG $nick :  Some commands have synonyms: !deletequote, !fetchquote, !urlquote, and !searchquote."
+  puthelp "PRIVMSG $nick :  (End of help)"
+  return 0
+}
+
+putlog "QuoteEngine $quote_version loaded"

TopicEngine/TopicEngine.tcl

@@ -0,0 +1,1654 @@
+#         Script : TopicEngine v1
+#                  Copyright 2001-3 James Seward
+#                   $Id: TopicEngine.tcl,v 1.11 2003/02/05 23:24:37 jamesoff Exp $
+#
+#       Testing
+#      Platforms : Linux 2.4
+#                  Eggdrop v1.6.4-13
+#
+#    Description : Advanced script to change/set/lock topics
+#                  See readme for full info
+#
+#
+# Author Contact :     Email - james@jamesoff.net
+#                  Home Page - http://www.jamesoff.net
+#                        IRC - Nick: JamesOff (EFNet)
+#                        ICQ - 1094325 (mention this script in your auth req, else you'll get ignored :)
+#
+#      Credit to : Dan Durrans, for coming up with the idea and feature list
+#                  #exeter and #ags people for testing it
+#
+# 
+
+###############################################################################
+# TopicEngine - a topic management TCL script for eggdrops
+# Copyright (C) James Michael Seward 2000-2003
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or 
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful, but 
+# WITHOUT ANY WARRANTY; without even the implied warranty of 
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 
+# General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License 
+# along with this program; if not, write to the Free Software 
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+###############################################################################
+
+#Don't change this unless you want to RUIN the script and destroy the world :)
+set topicEngineLoad 0
+
+# register the topicEngine channel flag
+setudef flag topicengine
+
+#
+# This is the path to the config file's directory
+# If you use a relative path, it starts from the directory your eggdrop runs in
+# No trailing slash!
+set topicConfigPath "scripts"
+
+catch {
+  source "${topicConfigPath}/TopicEngineSettings.tcl"
+  if {[info exists botnet-nick]} {
+    #load a bot-specific file
+    source "${topicConfigPath}/TopicEngineSettings_${botnet-nick}.tcl"
+  }
+}
+
+#####
+# Shouldn't need to change stuff below here (but you can if you need to and know
+# what you're doing)
+###################################################################################################
+
+set revision "20060108.1"
+
+#init some info
+set topicInfo(pop,version) $revision
+set backupInfo(pop,version) $revision
+set topicChannels [list]
+
+#split tracking
+set topicSplitChans [list]
+set topicLastSplit [clock seconds]
+set topicSplitDirty 0
+
+if {![info exists topicEngineOnline]} {
+  set topicEngineOnline 0
+}
+
+# init
+set loops 0
+set bufferDirty 0
+
+#####
+# topicInitArray
+#
+# Builds the topicInfo array with the default values
+# Won't rebuild if topicEngineOnline is 1 (to stop it overwriting
+# data that's in use
+#
+proc topicInitArray { {loaded 0} } {
+  global topicInfo topicEngineOnline
+
+  set onChannels [channels]
+  set hasError 0
+
+  #change the channels list to all lowercase
+  set newChannels [list]
+  foreach chan $onChannels {
+    #check if this channel is +topicengine
+    if [channel get $chan topicengine] {
+      lappend newChannels [string tolower $chan]
+    }
+  }
+  set topicChannels $newChannels
+
+  foreach chan $topicChannels {
+    set test ""
+    catch {
+      set test $topicInfo($chan,initialised)
+    }
+    if {$test == ""} {
+      #loading for the first time
+      putlog "topicengine: init topicInfo for $chan"
+      # These are the defaults, you may change them
+      # override them with values in TopicEngineSettings.tcl
+      # explainations of these settings are also in that file
+      set topicInfo($chan,leadIn) ""
+      set topicInfo($chan,leadOut) ""
+      #set topicInfo($chan,needOChan) 1
+      #set topicInfo($chan,needVChan) 0
+      #set topicInfo($chan,needOGlobal) 0
+      #set topicInfo($chan,needVGlobal) 0
+      #set topicInfo($chan,needOMode) 1
+      #set topicInfo($chan,needVMode) 0
+      #set topicInfo($chan,Tflag) 1 
+      set topicInfo($chan,canFlags) "o|ov"
+      set topicInfo($chan,canModes) "ov"
+      set topicInfo($chan,cantFlags) "T"
+      set topicInfo($chan,topicBits) [list]
+      set topicInfo($chan,learnOnChange) 1
+      set topicInfo($chan,initialised) "1"
+      
+      #DO NOT CHANGE THESE
+      set topicInfo($chan,topic) ""
+      set topicInfo($chan,whoSet) [list]
+      set topicInfo($chan,whenSet) [list]
+      set topicInfo($chan,whenLastSet) 0
+      set topicInfo($chan,whoLastSet) 0
+      set topicInfo($chan,lock) [list 0 "" ""]
+    } else {
+      if {$loaded == 0} {
+        #sync the topics if we're online
+        catch {
+          if {[lsearch $onChannels $chan] >= 0} { 
+            #putlog "Updating topic in $chan"
+            setTopic $chan 
+          }
+          set blah 0
+        } err
+        if {$err != 0} {
+          putlog "topicengine: $chan not initialised! (is it new?)"
+          set topicInfo($chan,leadOut) ""
+          #set topicInfo($chan,needOChan) 1
+          #set topicInfo($chan,needVChan) 0
+          #set topicInfo($chan,needOGlobal) 0
+          #set topicInfo($chan,needVGlobal) 0
+          #set topicInfo($chan,needOMode) 1
+          #set topicInfo($chan,needVMode) 0
+          #set topicInfo($chan,Tflag) 1 
+          set topicInfo($chan,canFlags) "o|ov"
+          set topicInfo($chan,canModes) "ov"
+          set topicInfo($chan,cantFlags) "T"
+          set topicInfo($chan,topicBits) [list]
+          set topicInfo($chan,learnOnChange) 1
+          set topicInfo($chan,initialised) "1"
+          
+          #DO NOT CHANGE THESE
+          set topicInfo($chan,topic) ""
+          set topicInfo($chan,whoSet) [list]
+          set topicInfo($chan,whenSet) [list]
+          set topicInfo($chan,whenLastSet) 0
+          set topicInfo($chan,whoLastSet) 0
+          set topicInfo($chan,lock) [list 0 "" ""]
+          set hasError 1
+        }
+      }
+    }
+  }
+  if {($topicEngineOnline == 0) || ($hasError == 1)} {
+    # now load the user defaults
+    # you should edit this file to give each channel the settings you want
+    global topicConfigPath botnet-nick
+    catch {
+      set topicEngineLoad 1
+      source "${topicConfigPath}/TopicEngineSettings.tcl"
+      if {[info exists botnet-nick]} {
+        #load a bot-specific file
+        source "${topicConfigPath}/TopicEngineSettings_${botnet-nick}.tcl"
+      }
+    }    
+  }
+}
+
+#### You won't need to change anything below this point ###
+
+#####
+# checkTopic
+# 
+# Tries out a new topic (=current topic | newbit)
+# returns 0 if it'll fit in the network topic length limit
+# else returns the number of characters over the limit
+# allows for the " | " between topic elements
+#
+proc checkTopic {channel newbit {noOldTopic 0}} {
+  global topicLengthLimit topicInfo topicSeparator
+
+  #append the new bit onto the topic list
+  if {$noOldTopic == 0} {
+    set thisTopic $topicInfo($channel,topicBits)
+  } else {
+    #don't count the old topic, so initalise the 'old' one
+    set thisTopic [list]
+  }
+
+  if {$newbit != ""} { lappend thisTopic $newbit }
+  
+  if {$topicInfo($channel,leadIn) != ""} {
+    set thisTopic [linsert $thisTopic 0 $topicInfo($channel,leadIn)]
+  }
+
+  if {$topicInfo($channel,leadOut) != ""} {
+    set thisTopic [linsert $thisTopic end $topicInfo($channel,leadOut)]
+  }
+
+  set topicString ""
+
+  foreach bit $thisTopic {
+    append topicString $bit
+    append topicString " $topicSeparator "
+  }
+
+  set topicString [string range $topicString 0 [expr [string length $topicString] - 4 ]]
+
+  set topicLength [string length $topicString]
+
+  if {$topicLength > $topicLengthLimit} { return [expr $topicLength - $topicLengthLimit] }
+  return 0
+}
+
+#####
+# backupTopic {channel}
+#
+# saves the topic to another array so it can be recovered if needed
+#
+proc backupTopic { channel } {
+  global topicInfo backupInfo
+
+  set backupInfo($channel,topicBits) $topicInfo($channel,topicBits)
+  set backupInfo($channel,topic) $topicInfo($channel,topic)
+  set backupInfo($channel,whoSet) $topicInfo($channel,whoSet)
+  set backupInfo($channel,whenSet) $topicInfo($channel,whenSet)
+  set backupInfo($channel,whoLastSet) $topicInfo($channel,whoLastSet)
+  set backupInfo($channel,whenLastSet) $topicInfo($channel,whenLastSet)
+
+  return 0
+}
+
+#####
+# setTopic {channel, force = 0}
+#
+# sets the topic based on the topicBits list
+# will not change the topic if doesn't need it, unless force is 1
+#
+proc setTopic {channel {force 0}} {
+  global topicInfo loops topicSeparator bufferDirty topicEngineOnline
+
+  putloglev d * "topicengine: updating topic for $channel (force = $force)"
+
+  #debug for recursive stuff
+  set loops 0
+
+  #if we're not opped, don't even bother
+  if {![botisop $channel]} {
+    putlog "topicengine: er, I'm not opped in $channel, so I can't set the topic :("
+    return 0
+  }
+
+  set thisTopic $topicInfo($channel,topicBits)  
+  
+  ##leadin and leadout
+  if {$topicInfo($channel,leadIn) != ""} {
+    putloglev 1 * "topicengine: adding prefix"
+    set thisTopic [linsert $thisTopic 0 $topicInfo($channel,leadIn)]
+  }
+
+  if {$topicInfo($channel,leadOut) != ""} {
+    putloglev 1 * "topicengine: adding postfix"
+    set thisTopic [linsert $thisTopic end $topicInfo($channel,leadOut)]
+  }
+
+  ##build topic string
+  set topicString ""
+
+  foreach bit $thisTopic {
+    append topicString $bit
+    append topicString " $topicSeparator "
+  }
+
+  set topicString [string range $topicString 0 [expr [string length $topicString] - 4 ]]
+
+  #interpolate time stuff
+  set loops 0
+  while {[regexp "_TIME\{(.+?)\}" $topicString matches timeformat]} {
+    incr loops
+    if {$loops > 10} {
+      set line ""
+      putlog "topicengine: TREMENDOUS FAILURE! Topic for $channel couldn't be generated."
+      return 1
+    }
+    set timeString [clock format [clock seconds] -format $timeformat]
+    regsub -all "_TIME{$timeformat}" $topicString $timeString topicString
+  }
+
+  #putlog "topicengine: final topic for $channel is $topicString"
+
+  set topicInfo($channel,topic) $topicString
+  if {([topic $channel] == $topicString) && ($force == 0)} { return 0 }
+  if {$force == -1} { 
+    #just update the topic cache
+    return 0 
+  }
+  
+  putserv "TOPIC $channel :$topicString"
+  set bufferDirty 0
+  return 0
+}
+
+
+#####
+# topicChanged
+#
+# called when the topic is changed on a channel
+# checks if the topic is locked and changes it back if it needs to
+# if topicInfo(channel,learnOnChange) is 1, will parse this topic and learn it
+#
+proc topicChanged {nick host handle channel text} {
+  global topicInfo topicChannels
+  
+  #check the topic script is active in here
+  if {![channel get $channel topicengine]} {
+    return 0
+  }
+
+  #this is because the array isn't initialised when the bot first starts
+  topicInitArray 1
+
+  #if it's me, drop
+  if [isbotnick $nick] { return 0 }
+
+  #if it's the same topic as before, drop
+  if {$text == $topicInfo($channel,topic)} { return 0 }
+
+  #if it's an empty topic, redo it and don't learn it
+  if {$text == ""} {
+    setTopic $channel
+    return 0
+  }
+
+  #if it's a bot setting the topic, ignore it
+  if [matchattr $handle b] { return 0 }
+  
+  if {[lindex $topicInfo($channel,lock) 0] == 0} { 
+    #learn it?
+    if {$topicInfo($channel,learnOnChange) == 1} {
+      putlog "Topic in $channel changed, learning it"
+      #back it up
+      backupTopic $channel
+      topicParse $channel $text $nick
+    }
+    return 0 
+  }
+
+  #it's locked, put it back and notify
+  setTopic $channel 1
+  set whoLocked [lindex $topicInfo($channel,lock) 1]
+  set whenLocked [clock format [lindex $topicInfo($channel,lock) 2]]
+  putserv "NOTICE $nick :Sorry, the topic for $channel was locked by $whoLocked on $whenLocked."
+  putlog "Bouncing topic in $channel"
+  return 0
+}
+
+#####
+# topicCommand
+#
+# interact with the user, accepts the !topic... commands
+#
+proc topicCommand {nick host handle channel text {silent 0} } {
+  global topicInfo topicChannels loops bufferDirty
+  set doBuffer 0
+  #putlog "topic command: $text ($channel)"
+
+  #check the topic script is active in here
+  if {![channel get $channel topicengine]} {
+    return 0
+  }
+
+  #check I'm opped there
+  if {![botisop $channel]} {
+    topicNotice "I'm not opped in $channel; I can't manage the topic."
+    return 0
+  }
+
+  #lowercase the channel (for case insensitivity in the array)
+  set channel [string tolower $channel]
+
+  set text [string trim $text]
+
+  incr loops
+  if {$loops > 5} { 
+    set loops 0
+    putlog "TopicEngine internal error: recursive looping. Aborting processing of this command."
+    return 0
+  }
+
+  #this is because the array isn't initialised when the bot first starts
+  topicInitArray 1
+  
+  #these commands can be used by anyone
+################# INFO
+  if [regexp -nocase "^info ?(.+)?" $text boom param] {
+    set loops 0
+    if {$param == ""} { 
+      set updateTime [clock format $topicInfo($channel,whenLastSet)]
+      if {[lindex $topicInfo($channel,lock) 0] != 0} {
+        set whoLocked [lindex $topicInfo($channel,lock) 1]
+        set whenLocked [clock format [lindex $topicInfo($channel,lock) 2]]
+        set lockedString " ... locked \002\[\002 $whoLocked | $whenLocked \002\]\002"
+      } else {
+        set lockedString ""
+      }
+
+      set undoString " ... undo \002\[\002 no \002\]\002"
+
+      catch {
+        global backupInfo
+        if {$backupInfo($channel,topicBits) != ""} {
+          set undoString " ... undo \002\[\002 yes \002\]\002"
+        }
+      }
+
+      if {$bufferDirty == 1} {
+        set bufferString " ... buffer \002\[\002 dirty \002\]\002"
+      } else {
+        set bufferString ""
+      }
+
+      global topicInfoBroadcast topicType
+      if {$topicInfoBroadcast == 0} {
+        topicNotice "$channel: topic \002\[\002 $topicInfo($channel,topic) \002\]\002 ... changed \002\[\002 $topicInfo($channel,whoLastSet) | $updateTime \002\]\002${lockedString}${bufferString}${undoString}"
+      } else {
+        if {$topicType == "pub"} {
+          putserv "PRIVMSG $channel :$channel: topic \002\[\002 $topicInfo($channel,topic) \002\]\002 ... changed \002\[\002 $topicInfo($channel,whoLastSet) | $updateTime \002\]\002${lockedString}${bufferString}${undoString}"
+        } else {
+          #msg and dcc
+          topicNotice "$channel: topic \002\[\002 $topicInfo($channel,topic) \002\]\002 ... changed \002\[\002 $topicInfo($channel,whoLastSet) | $updateTime \002\]\002${lockedString}${bufferString}${undoString}"
+        }
+      }
+
+      return 1
+    }
+
+    if {$param == "undo"} {
+      set undoString "\002\[\002 unavailable \002\]\002"
+
+      catch {
+        global backupInfo topicType
+        if {$backupInfo($channel,topicBits) != ""} {
+          set undoString "\002\[\002 $backupInfo($channel,topic) \002\]\002"
+        }
+      }
+
+      if {$topicType == "pub"} {
+        putserv "PRIVMSG $channel :$channel: topic undo $undoString"
+      } else {
+        #msg and dcc
+        topicNotice "$channel: topic undo $undoString"
+      }
+
+      return 1
+    }
+
+    set elementCount [llength $topicInfo($channel,topicBits)]
+
+    if {$param < 1} {
+      topicNotice "Error: topic index too low!"
+      return 1
+    }
+
+    if {$param > $elementCount} {
+      topicNotice "Error: topic index too high!"
+      return 1
+    }
+
+    set actparam [expr $param - 1]
+    set updateTime [clock format [lindex $topicInfo($channel,whenSet) $actparam]]
+    global topicInfoBroadcast topicType
+    if {$topicInfoBroadcast == 0} {
+      topicNotice "$channel: element \002\[\002 $param = [lindex $topicInfo($channel,topicBits) $actparam] \002\]\002 ... set by \002\[\002 [lindex $topicInfo($channel,whoSet) $actparam] | $updateTime \002\]\002"
+    } else {
+        if {$topicType == "pub"} {
+          putserv "PRIVMSG $channel :$channel: element \002\[\002 $param = [lindex $topicInfo($channel,topicBits) $actparam] \002\]\002 ... set by \002\[\002 [lindex $topicInfo($channel,whoSet) $actparam] | $updateTime \002\]\002"
+        } else {
+          #msg and dcc
+          topicNotice "$channel: element \002\[\002 $param = [lindex $topicInfo($channel,topicBits) $actparam] \002\]\002 ... set by \002\[\002 [lindex $topicInfo($channel,whoSet) $actparam] | $updateTime \002\]\002"
+        }
+      }
+
+    return 1
+  }
+
+################# HELP
+  if [regexp -nocase "^help" $text] {
+    global botnick
+    topicNotice "Please use \002/msg $botnick topic help\002 for a command list"
+    return 1
+  }
+
+################# VERSION
+  if [string match -nocase "version" $text] {
+    topicNotice "I am running JamesOff's TopicEngine version $topicInfo(pop,version)."
+    return 1
+  }
+
+  #these commands need permissions
+  set canTopic 0
+  
+  #first we need to check global O and V
+  #if {($topicInfo($channel,needOGlobal) == 1) && [matchattr $handle o]} { set canTopic 1 }
+  #if {($topicInfo($channel,needVGlobal) == 1) && [matchattr $handle v]} { set canTopic 1 }
+
+  #now local O and V
+  #if {($topicInfo($channel,needOChan) == 1) && [matchattr $handle -|o $channel]} { set canTopic 1 }
+  #if {($topicInfo($channel,needVChan) == 1) && [matchattr $handle -|v $channel]} { set canTopic 1 }
+
+  #now modes in the channel
+  #if {($topicInfo($channel,needOMode) == 1) && [isop $nick $channel]} { set canTopic 1 }
+  #if {($topicInfo($channel,needVMode) == 1) && [isvoice $nick $channel]} { set canTopic 1 }
+
+  #now finally the T flag... this is different - if you HAVE it you can't set a topic
+  #Hack by Artoo; users with T flag can change topic, users with U flag can not
+  #if {($topicInfo($channel,Tflag) == 1) && [matchattr $handle T]} { set canTopic 1 }
+  #if {($topicInfo($channel,Tflag) == 1) && [matchattr $handle -|U $channel]} { set canTopic 0 }
+  #if {($topicInfo($channel,Tflag) == 1) && [matchattr $handle U]} { set canTopic 0 }
+  #if {($topicInfo($channel,Tflag) == 1) && [matchattr $handle -|T $channel]} { set canTopic 1 }
+
+  #New system: using channel settings
+  
+  # First we check canFlags, if the user has these eggdrop flags we'll allow use
+  if [matchattr $handle $topicInfo($channel,canFlags) $channel] {
+    putloglev d * "topicEngine: user $handle matches flags"
+    set canTopic 1
+  }
+
+  # Now check canModes, if the user has one of these modes we'll allow use
+  set modesList [split $topicInfo($channel,canModes) {}]
+  foreach modeChar $modesList {
+    if {($modeChar == "o") && [isop $nick $channel]} {
+      putloglev d * "topicEngine: user $nick is an op, allowed"
+      set canTopic 1
+      break
+    }
+
+    if {($modeChar == "v") && [isvoice $nick $channel]} {
+      putloglev d * "topicEngine: user $nick is a voice, allowed"
+      set canTopic 1
+      break
+    }
+
+    if {($modeChar == "h") && [ishalfop $nick $channel]} {
+      putloglev d * "topicEngine: user $nick is a halfop, allowed"
+      set canTopic 1
+      break
+    }
+  }
+
+  # Finally, if a user matches cantFlags, we'll disable the script for them (regardless of
+  # any other match so far
+
+  if [matchattr $handle $topicInfo($channel,cantFlags) $channel] {
+    putloglev d * "topicEngine: user $handle matches flags, disallowed"
+    set canTopic 0
+  }
+
+  if {$canTopic == 0} {
+    topicNotice "Sorry, you cannot use the !topic commands"
+    return 1
+  }
+
+################# UNDO
+  if [regexp -nocase "^undo(.+)?" $text boom params] {
+    if {([lindex $topicInfo($channel,lock) 0] != 0) && (![matchattr $handle |n $channel])} {
+      set whoLocked [lindex $topicInfo($channel,lock) 1]
+      topicNotice "Sorry, the topic has been locked by $whoLocked."
+      return 1
+    }
+    set loops 0
+
+    set params [string trim $params]
+
+    if {([string first "~" $params] == 0) || [string match -nocase "buffer" $params]} {
+      #buffer the topic
+      set bufferDirty 1
+      set doBuffer 1
+    }
+    
+    global backupInfo
+
+    if {$backupInfo($channel,topicBits) == ""} {
+      topicNotice "Sorry, no undo is available for $channel"
+      return 2
+    }
+
+    set topicInfo($channel,topicBits) $backupInfo($channel,topicBits)
+    set topicInfo($channel,whoSet) $backupInfo($channel,whoSet)
+    set topicInfo($channel,whenSet) $backupInfo($channel,whenSet)
+    set topicInfo($channel,whoLastSet) "$backupInfo($channel,whoLastSet)/undo:$nick"
+    set topicInfo($channel,whenLastSet) [clock seconds]
+
+    set backupInfo($channel,topicBits) ""
+    set backupInfo($channel,topic) ""
+
+    if {$doBuffer == 0} {
+      setTopic $channel
+    } else {
+      setTopic $channel -1
+    }
+  
+    return 1
+  }
+
+################# ADD
+  if [regexp -nocase "^add (.+)" $text boom params] {
+    if {([lindex $topicInfo($channel,lock) 0] != 0) && (![matchattr $handle |n $channel])} {
+      set whoLocked [lindex $topicInfo($channel,lock) 1]
+      topicNotice "Sorry, the topic has been locked by $whoLocked."
+      return 1
+    }
+    set loops 0
+    if {[string first "@" $params] == 0} {
+      #lock the topic
+      topicCommand $nick $host $handle $channel "lock"
+      set params [string range $params 1 end]
+    }
+    if {[string first "~" $params] == 0} {
+      #buffer the topic
+      set bufferDirty 1
+      set doBuffer 1
+      set params [string range $params 1 end]
+    }
+
+    #remove extra spaces
+    set params [string trim $params]
+    regsub -all "  +" $params " " params
+   
+    #check length
+    set tooMany [checkTopic $channel $params]
+    if {$tooMany} {
+      topicNotice "Sorry, adding that to the topic would make it go over the length limit by $tooMany characters. Please try a shorter topic, or the 'append' (<<<) command instead of 'add' (+)"
+      return 1
+    }
+
+    backupTopic $channel
+
+    lappend topicInfo($channel,topicBits) $params
+    lappend topicInfo($channel,whoSet) $nick
+    lappend topicInfo($channel,whenSet) [clock seconds]
+    set topicInfo($channel,whoLastSet) $nick
+    set topicInfo($channel,whenLastSet) [clock seconds]
+    if {$doBuffer == 0} {
+      setTopic $channel
+    } else {
+      setTopic $channel -1
+    }
+    return 1
+  }
+
+################# APPEND
+  if [regexp -nocase "^append (.+)" $text boom params] {
+    if {([lindex $topicInfo($channel,lock) 0] != 0) && (![matchattr $handle |n $channel])} {
+      set whoLocked [lindex $topicInfo($channel,lock) 1]
+      topicNotice "Sorry, the topic has been locked by $whoLocked."
+      return 1
+    }
+    set loops 0
+    if {[string first "@" $params] == 0} {
+      #lock the topic
+      topicCommand $nick $host $handle $channel "lock"
+      set params [string range $params 1 end]
+    }
+    if {[string first "~" $params] == 0} {
+      #buffer the topic
+      set bufferDirty 1
+      set doBuffer 1
+      set params [string range $params 1 end]
+    }
+
+    #remove extra spaces
+    set params [string trim $params]
+    regsub -all "  +" $params " " params
+   
+    #check length
+    set tooMany [checkTopic $channel $params]
+    set originalTopicBits $topicInfo($channel,topicBits)
+    set originalTopicWho $topicInfo($channel,whoSet)
+    set originalTopicWhen $topicInfo($channel,whenSet)
+    set count 0
+    while {$tooMany} {
+
+      #delete element 1 (return 2 = failed to delete)
+      set result [topicCommand $nick $host $handle $channel "del ~1" 1]
+
+      if {$result == 2} {
+        #wahey
+        topicNotice "Sorry, couldn't fit that in the topic. Please try something shorter"
+        set topicInfo($channel,topicBits) $originalTopicBits
+        set topicInfo($channel,topicWho) $originalTopicWho
+        set topicInfo($channel,topicWhen) $originalTopicWhen
+        return 2
+      }
+      
+      set tooMany [checkTopic $channel $params]
+      incr count
+      if {$count == 100} {
+        puthelp "ALERT: Looping too much in TopicEngine (append)"
+        return 0
+      }
+    }
+
+    backupTopic $channel
+
+    lappend topicInfo($channel,topicBits) $params
+    lappend topicInfo($channel,whoSet) $nick
+    lappend topicInfo($channel,whenSet) [clock seconds]
+    set topicInfo($channel,whoLastSet) $nick
+    set topicInfo($channel,whenLastSet) [clock seconds]
+    if {$doBuffer == 0} {
+      setTopic $channel
+    } else {
+      setTopic $channel -1
+    }
+    return 1
+  }
+
+################# INSERT
+  if [regexp -nocase "^insert (.+)" $text boom params] {
+    if {([lindex $topicInfo($channel,lock) 0] != 0) && (![matchattr $handle |n $channel])} {
+      set whoLocked [lindex $topicInfo($channel,lock) 1]
+      topicNotice "Sorry, the topic has been locked by $whoLocked."
+      return 1
+    }
+    set loops 0
+    if {[string first "@" $params] == 0} {
+      #lock the topic
+      topicCommand $nick $host $handle $channel "lock"
+      set params [string range $params 1 end]
+    }
+    if {[string first "~" $params] == 0} {
+      #buffer the topic
+      set bufferDirty 1
+      set doBuffer 1
+      set params [string range $params 1 end]
+    }
+
+    #remove extra spaces
+    set params [string trim $params]
+    regsub -all "  +" $params " " params
+   
+    #check length
+    set tooMany [checkTopic $channel $params]
+    set originalTopicBits $topicInfo($channel,topicBits)
+    set originalTopicWho $topicInfo($channel,whoSet)
+    set originalTopicWhen $topicInfo($channel,whenSet)
+    set count 0
+    while {$tooMany} {
+
+      #delete last element (return 2 = failed to delete)
+      set lastElement [llength $topicInfo($channel,topicBits)]
+      set result [topicCommand $nick $host $handle $channel "del ~$lastElement" 1]
+
+      if {$result == 2} {
+        #wahey
+        topicNotice "Sorry, couldn't fit that in the topic. Please try something shorter"
+        set topicInfo($channel,topicBits) $originalTopicBits
+        set topicInfo($channel,topicWho) $originalTopicWho
+        set topicInfo($channel,topicWhen) $originalTopicWhen
+        return 2
+      }
+      
+      set tooMany [checkTopic $channel $params]
+      incr count
+      if {$count == 100} {
+        puthelp "ALERT: Looping too much in TopicEngine (insert)"
+        return 0
+      }
+    }
+
+    backupTopic $channel
+
+    set topicInfo($channel,topicBits) [linsert $topicInfo($channel,topicBits) 0 $params]
+    set topicInfo($channel,whoSet) [linsert $topicInfo($channel,whoSet) 0 $nick]
+    set topicInfo($channel,whenSet) [linsert $topicInfo($channel,whenSet) 0 [clock seconds]]
+    set topicInfo($channel,whoLastSet) $nick
+    set topicInfo($channel,whenLastSet) [clock seconds]
+    if {$doBuffer == 0} {
+      setTopic $channel
+    } else {
+      setTopic $channel -1
+    }
+    return 1
+  }
+
+################# SET
+  if [regexp -nocase "^set (.+)" $text pop cmdString] {
+    if {([lindex $topicInfo($channel,lock) 0] != 0) && (![matchattr $handle |n $channel])} {
+      set whoLocked [lindex $topicInfo($channel,lock) 1]
+      topicNotice "Sorry, the topic has been locked by $whoLocked."
+      return 1
+    }
+    set loops 0
+    if [regexp -nocase "^(pre|post)fix (.+)" $cmdString boom which what] {
+      set which [string tolower $which]
+      if {$what == "none"} { set what "" }
+
+      if {$which == "pre"} {
+        set tooMany [checkTopic $channel $what]
+        if {$tooMany} {
+          topicNotice "Sorry, adding that to the topic would make it go over the length limit by $tooMany characters. Please try a shorter topic."
+          return 1
+        }
+        set topicInfo($channel,leadIn) $what      
+        setTopic $channel
+        return 1
+      }
+
+      if {$which == "post"} {
+        set tooMany [checkTopic $channel $what]
+        if {$tooMany} {
+          topicNotice "Sorry, adding that to the topic would make it go over the length limit by $tooMany characters. Please try a shorter topic."
+          return 1
+        }
+        set topicInfo($channel,leadOut) $what
+        setTopic $channel
+        return 1
+      }
+    }
+
+    #else set the topic as is
+    if {$cmdString == "none"} { 
+      set cmdString ""
+    }
+
+    if {[string first "@" $cmdString] == 0} {
+      #lock the topic
+      topicCommand $nick $host $handle $channel "lock"
+      set cmdString [string range $cmdString 1 end]
+    }
+
+    if {[string first "~" $cmdString] == 0} {
+      #buffer the topic
+      set bufferDirty 1
+      set doBuffer 1
+      set cmdString [string range $cmdString 1 end]
+    }
+
+
+    set tooMany [checkTopic $channel $cmdString 1]
+    if {$tooMany} {
+      topicNotice "Sorry, adding that to the topic would make it go over the length limit by $tooMany characters. Please try a shorter topic."
+      return 1
+    }
+
+    #remove extra spaces
+    set cmdString [string trim $cmdString]
+    regsub -all "  +" $cmdString " " cmdString
+    
+    backupTopic $channel
+
+    set topicInfo($channel,whoSet) [list $nick]
+    set topicInfo($channel,whenSet) [list [clock seconds]]
+    set topicInfo($channel,whoLastSet) $nick
+    set topicInfo($channel,whenLastSet) [clock seconds]
+    set topicInfo($channel,topicBits) [list $cmdString]
+    if {$doBuffer == 0} {
+      setTopic $channel
+    } else {
+      setTopic $channel -1
+    }
+    return 1
+  }
+
+################# DEL
+  if [regexp -nocase "^del (.+)" $text boom param] {
+    if {([lindex $topicInfo($channel,lock) 0] != 0) && (![matchattr $handle |n $channel])} {
+      set whoLocked [lindex $topicInfo($channel,lock) 1]
+      topicNotice "Sorry, the topic has been locked by $whoLocked."
+      return 1
+    }
+    set loops 0
+
+    #update the cached version
+    setTopic $channel -1
+
+    if {[string first "~" $param] == 0} {
+      #buffer the topic
+      set bufferDirty 1
+      set doBuffer 1
+      set param [string range $param 1 end]
+    }
+
+    set elementCount [llength $topicInfo($channel,topicBits)]
+
+    if {$param < 1} {
+      if {$silent == 0} {
+      topicNotice "Error: topic index too low!"
+      }
+      return 1
+    }
+
+    if {$param > $elementCount} {
+      if {$silent == 0} {
+      topicNotice "Error: topic index too high!"
+      }
+      return 2
+    }
+
+    backupTopic $channel
+
+    set param [expr $param - 1]
+    set topicInfo($channel,topicBits) [lreplace $topicInfo($channel,topicBits) $param $param]
+    set topicInfo($channel,whoSet) [lreplace $topicInfo($channel,whoSet) $param $param]
+    set topicInfo($channel,whenSet) [lreplace $topicInfo($channel,whenSet) $param $param]
+    set topicInfo($channel,whoLastSet) $nick
+    set topicInfo($channel,whenLastSet) [clock seconds]
+    if {$doBuffer == 0} {
+      setTopic $channel
+    } else {
+      setTopic $channel -1
+    }
+    return 1
+  }
+
+################# REGEXP
+  if [regexp -nocase {^regexp ([^ ]+) (.+)} $text matches param re] {
+    if {([lindex $topicInfo($channel,lock) 0] != 0) && (![matchattr $handle |n $channel])} {
+      set whoLocked [lindex $topicInfo($channel,lock) 1]
+      topicNotice "Sorry, the topic has been locked by $whoLocked."
+      return 1
+    }
+    set loops 0
+
+    #update the cached version
+    setTopic $channel -1
+
+    if {[string first "~" $re] == 0} {
+      #buffer the topic
+      set bufferDirty 1
+      set doBuffer 1
+      set param [string range $param 1 end]
+    }
+
+    set elementCount [llength $topicInfo($channel,topicBits)]
+
+    if {$param < 1} {
+      if {$silent == 0} {
+      topicNotice "Error: topic index too low!"
+      }
+      return 1
+    }
+
+    if {$param > $elementCount} {
+      if {$silent == 0} {
+      topicNotice "Error: topic index too high!"
+      }
+      return 2
+    }
+
+    if {![regexp {/(.+)/([^/]+)?/(.+)?} $re matches refirst resecond reopts]} {
+      topicNotice "Error: not a valid regexp. Use \002/match/replace/options\002."
+      return 2
+    }
+
+    set param [expr $param - 1]
+    set topicElement [lindex $topicInfo($channel,topicBits) $param]
+
+    set options ""
+    if [string match "*i*" $reopts] {
+      set options "-nocase"
+    }
+    if [string match "*g*" $reopts] {
+      append options "-all"
+    }
+
+    if {$options != ""} {
+      regsub $options $refirst $topicElement $resecond topicElement
+    } else {
+      regsub $refirst $topicElement $resecond topicElement
+    }
+
+    set oldTopic $topicInfo($channel,topicBits)
+    set limit [checkTopic $channel ""]
+    if {$limit > 0} {
+      topicNotice "Sorry, that would make the topic go over the limit by $limit characters."
+      set topicInfo($channel,topicBits) $oldTopic
+      return 2
+    }
+
+    backupTopic $channel
+
+    set topicInfo($channel,topicBits) [lreplace $topicInfo($channel,topicBits) $param $param $topicElement]
+    set topicInfo($channel,whoSet) [lreplace $topicInfo($channel,whoSet) $param $param "$nick/regexp"]
+    set topicInfo($channel,whenSet) [lreplace $topicInfo($channel,whenSet) $param $param [clock seconds]]
+    set topicInfo($channel,whoLastSet) $nick
+    set topicInfo($channel,whenLastSet) [clock seconds]
+    if {$doBuffer == 0} {
+      setTopic $channel
+    } else {
+      setTopic $channel -1
+    }
+    return 1
+  }
+
+
+
+################# REHASH
+  if [regexp -nocase "^(rehash|redo)( force)?" $text pop whee force] {
+    set mustRedo 0
+    if [string match -nocase " force" $force] {
+      set mustRedo 1
+    }
+    setTopic $channel $mustRedo
+    return 1
+  }
+
+################# RESET/CLEAR
+  if [regexp -nocase "^(clear|reset)( (content|all))?" $text pop blblbl whee opt] {
+    if {([lindex $topicInfo($channel,lock) 0] != 0) && (![matchattr $handle |n $channel])} {
+      set whoLocked [lindex $topicInfo($channel,lock) 1]
+      topicNotice "Sorry, the topic has been locked by $whoLocked."
+      return 1
+    }
+    set loops 0
+    if {$opt == "all"} {
+      set topicInfo($channel,leadIn) ""
+      set topicInfo($channel,leadOut) ""
+      set topicInfo($channel,topicBits) [list]
+      set topicInfo($channel,whoSet) [list]
+      set topicInfo($channel,whenSet) [list]
+      setTopic $channel
+      set topicInfo($channel,whoLastSet) $nick
+      set topicInfo($channel,whenLastSet) [clock seconds]
+      return 1
+    }
+
+    if {$opt == "content"} {
+      set topicInfo($channel,topicBits) [list]
+      set topicInfo($channel,whoSet) [list]
+      set topicInfo($channel,whenSet) [list]
+      setTopic $channel
+      set topicInfo($channel,whoLastSet) $nick
+      set topicInfo($channel,whenLastSet) [clock seconds]
+      return 1
+    }
+
+    set topicInfo($channel,topic) ""
+    if { [topic $channel] != ""} {
+      putserv "TOPIC $channel :"
+    }
+
+    return 1
+  }
+
+################# LOCK
+  if [string match -nocase "lock" $text] {
+    if {![matchattr $handle |n $channel]} {
+      topicNotice "Sorry, you cannot lock the topic."
+      return 1
+    }
+    set loops 0
+    if {[lindex $topicInfo($channel,lock) 0] == 1} {
+      topicNotice "The topic is already locked."
+      return 1
+    }
+
+    set topicInfo($channel,lock) [list 1 $nick [clock seconds]]
+    topicNotice "Locking topic for $channel."
+    #check the topic is the cached one
+    if {$topicInfo($channel,topic) != [topic $channel]} {
+      setTopic $channel
+    }
+    # get any other bots that are locking this channel to unlock it
+    putallbots "topicengine unlock $channel"
+    return 1
+  }
+
+################# UNLOCK
+  if [string match -nocase "unlock" $text] {
+    if {![matchattr $handle |n $channel]} {
+      topicNotice "Sorry, you cannot unlock the topic."
+      return 1
+    }
+    set loops 0
+    if {[lindex $topicInfo($channel,lock) 0] == 0} {
+      topicNotice "The topic is already unlocked."
+      return 1
+    }
+
+    set topicInfo($channel,lock) [list 0 "" ""]
+    topicNotice "Unlocking topic in $channel."
+    return 1
+  }
+
+################# shortcuts
+  if [regexp -nocase "^>>>(.+)" $text pop extra] {
+    #append
+    topicCommand $nick $host $handle $channel "insert $extra"
+    return 1
+  }
+  if [regexp -nocase "^<<<(.+)" $text pop extra] {
+    #append
+    topicCommand $nick $host $handle $channel "append $extra"
+    return 1
+  }
+  if [regexp -nocase "^\\\+(.+)" $text pop actual] {
+    #add
+    topicCommand $nick $host $handle $channel "add $actual"
+    return 1
+  }
+  if [regexp -nocase "^\\\-(.+)" $text pop actual] {
+    #del
+    topicCommand $nick $host $handle $channel "del $actual"
+    return 1
+  }
+  if [regexp -nocase "^\\\=(.+)" $text pop actual] {
+    #set
+    topicCommand $nick $host $handle $channel "set $actual"
+    return 1
+  }
+  if [regexp -nocase "^\\\?(.+)?" $text pop actual] {
+    #info
+    topicCommand $nick $host $handle $channel "info $actual"
+    return 1
+  }
+  if [regexp -nocase "^#(!)?" $text pop extra] {
+    #rehash
+    if {$extra == "!"} { set extra "force" }
+    topicCommand $nick $host $handle $channel "rehash $extra"
+    return 1
+  }
+  if [regexp -nocase {^/([0-9]+)(.+)} $text matches index exp] {
+    #regexp
+    topicCommand $nick $host $handle $channel "regexp $index $exp"
+    return 1
+  }
+
+  
+  ##If we got here, they used the command wrong
+  # assume they meant set, and tell them how to get help
+
+  ##Just double-check it's not that they left off all the text entirely, in which case we'll tell them the topic, and how to get help.
+  if {$text == ""} {
+    topicCommand $nick $host $handle $channel "info"
+    global botnick
+    topicNotice "\[FYI\] For help on the !topic commands, please do \002/msg $botnick topic help\002."
+    return 1
+  }
+    
+  #topicCommand $nick $host $handle $channel "set $text"
+
+  global botnick
+  topicNotice "\[FYI\] Incorrect use of !topic command. You probably meant !topic set <topic>. Do \002/msg $botnick topic help\002 for more information."
+  return 0
+}
+
+#####
+# topicHelp
+#
+# respond to /msg botnick topic help ... requests
+#
+proc topicHelp {nick host handle arg} {
+  if [regexp -nocase "^help( .+)?" $arg boom helpon] {
+    global botnick topicInfo
+
+    set helpon [string tolower $helpon]
+    if {$helpon == ""} {
+      #command list
+      puthelp "PRIVMSG $nick :\002TopicEngine Script v$topicInfo(pop,version)\002 by JamesOff (james@jamesoff.net) http://www.jamesoff.net/go/topicengine";
+      puthelp "PRIVMSG $nick :\037Commands available\037: (all from channel as !topic ..., or in query as /msg $botnick topic ..., or on partyline as .topic ..."
+      puthelp "PRIVMSG $nick :Use \037/msg $botnick topic help <command>\037 for more info)";
+      puthelp "PRIVMSG $nick :  info    set     add"
+      puthelp "PRIVMSG $nick :  del     rehash  clear"
+      puthelp "PRIVMSG $nick :  lock    unlock  append"
+      puthelp "PRIVMSG $nick :  insert  undo    regexp"
+      return 0
+    }
+
+    set helpon [string range $helpon 1 [string length $helpon]]
+
+    if {$helpon == "info"} {
+      puthelp "PRIVMSG $nick :\002!topic info\002"
+      puthelp "PRIVMSG $nick :  This gives you summary information about what the topic is, and when it was last changed by whom"
+      puthelp "PRIVMSG $nick :\002!topic info <n>\002"
+      puthelp "PRIVMSG $nick :  This tells you about component n of the topic. The first component is 1. Be careful, the pre- and postfixes are not included in this."
+      puthelp "PRIVMSG $nick :\002!topic info undo\002"
+      puthelp "PRIVMSG $nick :  This tells you the status of the undo buffer for the channel. (See !topic undo)"
+      puthelp "PRIVMSG $nick :\002!topic ?\002 and \002!topic ?<n>\002 are shortcuts for this command"
+      return 0
+    }
+
+    if {$helpon == "set"} {
+      puthelp "PRIVMSG $nick :\002!topic set <string>"
+      puthelp "PRIVMSG $nick :  This will remove all components of the topic (except the pre- and postfixes) and replace them with your string."
+      puthelp "PRIVMSG $nick :  <string> can also be 'none' to clear the topic"
+      puthelp "PRIVMSG $nick :\002!topic set prefix|postfix <string>"
+      puthelp "PRIVMSG $nick :  This sets the prefix or the postfix to the string you give"
+      puthelp "PRIVMSG $nick :  Use 'none' to clear them"
+      puthelp "PRIVMSG $nick :\002!topic =<string>\002 and \002!topic =prefix|postfix <string>\002 are shortcuts for this command"
+      puthelp "PRIVMSG $nick :You can prefix <string> with @ to make the bot lock the topic at the same time. (Not for pre/postfix)"
+      return 0
+    }
+
+    if {$helpon == "add"} {
+      puthelp "PRIVMSG $nick :\002!topic add <string>"
+      puthelp "PRIVMSG $nick :  Adds your string to the topic. Will fail if your string would make the topic go over the topic length limit."
+      puthelp "PRIVMSG $nick :\002!topic +<string>\002 is a shortcut for this command"
+      puthelp "PRIVMSG $nick :You can prefix <string> with @ to make the bot lock the topic at the same time."
+      return 0
+    }
+
+    if {$helpon == "append"} {
+      puthelp "PRIVMSG $nick :\002!topic append <string>"
+      puthelp "PRIVMSG $nick :  Adds your string to the topic. Will automatically drop elements from the start of the topic to try to fit your text in."
+      puthelp "PRIVMSG $nick :\002!topic <<<<string>\002 is a shortcut for this command (e.g. !topic <<<hello)."
+      puthelp "PRIVMSG $nick :You can prefix <string> with @ to make the bot lock the topic at the same time."
+      return 0
+    }
+
+    if {$helpon == "append"} {
+      puthelp "PRIVMSG $nick :\002!topic insert <string>"
+      puthelp "PRIVMSG $nick :  Adds your string to the front of the topic. Will automatically drop elements from the end of the topic to try to fit your text in."
+      puthelp "PRIVMSG $nick :\002!topic >>><string>\002 is a shortcut for this command (e.g. !topic >>>hello)."
+      puthelp "PRIVMSG $nick :You can prefix <string> with @ to make the bot lock the topic at the same time."
+      return 0
+    }
+
+    if {$helpon == "regexp"} {
+      puthelp "PRIVMSG $nick :\002!topic regexp <index> <regular expression>"
+      puthelp "PRIVMSG $nick :  Uses a regexp replace on the topic element at <index>."
+      puthelp "PRIVMSG $nick :  The correct form for the regexp is: /match/replace/options"
+      puthelp "PRIVMSG $nick :  Options is nothing, or a combination of \002i\002 for case-insensitive matching, and \002g\002 for global matching (match all occurances in string)."
+      puthelp "PRIVMSG $nick :\002!topic /<index>/<regexp>/\002 is a shortcut for this command (e.g. !topic /2/hello/goodbye/)."
+      puthelp "PRIVMSG $nick :Collected terms can be used in the replacement with \\1, \\2, etc (if you don't understand, this command may not be for you :) See \002man regexp\002 for more information."
+      return 0
+    }
+
+    if {$helpon == "del"} {
+      puthelp "PRIVMSG $nick :\002!topic del <n>"
+      puthelp "PRIVMSG $nick :  Deletes topic component n from the topic, first is 1. You cannot use this on the pre- or postfixes (see \037!topic set\037 for info)"
+      puthelp "PRIVMSG $nick :\002!topic -<n>\002 is a shortcut for this command"
+      return 0
+    }
+
+    if {$helpon == "rehash"} {
+      puthelp "PRIVMSG $nick :\002!topic rehash\002"
+      puthelp "PRIVMSG $nick :  Forces the bot to reset the topic to what it thinks it should be. Will do nothing if the actual topic matches"
+      puthelp "PRIVMSG $nick :  what the bot thinks it should be."
+      puthelp "PRIVMSG $nick :\002!topic rehash force\002"
+      puthelp "PRIVMSG $nick :  Forces the bot to reset to the topic, whether it thinks it should or not."
+      puthelp "PRIVMSG $nick :  Note: redo is a synonym for rehash"
+      return 0
+    }
+
+    if {$helpon == "clear"} {
+      puthelp "PRIVMSG $nick :\002!topic clear\002"
+      puthelp "PRIVMSG $nick :  Sets the channel topic to nothing, but keeps the settings in the bot. Use \037!topic rehash\037 to get it back."
+      puthelp "PRIVMSG $nick :\002!topic clear content"
+      puthelp "PRIVMSG $nick :  Sets the content of the topic (not the pre- or postfix) to nothing"
+      puthelp "PRIVMSG $nick :\002!topic clear all"
+      puthelp "PRIVMSG $nick :  Sets all of the topic, include the pre- and postfixes, to nothing"
+      puthelp "PRIVMSG $nick :Note: reset is a synonym for clear"
+      return 0
+    }
+
+    if {$helpon == "lock"} {
+      puthelp "PRIVMSG $nick :\002!topic lock\002"
+      puthelp "PRIVMSG $nick :  Locks the topic. The topic can still be changed using the !topic commands, but if anyone"
+      puthelp "PRIVMSG $nick :  changes the topic manually (/topic) the bot will set it back. See also \037!topic unlock\037"
+      puthelp "PRIVMSG $nick :You can prefix a topic with @ when using !topic set or !topic add to make the bot lock the topic at the same time."
+    }
+
+    if {$helpon == "unlock"} {
+      puthelp "PRIVMSG $nick :\002!topic unlock\002"
+      puthelp "PRIVMSG $nick :  Unlocks the topic after it has been locked with \037!topic lock\037"
+      return 0
+    }
+
+    if {$helpon == "undo"} {
+      puthelp "PRIVMSG $nick :\002!topic undo\002"
+      puthelp "PRIVMSG $nick :  Restores the topic to its state before the last command. Currently only one level of undo is supported. Use \002!topic info undo\002 to see what the undo topic will be."
+      return 0
+    }
+
+  }
+}
+
+
+#####
+# topicUnsplit
+#
+# called on a net-rejoin
+# forces the topic to be set to what it should be, in case some servers around the network have lost it
+#
+proc topicUnsplit {nick host handle channel} {
+  global topicInfo topicChannels topicLastSplit topicSplitChans topicSplitDirty
+  
+  #check the topic script is active in here
+  if {![channel get $channel topicengine]} {
+    return 0
+  }
+
+	set topicSplitDirty 1
+
+	set topicLastSplit [clock seconds]
+	lappend $topicSplitChans $channel
+	set topicSplitChans [lsort -unique $topicSplitChans]
+
+	putloglev d * "topicengine: last split time updated to $topicLastSplit ([clock format $topicLastSplit])"
+	putloglev d * "topicengine: dirty chans due to split: $topicSplitChans"
+  
+  return 0
+}
+
+#####
+# topicJoin
+#
+# (a misnomer) called when the bot is opped
+# similar to the rejoin one above, checks the topic and resets it if needs to be
+# if opped by a server, assume we've come back from a split, force the reset
+#
+proc topicJoin {nick host handle channel mode victim} {
+  global topicInfo topicChannels
+
+  #only do this if I've joined a channel
+  if [isbotnick $victim] {
+      
+    #check the topic script is active in here
+    if {![channel get $channel topicengine]} {
+      return 0
+    }
+
+    #check i got opped
+    if {$mode != "+o"} { return 0 }
+    #first check i haven't reset the topic in here myself in the last 120 seconds (stop multiple rejoins fucking up)
+    set thirtySecAgo [expr [clock seconds] - 120]
+    if {($thirtySecAgo <= $topicInfo($channel,whenSet)) && ($topicInfo($channel,whoSet) == "me")} { return 0 }
+    putlog "Opped in $channel, auto-setting topic"
+    #if it's a server-mode change, assume we just got un-netsplitted, force the topic
+    if {$nick == ""} {
+      setTopic $channel 1
+    } else {
+      setTopic $channel
+    }
+    set topicInfo($channel,whoLastSet) "me"
+    set topicInfo($channel,whenLastSet) [clock seconds]
+  }
+  return 0
+}
+
+#####
+# topicParse
+#
+# turns a string into a new set of topicBits
+# used when learning a topic
+#
+proc topicParse {channel topic nick} {
+  global topicInfo topicSeparator
+
+  #if we don't have a |, it's one topic
+  if {[string first $topicSeparator $topic] == -1} {
+    set topicInfo($channel,topicBits) [list $topic]
+    putlog "Learned new topic $topic in $channel ... updating to check it has pre/postfixes for this channel"
+    set topicInfo($channel,whoSet) [list $nick]
+    set topicInfo($channel,whenSet) [list [clock seconds]]
+    set topicInfo($channel,whoLastSet) $nick
+    set topicInfo($channel,whenLastSet) [clock seconds]
+    set topicInfo($channel,topic) $topic
+    set willFit [checkTopic $channel ""]
+    if {$willFit > 0} {
+      putlog "Oops, I can't fit the new topic in with my pre/postfixes, not setting"
+      return 0
+    }
+    setTopic $channel 0
+    return 0
+  }
+
+  #it's a multipart topic
+  set topic "${topic}${topicSeparator}"
+  set blah 0
+  set loopCount 0
+  set topicInfo($channel,topic) $topic
+
+  while {[string match "*$topicSeparator*" $topic]} {
+    set sentence [string range $topic 0 [expr [string first $topicSeparator $topic] -1]]
+    if {$sentence != ""} { 
+      if {$blah == 0} {
+        set topicInfo($channel,topicBits) [list [string trim $sentence]]
+        set topicInfo($channel,whoSet) [list $nick]
+        set topicInfo($channel,whenSet) [list [clock seconds]]
+        set blah 1
+      } else {
+        lappend topicInfo($channel,topicBits) [string trim $sentence]
+        lappend topicInfo($channel,whoSet) $nick
+        lappend topicInfo($channel,whenSet) [clock seconds]
+      }
+    }
+    set topic [string range $topic [expr [string first $topicSeparator $topic] +1] end]
+    incr loopCount
+    if {$loopCount > 10} { 
+      putlog "Couldn't get all of the topic"
+      return 0
+    }
+  }
+  if {[lindex $topicInfo($channel,topicBits) 0] == $topicInfo($channel,leadIn)} {
+    #the prefix is already on this topic, drop it
+    putlog "Prefix on this topic is the same as the one I have on record, dropping it"
+    set topicInfo($channel,topicBits) [lreplace $topicInfo($channel,topicBits) 0 0]
+    set topicInfo($channel,whoSet) [lreplace $topicInfo($channel,whoSet) 0 0]
+    set topicInfo($channel,whenSet) [lreplace $topicInfo($channel,whenSet) 0 0]
+    incr loopCount -1
+  }
+
+  set lastElement [expr $loopCount - 1]
+  if {[lindex $topicInfo($channel,topicBits) $lastElement] == $topicInfo($channel,leadOut)} {
+    #the prefix is already on this topic, drop it
+    putlog "Postfix on this topic is the same as the one I have on record, dropping it"
+    set topicInfo($channel,topicBits) [lreplace $topicInfo($channel,topicBits) $lastElement $lastElement]
+    set topicInfo($channel,whoSet) [lreplace $topicInfo($channel,whoSet) $lastElement $lastElement]
+    set topicInfo($channel,whenSet) [lreplace $topicInfo($channel,whenSet) $lastElement $lastElement]
+  }
+
+  set topicInfo($channel,whoLastSet) $nick
+  set topicInfo($channel,whenLastSet) [clock seconds]
+  putlog "Learned topic with $loopCount elements in $channel ... updating to check it has pre/postfixes for this channel"
+  set willFit [checkTopic $channel ""]
+  if {$willFit > 0} {
+    putlog "Oops, I can't fit the new topic in with my pre/postfixes, not setting"
+    return 0
+  }
+  setTopic $channel 0
+  return 0
+}
+
+#####
+# topicBotCommand
+#
+# handle a 'topicengine' command from another bot
+#
+proc topicBotCommand {fromBot cmd arg} {
+  global topicInfo
+  if {$cmd == "unlock"} {
+    #need to unlock a channel
+    if {[lindex $topicInfo($channel,lock) 0] == 1} {
+      set topicInfo($arg,lock) [list 0 "" ""]
+      putlog "Unlocked topic in $arg at request of $fromBot"
+      putbot $fromBot "unlockok $arg"
+    }
+    return 0
+  }
+
+  if {$cmd == "unlockok"} {
+    #bot unlocked channel ok
+    putlog "$fromBot unlocked channel in $arg for me"
+    return 0
+  }
+}
+
+
+#####
+# topicUpdate
+#
+# update the topic automagically at 00:01 every day
+#
+proc topicUpdate { min hour day month year } { 
+  global topicChannels
+  putlog "topicEngine: auto-refreshing topics..."
+
+  foreach chan $topicChannels {
+    setTopic $chan
+  }
+
+  return 0
+} 
+
+#####
+# topicNotice
+#
+# Puts text back to the current executing user (puthelp or putidx as needed)
+#
+proc topicNotice { text } {
+  global topicType topicParameter
+
+  #putlog "topicNotice: $text ($topicType = $topicParameter)"
+
+  if {$topicType == ""} {
+    putlog "topicengine: CRITIAL ALERT: couldn't work out where to send $text"
+    return 1
+  }
+
+  if {$topicParameter == ""} {
+    putlog "topicengine: CRITICAL ALERT: couldn't work out to whom I should send $text"
+    return 1
+  }
+
+  if {$topicType == "dcc"} {
+    putidx $topicParameter $text
+  } else {
+    puthelp "NOTICE $topicParameter :$text"
+  }
+}
+
+#####
+# topicCommandPub
+#
+# Wrapper for topicCommand from !topic in a channel
+#
+proc topicCommandPub {nick host handle channel text } {
+  global topicType topicParameter
+
+  set topicType "pub"
+  set topicParameter $nick
+
+  set result [topicCommand $nick $host $handle $channel $text]
+
+  set topicType ""
+  set topicParameter ""
+
+  return $result
+}
+
+#####
+# topicCommandMsg
+#
+# Wrapper for topicCommand from topic in a msg
+#
+proc topicCommandMsg {nick host handle text} {
+  global topicType topicParameter botnick
+
+  if [string match -nocase "help*" $text] {
+    topicHelp $nick $host $handle $text
+    return 0
+  }
+
+  if [regexp -nocase {(#[^ ]+) (.+)} $text matches channel text2] {
+
+    set topicType "msg"
+    set topicParameter $nick
+
+    set result [topicCommand "${nick}/msg" $host $handle $channel $text2]
+
+    set topicType ""
+    set topicParameter ""
+    return $result
+  } else {
+    puthelp "NOTICE $nick :use: /msg $botnick topic #channel ..."
+  }
+}
+
+#####
+# topicCommandDCC
+#
+# Wrapper for topicCommand from .topic in DCC
+#
+proc topicCommandDCC {handle idx args} {
+  global topicType topicParameter
+
+  if [regexp -nocase "(#.+) (.+)\}" $args matches channel text] {
+
+    set topicType "dcc"
+    set topicParameter $idx
+
+    #putlog "calling topicCommand $channel $text"
+
+    set result [topicCommand "${handle}/dcc" "" $handle $channel $text]
+
+    set topicType ""
+    set topicParameter ""
+    return $result
+  } else {
+    putidx $idx "use: .topic #channel ..."
+  }
+}
+
+#####
+# topicSplitCheck 
+# handle splits intelligently
+#
+proc topicSplitCheck {hr min day month year} {
+	global topicLastSplit topicSplitChans topicSplitDirty
+
+	if {$topicSplitDirty == 0} {
+		return
+	}
+
+	set splitDiff [expr [clock seconds] - $topicLastSplit]
+	putloglev 1 * "topicengine: checking for splits: diff between now and last split is $splitDiff sec"
+	
+	if {$splitDiff > 120} {
+		# redo topic in every chan
+		#don't do this is the setting is off
+		putlog "topicengine: re-setting topics for channels involved in splits..."
+		global topicAnnounceReset
+		foreach channel $topicSplitChans {
+			if {$topicAnnounceReset == 1} {
+				puthelp "PRIVMSG $channel :Don't mind me, just resetting the topic in case a netsplit lost it :)"
+			}
+			setTopic $channel 1
+		}
+		set topicSplitChans [list]
+		set topicSplitDirty 0
+	}
+}
+
+#####
+# Start up stuff
+#
+# Initialise the variables at start
+topicInitArray
+#
+# set up the binds
+bind pub - !topic topicCommandPub
+bind dcc - topic topicCommandDCC
+bind topc - * topicChanged
+bind msg - topic topicCommandMsg
+#try to detect a net-unsplit and check the topic
+bind rejn - * topicUnsplit
+#set the topic to the cached one when I get opped
+bind mode - * topicJoin
+#auto unlock a channel if another bot locks it
+bind bot - "topicengine" topicBotCommand
+# update (change or comment out as needed) (syntax: min hour day month year)
+bind time - "01 00 * * *" topicUpdate
+
+#check for topics needing resettings after a split
+bind time - "* * * * *" topicSplitCheck
+#
+# log our existence
+putlog "TopicEngine v$topicInfo(pop,version) online.";
+# set the loaded variable so we don't overwrite topics on a .rehash
+set topicEngineOnline 1
+
+# done :)

TopicEngine/TopicEngineSettings.tcl

@@ -0,0 +1,85 @@
+## TopicEngine settings file
+
+#####
+# Settings you can change
+#
+# Channels the script applies to:
+#set topicChannels [list "#molsoft" "#ags" "#exeter"]
+
+#
+# Maximum topic length for the network
+#
+# 80 is the safest setting for IRCNet, 120 and 160 are common (watch out for
+#   truncation though)
+# 120 is typical on EFNet
+set topicLengthLimit 120
+
+#
+# Announce a topic being reset after a split? (0/1)
+set topicAnnounceReset 1
+
+#
+# This is the char (or several chars) that separate a topic. A space will go each side of this string.
+set topicSeparator "|"
+
+#
+# Respond to "!topic info" in the chan or in notice (just to the user to did it)
+# 1 = channel, 0 = notice
+set topicInfoBroadcast 1
+
+#DO NOT REMOVE THIS LINE:
+if {$topicEngineLoad == 1} {
+# HOW TO USE:
+# (please also read the readme file)
+#
+# set values for channels in here, like this:
+#
+# set topicInfo(#channel,setting) <value>
+#
+# setting               value(s)                              Default
+# -------               --------                              -------
+#
+# leadIn                Default prefix for topic              (blank)
+# leadOut               Default postfix                       (blank)
+# NO! needOChan             1 = user needs |+o to use             1
+# needVChan             1 = user needs |+v to use             1
+# needOGlobal           1 = user needs +o to use              0
+# needVGlobal           1 = user needs +v to use              0
+# needOMode             1 = user must be @ in chan            0
+# needVMode             1 = user must be + in chan            0
+# Tflag                 1 = any +T user can use (and U can't) 1
+# topicBits             [list "topicBit1" "topicBit2" ...]    (empty list)
+# learnOnChange         1 = learn topic on change (and join)  1
+#
+# Do not set other settings in the topicInfo array.
+#
+# e.g to set the default topic for #lamest to be "www.lamest.net | pop | frogs"
+# where the URL is a prefix, do this:
+#
+# set topicInfo(#lamest,leadIn) "www.lamest.net"
+# set topicInfo(#lamest,topicBits) [list "pop" "frogs"]
+#
+
+#set topicInfo(#startrek,needVChan) 1
+set topicInfo(#startrek,leadIn) "http://utopia.planitia.net"
+
+set topicInfo(#startrek,canFlags) "o|o"
+
+#set topicInfo(#namcoarcade,needVChan) 0
+#set topicInfo(#exeter,needVChan) 1
+
+set topicInfo(#exeter,canFlags) "ov|ov"
+set topicInfo(#exeter,canModes) "ov"
+set topicInfo(#exeter,leadIn) "www.hashexeter.net"
+
+#set topicInfo(#ags,needVChan) 1
+set topicInfo(#exeter,canFlags) "ov|ov"
+set topicInfo(#exeter,canModes) "ov"
+
+set topicInfo(#molsoft,canFlags) "ov|ov"
+
+set topicInfo(#molsoft,canFlags) "o|o"
+set topicInfo(#molsoft,canModes) "o"
+
+#DO NOT REMOVE THIS BRACKET
+}