IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

PHP- Kodu:
   # logtutar.tcl

# Eggdropun kanal genelinde yazdığı herşeyi log tutar ve özelde gösterir

# Aralık 2025 IUC

# Hiç birşeyi ayarlamanız gerekmez kendi işini kendi yapar tcl zaten:)

 
 
if {![catch {package require eggdrop 1.6.20}]} {

# 1.6.20 yada üstüyse yazığı bilgi

  bind out - "% sent" logmsgtrace

  proc logmsgtrace {queue text status} {

    logmsg $text

  }

} else {

# Eggdrop 1.6.19 un altındaysa verdiği bilgi

  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

}