#!/bin/sh
#   /usr/bin/tclsh8.5 \
exec tclsh8.5 "$0" "$@"

puts "Beginning.. $arv0"
set dbuser {username} ;# this protects it from special characters by making it a string literal
set dbpass {password}
package require mysqltcl
puts "Connecting to DB"

proc request {} {
puts "Proc request called"
global dbuser dbpass ;# expose vars to this procedure, you can upvar by $::varname as well instead of using global
puts "Connecting to DB"
if {[catch {set db [::mysql::connect -host localhost -user $dbuser -password $dbpass -db radio]} errmsg]} {
	puts "Error:$errmsg"
}
puts "Connected to DB, sending SQL Select Query"
        set result [::mysql::sel $db "SELECT song,name,message FROM request WHERE check='' LIMIT 1"];
	puts "Fetched result:$result"
        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"
		}
	}
	puts  "Closing DB"
	::mysql::close $db
	puts "Finished"
}

request ;#issue the command to call procedure request