joinnotify.tcl does not work

[Nailz]

http://www.egghelp.org/files/tcl/joinnotify.tar.gz

When setup and ran it generates the following error:
[23:00] Tcl error [notify]: missing close-bracket


I have 0 coding skills so if anyone would be so kind to help me .. )

# notify you when any of theese nicks join your chan
set ppl "nick1 nick2"

# your email addy
set mail "email@addy.com"

# channels you want to monitor
set mailchans "#channel1 #channel2"

bind join - * notify
proc notify {nick uhost handle chan} {
global ppl mail mailchans

if {![file exists emptyfile] } {
set tempfile [open emptyfile w]
puts $tempfile " "
close $tempfile
}

if {([lsearch -exact [string tolower $ppl] [string tolower $nick]] != -1) && ([lsearch -exact [string tolower $mailchans] [$
putlog "$nick ($uhost) joined $chan, emailing $mail about it."
exec mail -s "$nick ($uhost) joined $chan" $mail < emptyfile
}
}
putlog "joinnotify.tcl v1.0 by greenbear loaded. "

[Sir_Fz]

replace

Code: Select all

if {([lsearch -exact [string tolower $ppl] [string tolower $nick]] != -1) && ([lsearch -exact [string tolower $mailchans] [$

with:

Code: Select all

if {([lsearch -exact [string tolower $ppl] [string tolower $nick]] != -1) && ([lsearch -exact [string tolower $mailchans]])} {

atleast this makes more sense than that code, but I think that your code has something missing "[$", I think it has a continuation or something.

[Nailz]

atleast this makes more sense than that code, but I think that your code has something missing "[$", I think it has a continuation or something.

Yes .. now that i've stared at the code for a few minutes my ancient 1990s Turbo Pascal skills got me thinking the same.

It still doesn't work though, I guess theres too much missing. Shame nobody checked the file on egghelp, was I really the first to run into this? I also ripped out the "create emptyfile" thing and replaced it with a file of my own cos I was getting errors with that as well.

Maybe you or anyone else can help me though to fix this? I know I can get the email part working under a trigger. But all this bind and join stuff just confuses me.

[Papillon]

Try this instead...

Code: Select all

if {([lsearch -exact [split [string tolower $ppl]] [string tolower $nick]] != -1) && ([lsearch -exact [split [string tolower $mailchans]] [string tolower $chan]] != -1)} {