This script was blacklist need to make change first the ban patern to ban on join only what is not added on whitelist
and second to make check up /userip nick on join to match their hidden hostmask from vhost and to check if exist on whitelist and to allow, if the hostmask dont exist on whitelist to make ban +b *!*@*.domain
# Need to fix and add this 5 things :
# 1.To take off the reason when i add hostmask on whitelist.
# 2.On Join Channel need to check users with vhost /userip nick and to match their hostmask with whitelist exemp hostmask
# 3.When i add a hostmask to remove the ban from channel.
# 5.Type of ban the user on join +b *!*@*.domain when hostmask dont exist on whitelist exemp
# Thank You In Advance For Your Help
Code:
set whitelist_file "scripts/dbase/whitelist"bind PUB m|- .wl whitelist:listbind PUB m|- .aw whitelist:addbind PUB m|- .dw whitelist:delbind TIME -|- "* * * * *" whitelist:sentrybind JOIN -|- * whitelist:joinproc whitelist:list {nickname hostname handle channel arguments} { global whitelist set entrys 0 puthelp "NOTICE $nickname :whitelist entrys" puthelp "NOTICE $nickname :Nr. Owner Hostmask" foreach entry [array names whitelist] { incr entrys set owner [lindex $whitelist($entry) 0] while {[string length $owner] < 15} { set owner "$owner " } if {[string length $entrys] < 2} { set target "$entrys " } else { set target $entrys } puthelp "NOTICE $nickname :#$target $owner $entry" } puthelp "NOTICE $nickname :End of list."}proc whitelist:add {nickname hostname handle channel arguments} { global whitelist set arguments [whitelist:clean $arguments] set banmask [whitelist:validate:host [lindex $arguments 0]] if {([regexp -all -- {!} $banmask] > 1) || ([regexp -all -- {@} $banmask] > 1)} { puthelp "NOTICE $nickname :Sorry, couldn't add that hostmask." return } set owner $handle if {[regexp {^(\d{1,2}|[0-3][0-6][0-5])$} [lindex $arguments 1]]} { set expire [expr ([lindex $arguments 1] * 86400) + [unixtime]] set reason [join [lrange $arguments 2 end]] } else { set expire 0 set reason [join [lrange $arguments 1 end]] } if {[llength $reason] >= 1} { if {![info exists whitelist($banmask)]} { set whitelist($banmask) "$owner $expire $reason" puthelp "NOTICE $nickname :Done. $banmask added on whitelist (reason: $reason)." whitelist:sentry } else { puthelp "NOTICE $nickname :Sorry. This hostmask exist already on whitelist" } } else { puthelp "NOTICE $nickname :You forgot to type a whitelist reason." }}proc whitelist:del {nickname hostname handle channel arguments} { global whitelist set arguments [whitelist:clean $arguments] set banmask [lindex $arguments 0] set success 0 if {[regexp {^#([0-9]+)$} $banmask tmp number]} { set item 0 foreach entry [array names whitelist] { incr item if {$item == $number} { unset whitelist($entry) set success 1 } } } else { if {[info exists whitelist($banmask)]} { unset whitelist($banmask) set success 1 } } if {$success == 0} { puthelp "NOTICE $nickname :Couldn't delete the requested ban. Use .wl to view them." } else { puthelp "NOTICE $nickname :Done. Hostmask is removed from whitelist." }}proc whitelist:sentry {{minute "0"} {hour "0"} {day "0"} {week "0"} {year "0"}} { global whitelist foreach channel [channels] { if {![botisop $channel]} {continue} foreach target [chanlist $channel] { set userhost [whitelist:weirdclean "$target![getchanhost $target]"] foreach entry [array names whitelist] { set expire [lindex $whitelist($entry) 1] if {$expire >= [unixtime] || ($expire == 0)} { set reason [lrange [whitelist:clean $whitelist($entry)] 2 end] set whitehost [whitelist:weirdclean $entry] if {[string match -nocase $whitehost $userhost]} { putquick "MODE $channel -b $whitehost $entry" } } else { unset whitelist($entry) } } } } whitelist:save}proc whitelist:join {nickname hostname handle channel} { global whitelist if {![botisop $channel]} {return} set userhost [whitelist:weirdclean "$nickname![getchanhost $nickname]"] foreach entry [array names whitelist] { set reason [lrange [whitelist:clean $whitelist($entry)] 2 end] set whitehost [whitelist:weirdclean $entry] if {[string match -nocase $whitehost $userhost]} { putquick "MODE $channel +b $whitehost $entry" } }}proc whitelist:validate:host {i} { regsub -all {\*+} $i {*} i array set ban { ident * host * } set ban(nick) $i if {[regexp -- {!} $i]} { regexp -- {^(.+?)!(.*?)(@(.*))?$} $i tmp ban(nick) ban(ident) tmp ban(host) } elseif {[regexp -- {@} $i]} { regexp -- {^(.+!)?(.*?)(@(.*))?$} $i tmp ban(nick) ban(ident) tmp ban(host) } foreach item [array names ban] { if {[string length $ban($item)] < 1} { set ban($item) * } } return $ban(nick)!$ban(ident)@$ban(host)}proc whitelist:load {} { global whitelist whitelist_file regexp {(\S+/)?} $whitelist_file tmp whitelist_dir if {$whitelist_dir != ""} { if {![file isdirectory $whitelist_dir]} { file mkdir $whitelist_dir putlog "Created directory: $whitelist_dir" } } if {![file exists $whitelist_file]} { array set whitelist {} return } if {[array exists whitelist]} { array unset whitelist } set file [open $whitelist_file r] while {![eof $file]} { gets $file line if {[regexp -- {(\S+)\s(\S+)\s(\S+)\s(.+)} $line tmp banmask owner expire reason]} { if {$expire >= [unixtime] || ($expire == 0)} { set whitelist($banmask) "$owner $expire $reason" } } } close $file}proc whitelist:save {} { global whitelist whitelist_file set file "[open $whitelist_file w]" foreach entry [array names whitelist] { puts $file "$entry $whitelist($entry)" } close $file}proc whitelist:weirdclean {i} { regsub -all -- \\\\ $i \001 i regsub -all -- \\\[ $i \002 i regsub -all -- \\\] $i \003 i regsub -all -- \\\} $i \004 i regsub -all -- \\\{ $i \005 i return $i}proc whitelist:clean {i} { regsub -all -- \\\\ $i \\\\\\\\ i regsub -all -- \\\[ $i \\\\\[ i regsub -all -- \\\] $i \\\\\] i regsub -all -- \\\} $i \\\\\} i regsub -all -- \\\{ $i \\\\\{ i regsub -all -- \\\" $i \\\\\" i return $i}whitelist:loadputlog "Script loaded: whitelist"Statistics: Posted by Stefano1990 — Mon Nov 11, 2019 11:19 am
]]>