Code:

set userChan "#dev.null" set accesschan "#dev.null"bind join - * joins proc joins {nick host hand chan} {        global userChan mysql_ db_         if {$chan == $userChan } {                #mysqluse $mysql_(handle) $mysql_(database)   set sql [mysqlsel $mysql_(handle) "SELECT * FROM $mysql_(table) WHERE username='[mysqlescape $nick]' AND db_(accessclass) = '$class' "]      set result [mysqlsel $mysql_(handle) $sql -list]    if {$result > 0 } {   set result [mysqlsel $mysql_(handle) $sql -list]putserv "NOTICE $userChan Welcome $nick $class"    }} else { putserv "kick $userChan $nick :You are not welcome!" mysqlendquery $mysql_(handle)mysqlendquery $mysql_(handle)} }putlog "Access.tcl - Loaded"