Update Chanban/chanban.tcl
This commit is contained in:
+12
-12
@@ -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]
|
||||
|
||||
Reference in New Issue
Block a user