Code:
# exec tclsh "$0" ${1+"$@"}# chanstats.1.3.0.tcl (w/ ExemptNickList)# arfer <arfer.minute@gmail.com># dalnet #Atlantis# ***************************************************************************************************************************** ## ********** OPERATION ******************************************************************************************************** ## maintains a simplistic channel statistics datafile and provides public commands for reporting# ***************************************************************************************************************************** ## ********** LICENCE ********************************************************************************************************** ## this program is free software; you can redistribute it and/or modify it under the terms of the ..# .. GNU General Public License as published by the Free Software Foundation; either version 2 of ..# .. the license, or (at your option) any later version# this program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without ..# .. even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ..# .. General Public License for more details# if you did not receive a copy of the GNU General Public License along with this program write ..# .. to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA# ***************************************************************************************************************************** ## ********** DEPENDENCIES ***************************************************************************************************** ## this script requires eggdrop/windrop version 1.6.17 or later# this script requires tcl version 8.4 or later# this script was specifically designed for Eggdrop/Windrop on DalNet IRC network, ..# .. it has not been tested and may or may not work on other networks# the script creates the file chanstats.txt in the bot's root directory. ensure that other scripts ..# .. do not use a file with the same name in the same directory# ***************************************************************************************************************************** ## ********** INSTALLATION ***************************************************************************************************** ## 1. configure chanstats.1.3.0.tcl in a suitable text editor - see configuration section below# 2. create the directory scripts/chanstats if it doesn't already exist# 3. place the configured chanstats.1.3.0.tcl in the bot's scripts/chanstats subdirectory# 4. add a line to the end of the bot's .conf file 'source scripts/chanstats/chanstats.1.3.0.tcl# 5. RESTART the bot (NOT rehash) - very important otherwise the scheduled data operation save will not initialise# 6. once the bot is online use '.chanset #channelname +chanstats' in the partyline for each bot channel you wish to use the ..# .. script in, unless this process is automated - see configuration section below# no changes have been made to the format of the data file from previous versions, so any existing data file is still useable# editpad lite is recommended as a suitable text editor for configuring this script and is ..# .. freely available via download from http://www.editpadpro.com/editpadlite.html# ***************************************************************************************************************************** ## ********** CHANGELOG ******************************************************************************************************** ## 1.0.0 [06/11/07] [727 lines]# beta code# 1.0.1 [15/11/07] [735 lines]# mod to mistake in text comment +stats should read +chanstats# corrected bug in error color proc caused by pasting from another script# regsub quotes to prevent - Tcl error [pChanstatsPubmInput]: unmatched open quote in list# 1.0.2 [21/11/07 [739 lines]# fixed error on first time load - Tcl error [pChanstatsLoad]: can't read "count": no such variable# thanks to Flywine# 1.0.3 [29/11/07] [743 lines]# fixed error with .stats <nick> if nick had trailing space (eg. from xchat nick completion)# thanks to Alchera# 1.1.0 [10/12/07] [823 lines]# still rare but annoying occasions when splitting channel text chokes the PUBM bind# decided to use a catch command which sort of ignores the problem rather than dealing with it# this means that any such lines will be ignored# added .top20 <option> ?#chan? command# 1.2.0 [23/12/07] [896 lines]# added .tstats ?#chan? command to show total events activity in a channel# added option to exclude guest nicks rather than all nicks ending with four numeric characters# fixed error if incorrect syntax is used for top20 command# 1.3.0 [10.01.08] [982 lines]# added .rank <nick> <option> ?#chan? command# minor change to error output for disallowed option argument# added duration since last event to .stats command# ***************************************************************************************************************************** ## ********** SYNTAX *********************************************************************************************************** ## assuming the default trigger "." - see configuration section below# arguments inside <here> are required# arguments inside ?here? are optional# .rank <nick> <option> ?#chan? --> outputs the current placing of <nick> for events specified by <option> in the command source channel, or in ?#chan? if specified# .stats <nick> ?#chan? --> outputs the chanstats for <nick> and command source channel, or those for <nick> and ?#chan? if specified# .top10 <option> ?#chan? --> outputs the top 10 users for events specified by <option> for command source channel, or those for ?#chan? if specified# .top20 <option> ?#chan? --> outputs the top 20 users (11 through 20) for events specified by <option> for command source channel, or those for ?#chan? if specified# .tstats ?#chan? --> outputs total events logged for command source channel, or those for ?#chan? if specified# .zapstats ?#chan? --> deletes chanstats records for the command source channel, or those for ?#chan? if specified# valid <option> arguments for .top10, top20 and .place commands are lines, words, actions, kicks, bans, joins, parts, splits, quits, nicks# ***************************************************************************************************************************** ## ********** CONFIGURATION **************************************************************************************************** #### NEW ExemptNickList Setting #### set here a list of exempt nicks (do not keep stats on these nicks)# note: set this empty for no exempt nick list.# or: set a space separated list of exempt nicks.# example: set vChanstatsExemptNickList {bart lisa homer}set vChanstatsExemptNickList {}# set here the single character command trigger# ensure that it is set such that it does not interfere with similar commands on this or other bots in the same channel(s)# allowed values are as follows (the existing settings are recommended)# , = comma# . = period# ! = exclamation mark# $ = dollar sign# & = ampersand# - = hyphen# ? = question mark# ~ = tilde# ; = semi-colon# : = colon# ' = apostrophe# % = percent# ^ = caret# * = asteriskset vChanstatsTrigger "."# set here the user status required to use the commands in this script# based on global and channel bot flags# note that a setting of 9 means that the user's handle must exist in the ..# .. configuration file's 'set owner' variable# allowed values are as follows (the existing settings are recommended)# 1 = public (no bot access required)# 2 = partyline (p|)# 3 = channel or global operator (o|o)# 4 = global operator (o|)# 5 = channel or global master (m|m)# 6 = global master (m|)# 7 = channel or global owner (n|n)# 8 = global owner (n|)# 9 = permanent owner (handle must be listed in .conf 'set owner' variable)set vChanstatsStatus(rank) 1set vChanstatsStatus(stats) 1set vChanstatsStatus(top10) 1set vChanstatsStatus(top20) 1set vChanstatsStatus(tstats) 1set vChanstatsStatus(zapstats) 9# set here the text colours used in the bot's responses# settings are only valid where channel mode permits colour# allowed values are as follows (the existing settings are recommended)# 00 = white# 01 = black# 02 = blue# 03 = green# 04 = light red# 05 = brown# 06 = purple# 07 = orange# 08 = yellow# 09 = light green# 10 = cyan# 11 = light cyan# 12 = light blue# 13 = pink# 14 = grey# 15 = light greyset vChanstatsColor(arrow) 03set vChanstatsColor(compliance) 10set vChanstatsColor(dimmed) 14set vChanstatsColor(errors) 04set vChanstatsColor(events) 07# set here if you wish to automate the channel flag setting of +chanstats for any channel the bot joins# do not turn on this facility if you intend that the script work in only selected channels# for 'auto channel setting' the setting can be any of the accepted boolean values 1, yes, true, on# for 'manual channel setting' (as normal through the .chanset partyline command) the setting can be any ..# .. of the accepted boolean values 0, no, false, off# no other values are permittedset vChanstatsAuto 1# set here if you wish to allow the stats database to be cleared via a public command# the only alternative would be to kill the bot and manually delete the chanstats.txt datafile# for 'allowed' the setting can be any of the accepted boolean values 1, yes, true, on# for 'not allowed' the setting can be any of the accepted boolean values 0, no, false, off# no other values are permittedset vChanstatsZapAllowed 1# set here the numbers of events (of any/all types) (in any/all channels) to occur between data save operation# valid values are integers in the range 10 through 50# no other values are permittedset vChanstatsEventsSave 20# set here the number of minutes to elapse between data save operations# valid values are integers in the range 5 through 25# no other values are permittedset vChanstatsScheduleSave 10# set here the number of days that must pass for any user not recording an event of any type on a channel ..# .. before their record for that channel is discarded during the next save operation# valid values are integers in the range 2 through 10# no other values are permittedset vChanstatsIdleDays 2# set here if you wish to see save and load related operations in the partyline# the information includes records saved and records discarded# to 'see partyline information' the setting can be any of the accepted boolean values 1, yes, true, on# to 'not see partyline information' the setting can be any of the accepted boolean values 0, no, false, off# no other values are permittedset vChanstatsPutlog 1# set here if you wish to accrue events by guest nicks# to 'accrue events by guest nicks' the setting can be any of the accepted boolean values 1, yes, true, on# to 'ignore events by guest nicks' the setting can be any of the accepted boolean values 0, no, false, off# no other values are permittedset vChanstatsGuest 0# ***************************************************************************************************************************** ## ********** CODE ************************************************************************************************************* ## *********************************** ## *** DO NOT EDIT BELOW THIS LINE *** ## *********************************** ## ---------- FAILSAFES --------------------------------------------------------------------------------------------------- #### NEW ExemptNickList Code ###set vChanstatsExemptNickList [string trim $vChanstatsExemptNickList]if {$vChanstatsExemptNickList ne ""} { set vChanstatsExemptNickList [split [string tolower $vChanstatsExemptNickList]]}###if {![regexp {^[-,.!$&?~;:'%^*]{1}$} $vChanstatsTrigger]} { die "configuration error in chanstats.tcl - illegal command trigger character"}foreach status [array names vChanstatsStatus] { if {![string is integer -strict $vChanstatsStatus($status)]} { die "configuration error in chanstats.tcl - illegal user status value (not an integer)" } else { if {($vChanstatsStatus($status) < 1) || ($vChanstatsStatus($status) > 9)} { die "configuration error in chanstats.tcl - illegal user status value (out of permitted range)" } }}foreach color [array names vChanstatsColor] { if {![string is integer -strict $vChanstatsColor($color)]} { die "configuration error in chanstats.tcl - illegal text color value (not an integer)" } else { if {($vChanstatsColor($color) < 0) || ($vChanstatsColor($color) > 15)} { die "configuration error in chanstats.tcl - illegal text colour value (out of permitted range)" } }}if {![string is boolean -strict $vChanstatsAuto]} { die "configuration error in chanstats.tcl - illegal auto channel setting variable (not boolean)"}if {![string is boolean -strict $vChanstatsZapAllowed]} { die "configuration error in chanstats.tcl - illegal reset allowed variable (not boolean)"}if {![string is integer -strict $vChanstatsEventsSave]} { die "configuration error in chanstats.tcl - illegal events save value (not an integer)"} else { if {($vChanstatsEventsSave < 10) || ($vChanstatsEventsSave > 50)} { die "configuration error in chanstats.tcl - illegal events save value (out of permitted range)" }}if {![string is integer -strict $vChanstatsScheduleSave]} { die "configuration error in chanstats.tcl - illegal events save value (not an integer)"} else { if {($vChanstatsScheduleSave < 5) || ($vChanstatsScheduleSave > 25)} { die "configuration error in chanstats.tcl - illegal events save value (out of permitted range)" }}if {![string is integer -strict $vChanstatsIdleDays]} { die "configuration error in chanstats.tcl - illegal events save value (not an integer)"} else { if {($vChanstatsIdleDays < 2) || ($vChanstatsIdleDays > 10)} { die "configuration error in chanstats.tcl - illegal events save value (out of permitted range)" }}if {![string is boolean -strict $vChanstatsPutlog]} { die "configuration error in chanstats.tcl - illegal putlog variable (not boolean)"}if {![string is boolean -strict $vChanstatsGuest]} { die "configuration error in chanstats.tcl - illegal guest accrue variable (not boolean)"}# ---------- INITIALISE -------------------------------------------------------------------------------------------------- #set vChanstatsVersion 1.3.0setudef flag chanstatsproc pChanstatsTrigger {} { global vChanstatsTrigger return $vChanstatsTrigger}array set vChanstatsFlag { 2 p| 3 o|o 4 o| 5 m|m 6 m| 7 n|n 8 n|}array set vChanstatsName { 2 "partyline" 3 "channel operator" 4 "global operator" 5 "channel master" 6 "global master" 7 "channel owner" 8 "global owner"}set vChanstatsCount 0# ---------- BINDS ------------------------------------------------------------------------------------------------------- #bind EVNT - connect-server pChanstatsLoadbind EVNT - disconnect-server pChanstatsSavebind EVNT - init-server pChanstatsInitbind JOIN - * pChanstatsJoinAutobind CTCP - ACTION pChanstatsCtcpInputbind KICK - * pChanstatsKickInputbind MODE - "#*+b" pChanstatsModeInputbind JOIN - * pChanstatsJoinInputbind NICK - * pChanstatsNickInputbind PART - * pChanstatsPartInputbind PUBM - * pChanstatsPubmInputbind REJN - * pChanstatsRejnInputbind SIGN - * pChanstatsSignInputbind SPLT - * pChanstatsSpltInputbind PUB - [pChanstatsTrigger]rank pChanstatsOutputRankbind PUB - [pChanstatsTrigger]stats pChanstatsOutputStatsbind PUB - [pChanstatsTrigger]top10 pChanstatsOutputTop10bind PUB - [pChanstatsTrigger]top20 pChanstatsOutputTop20bind PUB - [pChanstatsTrigger]tstats pChanstatsOutputTstatsbind PUB - [pChanstatsTrigger]zapstats pChanstatsZapstats# ---------- PROCS ------------------------------------------------------------------------------------------------------- #proc pChanstatsColor {chan type number} { global vChanstatsColor if {[regexp -- {^\+[a-zA-Z]*c} [getchanmode $chan]]} { return "" } else { switch -- $number { 1 { switch -- $type { 0 {return "\003$vChanstatsColor(errors)"} 1 {return "\003$vChanstatsColor(compliance)"} 2 {return "\003$vChanstatsColor(events)"} } } 3 {return "\003$vChanstatsColor(dimmed)"} 5 {return "\003$vChanstatsColor(arrow)"} 2 - 4 - 6 {return "\003"} } }}proc pChanstatsCompliance {number command snick tnick schan tchan text1 text2 text3 text4 text5 text6} { for {set loop 1} {$loop <= 6} {incr loop} {set col($loop) [pChanstatsColor $schan 1 $loop]} set output1 "$col(1)Compliance$col(2) ($col(3)$snick$col(4)) $col(5)-->$col(6)" switch -- $number { 001 {set output2 "$text1 $col(3)$text2$col(4) logged for $col(3)$tchan$col(4) $col(5)-->$col(6) [regsub -all {\)} [regsub -all {\(} [join [join $text3 ", "]] "($col(3)"] "$col(4))"]"} 002 {set output2 "chanstats data for $col(3)$tnick$col(4) in $col(3)$tchan$col(4) $col(5)-->$col(6) [regsub -all {\)} [regsub -all {\(} $text1 "($col(3)"] "$col(4))"] $col(5)-->$col(6) \ last event logged was $col(3)$text2$col(4) ago"} 003 {set output2 "chanstats data for $col(3)$tchan$col(4) has been reset"} 004 {set output2 "total chanstats data for $col(3)$tchan$col(4) $col(5)-->$col(6) [regsub -all {\)} [regsub -all {\(} $text1 "($col(3)"] "$col(4))"]"} 005 {set output2 "$col(3)$tnick$col(4) is ranked $col(3)$text2$col(4) out of $col(3)$text4$col(4) record(s) for $col(3)$text1$col(4) logged in $col(3)$tchan$col(4) with a score of\ $col(3)$text3$col(4) which represents $col(3)[format %.2f [expr {(double($text3) / double($text5)) * 100}]]%$col(4) of $col(3)$text5$col(4) total"} } putserv "PRIVMSG $schan :$output1 $output2" return 0}proc pChanstatsCtcpInput {nick uhost hand dest keyword text} { pChanstatsDataAccrue [string tolower $nick] [string tolower $dest] 4 1 return 0}proc pChanstatsDataAccrue {nick chan position number} { ### NEW ExemptNickList Code ### if {$nick in $::vChanstatsExemptNickList} { return 0 } ### global vChanstatsCount global vChanstatsData global vChanstatsEventsSave global vChanstatsGuest if {![isbotnick $nick]} { if {(!$vChanstatsGuest) && ([regexp {^guest.+[0-9]{4}$} [string tolower $nick]])} {return 0} if {[channel get $chan chanstats]} { incr vChanstatsCount if {![info exists vChanstatsData($nick\@$chan)]} {set vChanstatsData($nick\@$chan) "$nick\@$chan [unixtime] 0 0 0 0 0 0 0 0 0 0"} set oldvalue [join [lindex [split $vChanstatsData($nick\@$chan)] $position]] set newvalue [expr {$oldvalue + $number}] set vChanstatsData($nick\@$chan) [join [lreplace [split $vChanstatsData($nick\@$chan)] 1 1 [unixtime]]] set vChanstatsData($nick\@$chan) [join [lreplace [split $vChanstatsData($nick\@$chan)] $position $position $newvalue]] if {[expr {$vChanstatsCount >= $vChanstatsEventsSave}]} { pChanstatsSave events set vChanstatsCount 0 } } } return 0}proc pChanstatsError {number command snick tnick schan tchan text1 text2 text3 text4 text5 text6} { global vChanstatsStatus for {set loop 1} {$loop <= 6} {incr loop} {set col($loop) [pChanstatsColor $schan 0 $loop]} set output1 "$col(1)Error$col(2) ($col(3)$snick$col(4)) $col(5)-->$col(6)" switch -- $number { 001 {set output2 "correct syntax is $col(3)[pChanstatsTrigger]top10 <option> ?#chan?$col(4)"} 002 {set output2 "valid $col(3)<option>$col(4) arguments are $col(3)lines, words, actions, kicks, bans, joins, parts, splits, quits, nicks$col(4)"} 003 {set output2 "$col(3)$tchan$col(4) is not a valid channel name"} 004 {set output2 "I do not have a channel record for $col(3)$tchan$col(4)"} 005 {set output2 "there has been no chanstats data logged yet for any of my channels"} 006 {set output2 "there have been no $col(3)$text1$col(4) logged for $col(3)$tchan$col(4) yet"} 007 {set output2 "correct syntax is $col(3)[pChanstatsTrigger]stats <nick> ?#chan?$col(4)"} 008 {set output2 "$col(3)$tnick$col(4) is not a valid nick"} 009 {set output2 "there has been no chanstats data logged for nick $col(3)$tnick$col(4) in $col(3)$tchan$col(4) yet"} 010 {set output2 "correct syntax is $col(3)[pChanstatsTrigger]zapstats ?#chan?$col(4)"} 011 {set output2 "chanstats are not currently being maintained for $col(3)$tchan$col(4)"} 012 {set output2 "there are no records for $col(3)$tchan$col(4) to delete"} 013 {set output2 "the $col(3)[pChanstatsTrigger]$command$col(4) command has been disabled in the script's configuration"} 014 {set output2 "I do not log chanstats for myself"} 015 {set output2 "permanent owner bot access is required to use the command $col(3)[pChanstatsTrigger]$command$col(4)"} 016 {set output2 "a minimum of [pChanstatsName $vChanstatsStatus($command)] bot access is required to use the command $col(3)[pChanstatsTrigger]$command$col(4)"} 017 {set output2 "I only have $text1 record(s) for $col(3)$text2$col(4) in $col(3)$tchan$col(4)"} 018 {set output2 "correct syntax is $col(3)[pChanstatsTrigger]top20 <option> ?#chan?$col(4)"} 019 {set output2 "correct syntax is $col(3)[pChanstatsTrigger]total ?#chan?$col(4)"} 020 {set output2 "there has been no chanstats data logged for $col(3)$tchan$col(4) yet"} 021 {set output2 "correct syntax is $col(3)[pChanstatsTrigger]rank <nick> <option> ?#chan?$col(4)"} 022 {set output2 "$col(3)$tnick$col(4) has not yet logged any $col(3)$text1$col(4) in $col(3)$tchan$col(4)"} } putserv "PRIVMSG $schan :$output1 $output2" return 0}proc pChanstatsEvent {number command snick tnick schan tchan text1 text2 text3 text4 text5 text6} { for {set loop 1} {$loop <= 6} {incr loop} {set col($loop) [pChanstatsColor $tchan 2 $loop]} set output1 "$col(1)Event$col(2) ($col(3)zapstats$col(4)) $col(5)-->$col(6)" switch -- $number { 001 {set output2 "chanstats data for $col(3)$tchan$col(4) has been reset by $col(3)$tnick$col(4)"} } putserv "PRIVMSG $tchan :$output1 $output2" return 0}proc pChanstatsFlag {nick chan} { global owner global vChanstatsFlag set owners [split [string tolower [regsub -all -- {,} $owner ""]]] set handle [string tolower [nick2hand $nick]] if {[lsearch -exact $owners $handle] != -1} {return 9} for {set loop 8} {$loop >= 2} {incr loop -1} { if {[matchattr [nick2hand $nick] $vChanstatsFlag($loop) $chan]} {return $loop} } return 1}proc pChanstatsInit {type} { global vChanstatsPutlog if {$vChanstatsPutlog} {putlog "\00314<chanstats>\003 initialising time bind (\00314$type\003)"} pChanstatsSchedule return 0}proc pChanstatsJoinAuto {nick uhost hand chan} { global vChanstatsAuto if {[isbotnick $nick]} { if {$vChanstatsAuto} { if {![channel get $chan chanstats]} { channel set $chan +chanstats savechannels } } } return 0}proc pChanstatsJoinInput {nick uhost hand chan} { pChanstatsDataAccrue [string tolower $nick] [string tolower $chan] 7 1 return 0}proc pChanstatsKickInput {nick uhost hand chan target reason} { pChanstatsDataAccrue [string tolower $nick] [string tolower $chan] 5 1 pChanstatsDataAccrue [string tolower $target] [string tolower $chan] 8 1 return 0}proc pChanstatsLoad {type} { global vChanstatsData global vChanstatsPutlog if {[file exists chanstats.txt]} { set count 0 set id [open chanstats.txt r] set data [read -nonewline $id] close $id if {[array size vChanstatsData] != 0} {unset vChanstatsData} foreach record [split $data \n] { if {[llength [split $record]] == 12} { set vChanstatsData([join [lindex [split $record] 0]]) $record } else { incr count } } if {$vChanstatsPutlog} {putlog "\00314<chanstats>\003 loading data (\00314$type\003) --> loaded (\00314[array size vChanstatsData]\003), discarded (\00314$count\003)"} } return 0}proc pChanstatsModeInput {nick uhost hand chan mc target} { pChanstatsDataAccrue [string tolower $nick] [string tolower $chan] 6 1 return 0}proc pChanstatsName {number} { global vChanstatsName switch -- $number { 1 {return "public"} 9 {return "permanent owner"} default {return $vChanstatsName($number)} }}proc pChanstatsNickInput {nick uhost hand chan newnick} { pChanstatsDataAccrue [string tolower $nick] [string tolower $chan] 11 1 return 0}proc pChanstatsOutputRank {nick uhost hand chan text} { global vChanstatsData global vChanstatsStatus if {[channel get $chan chanstats]} { set command rank if {[pChanstatsFlag $nick $chan] >= $vChanstatsStatus($command)} { switch -- [llength [split [string trim $text]]] { 2 {set tnick [join [lindex [split [string tolower [string trim $text]]] 0]]; set tchan [string tolower $chan]} 3 {set tnick [join [lindex [split [string tolower [string trim $text]]] 0]]; set tchan [join [lindex [split [string tolower [string trim $text]]] 2]]} default { pChanstatsError 021 0 $nick 0 $chan 0 0 0 0 0 0 0 return 0 } } if {[array size vChanstatsData] != 0} { if {[regexp -- {^[\x41-\x7D][-\d\x41-\x7D]*$} $tnick]} { if {![isbotnick $tnick]} { if {[string equal [string index $tchan 0] "#"]} { if {[validchan $tchan]} { if {[info exists vChanstatsData($tnick\@$tchan)]} { set opt [join [lindex [split [string trim [string tolower $text]]] 1]] switch -- $opt { lines {set name lines; set position 2} words {set name words; set position 3} actions {set name actions; set position 4} kicks {set name kicks; set position 5} bans {set name bans; set position 6} joins {set name joins; set position 7} parts {set name parts; set position 8} splits {set name splits; set position 9} quits {set name quits; set position 10} nicks {set name "nick changes"; set position 11} default { pChanstatsError 002 0 $nick 0 $chan 0 0 0 0 0 0 0 return 0 } } foreach {key record} [array get vChanstatsData] { if {[string equal $tchan [join [lindex [split $key @] 1]]]} { if {![string equal [join [lindex [split $record] $position]] 0]} { lappend data [list [lindex [split $key @] 0] [join [lindex [split $record] $position]]] if {[info exists total]} { set total [incr total [join [lindex [split $record] $position]]] } else {set total [join [lindex [split $record] $position]]} } } } if {[info exists data]} { set sorted [lsort -integer -decreasing -index 1 $data] set events [join [lindex [split $vChanstatsData($tnick\@$tchan)] $position]] set count [llength $sorted] if {![string equal $events 0]} { set rank [expr {[lsearch $sorted $tnick*] + 1}] pChanstatsCompliance 005 0 $nick $tnick $chan $tchan $opt $rank $events $count $total 0 } else {pChanstatsError 022 0 $nick $tnick $chan $tchan $opt 0 0 0 0 0} } else {pChanstatsError 006 0 $nick 0 $chan $tchan $name 0 0 0 0 0} } else {pChanstatsError 009 0 $nick $tnick $chan $tchan 0 0 0 0 0 0} } else {pChanstatsError 004 0 $nick 0 $chan $tchan 0 0 0 0 0 0} } else {pChanstatsError 003 0 $nick 0 $chan $tchan 0 0 0 0 0 0} } else {pChanstatsError 014 0 $nick 0 $chan 0 0 0 0 0 0 0} } else {pChanstatsError 008 0 $nick $tnick $chan 0 0 0 0 0 0 0} } else {pChanstatsError 005 0 $nick 0 $chan 0 0 0 0 0 0 0} } else { switch -- $vChanstatsStatus($command) { 9 {pChanstatsError 015 $command $nick 0 $chan 0 0 0 0 0 0 0} default {pChanstatsError 016 $command $nick 0 $chan 0 0 0 0 0 0 0} } } } return 0}proc pChanstatsOutputStats {nick uhost hand chan text} { global vChanstatsData global vChanstatsStatus if {[channel get $chan chanstats]} { set command stats if {[pChanstatsFlag $nick $chan] >= $vChanstatsStatus($command)} { switch -- [llength [split [string trim $text]]] { 1 {set tnick [string tolower [string trim $text]]; set tchan [string tolower $chan]} 2 {set tnick [join [lindex [split [string tolower [string trim $text]]] 0]]; set tchan [join [lindex [split [string tolower [string trim $text]]] 1]]} default { pChanstatsError 007 0 $nick 0 $chan 0 0 0 0 0 0 0 return 0 } } if {[array size vChanstatsData] != 0} { if {[regexp -- {^[\x41-\x7D][-\d\x41-\x7D]*$} $tnick]} { if {![isbotnick $tnick]} { if {[string equal [string index $tchan 0] "#"]} { if {[validchan $tchan]} { if {[info exists vChanstatsData($tnick\@$tchan)]} { set elapsed [duration [expr {[unixtime] - [join [lindex [split $vChanstatsData($tnick\@$tchan)] 1]]}]] set lines [join [lindex [split $vChanstatsData($tnick\@$tchan)] 2]] set words [join [lindex [split $vChanstatsData($tnick\@$tchan)] 3]] set actions [join [lindex [split $vChanstatsData($tnick\@$tchan)] 4]] set kicks [join [lindex [split $vChanstatsData($tnick\@$tchan)] 5]] set bans [join [lindex [split $vChanstatsData($tnick\@$tchan)] 6]] set joins [join [lindex [split $vChanstatsData($tnick\@$tchan)] 7]] set parts [join [lindex [split $vChanstatsData($tnick\@$tchan)] 8]] set splits [join [lindex [split $vChanstatsData($tnick\@$tchan)] 9]] set quits [join [lindex [split $vChanstatsData($tnick\@$tchan)] 10]] set nicks [join [lindex [split $vChanstatsData($tnick\@$tchan)] 11]] set output "lines ($lines), words ($words), actions ($actions), kicks ($kicks), bans ($bans), joins ($joins), parts ($parts), splits ($splits), quits ($quits), nick changes ($nicks)" pChanstatsCompliance 002 0 $nick $tnick $chan $tchan $output $elapsed 0 0 0 0 } else {pChanstatsError 009 0 $nick $tnick $chan $tchan 0 0 0 0 0 0} } else {pChanstatsError 004 0 $nick 0 $chan $tchan 0 0 0 0 0 0} } else {pChanstatsError 003 0 $nick 0 $chan $tchan 0 0 0 0 0 0} } else {pChanstatsError 014 0 $nick 0 $chan 0 0 0 0 0 0 0} } else {pChanstatsError 008 0 $nick $tnick $chan 0 0 0 0 0 0 0} } else {pChanstatsError 005 0 $nick 0 $chan 0 0 0 0 0 0 0} } else { switch -- $vChanstatsStatus($command) { 9 {pChanstatsError 015 $command $nick 0 $chan 0 0 0 0 0 0 0} default {pChanstatsError 016 $command $nick 0 $chan 0 0 0 0 0 0 0} } } } return 0}proc pChanstatsOutputTop10 {nick uhost hand chan text} { global vChanstatsData global vChanstatsStatus if {[channel get $chan chanstats]} { set command top10 if {[pChanstatsFlag $nick $chan] >= $vChanstatsStatus($command)} { switch -- [llength [split [string trim $text]]] { 1 {set tchan [string tolower $chan]} 2 {set tchan [join [lindex [split [string tolower [string trim $text]]] 1]]} default { pChanstatsError 001 0 $nick 0 $chan 0 0 0 0 0 0 0 return 0 } } if {[array size vChanstatsData] != 0} { if {[string equal [string index $tchan 0] "#"]} { if {[validchan $tchan]} { switch -- [join [lindex [split [string trim [string tolower $text]]] 0]] { lines {set name lines; set position 2} words {set name words; set position 3} actions {set name actions; set position 4} kicks {set name kicks; set position 5} bans {set name bans; set position 6} joins {set name joins; set position 7} parts {set name parts; set position 8} splits {set name splits; set position 9} quits {set name quits; set position 10} nicks {set name "nick changes"; set position 11} default { pChanstatsError 002 0 $nick 0 $chan 0 0 0 0 0 0 0 return 0 } } foreach {key record} [array get vChanstatsData] { if {[string equal $tchan [join [lindex [split $key @] 1]]]} { if {[expr {[join [lindex [split $record] $position]] != 0}]} { lappend data [list [lindex [split $key @] 0] [join [lindex [split $record] $position]]] } } } if {[info exists data]} { set sorted [lrange [lsort -integer -decreasing -index 1 $data] 0 9] set count 1 foreach element $sorted { lappend output [list $count\. [lindex $element 0] ([lindex $element 1])] incr count } pChanstatsCompliance 001 0 $nick 0 $chan $tchan "top 10" $name $output 0 0 0 } else {pChanstatsError 006 0 $nick 0 $chan $tchan $name 0 0 0 0 0} } else {pChanstatsError 004 0 $nick 0 $chan $tchan 0 0 0 0 0 0} } else {pChanstatsError 003 0 $nick 0 $chan $tchan 0 0 0 0 0 0} } else {pChanstatsError 005 0 $nick 0 $chan 0 0 0 0 0 0 0} } else { switch -- $vChanstatsStatus($command) { 9 {pChanstatsError 015 $command $nick 0 $chan 0 0 0 0 0 0 0} default {pChanstatsError 016 $command $nick 0 $chan 0 0 0 0 0 0 0} } } } return 0}proc pChanstatsOutputTop20 {nick uhost hand chan text} { global vChanstatsData global vChanstatsStatus if {[channel get $chan chanstats]} { set command top20 if {[pChanstatsFlag $nick $chan] >= $vChanstatsStatus($command)} { switch -- [llength [split [string trim $text]]] { 1 {set tchan [string tolower $chan]} 2 {set tchan [join [lindex [split [string tolower [string trim $text]]] 1]]} default { pChanstatsError 018 0 $nick 0 $chan 0 0 0 0 0 0 0 return 0 } } if {[array size vChanstatsData] != 0} { if {[string equal [string index $tchan 0] "#"]} { if {[validchan $tchan]} { switch -- [join [lindex [split [string trim [string tolower $text]]] 0]] { lines {set name lines; set position 2} words {set name words; set position 3} actions {set name actions; set position 4} kicks {set name kicks; set position 5} bans {set name bans; set position 6} joins {set name joins; set position 7} parts {set name parts; set position 8} splits {set name splits; set position 9} quits {set name quits; set position 10} nicks {set name "nick changes"; set position 11} default { pChanstatsError 002 0 $nick 0 $chan 0 0 0 0 0 0 0 return 0 } } foreach {key record} [array get vChanstatsData] { if {[string equal $tchan [join [lindex [split $key @] 1]]]} { if {[expr {[join [lindex [split $record] $position]] != 0}]} { lappend data [list [lindex [split $key @] 0] [join [lindex [split $record] $position]]] } } } if {[info exists data]} { set sorted [lrange [lsort -integer -decreasing -index 1 $data] 10 19] if {[llength $sorted] != 0} { set count 11 foreach element $sorted { lappend output [list $count\. [lindex $element 0] ([lindex $element 1])] incr count } pChanstatsCompliance 001 0 $nick 0 $chan $tchan "top 20" $name $output 0 0 0 } else {pChanstatsError 017 0 $nick 0 $chan $tchan [llength $data] $name 0 0 0 0} } else {pChanstatsError 006 0 $nick 0 $chan $tchan $name 0 0 0 0 0} } else {pChanstatsError 004 0 $nick 0 $chan $tchan 0 0 0 0 0 0} } else {pChanstatsError 003 0 $nick 0 $chan $tchan 0 0 0 0 0 0} } else {pChanstatsError 005 0 $nick 0 $chan 0 0 0 0 0 0 0} } else { switch -- $vChanstatsStatus($command) { 9 {pChanstatsError 015 $command $nick 0 $chan 0 0 0 0 0 0 0} default {pChanstatsError 016 $command $nick 0 $chan 0 0 0 0 0 0 0} } } } return 0}proc pChanstatsOutputTstats {nick uhost hand chan text} { global vChanstatsData global vChanstatsStatus if {[channel get $chan chanstats]} { set command tstats if {[pChanstatsFlag $nick $chan] >= $vChanstatsStatus($command)} { switch -- [llength [split [string trim $text]]] { 0 {set tchan [string tolower $chan]} 1 {set tchan [string tolower [string trim $text]]} default { pChanstatsError 019 0 $nick 0 $chan 0 0 0 0 0 0 0 return 0 } } if {[array size vChanstatsData] != 0} { if {[string equal [string index $tchan 0] "#"]} { if {[validchan $tchan]} { set tlines 0; set twords 0; set tactions 0; set tkicks 0; set tbans 0; set tjoins 0; set tparts 0; set tsplits 0; set tquits 0; set tnicks 0 foreach {name value} [array get vChanstatsData] { if {[string equal $tchan [join [lindex [split $name @] 1]]]} { incr tlines [join [lindex [split $value] 2]] incr twords [join [lindex [split $value] 3]] incr tactions [join [lindex [split $value] 4]] incr tkicks [join [lindex [split $value] 5]] incr tbans [join [lindex [split $value] 6]] incr tjoins [join [lindex [split $value] 7]] incr tparts [join [lindex [split $value] 8]] incr tsplits [join [lindex [split $value] 9]] incr tquits [join [lindex [split $value] 10]] incr tnicks [join [lindex [split $value] 11]] } } if {[expr {$tlines + $twords + $tactions + $tkicks + $tbans + $tjoins + $tparts + $tsplits + $tquits + $tnicks}] == 0} { pChanstatsError 020 0 $nick 0 $chan $tchan 0 0 0 0 0 0 } else { set output "lines ($tlines), words ($twords), actions ($tactions), kicks ($tkicks), bans ($tbans), joins ($tjoins), parts ($tparts), splits ($tsplits), quits ($tquits), nick changes ($tnicks)" pChanstatsCompliance 004 0 $nick 0 $chan $tchan $output 0 0 0 0 0 } } else {pChanstatsError 004 0 $nick 0 $chan $tchan 0 0 0 0 0 0} } else {pChanstatsError 003 0 $nick 0 $chan $tchan 0 0 0 0 0 0} } else {pChanstatsError 005 0 $nick 0 $chan 0 0 0 0 0 0 0} } else { switch -- $vChanstatsStatus($command) { 9 {pChanstatsError 015 $command $nick 0 $chan 0 0 0 0 0 0 0} default {pChanstatsError 016 $command $nick 0 $chan 0 0 0 0 0 0 0} } } } return 0}proc pChanstatsPartInput {nick uhost hand chan msg} { pChanstatsDataAccrue [string tolower $nick] [string tolower $chan] 8 1 return 0}proc pChanstatsPubmInput {nick uhost hand chan text} { global vChanstatsPutlog if {![catch {set arguments [split [string trim [string trimleft [stripcodes bcruag $text] \"]]]}]} { if {![catch {set choice [string range [join [lindex $arguments 0]] 1 end]}]} { switch -- $choice { top10 - top20 - stats - tstats - zapstats {return 0} default { pChanstatsDataAccrue [string tolower $nick] [string tolower $chan] 2 1 pChanstatsDataAccrue [string tolower $nick] [string tolower $chan] 3 [llength $arguments] } } } else {if {$vChanstatsPutlog} {putlog "<\00314chanstats\003> unable to split line of text <\00314$nick\003> <\00314$chan\003> skipped"}} } else {if {$vChanstatsPutlog} {putlog "<\00314chanstats\003> unable to split line of text <\00314$nick\003> <\00314$chan\003> skipped"}} return 0}proc pChanstatsRejnInput {nick uhost hand chan} { pChanstatsDataAccrue [string tolower $nick] [string tolower $chan] 7 1 return 0}proc pChanstatsSave {type} { global vChanstatsData global vChanstatsIdleDays global vChanstatsPutlog if {[array size vChanstatsData] != 0} { set count 0 foreach {key record} [array get vChanstatsData] { if {![validchan [join [lindex [split $key @] 1]]]} { lappend erase $key incr count continue } if {[join [lindex [split $record] 1]] <= [expr {[unixtime] - ($vChanstatsIdleDays * 86400)}]} { lappend erase $key incr count continue } lappend data $record } if {[info exists erase]} { foreach item $erase { unset vChanstatsData($item) } } if {[info exists data]} { set id [open chanstats.txt w] puts $id "[join $data \n]" close $id } else { set data {} if {[file exists chanstats.txt]} { file delete chanstats.txt } } if {$vChanstatsPutlog} {putlog "\00314<chanstats>\003 saving data (\00314$type\003) --> saved (\00314[llength $data]\003), discarded (\00314$count\003)"} } return 0}proc pChanstatsSchedule {} { global vChanstatsScheduleSave foreach schedule [binds time] { if {[string equal pChanstatsTimedSave [join [lindex $schedule 4]]]} { set minute [join [lindex [lindex $schedule 2] 0]] set hour [join [lindex [lindex $schedule 2] 1]] unbind TIME - "$minute $hour * * *" pChanstatsTimedSave } } set minute [strftime %M [expr {[unixtime] + ($vChanstatsScheduleSave * 60)}]] set hour [strftime %H [expr {[unixtime] + ($vChanstatsScheduleSave * 60)}]] bind TIME - "$minute $hour * * *" pChanstatsTimedSave return 0}proc pChanstatsSignInput {nick uhost hand chan reason} { pChanstatsDataAccrue [string tolower $nick] [string tolower $chan] 10 1 return 0}proc pChanstatsSpltInput {nick uhost hand chan} { pChanstatsDataAccrue [string tolower $nick] [string tolower $chan] 9 1 return 0}proc pChanstatsTimedSave {minute hour day month year} { pChanstatsSave schedule pChanstatsSchedule return 0}proc pChanstatsZapstats {nick uhost hand chan text} { global vChanstatsData global vChanstatsStatus global vChanstatsZapAllowed if {[channel get $chan chanstats]} { set command zapstats if {[pChanstatsFlag $nick $chan] >= $vChanstatsStatus($command)} { if {$vChanstatsZapAllowed} { if {[array size vChanstatsData] != 0} { switch -- [llength [split [string trim $text]]] { 0 {set tchan [string tolower $chan]} 1 {set tchan [string tolower [string trim $text]]} default { pChanstatsError 010 0 $nick 0 $chan 0 0 0 0 0 0 0 return 0 } } if {[string equal [string index $tchan 0] "#"]} { if {[validchan $tchan]} { if {[channel get $tchan chanstats]} { if {[array names vChanstatsData "*@$tchan"] != ""} { foreach {key record} [array get vChanstatsData "*$tchan"] { set vChanstatsData($key) [join [lreplace [split $record] 1 1 0]] } pChanstatsSave zapstats pChanstatsCompliance 003 0 $nick 0 $chan $tchan 0 0 0 0 0 0 if {![string equal -nocase $chan $tchan]} { pChanstatsEvent 001 0 0 $nick 0 $tchan 0 0 0 0 0 0 } } else {pChanstatsError 012 0 $nick 0 $chan $tchan 0 0 0 0 0 0} } else {pChanstatsError 011 0 $nick 0 $chan $tchan 0 0 0 0 0 0} } else {pChanstatsError 004 0 $nick 0 $chan $tchan 0 0 0 0 0 0} } else {pChanstatsError 003 0 $nick 0 $chan $tchan 0 0 0 0 0 0} } else {pChanstatsError 005 0 $nick 0 $chan 0 0 0 0 0 0 0} } else {pChanstatsError 013 $command $nick 0 $chan 0 0 0 0 0 0 0} } else { switch -- $vChanstatsStatus($command) { 9 {pChanstatsError 015 $command $nick 0 $chan 0 0 0 0 0 0 0} default {pChanstatsError 016 $command $nick 0 $chan 0 0 0 0 0 0 0} } } } return 0}# ---------- ACKNOWLEDGEMENT --------------------------------------------------------------------------------------------- #putlog "\00314<chanstats>\003 version $vChanstatsVersion by arfer loaded (w/ ExemptNickList by SpiKe^^)"# eofStatistics: Posted by SpiKe^^ — Tue Jul 05, 2022 6:40 pm
Statistics: Posted by a41 — Tue Jul 05, 2022 2:52 pm
Statistics: Posted by SpiKe^^ — Fri Jul 01, 2022 7:02 pm
Code:
# exec tclsh "$0" ${1+"$@"}# chanstats.1.3.0.tcl# arfer <arfer.minute@gmail.com># dalnet #Atlantis# ***************************************************************************************************************************** ## ********** OPERATION ******************************************************************************************************** ## maintains a simplistic channel statistics datafile and provides public commands for reporting# ***************************************************************************************************************************** ## ********** LICENCE ********************************************************************************************************** ## this program is free software; you can redistribute it and/or modify it under the terms of the ..# .. GNU General Public License as published by the Free Software Foundation; either version 2 of ..# .. the license, or (at your option) any later version# this program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without ..# .. even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ..# .. General Public License for more details# if you did not receive a copy of the GNU General Public License along with this program write ..# .. to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA# ***************************************************************************************************************************** ## ********** DEPENDENCIES ***************************************************************************************************** ## this script requires eggdrop/windrop version 1.6.17 or later# this script requires tcl version 8.4 or later# this script was specifically designed for Eggdrop/Windrop on DalNet IRC network, ..# .. it has not been tested and may or may not work on other networks# the script creates the file chanstats.txt in the bot's root directory. ensure that other scripts ..# .. do not use a file with the same name in the same directory# ***************************************************************************************************************************** ## ********** INSTALLATION ***************************************************************************************************** ## 1. configure chanstats.1.3.0.tcl in a suitable text editor - see configuration section below# 2. create the directory scripts/chanstats if it doesn't already exist# 3. place the configured chanstats.1.3.0.tcl in the bot's scripts/chanstats subdirectory# 4. add a line to the end of the bot's .conf file 'source scripts/chanstats/chanstats.1.3.0.tcl# 5. RESTART the bot (NOT rehash) - very important otherwise the scheduled data operation save will not initialise# 6. once the bot is online use '.chanset #channelname +chanstats' in the partyline for each bot channel you wish to use the ..# .. script in, unless this process is automated - see configuration section below# no changes have been made to the format of the data file from previous versions, so any existing data file is still useable# editpad lite is recommended as a suitable text editor for configuring this script and is ..# .. freely available via download from http://www.editpadpro.com/editpadlite.html# ***************************************************************************************************************************** ## ********** CHANGELOG ******************************************************************************************************** ## 1.0.0 [06/11/07] [727 lines]# beta code# 1.0.1 [15/11/07] [735 lines]# mod to mistake in text comment +stats should read +chanstats# corrected bug in error color proc caused by pasting from another script# regsub quotes to prevent - Tcl error [pChanstatsPubmInput]: unmatched open quote in list# 1.0.2 [21/11/07 [739 lines]# fixed error on first time load - Tcl error [pChanstatsLoad]: can't read "count": no such variable# thanks to Flywine# 1.0.3 [29/11/07] [743 lines]# fixed error with .stats <nick> if nick had trailing space (eg. from xchat nick completion)# thanks to Alchera# 1.1.0 [10/12/07] [823 lines]# still rare but annoying occasions when splitting channel text chokes the PUBM bind# decided to use a catch command which sort of ignores the problem rather than dealing with it# this means that any such lines will be ignored# added .top20 <option> ?#chan? command# 1.2.0 [23/12/07] [896 lines]# added .tstats ?#chan? command to show total events activity in a channel# added option to exclude guest nicks rather than all nicks ending with four numeric characters# fixed error if incorrect syntax is used for top20 command# 1.3.0 [10.01.08] [982 lines]# added .rank <nick> <option> ?#chan? command# minor change to error output for disallowed option argument# added duration since last event to .stats command# ***************************************************************************************************************************** ## ********** SYNTAX *********************************************************************************************************** ## assuming the default trigger "." - see configuration section below# arguments inside <here> are required# arguments inside ?here? are optional# .rank <nick> <option> ?#chan? --> outputs the current placing of <nick> for events specified by <option> in the command source channel, or in ?#chan? if specified# .stats <nick> ?#chan? --> outputs the chanstats for <nick> and command source channel, or those for <nick> and ?#chan? if specified# .top10 <option> ?#chan? --> outputs the top 10 users for events specified by <option> for command source channel, or those for ?#chan? if specified# .top20 <option> ?#chan? --> outputs the top 20 users (11 through 20) for events specified by <option> for command source channel, or those for ?#chan? if specified# .tstats ?#chan? --> outputs total events logged for command source channel, or those for ?#chan? if specified# .zapstats ?#chan? --> deletes chanstats records for the command source channel, or those for ?#chan? if specified# valid <option> arguments for .top10, top20 and .place commands are lines, words, actions, kicks, bans, joins, parts, splits, quits, nicks# ***************************************************************************************************************************** ## ********** CONFIGURATION **************************************************************************************************** ## set here the single character command trigger# ensure that it is set such that it does not interfere with similar commands on this or other bots in the same channel(s)# allowed values are as follows (the existing settings are recommended)# , = comma# . = period# ! = exclamation mark# $ = dollar sign# & = ampersand# - = hyphen# ? = question mark# ~ = tilde# ; = semi-colon# : = colon# ' = apostrophe# % = percent# ^ = caret# * = asteriskset vChanstatsTrigger "."# set here the user status required to use the commands in this script# based on global and channel bot flags# note that a setting of 9 means that the user's handle must exist in the ..# .. configuration file's 'set owner' variable# allowed values are as follows (the existing settings are recommended)# 1 = public (no bot access required)# 2 = partyline (p|)# 3 = channel or global operator (o|o)# 4 = global operator (o|)# 5 = channel or global master (m|m)# 6 = global master (m|)# 7 = channel or global owner (n|n)# 8 = global owner (n|)# 9 = permanent owner (handle must be listed in .conf 'set owner' variable)set vChanstatsStatus(rank) 1set vChanstatsStatus(stats) 1set vChanstatsStatus(top10) 1set vChanstatsStatus(top20) 1set vChanstatsStatus(tstats) 1set vChanstatsStatus(zapstats) 9# set here the text colours used in the bot's responses# settings are only valid where channel mode permits colour# allowed values are as follows (the existing settings are recommended)# 00 = white# 01 = black# 02 = blue# 03 = green# 04 = light red# 05 = brown# 06 = purple# 07 = orange# 08 = yellow# 09 = light green# 10 = cyan# 11 = light cyan# 12 = light blue# 13 = pink# 14 = grey# 15 = light greyset vChanstatsColor(arrow) 03set vChanstatsColor(compliance) 10set vChanstatsColor(dimmed) 14set vChanstatsColor(errors) 04set vChanstatsColor(events) 07# set here if you wish to automate the channel flag setting of +chanstats for any channel the bot joins# do not turn on this facility if you intend that the script work in only selected channels# for 'auto channel setting' the setting can be any of the accepted boolean values 1, yes, true, on# for 'manual channel setting' (as normal through the .chanset partyline command) the setting can be any ..# .. of the accepted boolean values 0, no, false, off# no other values are permittedset vChanstatsAuto 1# set here if you wish to allow the stats database to be cleared via a public command# the only alternative would be to kill the bot and manually delete the chanstats.txt datafile# for 'allowed' the setting can be any of the accepted boolean values 1, yes, true, on# for 'not allowed' the setting can be any of the accepted boolean values 0, no, false, off# no other values are permittedset vChanstatsZapAllowed 1# set here the numbers of events (of any/all types) (in any/all channels) to occur between data save operation# valid values are integers in the range 10 through 50# no other values are permittedset vChanstatsEventsSave 20# set here the number of minutes to elapse between data save operations# valid values are integers in the range 5 through 25# no other values are permittedset vChanstatsScheduleSave 10# set here the number of days that must pass for any user not recording an event of any type on a channel ..# .. before their record for that channel is discarded during the next save operation# valid values are integers in the range 2 through 10# no other values are permittedset vChanstatsIdleDays 2# set here if you wish to see save and load related operations in the partyline# the information includes records saved and records discarded# to 'see partyline information' the setting can be any of the accepted boolean values 1, yes, true, on# to 'not see partyline information' the setting can be any of the accepted boolean values 0, no, false, off# no other values are permittedset vChanstatsPutlog 1# set here if you wish to accrue events by guest nicks# to 'accrue events by guest nicks' the setting can be any of the accepted boolean values 1, yes, true, on# to 'ignore events by guest nicks' the setting can be any of the accepted boolean values 0, no, false, off# no other values are permittedset vChanstatsGuest 0# ***************************************************************************************************************************** ## ********** CODE ************************************************************************************************************* ## *********************************** ## *** DO NOT EDIT BELOW THIS LINE *** ## *********************************** ## ---------- FAILSAFES --------------------------------------------------------------------------------------------------- #if {![regexp {^[-,.!$&?~;:'%^*]{1}$} $vChanstatsTrigger]} { die "configuration error in chanstats.tcl - illegal command trigger character"}foreach status [array names vChanstatsStatus] { if {![string is integer -strict $vChanstatsStatus($status)]} { die "configuration error in chanstats.tcl - illegal user status value (not an integer)" } else { if {($vChanstatsStatus($status) < 1) || ($vChanstatsStatus($status) > 9)} { die "configuration error in chanstats.tcl - illegal user status value (out of permitted range)" } }}foreach color [array names vChanstatsColor] { if {![string is integer -strict $vChanstatsColor($color)]} { die "configuration error in chanstats.tcl - illegal text color value (not an integer)" } else { if {($vChanstatsColor($color) < 0) || ($vChanstatsColor($color) > 15)} { die "configuration error in chanstats.tcl - illegal text colour value (out of permitted range)" } }}if {![string is boolean -strict $vChanstatsAuto]} { die "configuration error in chanstats.tcl - illegal auto channel setting variable (not boolean)"}if {![string is boolean -strict $vChanstatsZapAllowed]} { die "configuration error in chanstats.tcl - illegal reset allowed variable (not boolean)"}if {![string is integer -strict $vChanstatsEventsSave]} { die "configuration error in chanstats.tcl - illegal events save value (not an integer)"} else { if {($vChanstatsEventsSave < 10) || ($vChanstatsEventsSave > 50)} { die "configuration error in chanstats.tcl - illegal events save value (out of permitted range)" }}if {![string is integer -strict $vChanstatsScheduleSave]} { die "configuration error in chanstats.tcl - illegal events save value (not an integer)"} else { if {($vChanstatsScheduleSave < 5) || ($vChanstatsScheduleSave > 25)} { die "configuration error in chanstats.tcl - illegal events save value (out of permitted range)" }}if {![string is integer -strict $vChanstatsIdleDays]} { die "configuration error in chanstats.tcl - illegal events save value (not an integer)"} else { if {($vChanstatsIdleDays < 2) || ($vChanstatsIdleDays > 10)} { die "configuration error in chanstats.tcl - illegal events save value (out of permitted range)" }}if {![string is boolean -strict $vChanstatsPutlog]} { die "configuration error in chanstats.tcl - illegal putlog variable (not boolean)"}if {![string is boolean -strict $vChanstatsGuest]} { die "configuration error in chanstats.tcl - illegal guest accrue variable (not boolean)"}# ---------- INITIALISE -------------------------------------------------------------------------------------------------- #set vChanstatsVersion 1.3.0setudef flag chanstatsproc pChanstatsTrigger {} { global vChanstatsTrigger return $vChanstatsTrigger}array set vChanstatsFlag { 2 p| 3 o|o 4 o| 5 m|m 6 m| 7 n|n 8 n|}array set vChanstatsName { 2 "partyline" 3 "channel operator" 4 "global operator" 5 "channel master" 6 "global master" 7 "channel owner" 8 "global owner"}set vChanstatsCount 0# ---------- BINDS ------------------------------------------------------------------------------------------------------- #bind EVNT - connect-server pChanstatsLoadbind EVNT - disconnect-server pChanstatsSavebind EVNT - init-server pChanstatsInitbind JOIN - * pChanstatsJoinAutobind CTCP - ACTION pChanstatsCtcpInputbind KICK - * pChanstatsKickInputbind MODE - "#*+b" pChanstatsModeInputbind JOIN - * pChanstatsJoinInputbind NICK - * pChanstatsNickInputbind PART - * pChanstatsPartInputbind PUBM - * pChanstatsPubmInputbind REJN - * pChanstatsRejnInputbind SIGN - * pChanstatsSignInputbind SPLT - * pChanstatsSpltInputbind PUB - [pChanstatsTrigger]rank pChanstatsOutputRankbind PUB - [pChanstatsTrigger]stats pChanstatsOutputStatsbind PUB - [pChanstatsTrigger]top10 pChanstatsOutputTop10bind PUB - [pChanstatsTrigger]top20 pChanstatsOutputTop20bind PUB - [pChanstatsTrigger]tstats pChanstatsOutputTstatsbind PUB - [pChanstatsTrigger]zapstats pChanstatsZapstats# ---------- PROCS ------------------------------------------------------------------------------------------------------- #proc pChanstatsColor {chan type number} { global vChanstatsColor if {[regexp -- {^\+[a-zA-Z]*c} [getchanmode $chan]]} { return "" } else { switch -- $number { 1 { switch -- $type { 0 {return "\003$vChanstatsColor(errors)"} 1 {return "\003$vChanstatsColor(compliance)"} 2 {return "\003$vChanstatsColor(events)"} } } 3 {return "\003$vChanstatsColor(dimmed)"} 5 {return "\003$vChanstatsColor(arrow)"} 2 - 4 - 6 {return "\003"} } }}proc pChanstatsCompliance {number command snick tnick schan tchan text1 text2 text3 text4 text5 text6} { for {set loop 1} {$loop <= 6} {incr loop} {set col($loop) [pChanstatsColor $schan 1 $loop]} set output1 "$col(1)Compliance$col(2) ($col(3)$snick$col(4)) $col(5)-->$col(6)" switch -- $number { 001 {set output2 "$text1 $col(3)$text2$col(4) logged for $col(3)$tchan$col(4) $col(5)-->$col(6) [regsub -all {\)} [regsub -all {\(} [join [join $text3 ", "]] "($col(3)"] "$col(4))"]"} 002 {set output2 "chanstats data for $col(3)$tnick$col(4) in $col(3)$tchan$col(4) $col(5)-->$col(6) [regsub -all {\)} [regsub -all {\(} $text1 "($col(3)"] "$col(4))"] $col(5)-->$col(6) \ last event logged was $col(3)$text2$col(4) ago"} 003 {set output2 "chanstats data for $col(3)$tchan$col(4) has been reset"} 004 {set output2 "total chanstats data for $col(3)$tchan$col(4) $col(5)-->$col(6) [regsub -all {\)} [regsub -all {\(} $text1 "($col(3)"] "$col(4))"]"} 005 {set output2 "$col(3)$tnick$col(4) is ranked $col(3)$text2$col(4) out of $col(3)$text4$col(4) record(s) for $col(3)$text1$col(4) logged in $col(3)$tchan$col(4) with a score of\ $col(3)$text3$col(4) which represents $col(3)[format %.2f [expr {(double($text3) / double($text5)) * 100}]]%$col(4) of $col(3)$text5$col(4) total"} } putserv "PRIVMSG $schan :$output1 $output2" return 0}proc pChanstatsCtcpInput {nick uhost hand dest keyword text} { pChanstatsDataAccrue [string tolower $nick] [string tolower $dest] 4 1 return 0}proc pChanstatsDataAccrue {nick chan position number} { global vChanstatsCount global vChanstatsData global vChanstatsEventsSave global vChanstatsGuest if {![isbotnick $nick]} { if {(!$vChanstatsGuest) && ([regexp {^guest.+[0-9]{4}$} [string tolower $nick]])} {return 0} if {[channel get $chan chanstats]} { incr vChanstatsCount if {![info exists vChanstatsData($nick\@$chan)]} {set vChanstatsData($nick\@$chan) "$nick\@$chan [unixtime] 0 0 0 0 0 0 0 0 0 0"} set oldvalue [join [lindex [split $vChanstatsData($nick\@$chan)] $position]] set newvalue [expr {$oldvalue + $number}] set vChanstatsData($nick\@$chan) [join [lreplace [split $vChanstatsData($nick\@$chan)] 1 1 [unixtime]]] set vChanstatsData($nick\@$chan) [join [lreplace [split $vChanstatsData($nick\@$chan)] $position $position $newvalue]] if {[expr {$vChanstatsCount >= $vChanstatsEventsSave}]} { pChanstatsSave events set vChanstatsCount 0 } } } return 0}proc pChanstatsError {number command snick tnick schan tchan text1 text2 text3 text4 text5 text6} { global vChanstatsStatus for {set loop 1} {$loop <= 6} {incr loop} {set col($loop) [pChanstatsColor $schan 0 $loop]} set output1 "$col(1)Error$col(2) ($col(3)$snick$col(4)) $col(5)-->$col(6)" switch -- $number { 001 {set output2 "correct syntax is $col(3)[pChanstatsTrigger]top10 <option> ?#chan?$col(4)"} 002 {set output2 "valid $col(3)<option>$col(4) arguments are $col(3)lines, words, actions, kicks, bans, joins, parts, splits, quits, nicks$col(4)"} 003 {set output2 "$col(3)$tchan$col(4) is not a valid channel name"} 004 {set output2 "I do not have a channel record for $col(3)$tchan$col(4)"} 005 {set output2 "there has been no chanstats data logged yet for any of my channels"} 006 {set output2 "there have been no $col(3)$text1$col(4) logged for $col(3)$tchan$col(4) yet"} 007 {set output2 "correct syntax is $col(3)[pChanstatsTrigger]stats <nick> ?#chan?$col(4)"} 008 {set output2 "$col(3)$tnick$col(4) is not a valid nick"} 009 {set output2 "there has been no chanstats data logged for nick $col(3)$tnick$col(4) in $col(3)$tchan$col(4) yet"} 010 {set output2 "correct syntax is $col(3)[pChanstatsTrigger]zapstats ?#chan?$col(4)"} 011 {set output2 "chanstats are not currently being maintained for $col(3)$tchan$col(4)"} 012 {set output2 "there are no records for $col(3)$tchan$col(4) to delete"} 013 {set output2 "the $col(3)[pChanstatsTrigger]$command$col(4) command has been disabled in the script's configuration"} 014 {set output2 "I do not log chanstats for myself"} 015 {set output2 "permanent owner bot access is required to use the command $col(3)[pChanstatsTrigger]$command$col(4)"} 016 {set output2 "a minimum of [pChanstatsName $vChanstatsStatus($command)] bot access is required to use the command $col(3)[pChanstatsTrigger]$command$col(4)"} 017 {set output2 "I only have $text1 record(s) for $col(3)$text2$col(4) in $col(3)$tchan$col(4)"} 018 {set output2 "correct syntax is $col(3)[pChanstatsTrigger]top20 <option> ?#chan?$col(4)"} 019 {set output2 "correct syntax is $col(3)[pChanstatsTrigger]total ?#chan?$col(4)"} 020 {set output2 "there has been no chanstats data logged for $col(3)$tchan$col(4) yet"} 021 {set output2 "correct syntax is $col(3)[pChanstatsTrigger]rank <nick> <option> ?#chan?$col(4)"} 022 {set output2 "$col(3)$tnick$col(4) has not yet logged any $col(3)$text1$col(4) in $col(3)$tchan$col(4)"} } putserv "PRIVMSG $schan :$output1 $output2" return 0}proc pChanstatsEvent {number command snick tnick schan tchan text1 text2 text3 text4 text5 text6} { for {set loop 1} {$loop <= 6} {incr loop} {set col($loop) [pChanstatsColor $tchan 2 $loop]} set output1 "$col(1)Event$col(2) ($col(3)zapstats$col(4)) $col(5)-->$col(6)" switch -- $number { 001 {set output2 "chanstats data for $col(3)$tchan$col(4) has been reset by $col(3)$tnick$col(4)"} } putserv "PRIVMSG $tchan :$output1 $output2" return 0}proc pChanstatsFlag {nick chan} { global owner global vChanstatsFlag set owners [split [string tolower [regsub -all -- {,} $owner ""]]] set handle [string tolower [nick2hand $nick]] if {[lsearch -exact $owners $handle] != -1} {return 9} for {set loop 8} {$loop >= 2} {incr loop -1} { if {[matchattr [nick2hand $nick] $vChanstatsFlag($loop) $chan]} {return $loop} } return 1}proc pChanstatsInit {type} { global vChanstatsPutlog if {$vChanstatsPutlog} {putlog "\00314<chanstats>\003 initialising time bind (\00314$type\003)"} pChanstatsSchedule return 0}proc pChanstatsJoinAuto {nick uhost hand chan} { global vChanstatsAuto if {[isbotnick $nick]} { if {$vChanstatsAuto} { if {![channel get $chan chanstats]} { channel set $chan +chanstats savechannels } } } return 0}proc pChanstatsJoinInput {nick uhost hand chan} { pChanstatsDataAccrue [string tolower $nick] [string tolower $chan] 7 1 return 0}proc pChanstatsKickInput {nick uhost hand chan target reason} { pChanstatsDataAccrue [string tolower $nick] [string tolower $chan] 5 1 pChanstatsDataAccrue [string tolower $target] [string tolower $chan] 8 1 return 0}proc pChanstatsLoad {type} { global vChanstatsData global vChanstatsPutlog if {[file exists chanstats.txt]} { set count 0 set id [open chanstats.txt r] set data [read -nonewline $id] close $id if {[array size vChanstatsData] != 0} {unset vChanstatsData} foreach record [split $data \n] { if {[llength [split $record]] == 12} { set vChanstatsData([join [lindex [split $record] 0]]) $record } else { incr count } } if {$vChanstatsPutlog} {putlog "\00314<chanstats>\003 loading data (\00314$type\003) --> loaded (\00314[array size vChanstatsData]\003), discarded (\00314$count\003)"} } return 0}proc pChanstatsModeInput {nick uhost hand chan mc target} { pChanstatsDataAccrue [string tolower $nick] [string tolower $chan] 6 1 return 0}proc pChanstatsName {number} { global vChanstatsName switch -- $number { 1 {return "public"} 9 {return "permanent owner"} default {return $vChanstatsName($number)} }}proc pChanstatsNickInput {nick uhost hand chan newnick} { pChanstatsDataAccrue [string tolower $nick] [string tolower $chan] 11 1 return 0}proc pChanstatsOutputRank {nick uhost hand chan text} { global vChanstatsData global vChanstatsStatus if {[channel get $chan chanstats]} { set command rank if {[pChanstatsFlag $nick $chan] >= $vChanstatsStatus($command)} { switch -- [llength [split [string trim $text]]] { 2 {set tnick [join [lindex [split [string tolower [string trim $text]]] 0]]; set tchan [string tolower $chan]} 3 {set tnick [join [lindex [split [string tolower [string trim $text]]] 0]]; set tchan [join [lindex [split [string tolower [string trim $text]]] 2]]} default { pChanstatsError 021 0 $nick 0 $chan 0 0 0 0 0 0 0 return 0 } } if {[array size vChanstatsData] != 0} { if {[regexp -- {^[\x41-\x7D][-\d\x41-\x7D]*$} $tnick]} { if {![isbotnick $tnick]} { if {[string equal [string index $tchan 0] "#"]} { if {[validchan $tchan]} { if {[info exists vChanstatsData($tnick\@$tchan)]} { set opt [join [lindex [split [string trim [string tolower $text]]] 1]] switch -- $opt { lines {set name lines; set position 2} words {set name words; set position 3} actions {set name actions; set position 4} kicks {set name kicks; set position 5} bans {set name bans; set position 6} joins {set name joins; set position 7} parts {set name parts; set position 8} splits {set name splits; set position 9} quits {set name quits; set position 10} nicks {set name "nick changes"; set position 11} default { pChanstatsError 002 0 $nick 0 $chan 0 0 0 0 0 0 0 return 0 } } foreach {key record} [array get vChanstatsData] { if {[string equal $tchan [join [lindex [split $key @] 1]]]} { if {![string equal [join [lindex [split $record] $position]] 0]} { lappend data [list [lindex [split $key @] 0] [join [lindex [split $record] $position]]] if {[info exists total]} { set total [incr total [join [lindex [split $record] $position]]] } else {set total [join [lindex [split $record] $position]]} } } } if {[info exists data]} { set sorted [lsort -integer -decreasing -index 1 $data] set events [join [lindex [split $vChanstatsData($tnick\@$tchan)] $position]] set count [llength $sorted] if {![string equal $events 0]} { set rank [expr {[lsearch $sorted $tnick*] + 1}] pChanstatsCompliance 005 0 $nick $tnick $chan $tchan $opt $rank $events $count $total 0 } else {pChanstatsError 022 0 $nick $tnick $chan $tchan $opt 0 0 0 0 0} } else {pChanstatsError 006 0 $nick 0 $chan $tchan $name 0 0 0 0 0} } else {pChanstatsError 009 0 $nick $tnick $chan $tchan 0 0 0 0 0 0} } else {pChanstatsError 004 0 $nick 0 $chan $tchan 0 0 0 0 0 0} } else {pChanstatsError 003 0 $nick 0 $chan $tchan 0 0 0 0 0 0} } else {pChanstatsError 014 0 $nick 0 $chan 0 0 0 0 0 0 0} } else {pChanstatsError 008 0 $nick $tnick $chan 0 0 0 0 0 0 0} } else {pChanstatsError 005 0 $nick 0 $chan 0 0 0 0 0 0 0} } else { switch -- $vChanstatsStatus($command) { 9 {pChanstatsError 015 $command $nick 0 $chan 0 0 0 0 0 0 0} default {pChanstatsError 016 $command $nick 0 $chan 0 0 0 0 0 0 0} } } } return 0}proc pChanstatsOutputStats {nick uhost hand chan text} { global vChanstatsData global vChanstatsStatus if {[channel get $chan chanstats]} { set command stats if {[pChanstatsFlag $nick $chan] >= $vChanstatsStatus($command)} { switch -- [llength [split [string trim $text]]] { 1 {set tnick [string tolower [string trim $text]]; set tchan [string tolower $chan]} 2 {set tnick [join [lindex [split [string tolower [string trim $text]]] 0]]; set tchan [join [lindex [split [string tolower [string trim $text]]] 1]]} default { pChanstatsError 007 0 $nick 0 $chan 0 0 0 0 0 0 0 return 0 } } if {[array size vChanstatsData] != 0} { if {[regexp -- {^[\x41-\x7D][-\d\x41-\x7D]*$} $tnick]} { if {![isbotnick $tnick]} { if {[string equal [string index $tchan 0] "#"]} { if {[validchan $tchan]} { if {[info exists vChanstatsData($tnick\@$tchan)]} { set elapsed [duration [expr {[unixtime] - [join [lindex [split $vChanstatsData($tnick\@$tchan)] 1]]}]] set lines [join [lindex [split $vChanstatsData($tnick\@$tchan)] 2]] set words [join [lindex [split $vChanstatsData($tnick\@$tchan)] 3]] set actions [join [lindex [split $vChanstatsData($tnick\@$tchan)] 4]] set kicks [join [lindex [split $vChanstatsData($tnick\@$tchan)] 5]] set bans [join [lindex [split $vChanstatsData($tnick\@$tchan)] 6]] set joins [join [lindex [split $vChanstatsData($tnick\@$tchan)] 7]] set parts [join [lindex [split $vChanstatsData($tnick\@$tchan)] 8]] set splits [join [lindex [split $vChanstatsData($tnick\@$tchan)] 9]] set quits [join [lindex [split $vChanstatsData($tnick\@$tchan)] 10]] set nicks [join [lindex [split $vChanstatsData($tnick\@$tchan)] 11]] set output "lines ($lines), words ($words), actions ($actions), kicks ($kicks), bans ($bans), joins ($joins), parts ($parts), splits ($splits), quits ($quits), nick changes ($nicks)" pChanstatsCompliance 002 0 $nick $tnick $chan $tchan $output $elapsed 0 0 0 0 } else {pChanstatsError 009 0 $nick $tnick $chan $tchan 0 0 0 0 0 0} } else {pChanstatsError 004 0 $nick 0 $chan $tchan 0 0 0 0 0 0} } else {pChanstatsError 003 0 $nick 0 $chan $tchan 0 0 0 0 0 0} } else {pChanstatsError 014 0 $nick 0 $chan 0 0 0 0 0 0 0} } else {pChanstatsError 008 0 $nick $tnick $chan 0 0 0 0 0 0 0} } else {pChanstatsError 005 0 $nick 0 $chan 0 0 0 0 0 0 0} } else { switch -- $vChanstatsStatus($command) { 9 {pChanstatsError 015 $command $nick 0 $chan 0 0 0 0 0 0 0} default {pChanstatsError 016 $command $nick 0 $chan 0 0 0 0 0 0 0} } } } return 0}proc pChanstatsOutputTop10 {nick uhost hand chan text} { global vChanstatsData global vChanstatsStatus if {[channel get $chan chanstats]} { set command top10 if {[pChanstatsFlag $nick $chan] >= $vChanstatsStatus($command)} { switch -- [llength [split [string trim $text]]] { 1 {set tchan [string tolower $chan]} 2 {set tchan [join [lindex [split [string tolower [string trim $text]]] 1]]} default { pChanstatsError 001 0 $nick 0 $chan 0 0 0 0 0 0 0 return 0 } } if {[array size vChanstatsData] != 0} { if {[string equal [string index $tchan 0] "#"]} { if {[validchan $tchan]} { switch -- [join [lindex [split [string trim [string tolower $text]]] 0]] { lines {set name lines; set position 2} words {set name words; set position 3} actions {set name actions; set position 4} kicks {set name kicks; set position 5} bans {set name bans; set position 6} joins {set name joins; set position 7} parts {set name parts; set position 8} splits {set name splits; set position 9} quits {set name quits; set position 10} nicks {set name "nick changes"; set position 11} default { pChanstatsError 002 0 $nick 0 $chan 0 0 0 0 0 0 0 return 0 } } foreach {key record} [array get vChanstatsData] { if {[string equal $tchan [join [lindex [split $key @] 1]]]} { if {[expr {[join [lindex [split $record] $position]] != 0}]} { lappend data [list [lindex [split $key @] 0] [join [lindex [split $record] $position]]] } } } if {[info exists data]} { set sorted [lrange [lsort -integer -decreasing -index 1 $data] 0 9] set count 1 foreach element $sorted { lappend output [list $count\. [lindex $element 0] ([lindex $element 1])] incr count } pChanstatsCompliance 001 0 $nick 0 $chan $tchan "top 10" $name $output 0 0 0 } else {pChanstatsError 006 0 $nick 0 $chan $tchan $name 0 0 0 0 0} } else {pChanstatsError 004 0 $nick 0 $chan $tchan 0 0 0 0 0 0} } else {pChanstatsError 003 0 $nick 0 $chan $tchan 0 0 0 0 0 0} } else {pChanstatsError 005 0 $nick 0 $chan 0 0 0 0 0 0 0} } else { switch -- $vChanstatsStatus($command) { 9 {pChanstatsError 015 $command $nick 0 $chan 0 0 0 0 0 0 0} default {pChanstatsError 016 $command $nick 0 $chan 0 0 0 0 0 0 0} } } } return 0}proc pChanstatsOutputTop20 {nick uhost hand chan text} { global vChanstatsData global vChanstatsStatus if {[channel get $chan chanstats]} { set command top20 if {[pChanstatsFlag $nick $chan] >= $vChanstatsStatus($command)} { switch -- [llength [split [string trim $text]]] { 1 {set tchan [string tolower $chan]} 2 {set tchan [join [lindex [split [string tolower [string trim $text]]] 1]]} default { pChanstatsError 018 0 $nick 0 $chan 0 0 0 0 0 0 0 return 0 } } if {[array size vChanstatsData] != 0} { if {[string equal [string index $tchan 0] "#"]} { if {[validchan $tchan]} { switch -- [join [lindex [split [string trim [string tolower $text]]] 0]] { lines {set name lines; set position 2} words {set name words; set position 3} actions {set name actions; set position 4} kicks {set name kicks; set position 5} bans {set name bans; set position 6} joins {set name joins; set position 7} parts {set name parts; set position 8} splits {set name splits; set position 9} quits {set name quits; set position 10} nicks {set name "nick changes"; set position 11} default { pChanstatsError 002 0 $nick 0 $chan 0 0 0 0 0 0 0 return 0 } } foreach {key record} [array get vChanstatsData] { if {[string equal $tchan [join [lindex [split $key @] 1]]]} { if {[expr {[join [lindex [split $record] $position]] != 0}]} { lappend data [list [lindex [split $key @] 0] [join [lindex [split $record] $position]]] } } } if {[info exists data]} { set sorted [lrange [lsort -integer -decreasing -index 1 $data] 10 19] if {[llength $sorted] != 0} { set count 11 foreach element $sorted { lappend output [list $count\. [lindex $element 0] ([lindex $element 1])] incr count } pChanstatsCompliance 001 0 $nick 0 $chan $tchan "top 20" $name $output 0 0 0 } else {pChanstatsError 017 0 $nick 0 $chan $tchan [llength $data] $name 0 0 0 0} } else {pChanstatsError 006 0 $nick 0 $chan $tchan $name 0 0 0 0 0} } else {pChanstatsError 004 0 $nick 0 $chan $tchan 0 0 0 0 0 0} } else {pChanstatsError 003 0 $nick 0 $chan $tchan 0 0 0 0 0 0} } else {pChanstatsError 005 0 $nick 0 $chan 0 0 0 0 0 0 0} } else { switch -- $vChanstatsStatus($command) { 9 {pChanstatsError 015 $command $nick 0 $chan 0 0 0 0 0 0 0} default {pChanstatsError 016 $command $nick 0 $chan 0 0 0 0 0 0 0} } } } return 0}proc pChanstatsOutputTstats {nick uhost hand chan text} { global vChanstatsData global vChanstatsStatus if {[channel get $chan chanstats]} { set command tstats if {[pChanstatsFlag $nick $chan] >= $vChanstatsStatus($command)} { switch -- [llength [split [string trim $text]]] { 0 {set tchan [string tolower $chan]} 1 {set tchan [string tolower [string trim $text]]} default { pChanstatsError 019 0 $nick 0 $chan 0 0 0 0 0 0 0 return 0 } } if {[array size vChanstatsData] != 0} { if {[string equal [string index $tchan 0] "#"]} { if {[validchan $tchan]} { set tlines 0; set twords 0; set tactions 0; set tkicks 0; set tbans 0; set tjoins 0; set tparts 0; set tsplits 0; set tquits 0; set tnicks 0 foreach {name value} [array get vChanstatsData] { if {[string equal $tchan [join [lindex [split $name @] 1]]]} { incr tlines [join [lindex [split $value] 2]] incr twords [join [lindex [split $value] 3]] incr tactions [join [lindex [split $value] 4]] incr tkicks [join [lindex [split $value] 5]] incr tbans [join [lindex [split $value] 6]] incr tjoins [join [lindex [split $value] 7]] incr tparts [join [lindex [split $value] 8]] incr tsplits [join [lindex [split $value] 9]] incr tquits [join [lindex [split $value] 10]] incr tnicks [join [lindex [split $value] 11]] } } if {[expr {$tlines + $twords + $tactions + $tkicks + $tbans + $tjoins + $tparts + $tsplits + $tquits + $tnicks}] == 0} { pChanstatsError 020 0 $nick 0 $chan $tchan 0 0 0 0 0 0 } else { set output "lines ($tlines), words ($twords), actions ($tactions), kicks ($tkicks), bans ($tbans), joins ($tjoins), parts ($tparts), splits ($tsplits), quits ($tquits), nick changes ($tnicks)" pChanstatsCompliance 004 0 $nick 0 $chan $tchan $output 0 0 0 0 0 } } else {pChanstatsError 004 0 $nick 0 $chan $tchan 0 0 0 0 0 0} } else {pChanstatsError 003 0 $nick 0 $chan $tchan 0 0 0 0 0 0} } else {pChanstatsError 005 0 $nick 0 $chan 0 0 0 0 0 0 0} } else { switch -- $vChanstatsStatus($command) { 9 {pChanstatsError 015 $command $nick 0 $chan 0 0 0 0 0 0 0} default {pChanstatsError 016 $command $nick 0 $chan 0 0 0 0 0 0 0} } } } return 0}proc pChanstatsPartInput {nick uhost hand chan msg} { pChanstatsDataAccrue [string tolower $nick] [string tolower $chan] 8 1 return 0}proc pChanstatsPubmInput {nick uhost hand chan text} { global vChanstatsPutlog if {![catch {set arguments [split [string trim [string trimleft [stripcodes bcruag $text] \"]]]}]} { if {![catch {set choice [string range [join [lindex $arguments 0]] 1 end]}]} { switch -- $choice { top10 - top20 - stats - tstats - zapstats {return 0} default { pChanstatsDataAccrue [string tolower $nick] [string tolower $chan] 2 1 pChanstatsDataAccrue [string tolower $nick] [string tolower $chan] 3 [llength $arguments] } } } else {if {$vChanstatsPutlog} {putlog "<\00314chanstats\003> unable to split line of text <\00314$nick\003> <\00314$chan\003> skipped"}} } else {if {$vChanstatsPutlog} {putlog "<\00314chanstats\003> unable to split line of text <\00314$nick\003> <\00314$chan\003> skipped"}} return 0}proc pChanstatsRejnInput {nick uhost hand chan} { pChanstatsDataAccrue [string tolower $nick] [string tolower $chan] 7 1 return 0}proc pChanstatsSave {type} { global vChanstatsData global vChanstatsIdleDays global vChanstatsPutlog if {[array size vChanstatsData] != 0} { set count 0 foreach {key record} [array get vChanstatsData] { if {![validchan [join [lindex [split $key @] 1]]]} { lappend erase $key incr count continue } if {[join [lindex [split $record] 1]] <= [expr {[unixtime] - ($vChanstatsIdleDays * 86400)}]} { lappend erase $key incr count continue } lappend data $record } if {[info exists erase]} { foreach item $erase { unset vChanstatsData($item) } } if {[info exists data]} { set id [open chanstats.txt w] puts $id "[join $data \n]" close $id } else { set data {} if {[file exists chanstats.txt]} { file delete chanstats.txt } } if {$vChanstatsPutlog} {putlog "\00314<chanstats>\003 saving data (\00314$type\003) --> saved (\00314[llength $data]\003), discarded (\00314$count\003)"} } return 0}proc pChanstatsSchedule {} { global vChanstatsScheduleSave foreach schedule [binds time] { if {[string equal pChanstatsTimedSave [join [lindex $schedule 4]]]} { set minute [join [lindex [lindex $schedule 2] 0]] set hour [join [lindex [lindex $schedule 2] 1]] unbind TIME - "$minute $hour * * *" pChanstatsTimedSave } } set minute [strftime %M [expr {[unixtime] + ($vChanstatsScheduleSave * 60)}]] set hour [strftime %H [expr {[unixtime] + ($vChanstatsScheduleSave * 60)}]] bind TIME - "$minute $hour * * *" pChanstatsTimedSave return 0}proc pChanstatsSignInput {nick uhost hand chan reason} { pChanstatsDataAccrue [string tolower $nick] [string tolower $chan] 10 1 return 0}proc pChanstatsSpltInput {nick uhost hand chan} { pChanstatsDataAccrue [string tolower $nick] [string tolower $chan] 9 1 return 0}proc pChanstatsTimedSave {minute hour day month year} { pChanstatsSave schedule pChanstatsSchedule return 0}proc pChanstatsZapstats {nick uhost hand chan text} { global vChanstatsData global vChanstatsStatus global vChanstatsZapAllowed if {[channel get $chan chanstats]} { set command zapstats if {[pChanstatsFlag $nick $chan] >= $vChanstatsStatus($command)} { if {$vChanstatsZapAllowed} { if {[array size vChanstatsData] != 0} { switch -- [llength [split [string trim $text]]] { 0 {set tchan [string tolower $chan]} 1 {set tchan [string tolower [string trim $text]]} default { pChanstatsError 010 0 $nick 0 $chan 0 0 0 0 0 0 0 return 0 } } if {[string equal [string index $tchan 0] "#"]} { if {[validchan $tchan]} { if {[channel get $tchan chanstats]} { if {[array names vChanstatsData "*@$tchan"] != ""} { foreach {key record} [array get vChanstatsData "*$tchan"] { set vChanstatsData($key) [join [lreplace [split $record] 1 1 0]] } pChanstatsSave zapstats pChanstatsCompliance 003 0 $nick 0 $chan $tchan 0 0 0 0 0 0 if {![string equal -nocase $chan $tchan]} { pChanstatsEvent 001 0 0 $nick 0 $tchan 0 0 0 0 0 0 } } else {pChanstatsError 012 0 $nick 0 $chan $tchan 0 0 0 0 0 0} } else {pChanstatsError 011 0 $nick 0 $chan $tchan 0 0 0 0 0 0} } else {pChanstatsError 004 0 $nick 0 $chan $tchan 0 0 0 0 0 0} } else {pChanstatsError 003 0 $nick 0 $chan $tchan 0 0 0 0 0 0} } else {pChanstatsError 005 0 $nick 0 $chan 0 0 0 0 0 0 0} } else {pChanstatsError 013 $command $nick 0 $chan 0 0 0 0 0 0 0} } else { switch -- $vChanstatsStatus($command) { 9 {pChanstatsError 015 $command $nick 0 $chan 0 0 0 0 0 0 0} default {pChanstatsError 016 $command $nick 0 $chan 0 0 0 0 0 0 0} } } } return 0}# ---------- ACKNOWLEDGEMENT --------------------------------------------------------------------------------------------- #putlog "\00314<chanstats>\003 version $vChanstatsVersion by arfer loaded"# eofStatistics: Posted by a41 — Thu Jun 30, 2022 9:19 am