putdcc $lea(idx) ":$lea(sid) CAPAB START 1202"
        putdcc $lea(idx) ":$lea(sid) CAPAB CAPABILITIES :PROTOCOL=1202"
        putdcc $lea(idx) ":$lea(sid) CAPAB END"
        putdcc $lea(idx) "SERVER $lea(link) $lea(pass) 0 $lea(sid) :Services Tcl pour discutea.com"
        putdcc $lea(idx) ":$lea(sid) BURST [clock seconds]"
        putdcc $lea(idx) ":$lea(sid) VERSION :Moderator 3.0 tcl service for InspIRCd 2.0 by sianur"
        putdcc $lea(idx) ":$lea(sid) ADDLINE Q Moderateur $lea(host) [clock seconds] 172800 :Reserved Pour Moderateur"
        putdcc $lea(idx) ":$lea(sid) ENDBURST"
        putdcc $lea(idx) ":$lea(sid) UID $lea(uid) [clock seconds] $lea(pseudo) moderateur.discutea.com moderateur.discutea.com Discutea $lea(ip) [clock seconds] +IWBOiows +*:$lea(real)"
        catch {open scripts/Lea/db/chan.db r} autojoin
        while {![eof $autojoin]} {
            gets $autojoin salon; if {$salon!=""} {
                putdcc $lea(idx) ":$lea(uid) JOIN $salon"
                putdcc $lea(idx) ":$lea(uid) MODE $salon +qowwwwIIIIeeee $lea(pseudo) $lea(pseudo) o:*!*@op.discutea.com h:*!*@mod.discutea.com a:*!*@ircops.discutea.com a:*!*@netadmin.discutea.com *!*@op.discutea.com *!*@mod.discutea.com *!*@ircops.discutea.com *!*@netadmin.discutea.com *!*@op.discutea.com *!*@mod.discutea.com *!*@ircops.discutea.com *!*@netadmin.discutea.com"
                putdcc $lea(idx) ":$lea(uid) MODE $salon +WCHJTdnrt 10:3600 60 5"
            }