egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2003-07-22T03:35:20-04:00 https://forum.eggheads.org/app.php/feed/topic/5039 2003-07-22T03:35:20-04:00 2003-07-22T03:35:20-04:00 https://forum.eggheads.org/viewtopic.php?p=23776#p23776 <![CDATA[joinnotify.tcl does not work]]>

Code: 

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

Statistics: Posted by Papillon — Tue Jul 22, 2003 3:35 am

]]> 2003-07-21T17:28:46-04:00 2003-07-21T17:28:46-04:00 https://forum.eggheads.org/viewtopic.php?p=23766#p23766 <![CDATA[joinnotify.tcl does not work]]>
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. :wink:

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. :)

Statistics: Posted by Guest — Mon Jul 21, 2003 5:28 pm

]]> 2003-07-21T17:17:38-04:00 2003-07-21T17:17:38-04:00 https://forum.eggheads.org/viewtopic.php?p=23763#p23763 <![CDATA[joinnotify.tcl does not work]]>

Code: 

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

Code: 

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.

Statistics: Posted by Sir_Fz — Mon Jul 21, 2003 5:17 pm

]]> 2003-07-21T17:03:05-04:00 2003-07-21T17:03:05-04:00 https://forum.eggheads.org/viewtopic.php?p=23761#p23761 <![CDATA[joinnotify.tcl does not work]]> 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 .. :o)

# 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. "

Statistics: Posted by Guest — Mon Jul 21, 2003 5:03 pm

]]>