###################################################################### # # #====================================================================# # gt-pugrelay.tcl by slackin # #====================================================================# # Slackin's sqlmsg table relay companion for PugBot! # # Custom written for #pugbot & GT # ###################################################################### # # ###################################################################### ###################################################################### # Config section, please edit with # # proper info # #--------------------------------------------------------------------# #--------------------------------------------------------------------# # End of config section # ###################################################################### ###################################################################### package req mysqltcl bind bot - pugrelay relay_pug proc relay_pug {bot gtmass param} { #putlog "relaying...." global db nick ignorelist set msgsend [lrange $param 3 end] set msgtype [lindex $param 0] set msgnetwork [lindex $param 1] set msgtarget [lindex $param 2] #putlog "$msgsend" #putlog "$msgtype" #putlog "$msgtarget" #putlog "$msgnetwork" foreach toignore $ignorelist { if {$msgtarget == $toignore} { return 0 } } if {$msgtype == "msg" || $msgtype == $nick} { putserv "PRIVMSG $msgtarget :[join $msgsend]" } elseif {$msgtype == "notice"} { putserv "NOTICE $msgtarget :[join $msgsend]" } elseif {$msgtype == "raw"} { putquick "[join $msgsend]" } elseif {$msgtype == "kick"} { putlog "$msgsend" putlog "#pugbot +b $msgtarget" pushmode #pugbot +b $msgtarget } } putlog "GT-pugrelay.tcl by slackin LOADED"