Code:

[16:10] #spithash# rehashRehashing.[16:10] Rehashing ...[16:10] AllProtection v4.7 successfully unloaded...[16:10] Désallocation des ressources de Public Quotes System...[16:10] Listening at telnet port 2600 (all).[16:10] Loading language "en" from language/gseen.en.lang...[16:10] Tcl error in file 'eggdrop.conf':[16:10] can't rename to "dcclist_orig": command already exists    while executing"rename $cmd ${cmd}_orig"    (procedure "initUtf8" line 12)    invoked from within"initUtf8"    (file "scripts/utf.tcl" line 53)    invoked from within"source scripts/utf.tcl"    (file "eggdrop.conf" line 1390)[16:10] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)

Code:

####### Copyright Johannes Kuhn <#John @ quakenet># This fixes the utf-8 issue on an eggdrop without patch.# Feel free to distribute and or use.# No warranty.## Background:## The problem is that eggdrop sometimes treats things as utf-8 strings# And sometimes as simple byte array.# Almost each string is passed to the tcl interp# Witch calls an eggdrop command and this calls again the eggdrop interp.# When eggdrop passes a string to the interp, it calls Tcl_Eval.# Tcl_Eval trats the input string as utf-8# But when a eggdrop command is called, it only uses the lower 8 bit# This leads to data loss.# # # This script converts all data that should be passed to an eggdrop command# to utf-8, so only the lowest 8 bit are used. When Tcl_Eval is called again# it can convert the data back to utf.package require Tcl 8.5encoding system utf-8# Ok, here is a problem:# We need all eggdrop commands.# The good thing is that all the eggdrop commands are in the global namespace.# The difficulty is to disingush between eggdrop commands# And Tcl commands.# To find out if it is a tcl command I just create an other interp, look at the commands there# and skip them# To make sure that this works, source this script as first script.# Otherwise there might be extra commands in the global namespace that we don't know.proc initUtf8 {} {rename initUtf8 {}set i [interp create]set tcmds [interp eval $i {info commands}]interp delete $iset procs [info procs]foreach cmd [info commands] {if {$cmd ni $tcmds && $cmd ni $procs&& "${cmd}_orig" ni [info commands] && ![string match *_orig $cmd]} {# Eggdrop command.rename $cmd ${cmd}_originterp alias {} $cmd {} fixutf8 ${cmd}_orig}}}initUtf8proc fixutf8 args {set cmd {}foreach arg $args {lappend cmd [encoding convertto utf-8 $arg]}catch {{*}$cmd} res optdict incr opt -levelreturn -opt $opt $res}