Posted to tcl by Surmaelk at Thu Jan 09 18:45:59 GMT 2020view pretty
The error i get is: can't read "line": no such variable
#RLSLIST
bind pub -|- !list rlslist
proc rlslist {nick uhost handle chan text} {
if {![channel get [string tolower $chan] rlsList]} { return 0 }
variable dbInfo
if {[scan $dbInfo %s%s%s%s hostname username password database] != 4} return
set line [::mysql::escape $line]
set nick [::mysql::escape $nick]
set con [::mysql::connect -host $hostname -user $username -password $password -db $database]
set query [::mysql::query $con "SELECT line,nick,timestamp FROM releases ORDER BY $line"]
if {[::mysql::fetch $query]==""} {
putquick "PRIVMSG $chan : \0034Nothing in the book :-( \003"
} else {
::mysql::map $con { line nick timestamp } {
putquick "PRIVMSG $chan :\0037something came to the book\003:\0039 $line\003 from $nick"
}
}
::mysql::endquery $con
::mysql::close $con
}