package require mysqltcl

bind pub -|- !user lookup_user
bind pub -|- !lang lookup_lang
bind pub -|- !adduser add_user
bind pub -|- !edituser edit_user

set languages(mirc) 1
set languages(tcl) 2
set languages(php) 3
set languages(xhtml) 4
set languages(html4.1) 5
set languages(html5) 6
set languages(asp) 7
set languages(javascript) 8
set languages(actionscript) 9
set languages(perl) 10
set languages(python) 11
set languages(ruby) 12
set languages(c) 13
set languages(csharp) 14
set languages(c++) 15
set languages(java) 16
set languages(basic) 17
set languages(bash) 18
set languages(sql) 19
set languages(vba) 20

proc lookup_user { nick uhost handle chan userquery } {
	set cid [::mysql::connect -host localhost -user Gybo -db code]
	set results [::mysql::sel $cid "select * from languages where user = '[string tolower $userquery]'"]
	set output [::mysql::fetch $cid]
	if {$output ne ""} {
		putserv "privmsg $chan :Users that know mirc :: $output"
	} else {
		putserv "privmsg $chan :User not found"
	}
	::mysql::close $cid
}

proc lookup_lang { nick uhost handle chan langquery } {
	dccbroadcast [string tolower
	if {[info exists languages([string tolower $langquery])]} {
		set cid [::mysql::connect -host localhost -user Gybo -db code]
		set output [::mysql::sel $cid "select user,[string tolower $langquery] from languages where [string tolower $langquery] > 0" -list]
		putserv "PRIVMSG $chan :users that know [string tolower $langquery] :: $output"
		::mysql::close $cid
	} else {
		putserv "privmsg $chan :Language not found"
	}
}

proc add_user { nick uhost handle chan junk } {
	dccbroadcast "Connecting to MySQL ..."
	set cid [::mysql::connect -host localhost -user Gybo -db code]
	set check [::mysql::sel $cid "select user from languages where user = '[string tolower $nick]'" -list]
	if {![info exists check]} {
		set result [::mysql::sel $cid "INSERT INTO languages (user) VALUES ('[string tolower $nick]')"]
		putserv "privmsg $chan :User [string tolower $nick] Added"
	} else {
		putserv "privmsg $chan :User already exists"
	}
	::mysql::close $cid
}

proc edit_user { nick uhost handle chan } {
#	dccbroadcast "Connecting to MySQL ..."
#	set cid [::mysql::connect -host localhost -user Gybo -db code]
#	set check [::mysql::sel $cid "select user from languages where user = '$nick'" -list]
#	if {![info exists check]} {
#		set result [::mysql::sel $cid "INSERT INTO languages (user) VALUES ('$nick')"]
#		putserv "privmsg $chan :User $nick Added"
#	} else {
#
#	}
#	::mysql::close $cid
}