egghelp/eggheads community

Need help to get the join script working

2009-06-20T05:49:25-04:00

thanks so fare

Anyone know the error :

Code:

##################### 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)]}############################################## Greeting MSG When User Join channel ##############################################proc bt.join.rank_title { chan nick rank_title} {if {[channel get $chan joinmsg]} {switch $rank_title {   ### The number is the number of the class on the site   ### "return 0" means no msg for that class   "1"   {putserv "PRIVMSG $chan :7Velkommen Til 4\:\:\:2 $username 4\:\:\:9 14 $rank_title"}      "default"   {set rank_title "Not Found" }  } }} #################### Join Proc ####################proc join:support {nick host hand chan} {global botnick db_handle  if {$nick != $botnick} {    #    if {[mysqlping $db_handle] != 1} {   #        putserv "notice $nick : The connection to the mysql server has been lost."   #          return 0   #    }              set sqlnick "SELECT user_id FROM phpbb_users WHERE username='[mysqlescape nick]'"       set resultusername [mysqlquery $db_handle $sqlnick]                    set nicki 0       while {[set record [mysqlnext $resultusername]] != ""} {         set user_id [lindex $record 0]         incr nicki       }                    if { $nick == 0 } { return 0 }                    if { $user_id == "" } { return 0 }                    set sql "SELECT rank_title FROM phpbb_ranks WHERE user_id='[mysqlescape $user_id]'"              set result [mysqlquery $db_handle $sql]                    set i 0       while {[set record [mysqlnext $result]] != ""} {                            set nick [lindex $record 0];         set rank_title [lindex $record 1];       }              set sql "SELECT rank_title FROM phpbb_ranks WHERE id='[mysqlescape $user_id]'"       set result [mysqlquery $db_handle $sql]                    set i 0       while {[set record [mysqlnext $result]] != ""} {                            set nick [lindex $record 0];         set rank_title [lindex $record 1];       }       mysqlendquery $result              bt.join.rank_title $chan $nick $rank_title    }  }

I get this error now : Tcl error [join:support]: invalid command name "join:support"[/code]

Statistics: Posted by Fire-Fox — Sat Jun 20, 2009 5:49 am

Need help to get the join script working

2009-06-19T20:48:16-04:00

Code:

proc join:Support-Forum.dk {nick host hand chan} {global botnick db_handle  if {$nick != $botnick} {    #    if {[mysqlping $db_handle] != 1} {   #        putserv "notice $nick : The connection to the mysql server has been lost."   #          return 0   #    }              set sqlnick "SELECT user_id FROM phpbb_users WHERE nick='[mysqlescape $username]'"       set resultusername [mysqlquery $db_handle $sqlusername]

Here you can clearly see the problem. $nick is joining, yet you refer to this in your [mysqlescape] as $username. Change that to $nick. You also set sqlnick as your query. Yet when making the [mysqlquery] you refer to it as $sqlusername. Change it to $sqlnick. You need to keep your variables straight is the problem.

Statistics: Posted by speechles — Fri Jun 19, 2009 8:48 pm

Need help to get the join script working

2009-06-19T11:48:35-04:00

Hey all...

i have this join msg script.

An i would like it to announce when a user joins my channel. on quakenet, it announce the username and rank_title (phpbb2 forum)

1. the users are stored in phpbb_users -> username ($user_id)
2. rank title is in phpbb_ranks -> rank_title ($rank_id)

[EDIT]
I have tryed to set the table according, to the old owns in the script but it gives a error : Tcl error [join:Support-Forum.dk]: can't read "username": no such variable
[/EDIT]

Code:

package require mysqltclsetudef flag joinmsg bind join - * join:Support-Forum.dkbind rejn - * join:Support-Forum.dk##################### Mysql path ###################### SQL infoset sql(host) "xxxxx"set sql(user) "xxxxx"set sql(pass) "xxxxx"set sql(db) "xxxxxxx"set sql(port) "3306"##################### 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)]}############################################## Greeting MSG When User Join channel ##############################################proc bt.join.rank_title { chan username rank_title} {if {[channel get $chan joinmsg]} {switch $rank_title {   ### The number is the number of the class on the site   ### "return 0" means no msg for that class   "1"   {putserv "PRIVMSG $chan :7Velkommen Til 4\:\:\:2 $username 4\:\:\:9 14 $rank_title"}      "default"   {set class "Not Found" }  } }} #################### Join Proc ####################proc join:Support-Forum.dk {nick host hand chan} {global botnick db_handle  if {$nick != $botnick} {    #    if {[mysqlping $db_handle] != 1} {   #        putserv "notice $nick : The connection to the mysql server has been lost."   #          return 0   #    }              set sqlnick "SELECT user_id FROM phpbb_users WHERE nick='[mysqlescape $username]'"       set resultusername [mysqlquery $db_handle $sqlusername]                    set nicki 0       while {[set record [mysqlnext $resultusername]] != ""} {         set user_id [lindex $record 0]         incr nicki       }                    if { $nicki == 0 } { return 0 }                    if { $user_id == "" } { return 0 }                    set sql "SELECT rank_title FROM phpbb_ranks WHERE id='[mysqlescape $user_id]'"              set result [mysqlquery $db_handle $sql]                    set i 0       while {[set record [mysqlnext $result]] != ""} {                            set username [lindex $record 0];         set rank_title [lindex $record 1];       }              set sql "SELECT rank_title FROM phpbb_ranks WHERE id='[mysqlescape $user_id]'"       set result [mysqlquery $db_handle $sql]                    set i 0       while {[set record [mysqlnext $result]] != ""} {                            set username [lindex $record 0];         set rank_title [lindex $record 1];       }       mysqlendquery $result              bt.join.rank_title $chan $nick $rank_title    }  }

Statistics: Posted by Fire-Fox — Fri Jun 19, 2009 11:48 am