pegasus/tclscripts
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Update Chanban/chanban.tcl

Browse Source 
Fixed some flawed logic on the code
This commit is contained in:
Teh PeGaSuS
2026-03-01 17:33:02 +01:00
parent cce017f1d5
commit cdbf2f7d44
1 changed files with 25 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Chanban/chanban.tcl
+25 -20
View File
@@ -106,16 +106,19 @@ namespace eval cmgmt {
proc abans {nick uhost hand chan mode target} {
set hostmask [maskhost ${nick}![getchanhost $nick $chan] 2]
set banReason "$::cmgmt::banReason \(auto-added\)"
if {$mode eq "+b" && [channel get $chan addBans]} {
if {$nick ne $::botnick && $nick ni $::cmgmt::noAddNicks && $hostmask ni $::cmgmt::noAddMasks} {
if {[matchstr "~*" $target] && ![isban $target $chan]} {
newchanban $chan $target $nick $banReason 0 sticky
return 0
} else {
newchanban $chan $target $nick $banReason 0
putserv "PRIVMSG $chan :$target auto-added to ${chan}'s ban list."
return 0
}
if {$mode eq "+b" && ![channel get $chan addBans]} {
return 0
}
if {$nick ne $::botnick && $nick ni $::cmgmt::noAddNicks && $hostmask ni $::cmgmt::noAddMasks} {
if {[matchstr "~*" $target] && ![isban $target $chan]} {
newchanban $chan $target $nick $banReason 0 sticky
return 0
} else {
newchanban $chan $target $nick $banReason 0
putserv "PRIVMSG $chan :$target auto-added to ${chan}'s ban list."
return 0
}
}
return 0
@@ -123,16 +126,18 @@ namespace eval cmgmt {
# We also need to deal with the removal of extbans, since we don't deal with them internally
proc rabans {nick uhost hand chan mode target} {
if {$mode eq "-b" && [channel get $chan addBans]} {
if {$nick ne $::botnick && [isban $target $chan]} {
if {[matchstr "~*" $target]} {
killchanban $chan $target
return 0
} else {
killchanban $chan $target
putserv "PRIVMSG $chan :$target auto-removed from ${chan}'s ban list."
return 0
}
if {$mode eq "-b" && ![channel get $chan addBans]} {
return 0
}
if {$nick ne $::botnick && [isban $target $chan]} {
if {[matchstr "~*" $target]} {
killchanban $chan $target
return 0
} else {
killchanban $chan $target
putserv "PRIVMSG $chan :$target auto-removed from ${chan}'s ban list."
return 0
}
}
return 0