Code:

# add-on.tcl# Copyright (c)2000-2002 by funak <funak@funak.sk># Last update: 1.6.2002##  Features:#  -script adds an "Added" entry into the userfile for each user which were added #   (ex. ADDED: by funak as luzer (23-07-2001@03:55))#  -script adds a "Changed" entry into the userfile for each user which had changed#   flags (ex. CHANGED: by funak (23-07-2001@03:55) +o #mychann)#  -script sends a note to the users specified in the config file's notify-newusers #   setting about new and deleted users #   (ex. User funak deleted luzer (23-07-2001@03:55).)#  -script adds (handle date@time) to bans' reason, so banned person can see who #   set a ban on him (ex.[  1] *!*ident@hostmask (perm)# funak: reason (set by funak on 23-07-2001@03:55) )#                     # Based on - Added.tcl by Nils Ostbjerg <shorty@business.auc.dk> (C)Copyright (2000)## Changelog:# v1.0 - first relase#   removed: hello, addhost#   added: deluser, -user, -bot, notifying ppl about deleted users# v1.2 - added: "changed" field, notifying ppl about new users# v1.2 - added: "who banned" to bans' reason## Any ideas, suggestions, bugreports, flames, cash, cars (I prefer new Skoda Superb),# etc should be sent to me ;o)) # (contact info above).set verzia v1.2########################################################################### Bindings                                                               ###########################################################################unbind dcc m|m adduser *dcc:adduserunbind dcc m|m deluser *dcc:deluserunbind dcc m|- +user *dcc:+userunbind dcc m|- -user *dcc:-userunbind dcc t|- +bot *dcc:+botunbind dcc t|- -bot *dcc:-botunbind dcc m|m chattr *dcc:chattrunbind dcc o|o +ban *dcc:+banbind dcc m|m adduser dcc:adduserbind dcc m|m deluser dcc:deluserbind dcc m|- +user dcc:+userbind dcc m|- -user dcc:-userbind dcc t|- +bot dcc:+botbind dcc t|- -bot dcc:-botbind dcc m|m chattr dcc:chattrbind dcc o|o +ban dcc:+ban########################################################################### Initilization                                                          ###########################################################################if {![info exists whois-fields]} {    set whois-fields ""}# Add "Added" fieldset ffound 0foreach f2 [split ${whois-fields}] {    if {[string tolower $f2] == [string tolower "ADDED"]} {        set ffound 1        break    }}if {$ffound == 0} {    append whois-fields " " "ADDED"}# Add "Changed" fieldset ffound 0foreach f2 [split ${whois-fields}] {    if {[string tolower $f2] == [string tolower "CHANGED"]} {        set ffound 1        break    }}if {$ffound == 0} {    append whois-fields " " "CHANGED"}    ########################################################################### dcc:chattr start                                                       ###########################################################################proc dcc:chattr {hand idx paras} { set user [lindex $paras 0] set flags [lindex $paras 1] set on_chan [lindex $paras 2] if {[validuser $user]} {  *dcc:chattr $hand $idx $paras  setuser $user xtra CHANGED "by $hand ([strftime %d-%m-%Y@%H:%M]) $flags $on_chan" } else {  *dcc:chattr $hand $idx $paras }}########################################################################### dcc:chattr end                                                         ###################################################################################################################################################### dcc:add/deluser start                                                  ###########################################################################proc dcc:adduser {hand idx paras} {    set user [lindex $paras 1]    if {$user == ""} {if {[string index $paras 0] == "!"} {    set user [string range [lindex $paras 0] 1 end]} else {    set user [lindex $paras 0]}    }    if {[validuser $user]} {*dcc:adduser $hand $idx $paras    } else {*dcc:adduser $hand $idx $parasif {[validuser $user]} {            setuser $user xtra ADDED "by $hand as $user ([strftime %d-%m-%Y@%H:%M])"tellaboutnew $hand $user}    }}    proc dcc:deluser {hand idx paras} {    set user [lindex $paras 0]    if {[validuser $user]} {*dcc:deluser $hand $idx $paras      tellaboutdel $hand $user    } else {*dcc:deluser $hand $idx $paras    }}    ########################################################################### dcc:add/deluser end                                                    ###################################################################################################################################################### dcc:+/-user start                                                      ###########################################################################proc dcc:+user {hand idx paras} {    set user [lindex $paras 0]    if {[validuser $user]} {        *dcc:+user $hand $idx $paras    } else {        *dcc:+user $hand $idx $paras        if {[validuser $user]} {            setuser $user xtra ADDED "by $hand as $user ([strftime %d-%m-%Y@%H:%M])"tellaboutnew $hand $user        }    }}proc dcc:-user {hand idx paras} {    set user [lindex $paras 0]    if {[validuser $user]} {        *dcc:-user $hand $idx $paras        tellaboutdel $hand $user    } else {        *dcc:-user $hand $idx $paras    }}########################################################################### dcc:+/-user end                                                        ###################################################################################################################################################### dcc:+/-bot start                                                       ###########################################################################proc dcc:+bot {hand idx paras} {    set user [lindex $paras 0]    if {[validuser $user]} {        *dcc:+bot $hand $idx $paras    } else {        *dcc:+bot $hand $idx $paras        if {[validuser $user]} {            setuser $user xtra ADDED "by $hand as $user ([strftime %d-%m-%Y@%H:%M])"tellaboutnew $hand $user        }    }}proc dcc:-bot {hand idx paras} {    set user [lindex $paras 0]    if {[validuser $user]} {        *dcc:-bot $hand $idx $paras        tellaboutdel $hand $user    } else {        *dcc:-bot $hand $idx $paras     }}########################################################################### dcc:+/-bot end                                                         ###################################################################################################################################################### tellaboutnew start                                                     ###########################################################################proc tellaboutnew {hand user} {    global notify-newusers    foreach ppl ${notify-newusers} {sendnote $hand $ppl "User $hand added $user ([strftime %d-%m-%Y@%H:%M])."    }}    ########################################################################### tellaboutnew end                                                       ###################################################################################################################################################### tellaboutdel start                                                     ###########################################################################proc tellaboutdel {hand user} {    global notify-newusers    foreach ppl ${notify-newusers} {sendnote $hand $ppl "User $hand deleted $user ([strftime %d-%m-%Y@%H:%M])."    }}    ########################################################################### tellaboutdel end                                                       ###################################################################################################################################################### +ban start                                                             ###########################################################################proc dcc:+ban {handle idx arg} {  if {$arg == ""} {    *dcc:+ban $handle $idx $arg    return 0  }  *dcc:+ban $handle $idx "$arg (set by $handle on [strftime %d-%m-%Y@%H:%M])"}########################################################################### +ban end                                                               ###########################################################################putlog "########################################"putlog "#\002Add/Del/Change/Ban\002 addon $verzia by Funak#"putlog "########################################"