egghelp/eggheads community

Help please

2012-02-22T15:46:00-04:00

Please note that this script is unsafe.
I can choose one of the new users on the site and join the chan with such a nick, and change the nick after that to my real nick like Johannes13

An other thing is that the mysql handle is not closed when the nick is valid.
PROTIP: warp all the stuff after mysqlconnect with a catch, so if there is an error, it will still close the mysql handle

Ok, here a version (it still only checks the nicks, but probably you want to make sure that the nick is registered with nickserv or smillar (by setting a channel mode that let only registered users join etc..)

Code:

package require mysqltcl#-> Change the information below to connect to your MySQL databaseset mysqlserver localhost;set mysqluser ***;set mysqlpwd ***;set mysqldb ***;#-> Change the chan below for the chan you wish to monitorsetudef flag checknickbind join - * joinsproc joins {nick host hand chan} {if {[channel get $chan checknick]} {set db_handle [mysqlconnect -h $::mysqlserver -u $::mysqluser -password $::mysqlpwd];set code [catch {mysqluse $db_handle $::mysqldbset sql "SELECT id FROM users WHERE username='[mysqlescape $nick]'"set result [mysqlsel $db_handle $sql -list]} res opt]mysqlclose $db_handleif {$code != 0} {return -opt $opt $res}if {$result > 0 } {putserv "NOTICE $nick :welcome"} else {putserv "kick $chan $nick :To join this channel you first need to register at http://cwukchat.com/modules/profile/register.php"}}}

And it uses now a flag, so you can activate that script for more than 1 channel. (use .chanset #channel +checknick)

PS.: I think, I used again some Tcl 8.5 features.. so if you have an older version of Tcl installed, it does not work.

Statistics: Posted by Johannes13 — Wed Feb 22, 2012 3:46 pm

Help please

2012-02-22T14:22:00-04:00

Code:

if {[string equal -nocase -- $chan $userChan]} {

Have you tried removing -- in this line?

Statistics: Posted by caesar — Wed Feb 22, 2012 2:22 pm

Help please

2012-02-22T13:51:45-04:00

Hey I found the following script here on the forums and want to try see if it works on my server but i get the following error on the partyline

Also would like to beable to get it to work for any channels i set in the script not just one channel

Tcl error [joins]: bad option "--": must be -nocase or -length

This is the script

Code:

package require mysqltcl #-> Change the information below to connect to your MySQL database set mysqlserver localhost; set mysqluser ***; set mysqlpwd ***; set mysqldb ***; #-> Change the chan below for the chan you wish to monitor set userChan "#test" bind join - * joins proc joins {nick host hand chan} {global userChan if {[string equal -nocase -- $chan $userChan]} {set db_handle [mysqlconnect -h $::mysqlserver -u $::mysqluser -password $::mysqlpwd]; mysqluse $db_handle $::mysqldb set sql "SELECT id FROM users WHERE username='[mysqlescape $nick]'" set result [mysqlsel $db_handle $sql -list] } set result [mysqlsel $db_handle $sql -list] if {$result > 0 } { putserv "NOTICE $userChan $nick :welcome" } else { putserv "kick $userChan $nick :To join this channel you first need to register at http://cwukchat.com/modules/profile/register.php" mysqlclose $db_handle; }}

Many Thanks

Statistics: Posted by blake — Wed Feb 22, 2012 1:51 pm