Update Chanban/chanban.tcl

This commit is contained in:
Teh PeGaSuS
2026-02-28 02:42:15 +01:00
parent 401f5ac2ab
commit 8ddb0e2c20
+12 -12
View File
@@ -1,10 +1,10 @@
# ------------------
# ----------
# Channel Management
# ------------------
# ----------
namespace eval cmgmt {
# -------------
# ----------
# Configuration
# -------------
# ----------
# trigger to be used
variable trigger "!"
@@ -41,9 +41,9 @@ namespace eval cmgmt {
# 9 nick!*@*.host
variable banMask "2"
# -----
# ----------
# Binds
# -----
# ----------
### Public
bind pub * ${::cmgmt::trigger}ban ::cmgmt::ban_pub
bind pub * ${::cmgmt::trigger}tban ::cmgmt::tban_pub
@@ -59,9 +59,9 @@ namespace eval cmgmt {
bind msg * unban ::cmgmt::unban_msg
bind msg * banlist ::cmgmt::banlist_msg
bind msg * opcmds ::cmgmt::opcmds_msg
# --------------------
# ----------
# End of configuration
# --------------------
# ----------
# ----------
# DON'T TOUCH ANYTHING BELOW UNLESS YOU KNOW WHAT YOU ARE DOING
@@ -70,9 +70,9 @@ namespace eval cmgmt {
# ----------
variable scriptName "Channel Management v1.0 by PeGaSuS"
# ------------
# ----------
# Public procs
# ------------
# ----------
### Ban
proc ban_pub {nick uhost hand chan text} {
if {![matchattr $hand o|o $chan]} {
@@ -264,9 +264,9 @@ namespace eval cmgmt {
return 0
}
# -------------
# ----------
# Private procs
# -------------
# ----------
### Ban
proc ban_msg {nick uhost hand text} {
set chan [lindex [split $text] 0]