Anonymous

		set dupecheck [dashes [string trimright "$pre" [lindex [split "$pre" "-"]- end]]]
		set dupechecksql [mysqlsel $sqlserverhandle "SELECT * FROM announce WHERE pre LIKE '%$dupecheck%' LIMIT 1;" -flatlist]
		set date [lindex $dupechecksql 4]
		set dupedate [clock format "$date" -format %m-%d-%Y]
		set dupetime [shrinkduration [duration [expr [expr [clock seconds] - $date] - 34200]]]
		set xss [lindex $dupechecksql 2]
		if {[llength $xss] == 0} {
			putquick "PRIVMSG $chan :"} else {
			putquick "PRIVMSG $chan :\[4POSSIBLE DUPE\] $pre Looks like it dupes: $xss \($dupetime\/$dupedate\)"
			}