i have a problem
Can enyone tell my why it's nor working...
Code: Select all
##################################################
# Set user defined flag for users #
##################################################
setudef flag UserSearch
setudef flag AdminSearch
package require mysqltcl
bind join - * join:aliasfm
bind rejn - * join:aliasfm
######################
### URL to the site ###
#######################
set site_add "http://aliasfm.net"
##################
### Mysql path ###
##################
# SQL info
set sql(host) "xxxxxxxx"
set sql(user) "xxxxx"
set sql(pass) "xxxx"
set sql(db) "abot"
set sql(port) "3306"
######################
### URL to the site ###
#######################
set site_add "http://aliasfm.net "
##################
### Mysql path ###
##################
if {![info exists db_handle] } {
set db_handle [mysqlconnect -host $sql(host) -user $sql(user) -password $sql(pass) -db $sql(db) -port $sql(port)]
}
##################################
### Define The Channels On IRC ###
##################################
set chan_(mainchan) "#aliasfm"
#############################
### Some Global Variables ###
#############################
### Set to 1 if you want the join msg enabled
set globals_(join) "1"
##########################
### Find The UserClass ###
##########################
proc bt.class { class id } {
switch $class {
#"0" {set class "0User" }
"5" {set class "4Live DJ" }
"10" {set class "4Chat Chef" }
"default" {set class "Not Found" }
}
return $class
}
###########################################
### Greeting MSG When User Join channel ###
###########################################
proc bt.join.class { chan nick class} {
switch $class {
### The number is the number of the class on the site
### "return 0" means no msg for that class
#"0" {putserv "PRIVMSG $chan :10Velkommen Til 7:::9 $nick 7:::9 10Vores Outlaw" }
"5" {putserv "PRIVMSG $chan :10Velkommen Til 7:::9 $nick 7:::9 10Vores Live Dj" }
"default" {set class "Not Found" }
}
}
#################
### Join Proc ###
#################
proc join:aliasfm {nick host hand chan} {
global botnick db_handle globals_ error_ help_ chan_
if {$nick != $botnick} {
set chan [string tolower $chan]
if {[channel get $chan UserSearch]} {
if {[mysqlping $db_handle] != 1} {
putserv "PRIVMSG $chan : $error_(mysqllost)"
return 0
}
set sqlnick "SELECT userid FROM nicks WHERE nick='[mysqlescape $nick]'"
set resultnick [mysqlquery $db_handle $sqlnick]
set nicki 0
while {[set record [mysqlnext $resultnick]] != ""} {
set userid [lindex $record 0]
incr nicki
}
if { $nicki == 0 } { return 0 }
if { $userid == "" } { return 0 }
set sql "SELECT username, class FROM users WHERE id='[mysqlescape $userid]'"
set result [mysqlquery $db_handle $sql]
set i 0
while {[set record [mysqlnext $result]] != ""} {
set username [lindex $record 0];
set class [lindex $record 1];
}
if { $globals_(help) == 1 } {putserv "notice $nick : $help_(join)"}
if { $globals_(join) != 1 } { return 0 }
set sql "SELECT username, class FROM users WHERE id='[mysqlescape $userid]'"
set result [mysqlquery $db_handle $sql]
set i 0
while {[set record [mysqlnext $result]] != ""} {
set username [lindex $record 0];
set class [lindex $record 1];
}
mysqlendquery $result
bt.join.class $chan $nick $class
}
}
}
