egghelp/eggheads community

bad ident...

2002-08-21T01:04:32-04:00

Thank you so much

Statistics: Posted by Guest — Wed Aug 21, 2002 1:04 am

bad ident...

2002-08-21T00:30:49-04:00

Code:

set badidents { "badident1" "badident2" "badident3" } bind join - * bad_ident proc bad_ident {nick uhost hand chan } {   global badidents  if {[isbotnick $nick] || [matchattr $hand b]} {    return 0  }  scan $uhost "%\[^@]@%*s" ident  set ident [string tolower $ident]  foreach badident [string tolower $badidents] {    if {$badident == $ident} {      newchanban $chan *!$badident@* $botnick "bad ident" 60      putlog "Banning $nick!$uhost on $chan for having a bad ident."      return 0    }  }}

Statistics: Posted by guppy — Wed Aug 21, 2002 12:30 am

bad ident...

2002-08-20T21:04:15-04:00

hi, can someone help me to fix this script, when user will join a channel with a bad ident.....i tried my best but no luck... i will appreciate for ur help
thanks

set badidents {
"badident1"
"badident2"
"badident3"
}

bind join - * bad_ident
proc bad_ident {nick uhost hand chan } {
global badidents botnick
if {(![matchattr $hand b]) && ($nick != $botnick)} {
foreach badchange [string tolower $badnicks] {
if {[string match *$badchange* [string tolower $chan]]} {
set reason "bad ident...."
set ident [string range $uhost [expr [string first "!" $uhost]+1] [expr [string last "@" $uhost]-1]]
set banmask "*$ident@*"
putserv "MODE $chan +b $banmask"
putserv "KICK $chan $nick :$reason"
return 0
}
}
}
}

thanks
regards
aw

Statistics: Posted by Guest — Tue Aug 20, 2002 9:04 pm