update greetings.tcl

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

scripts/greetings.tcl

@@ -1,10 +1,29 @@
-# greetings tcl
+# greetings.tcl
+#
+# This script greets people who join channels.
+# Enable for a channel with:	.chanset #channel +greetings
+# Disable for a channel with: 	.chanset #channel -greetings
 
-proc join_greeting { nick host hand chan } {
-	set $greetInChannel ""
-	if { [lsearch $greetInChannel $chan] != "-1" } {
-	puthelp "NOTICE $nick :Hi ${nick}!"
+# tested versions, might run on earlier versions
+package require Tcl 8.6
+package require eggdrop 1.8.4
+
+namespace eval ::greetings {
+	# channel flag for enabling/disabling greetings
+	setudef flag greetings
+}
+
+# greet users when they join a channel
+proc ::greetings::join_greeting { nick host hand chan } {
+	# check channel flag if greetings are enabled in this channel
+	if {![channel get $chan greetings]} {
+		return 0
 	}
+	puthelp "NOTICE $nick :Hi ${nick}!"
+	return 1
 }
 
-bind join - * join_greeting
+namespace eval ::greetings {
+	bind join - * ::greetings::join_greeting
+	putlog "Loaded greetings.tcl"
+}