Code:

set qchan "#emotion-public"# path to data fileset qfile "./qban.data"### binds ###bind join - "$qchan *!*@*" q:joinbind dcc o qop dcc:qban### CODE - DON'T change yadda yadda ###set qver "1.0"proc dcc:qban {hand idx args} {    set args [lindex $args 0]    set mode [lindex $args 0]    if {$mode == "add"} {q:ban:add $idx [lindex $args 1]    }    if {$mode == "del"} {q:ban:del $idx [lindex $args 1]    }    if {$mode == "list"} {q:ban:list $idx    }    if {$mode == "help"} {q:help $idx    }    if {$mode == ""} {q:help $idx    }}proc q:ban:list {qidx} {    global qfile    set qlist ""    set openchange [open $qfile r]    while {![eof $openchange]} {set dlinhalt [gets $openchange]        if {$dlinhalt != ""} {    set dlinhalt "$dlinhalt "    set dlinhalt [lrange $dlinhalt 0 end]    set qlist [lappend qlist $dlinhalt]}    }    close $openchange    putidx $qidx "\002QOP::\002 Added qops: \002$qlist\002"}proc q:ban:del {qidx args} {    global qfile    set args [lindex $args 0]    set qwho [lindex $args 0]    set openchange [open $qfile r]    set zahler "0"    set notzahler "0"    while {![eof $openchange]} {set dlinhalt [gets $openchange]        if {$dlinhalt != ""} {    incr zahler +1        set putfile($zahler) "$dlinhalt"    set test [lindex $dlinhalt 0]    if {$test == $qwho} {set notzahler "$zahler"    }}    }    close $openchange    if {$notzahler != "0"} {if ![catch {open $qfile w} filelog] {    for {set i 1} {$i <= $zahler} {incr i 1} {if {$i != $notzahler} {    puts $filelog "$putfile($i)"}    }close $filelogputidx $qidx "\002QOP::\002 Succesfully removed \002$qwho\002 from the qop list"} else {    putlog "\002QOP::\002 ERROR! File not found !!!"}    }}proc q:help {qidx} {    putidx $qidx "\002QOP::\002 .qop add <authname> <-- adds a new auth to ban list"    putidx $qidx "\002QOP::\002 .qop del <authname> <-- removes given auth from the ban list"    putidx $qidx "\002QOP::\002 .qop list <-- shows a list of auths that are banned"    putidx $qidx "\002QOP::\002 .qop \[help\] <-- shows this"}proc q:ban:add {qidx args} {    set args [lindex $args 0]    global qfile    if ![catch {open $qfile a+} filelog] {puts $filelog "$args"close $filelogputidx $qidx "\002QOP::\002 Added \002$args\002 to qop list"    }}proc q:join {nick uhost hand chan} {    global qnick qchann    set qnick "$nick"    set qchann "$chan"    qbind    putserv "whois $nick"}proc raw:q330 {from key arg} {    global qfile qchan qnick qchann qstick qtime qkick    set amessage [string trimleft [join [lrange [split $arg] 2 end]] :]    set amessage [lindex $amessage 3]    set qfiles [open $qfile r]    while {![eof $qfiles]} {set dlinhalt [gets $qfiles]set q_auth [lindex $dlinhalt 0]if {$q_auth == $amessage} {    putlog "\002QOP\002 :: $qnick matched a Q auth qop: $q_auth"    putserv "MODE $qchann +o $qnick "}    }    close $qfiles    qunbind}proc qbind { } {    bind raw - 330 raw:q330}proc qunbind { } {    unbind raw - 330 raw:q330}