# auth.tcl

proc auth_auth { type } {
	putserv "PRIVMSG <auth_serv> :auth <name> <password>"
	putserv "MODE <name> :+x"
}

#proc auth_register {nick host hand chan arg} {
#	puthelp "PRIVMSG $nick :trying to register..."
#	puthelp "PRIVMSG <auth_serv>: HELLO <email> <email>"
#}

#bind pub - !register auth_register
bind evnt - init-server auth_auth