###########################
### KillLog.tcl ###
### Version 1.3 ###
### By Wcc ###
### irc.dal.net ###
###########################
#############################################################################
## This script logs kills/klines/akills seen in the channel to a log file, ##
## and generates an html file. ##
#############################################################################
##########################################################
## Just load the script, set the variables, and rehash. ##
##########################################################
###############################
# Set the html filename here. #
###############################
set killpage "./web/kills.html"
##############################
# Set the log filename here. #
##############################
set killlog "./web/kills.log"
###################################
# Set the database filename here. #
###################################
set killlogdb "./web/kills.db"
####################
# Code begins here #
####################
bind sign - * killlog
proc killlog {nick host hand chan kill} {
if {([string match "killed*" [string tolower $kill]])} {
putkilllog $nick $host $kill $chan
}
}
proc putkilllog {nick host kill chan} {
global killpage killlog killlogdb
set databaseid [open $killlogdb a+]
puts $databaseid ""
puts $databaseid "| [clock format [clock seconds] -format "%I:%M:%S %p %x"] | "
puts $databaseid "$nick | "
puts $databaseid "$host | "
puts $databaseid "$kill | "
puts $databaseid "$chan | "
puts $databaseid "
"
close $databaseid
set logid [open $killlog a+]
puts $logid "KILL: $nick - $host - $kill"
close $logid
set killpageid [open $killpage w]
set databaseid [open $killlogdb r]
puts $killpageid ""
puts $killpageid ""
puts $killpageid "Kill Log"
puts $killpageid ""
puts $killpageid ""
puts $killpageid "Kill Log
"
puts $killpageid ""
puts $killpageid ""
puts $killpageid ""
puts $killpageid "| Time | "
puts $killpageid "Nick | "
puts $killpageid "Host | "
puts $killpageid "Kill | "
puts $killpageid "Channel | "
puts $killpageid "
"
while {![eof $databaseid]} {
gets $databaseid line
puts $killpageid $line
}
puts $killpageid ""
puts $killpageid "
"
puts $killpageid ""
puts $killpageid ""
close $killpageid
close $databaseid
putlog "KILLLOG: $nick has been killed. Logs updated."
}
putlog "KILLLOG: KillLog.tcl Version 1.3 by wcc is loaded."
putlog "KILLLOG: Loging kills as html to $killpage."
putlog "KILLLOG: Logging kills as text to $killlog."