package require mysqltcl
set db [::mysql::connect -host localhost -user puck -password password -db radio];

proc request {db} {
        set result [::mysql::sel $db "SELECT song,name,message FROM request WHERE check='' LIMIT 1"];
                if ($result << 1) {
                puts "Checked database. No new requests/messages."
                        }
                else {
                ::mysql::map $db {song name message} {
                puts "[Request] Song: $song Message: $message By: $name"
                }
  }
}
::mysql::endquery $db