egghelp.org community :: View topic - notify script

egghelp.org community Forum Index

[ egghelp.org home | forum home ]

egghelp.org community
Discussion of eggdrop bots, shell accounts and tcl scripts.

FAQ

Usergroups

Register

Log in to check your private messages

notify script

egghelp.org community Forum Index -> Scripting Help

View previous topic :: View next topic

Author

Message

nixi
Voice

Joined: 30 Mar 2010
Posts: 2
Location: Germany

Posted: Tue Mar 30, 2010 10:26 am Post subject: notify script

Reply with quote

Hi all of you

Can anyone of you tell me why doesn't this code work ?

Code:

set ntfy_nickstocheck {
Engineer
Developer
Tester
Mapherick
}

proc ntfy_settimer {args} {
timer 5 ntfy_check
}

proc ntfy_check {args} {
global ntfy_nickstocheck

set intc [join $ntfy_nickstocheck]
putserv "ISON $intc"
ntfy_settimer
}

proc ntfy_process {from keyw args} {
global ntfy_nickstocheck
set ionl [split [lindex [split [lindex $args 0] ":"] 1]]
foreach nick $ionl {lappend ionll [string tolower $nick]}

foreach nick $ntfy_nickstocheck {
if {[lsearch $ionll [string tolower $nick]] == -1} {
lappend iofl $nick
}
}

putlog "NTFY: ONLINE: [join $ionl]"
putlog "NTFY: OFFLINE: $iofl"

}

bind raw - 303 ntfy_process

Send private message

nixi
Voice

Joined: 30 Mar 2010
Posts: 2
Location: Germany

Posted: Tue Mar 30, 2010 2:48 pm Post subject:

I ve got that tcl from this page : http://forum.egghelp.org/viewtopic.php?t=2396 thanks for your attention

Send private message

Display posts from previous:

	egghelp.org community Forum Index -> Scripting Help	All times are GMT - 4 Hours
Page 1 of 1

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

Forum hosting provided by Reverse.net

Powered by phpBB © 2001, 2005 phpBB Group
subGreen style by ktauber