Changeset 39

Timestamp:

02/17/08 18:19:56 (4 years ago)

Author:

james

Message:

add ban option

File:

• GuardChan/guardchan.tcl (modified) (4 diffs)

GuardChan/guardchan.tcl

@@ -8 +8 @@
 # Instructions:
 #  - edit the owner setting below to your nick
+#  - choose if you want just kicks or bans too
 #  - load script
 #  - for channels you want to protect: .chanset #channel +guardchan
 
-# Only configurable setting (default has invalid char in to make sure you set it)
+# (default has invalid char in to make sure you set it)
 set guardchan_owner "YOUR_NICK_HERE%"
 
+# set to 1 to ban users rather than just kick them
+set guardchan_ban 0
+
 # Stop editing here unless you like TCL
+#
+#
+#
+#
+#
+#
+# No really, TCL is a world of pain ;)
 
 bind join - *!*@* guardchan_join
@@ -21 +32 @@
 
 proc guardchan_join { nick host handle channel } {
-  global guardchan_owner
+  global guardchan_owner guardchan_ban
+
   if {![channel get $channel guardchan]} {
     return 0
@@ -28 +40 @@
   if {$handle == "*"} {
     if [botisop $channel] {
-      putkick $channel $nick "You are not permitted to be in here"
-      puthelp "PRIVMSG $guardchan_owner :Kicked $nick from $channel"
+                        if {!$guardchan_ban} {
+                                putkick $channel $nick "You are not permitted to be in here"
+                                puthelp "PRIVMSG $guardchan_owner :Kicked $nick from $channel"
+                        } else {
+                                set ban [maskhost "$nick!$host"]
+                                newchanban $channel $ban "guardchan" "Banned for not being in userfile"
+                                puthelp "PRIVMSG $guardchan_owner :Banned $nick from $channel"
+                        }
       return 0
     } else {
@@ -37 +55 @@
   }
 }
+