Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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 $langquery]
- 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
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement