update auth.tcl

Signed-off-by: hwipl <33433250+hwipl@users.noreply.github.com>

scripts/auth.tcl

@@ -1,14 +1,61 @@
 # auth.tcl
+#
+# This script authenticates the bot with an authentication service when it is
+# connected to a server. The code and settings below are quite specific to
+# QuakeNet's authentication service provided by Q.
+#
+# Note: the authentication user name and password are stored in this script in
+# plain text. This is not very secure. So, be careful and use this script at
+# your own risk!
+#
+# The !register command for registering an account on the authentication
+# service is disabled by default. Uncomment the respective bind line below if
+# you really need it. Do not forget to comment it out again as soon as you have
+# registered the account.
 
-proc auth_auth { type } {
-	putserv "PRIVMSG <auth_serv> :auth <name> <password>"
-	putserv "MODE <name> :+x"
+# tested versions, might run on earlier versions
+package require Tcl 8.6
+package require eggdrop 1.8.4
+
+namespace eval ::auth {
+	# authentication settings for Q (QuakeNet)
+	variable serv "Q@CServe.quakenet.org"
+	variable name "YourQAccountName"
+	variable pass "YourQAccountPassword"
+	variable mail "YourMail@Address.com"
+}
+
+# authenticate the bot
+proc ::auth::auth { type } {
+	global botnick
+	variable serv
+	variable name
+	variable pass
+
+	# authenticate the bot and hide host with +x
+	putserv "PRIVMSG $serv :AUTH $name $pass"
+	putserv "MODE $botnick :+x"
+
+	putlog "Authenticated $botnick with $name on $serv."
+	return 0
 }
 
-#proc auth_register {nick host hand chan arg} {
-#	puthelp "PRIVMSG $nick :trying to register..."
-#	puthelp "PRIVMSG <auth_serv>: HELLO <email> <email>"
-#}
+# register the bot with the authentication service
+proc ::auth::register {nick host hand chan arg} {
+	global botnick
+	variable serv
+	variable mail
 
-#bind pub - !register auth_register
-bind evnt - init-server auth_auth
+	# register current bot nick as account name with the mail address
+	puthelp "PRIVMSG $nick :Registering $botnick and $mail on $serv."
+	puthelp "PRIVMSG $serv :HELLO $mail $mail"
+
+	putlog "Registered $botnick and $mail on $serv."
+	return 1
+}
+
+namespace eval ::auth {
+	# bind pub - !register ::auth::register
+	bind evnt - init-server ::auth::auth
+	putlog "Loaded auth.tcl"
+}