TCL if inside if

Question

Я пытаюсь сделать отображение содержимого оператора if только в том случае, если оно внутри, возвращает желаемое значение. Однако это не работает, поэтому я думаю, что это не так, как вы делаете это в TCL. Любой совет будет принят во внимание.

if {$firstq == 1} { 
set sql "SELECT * FROM users WHERE username='$text' AND ircban='yes' LIMIT 1" 
set result [mysqlsel $db_handle $sql] 
    if{$result == 1} { 
     putquick "NOTICE $nick :User is banned." 
    } elseif{$result == 0} { 
     putquick "NOTICE $nick :User is not banned." 
} 

Answer 1

У вас не хватает закрывающей скобки после elseif и вам нужно пробелы после if и elseif:

if {$firstq == 1} { 
    set sql "SELECT * FROM users WHERE username='$text' AND ircban='yes' LIMIT 1" 
    set result [mysqlsel $db_handle $sql] 
    if {$result == 1} { ;# <-- Need space after if 
     putquick "NOTICE $nick :User is banned." 
    } elseif {$result == 0} { ;# <-- Need space after elseif 
     putquick "NOTICE $nick :User is not banned." 
    } ;# <-- Missing closing brace 
}