All pastes #409782 Raw Edit

Miscellany

public text v1 · immutable
#409782 ·published 2007-03-25 22:12 UTC
rendered paste body
proc db_list_clean {} {
 # do stuff here
}

proc db_proc { nick uhost handle text } {
	if {[lindex $text 1] == "clean"} {
		putquick "PRIVMSG $nick :cleaning the databse"
		set temp [db_list_clean]
		if {!$temp} {
			putquick "PRIVMSG $nick :done"
		} else {
			putquick "PRIVMSG $nick :error"
		}
	}
}