Posted to tcl by Surmaelk at Fri Jan 10 13:56:00 GMT 2020view raw
- i get this: expected integer but got "-xxx"
- ind pub -|- !start rlsadd
- proc rlsadd {nick uhost handle chan text} {
- if {![channel get [string tolower $chan] rlsAdd]} { return 0 }
- global dbInfo
- if {[scan $text {%s} rlsname] != 1} {
- putserv "NOTICE $nick :Usage: !start <rls>"
- return
- }
- variable dbInfo
- if {[scan $dbInfo %s%s%s%s hostname username password database] != 4} return
- set time [unixtime]
- set rlsname [::mysql::escape $rlsname]
- set nick [::mysql::escape $nick]
- set con [::mysql::connect -host $hostname -user $username -password $password -db $database]
- #set query [::mysql::query $con "SELECT rlsname,nick,unixtime FROM releases WHERE rlsname = '$rlsname'"]
- set query1 [mysqlsel $con "SELECT rlsname,nick,unixtime FROM releases WHERE rlsname = '$rlsname'" -flatlist];
- #if {[::mysql::fetch $query ]!=""}
- if {$query1 !=""} {
- foreach {rlsname timestamp nick} $query1 {
- putlog "RLS: $rlsname / $nick / $timestamp "
- set predago [getpred $timestamp]
- puthelp "PRIVMSG $chan 0037円RLS003円:0039円$rlsname003円 0037円Allerede Startet Af003円 $nick $predago"
- putlog "RLS: $rlsname / $nick / $predago "
- }
- } else {
- set query [::mysql::query $con "INSERT INTO releases (id,unixtime,rlsname,nick) VALUES (NULL, UNIX_TIMESTAMP(), '$rlsname', '$nick')"]
- puthelp "PRIVMSG $chan :0037円RLS003円: 0039円$rlsname003円 0037円Startet af003円 $nick \[ 00314円DATE:003円 [clock format $time -format %d-%m-%Y] \] \[ 00314円Time:003円 [clock format $time -format %H:%M:%S] \]"
- putlog "RLS: $rlsname / $nick / $time "
- }
- ::mysql::endquery $con
- ::mysql::close $con
- }