egghelp/eggheads community

kill script

2004-06-28T12:27:14-04:00

sorry, here is the rest

Code:

proc killlog_putkilllog {nick host chan kill} {global killlog_settingset databaseid [open $killlog_setting(logdb) a+]puts $databaseid "[clock format [clock seconds] -format "%I:%M:%S %p %x"]"puts $databaseid "$nick"puts $databaseid "$host"puts $databaseid "$kill"puts $databaseid "$chan"close $databaseidset logid [open $killlog_setting(log) a+]puts $logid "KILL: $nick - $host - $kill"close $logidset killpageid [open $killlog_setting(page) w]puts $killpageid ""puts $killpageid ""puts $killpageid "Kill Log"puts $killpageid "" puts $killpageid ""puts $killpageid ""puts $killpageid ""puts $killpageid "Kill Log
"puts $killpageid ""puts $killpageid ""puts $killpageid ""puts $killpageid ""puts $killpageid ""puts $killpageid ""puts $killpageid ""puts $killpageid ""puts $killpageid ""set databaseid [open $killlog_setting(logdb) r]while {![eof $databaseid]} {gets $databaseid lineputs $killpageid $line}close $databaseidputs $killpageid "Time Nick Host Kill Channel
"puts $killpageid "
"puts $killpageid "
"puts $killpageid "Last Updated: [clock format [clock seconds] -format %D] [clock format [clock seconds] -format "%I:%M %p"]"puts $killpageid ""puts $killpageid ""puts $killpageid ""close $killpageidputlog "[killlog_dopre]$nick has been killed. \($chan\)"}putlog "\002KILLLOG:\002 KillLog.tcl Version 2.0 by Wcc is loaded."putlog "\002KILLLOG:\002 Logging kills as html to $killlog_setting(page)."putlog "\002KILLLOG:\002 Logging kills as text to $killlog_setting(log)."

Statistics: Posted by Guest — Mon Jun 28, 2004 12:27 pm

kill script

2004-06-27T15:24:57-04:00

This is not the full procedure.
This code points to another procedure.

Code:

killlog_putkilllog $nick $host $chan $kill

We would need to see all of the script to determine this
hopefully. Like what function does this new procedure
do and what output does it give!

Statistics: Posted by awyeah — Sun Jun 27, 2004 3:24 pm

kill script

2004-06-27T06:33:06-04:00

ok i got this code

Code:

proc killlog_log {nick host hand chan kill} {global killlog_settingif {([string match -nocase "killed*" $kill]) || ([string match -nocase "autokilled*" $kill]) || ([string match -nocase "kline*" $kill]) || ([string match -nocase "SVSKill*" $kill])} {if {($killlog_setting(logghost)) || (![string match -nocase "Killed (NickServ (Ghost*" $kill])} {killlog_putkilllog $nick $host $chan $kill}}}

what do i have to change that the bot doesn't log channel killmessages, but the servermessages, wich are send when you kill someone?
i suggest ist something up here

Code:

{nick host hand chan kill}

i have really no clue of tcl
thx for help

Statistics: Posted by Guest — Sun Jun 27, 2004 6:33 am