notify.tcl

[inceDen]

Botun TCL kısmında Belirli Alana Nickleri Belirlediğinizde sunucuya giriş yapan o kişiler şuan nick online gibisinden kanal notice atar..
--------------------------------------------------------------------------

################################################## ########
## Notify TCL - Bu .tcl
## Eger herhangi bir problemle karsilasirsaniz
## yada bir oneriniz varsa forum.ticarichat.net adresinden
## bizlere bildiriniz.
################################################## ##########
set ppl "Nick"

# your email addy
set mail "admin@inceDen.Net"

# channels you want to monitor
set mailchans "#KANALADI"

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 "notify.tcl PRaNGaLaR loaded. "