qauth.tcl - eggdrop quakenet authentication script