Ban Redirect m_banlink.c

These are old archives. They are kept for historic purposes only.
Post Reply
malphas
Posts: 41
Joined: Thu Jan 15, 2009 4:07 pm

Ban Redirect m_banlink.c

Post by malphas »

Their are no reviews for this module so thought id pop this here someone may be able to fix the problem

I use m_adult.c on my servers also added m_banlink.c,

m_banlink.c clashes with m_adult.c when +B is set for some reason it stops users joining any channel and sends the hook you are the rong age for this room type /mode nick +X which is specifick to m_adult.c it shouldnt be doing this because i`ve not set +X mode on any of my rooms it seems that the banlink mod is doing this
Casper
Posts: 338
Joined: Sun Jul 08, 2007 7:44 am
Location: The Netherlands

Re: Ban Redirect m_banlink.c

Post by Casper »

m_adult.c is buggy. As for example, on my previous 3.2.8 (the last server I used to administre on) it wouldn't unload for example. I would recommend against it to use this module. You're better off without and make sure the topic states 18+ and/or have ChanServ send a entrymsg. :-)
Ex Network-Administrator
malphas
Posts: 41
Joined: Thu Jan 15, 2009 4:07 pm

Re: Ban Redirect m_banlink.c

Post by malphas »

Casper wrote:m_adult.c is buggy. As for example, on my previous 3.2.8 (the last server I used to administre on) it wouldn't unload for example. I would recommend against it to use this module. You're better off without and make sure the topic states 18+ and/or have ChanServ send a entrymsg. :-)
Thats the problem its loaded but the modes were not being used and now as you say im unable to remove I did however find an alternative to keeping ppl of set ages out of rooms by using an eggdrop
malphas
Posts: 41
Joined: Thu Jan 15, 2009 4:07 pm

Re: Ban Redirect m_banlink.c

Post by malphas »

Sure basicaly my eggdrop has a tcl script loaded into it that reads from a text file in the text file the roomnames are put in it which then has set realname bans as in age ranges for rooms so for example if a user was to join a room that we wanted for 18 year olds upwards and their realname details had 16 in them they would then be kicked and banned from the room releasing the ban in 60 seconds so the bans list dont get full so in affect we can have rooms set for teens stopping any one oer the age of 17 getting in them under 18s getting in adult rooms and any one under the age of 16 getting into 16 rooms males being stopped going into female only rooms and vice versa
skywalker
Posts: 16
Joined: Mon Jan 02, 2012 1:57 pm

Re: Ban Redirect m_banlink.c

Post by skywalker »

malphas wrote:Sure basicaly my eggdrop has a tcl script loaded into it that reads from a text file in the text file the roomnames are put in it which then has set realname bans as in age ranges for rooms so for example if a user was to join a room that we wanted for 18 year olds upwards and their realname details had 16 in them they would then be kicked and banned from the room releasing the ban in 60 seconds so the bans list dont get full so in affect we can have rooms set for teens stopping any one oer the age of 17 getting in them under 18s getting in adult rooms and any one under the age of 16 getting into 16 rooms males being stopped going into female only rooms and vice versa
how is that tcl named?
blake
Posts: 7
Joined: Thu Aug 26, 2010 4:27 pm

Re: Ban Redirect m_banlink.c

Post by blake »

Skywalker here is the script i was on about place this into your eggdrops script folder then add source scripts/badfullname.tcl to your eggdrops config rehash your eggdrop then look for
badfullname.txt in your eggdrops main directory (if it isnt there create a new file name it badfullname.txt)open it up then add your channels like so
#channelname1 *word1* *word2*
#channelname2 *word1* *word2*
and so on you can add as many channels as you need

Code: Select all

####################################################################### 
# 
# BadFullname vers 1.2 
# 
# 
#                                    BLaCkShaDoW Productions 
####################################################################### 

####################################################################### 
# 
#On join, if a user`s realname contains any of the restricted words #that are written in this script, the BoT will ban the user :) 
#Contains protection for users who have access on the boT :) 
# 
#Version 1.2 
# 
#Put the TCL rehash, then edit badfullname.txt from the main directory 
#put in the text file like that : 
# #channel1 *word1* *word2*.. 
# #channel2 *word3 *word4.. 
#And then rehash. 
#You can put as many channels and words as you want. 
# 
####################################################################### 



#Here you can set the reason for the kick / ban 

set bad(reason) "You are not permitted to be on this channel" 

#Here you can set the time for the ban (minutes) 

set bad(time) "1" 

#Here you can set the flags that are excepted 

set bad(flags) "o|o" 


######################################################################## 
#                         Here starts the config 
# 
# 
####################################################################### 

setudef flag badfullname 
set Autor "BLaCkShaDoW" 
set vers "1.1" 

if {[file exists badfullname.txt] == 0} { 
set afile [open badfullname.txt a] 
close $afile 
} 

bind join -|- "* *" badrealname 

proc badrealname {nickname hostname handle channel} { 
global botnick 
set dir "badfullname.txt" 
set ::cchan $channel 
set ::nnick $nickname 
set ::hhost $hostname 
set file [open $dir "r"] 
set data [read -nonewline $file] 
close $file 
if {$data == ""} { return 0 } 
set split [split $data "\n"] 
foreach line $split { 
set chanentry [lindex [split $line] 0] 
if {[string match -nocase $channel $chanentry]} { 
if {![botisop $channel]} { return 0 } 
if {[onchan $nickname $channel]} { 
putquick "WHOIS $nickname $nickname" 
bind RAW - 311 badfullnames 
} 
} 
} 
} 

proc badfullnames { from keyword arguments } { 
global botnick bad 
set channel $::cchan 
set nickname $::nnick 
set host $::hhost 
set dir "badfullname.txt" 
set handle "[nick2hand $nickname]" 
set fullname [string range [join [lrange $arguments 5 end]] 1 end] 
if {[onchan $nickname $channel]} { 
          set banmask *!*@[lindex [split [getchanhost $nickname $channel] "@"] 1] 
   } 
set file [open $dir "r"] 
set data [read -nonewline $file] 
close $file 
if {$data == ""} { return 0 } 
set split [split $data "\n"] 
foreach line $split { 
set chanentry [lindex [split $line] 0] 
if {[string match -nocase $channel $chanentry]} { 
set fullnameentry [lrange [split $line] 1 end] 
  foreach realname [string tolower $fullnameentry] { 
if {[string match $realname [string tolower $fullname]]} { 
if {[matchattr $handle $bad(flags) $channel]} { return 0 } 
newchanban $channel $banmask $botnick $bad(reason) [expr $bad(time)] 
} 
} 
} 
} 
unbind RAW - 311 badfullnames 
} 

putlog "Bad Fullname $vers by $Autor Loaded !"
Post Reply