output siger bruger allerede oprettet men db'en er tom

Hejsa!

Jeg har denne tcl kode. som jeg ikke kan få til at virke som jeg gerne vil :(

1. .dbadd <nick> <rang>
2. hvis brugeren findes i databasen skal den skrive : brugeren findes allerede

1. .dbadd <nick> <rang>
2. hvis brugeren IKKE findes skal den oprette brugeren i databasen

Her er koden :

bind pub * .dbadd [namespace current]::dbAdd

  # add
proc dbAdd {nick uhost handle chan text} {
  global dbInfo dbJoin
  if {[scan $text {%s%s} user class] != 2} {
      putserv "NOTICE $nick :Usage: .dbadd <user> <class>"
      return
    }
  variable dbInfo
  if {[scan $dbInfo %s%s%s%s hostname username password database] != 4} return     
  set user [::mysql::escape $user]
  set class [::mysql::escape $class]
  set con [::mysql::connect -host $hostname -user $username -password $password -db $database]
  set results [::mysql::query $con "SELECT user FROM access WHERE user = '$user'"]
  if {[::mysql::moreresult $results]} {
      puthelp "NOTICE $nick :$user already added."
      ::mysql::endquery $results
  } else {
  set query [::mysql::query $con "INSERT INTO access (user,class) VALUES ('$user','$class')"]     
      ::mysql::endquery $con
      putnow "NOTICE $nick :User: $user / Class: $class added to db"
  }
  ::mysql::close $con
}