a little help...

tonyokc · Post by **tonyokc** » Sat Jun 04, 2005 4:36 pm

I'm a total amateur at this, and need help on format of a small TCL. I would appreciate knowing if this is correct syntax, or if not, where I have gone astray...

I want to check on join, if a user is:
a> is marked an op
b> but has not set a pass
c> I know I'm going to send the message twice, the notice is a backup if the user has a pm blocked (as so many do)

===
bind join - * checkpass

proc checkpass { nick host handle chan } {
if {[matchattr $handle |o $chan] && ([passwdok $handle ""] == 1)} {
putserv "NOTICE $nick :You need to set a password with the bot to activate ops, type: /msg bot pass password_you_want"
putserv "PRIVMSG $nick :You need to set a password with the bot to activate ops, type: /msg bot pass password_you_want"
}
}
===

Thanks for any assistance,
Tony

^DooM^ · Post by **^DooM^** » Sat Jun 04, 2005 5:28 pm

It looks ok to me. you have the right syntax for passwdok too.

passwdok <handle> <pass>
Description: checks the password given against the user's password. Check against the password "" (a blank string) or "-" to find out if a user has no password set.

Returns: 1 if the password matches for that user; 0 otherwise

Code: Select all

bind join - * checkpass

proc checkpass { nick host handle chan } {

    if {[matchattr $handle |o $chan] && ([passwdok $handle ""] == 1)} {
        putserv "NOTICE $nick :You need to set a password with the bot to activate ops, type: /msg bot pass password_you_want"
        putserv "PRIVMSG $nick :You need to set a password with the bot to activate ops, type: /msg bot pass password_you_want"
    }
}

Nice one, now just try it

tonyokc · Post by **tonyokc** » Sat Jun 04, 2005 6:50 pm

thanks, was little paranoid to try it before someone else told me i hadn't gone nuts! lol

with over a thousand members, I'd REALLY get yelled at if it was screwed up. they have no mercy!

^DooM^ · Post by **^DooM^** » Sat Jun 04, 2005 7:04 pm

You could always setup a test bot and try it on there first