# 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

}