Eggdrop Aksiyonlog tutucu tcl
PHP- Kodu:
# Eggdrop logtutucu.tcl
# Bu script Eggdropun bütün umimi kanal ortasında yazdıklarını bir dosyayaya yazar
# (Sunucu bunu asla redetmez!)
# Aralık,2025 IUC
#
# Hiçbir Ayara gerek yok!
# Kendi işimi kendim görürüm nağmert admine minnet etmem hesabı :)
if {![catch {package require eggdrop 1.6.20}]} {
# 1.6.20 or higher has bind out
bind out - "% sent" logmsgtrace
proc logmsgtrace {queue text status} {
logmsg $text
}
} else {
# 1.6.19 sürüm altında versiyon yakalarsam yazacaklarım
if {![info exists ::selflog]} {
set ::selflog 1
trace add execution putserv leave logmsgtrace
trace add execution puthelp leave logmsgtrace
trace add execution putquick leave logmsgtrace
}
proc logmsgtrace {cmd rescode resstr op} {
if {$rescode} { return }
set text [lindex $cmd 1]
logmsg $text
}
}
proc logmsg {text} {
foreach {key chan} [split $text] break
set text [join [lrange [split $text] 2 end]]
if {![string equal -nocase $key "PRIVMSG"] || ![validchan $chan] || ![botonchan $chan]} {
return
}
if {[string index $text 0] == ":"} {
set text [string range $text 1 end]
} else {
set text [lindex [split $text] end]
}
putloglev p $chan "<$::botnick> $text"
return 0
}
| 