Code:

# Name of the storage file for the access list.set accesslist "accesslist.txt"# Full name of channel services.set chanserv "chanserv"################## BIND commands ##################bind pub n list access:list#bind notc - "* list for *" write:list#bind notc - "* VOP *" write:listproc write:list {nick host hand arg {dest ""}} {  set msg $arg  if {([isbotnick $dest]) && ([string equal $nick "ChanServ"])} {    # Create the storage file for appending.    set acc_fd [open $::accesslist a]    puts $acc_fd $msg    close $acc_fd  }}proc access:list {nick uhost hand chan text} {  set type [string tolower $text]  if {[regexp {(sop|aop|vop)} $type]} {    # Remove old storage file    if {[file exists $::accesslist]} {file delete $::accesslist}    putserv "PRIVMSG $::chanserv :$type $chan list"  } else {    return  }}# ctrl:filter <string># Strip all control characters. Thanks to ppslim.proc ctrl:filter {str} {  regsub -all -- {\003[0-9]{0,2}(,[0-9]{0,2})?|\017|\037|\002|\026|\006|\007} $str "" str  return $str}