Communauté Eggdrop
ban sur detection de realname - Version imprimable

+- Communauté Eggdrop (https://forum.eggdrop.fr)
+-- Forum : Eggdrop et TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=8)
+--- Forum : Scripts TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=4)
+--- Sujet : ban sur detection de realname (/showthread.php?tid=304)

Pages : 1 2


RE: ban sur detection de realname - bewess - 22/04/2009

bonsoir
oui babytigrou mais cela ne marche toujours pas
et aucune erreur en pl :s


RE: ban sur detection de realname - Obu - 22/04/2009

Salut,

putserv "MODE +b #plouf *!*@[lindex $user 2]"

La syntaxe ne serait pas plutôt "MODE #plouf +b *!*@[lindex $user 2]" ?


RE: ban sur detection de realname - bewess - 22/04/2009

cela change rien


RE: ban sur detection de realname - fedora - 22/04/2009

bonsoir,
en cherchant un peut sur le net j'ai trouver ceci essaye le peut être qu'il peut te convenir.

TCL
# What bad realnames should be banned?
set badr(list) {
"lalala"
"imam si kola"
"*moo*"
"???"
"*http://*"
"*www.*"
}

# The realname check should be done only in what channel?
set badr(chan) "#channel" 

# For how many minutes whould you like the ban?
set badr(time) 60 

# What reason will be used when an person is found using an bad realname?
set badr(reason) "You norteh norteh boy!" 

# binds #
bind join - "$badr(chan) *" badrealname:join
bind raw - 311 badrealname:check

# join #
proc badrealname:join {nick host hand chan} { 
  if {![validuser $hand] || [strlwr $nick] != [strlwr $::botnick]} {
    putserv "WHOIS $nick" 
  } 
}

# check #
proc badrealname:check {from key arg} { 
  set realname [strlwr [ctrl:filter [string range [lindex [split $arg] end] 1 end]]]
  foreach bah $::badr(list) {
    if {![string match $bah $realname]} {
      continue
    }
    newchanban $::badr(chan) "*!*@[lindex [split $arg] 3]" $::botnick $::badr(reason) $::badr(time)
    break
  }
}
 
proc ctrl:filter {str} {
  regsub -all -- { \003[0-9]{0,2}(,[0-9]{0,2})?|\017|\037|\002|\026|\006|\007 } $str "" str
  return $str
}
 
putlog "badrealname.tcl by mIRCbg.net loaded."




et la dernier ligne tu la remplace par
Citation :proc ctrl:filter {str} {
regsub -all -- {\003[0-9]{0,2}(,[0-9]{0,2})?|\017|\037|\002|\026|\006|\007} $str "" str
return $str
}

je le redit ce code et à testé.
cordialement


RE: ban sur detection de realname - bewess - 22/04/2009

Merci fedora !!!
cela fonctionne , sauf que j'arrive pas a mettre le bon format de ban, lui il me met :
+b *!*@* qui ban tt le monde

une idée ?


RE: ban sur detection de realname - fedora - 22/04/2009

essaye peut etre ce code là

http://www.eggdrop-fr.org/phpBB2/viewtopic.php?t=1114&sid=23b13d6e5c10a68b09634e5d48f3f2e5


RE: ban sur detection de realname - bewess - 05/05/2009

bonjour Smile

Désolé du retard, le lien est down chez moi :s