Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


bannissement sur le fail ou l'host d'un membre
#1
Bonjour / bonsoir

je voudrais savoir si vous auriez un tcl qui bannisse un membre sur sont FAI ou sont host CAD même si la personne change de pseudo l'eggdrop scannera sont host et le banniera


je voudrais aussi savoir si il existe un tcl qui permet de taper les commands pl dans un salon car j'ai le tcl "bannicknotify.tcl"

mais les commandes se font en pl


d'avance merci
#2
Quote:je voudrais aussi savoir si il existe un tcl qui permet de taper les commands pl dans un salon car j'ai le tcl "bannicknotify.tcl"

mais les commandes se font en pl

bonjour,

édite ton code pour qu'on puisse t'aidez a l'adapter.

EDIT: désoler j'avais mal lu..
Cordialement
La différence entre Linux et Windows ,c'est que Linux c'est comme une belle fille , il faut l'apprivoiser , la comprendre , la séduire tandis que Windows , c'est comme une prostitué , il faut payer et surtout bien se protéger.
#3
salut ,

peut etre que Clam - Moderation V2 pourrait correspondre à tes attentes.
cordialement.
#4
.help +ban ?
zeolia: tchat gratuit, sans inscription ni publicité
Merci de ne pas demander d'aide en MP
Away
#5
Bonjour Lesny,

Y'avait un sacré moment.

Donc un système qui ban même si la personne a le même pseudo et son host et différent et l'eggdrop le ban sur le nouvel host en faite si j'ai bien compris.

Oui c'est possible :)

Je vais te donner un code qui été au début le Gestion.Bot qui au début fessait ça bon s'pa du grand truc mais je pense que sa sera ce que tu cherche.

PS : c'est un système de blacklist qui fonctionne sur salon et qui enregistre dans les bans eggdrop et non dans un fichier comme j'ai eut fut un moment.

Voice le code :


tcl
bind PUB - .+blacklist +bl
proc +bl { nick uhost hand chan text } {
global botnick
set hpseudo [lindex [split $nick |] 0]
if [validuser $hpseudo] {
if [matchattr $hand o|m $chan] {
if [string match -nocase *!*@* [lindex $text 0]] {
newchanban $chan [lindex $text 0] $nick {Pseudo Blacklisté !} 0
putquick "NOTICE $nick :Blacklist ajouté : [lindex $text 0] !"
} else {
newchanban $chan [lindex $text 0]!*@* $nick "Pseudo Blacklisté ([lindex $text 0]) !" 0
newchanban $chan [lindex $text 0]|*!*@* $nick "Pseudo Blacklisté ([lindex $text 0]) !" 0
putquick "NOTICE $nick :Blacklist ajouté : [lindex $text 0]!*@* !"
putquick "NOTICE $nick :Blacklist ajouté : [lindex $text 0]|*!*@* !"
 
}
} else {
putquick "NOTICE $nick :Vous n'avez pas les droits nécessaires à l'utilisation de cette commande (Master sur $chan requis) !"
}
} else {
putquick "NOTICE $nick :Vous n'avez aucun access dans $botnick !"
}
}
 
bind PUB - .blacklist blist
proc blist { nick uhost hand chan text } {
global botnick
set hpseudo [lindex [split $nick |] 0]
if [validuser $hpseudo] {
if [matchattr $hand o|o $chan] {
if {[llength [banlist $chan]]==0} {
putserv "NOTICE $nick :Aucune entrée dans la blacklist de $chan !"
} else {
putquick "PRIVMSG $nick :2\[ 1Liste des Blacklists sur 4$chan 2\]"
foreach bl [banlist $chan] {
if [isbotnick [lindex $bl 5]] {
set nb $botnick 
} else {
if [string match -nocase *|* [lindex $bl 5]] {
set idpseud [string first | [lindex $bl 5]]
set idpseudo [expr ($idpseud - 1)]
set pseuok [string range [lindex $bl 5] 0 $idpseudo]
set nb $pseuok
} else {
set idpseud [string first | [lindex [getuser [lindex $bl 5] HOSTS] 1]]
set idpseudo [expr ($idpseud - 1)]
set pseuok [string range [lindex [getuser [lindex $bl 5] HOSTS] 1] 0 $idpseudo]
set nb $pseuok
}
}
set raison [lindex $bl 1]
if [string equal ! [lindex $raison 2]] {
putserv "PRIVMSG $nick :(Non défini) : [lindex $bl 0] (Ajouté par $nb)"
} else {
putserv "PRIVMSG $nick :[lindex $raison 2] : [lindex $bl 0] (Ajouté par $nb)"
}
}
putserv "PRIVMSG $nick :2\[ 1Fin des Blacklists sur 4$chan 2\]"
}
} else {
putquick "PRIVMSG $nick :Vous n'avez pas les droits nécessaires à l'utilisation de cette commande (Opérateur sur $chan requis) !"
}
} else {
putquick "NOTICE $nick :Vous n'avez aucun access dans $botnick !"
}
}
 
bind PUB - .-blacklist -bl
proc -bl { nick uhost hand chan text } {
global botnick
set hpseudo [lindex [split $nick |] 0]
if [validuser $hpseudo] {
if [matchattr $hand o|o $chan] {
if [isban [lindex $text 0] $chan] {
killchanban $chan [lindex $text 0]
putquick "PRIVMSG $::niubot_chan(${chan}) :unban [lindex $text 0] $chan"
putquick "NOTICE $nick :Blacklist supprimé : [lindex $text 0] !"
} else {
if [isban [lindex $text 0]!*@* $chan] {
foreach bbl [banlist $chan] {
if [string match -nocase ([lindex $text 0]) [lindex [lindex $bbl 1] 2]] {
killchanban $chan [lindex $bbl 0]
putquick "PRIVMSG $::niubot_chan(${chan}) :unban [lindex $bbl 0] $chan"
putquick "NOTICE $nick :Blacklist supprimé : [lindex $bbl 0]"
}
}
} else {
putquick "NOTICE $nick :Ce ban ne figure pas dans la Blacklist de $chan !"
}
}
} else {
putquick "NOTICE $nick :Vous n'avez pas les droits nécessaires à l'utilisation de cette commande (Master sur $chan requis) !"
}
} else {
putquick "NOTICE $nick :Vous n'avez aucun access dans $botnick !"
}
}
 
bind JOIN - * bljoin
proc bljoin { nick uhost hand chan } {
global botnick
if [isban $nick!*@* $chan]||[isban $nick|*!*@* $chan]||[isban $nick*!*@* $chan] {
if [string match -nocase *|* $nick] {
set idpseud [string first | $nick]
set idpseudo [expr ($idpseud - 1)]
set pseuok [string range $nick 0 $idpseudo]
set nb $pseuok
} else {
set nb $nick
}
newchanban $chan *![getchanhost $nick] $botnick "Pseudo Blacklisté ($nb) !" 0
putquick "PRIVMSG Robot :ban *![getchanhost $nick] $chan"
putquick "PRIVMSG Robot :ban $nb!*@* $chan"
putquick "PRIVMSG Robot :ban $nb|*!*@* $chan"
}
}


A modifié à ta sauce.
#6
bonjour / bonsoir

Alias_angelius tiens donc la dernière personne au monde a qui j'attendais une réponse je suis surpris enfin merci beaucoup pour ton code au plaisir un jour de re travailler avec toi =)

je viens de tester ton code et en pl quand je veux retiré le bl j'ai

[19:26] <Clara> [19:26:35] Tcl error [-bl]: can't read "::niubot_chan(#accueil)": no such variable

édite j'ai compris mon erreur car je taper .-blacklist pseudo

Alors que c'est .-blacklist pseudo!*@* :)
#7
Ah oui c'est une erreur de ma par lol :

Tu as juste à modifié :


tcl
putquick "PRIVMSG $::niubot_chan(${chan}) :unban [lindex $text 0] $chan"


Au niveau de la proc .-blacklist
En faite le système si tu as un autre bot à qui il peut poser/retiré des bans comme tu la citer plus haut dans ton post il fait ça.

Donc si tu change genre $::niubot_chan(${chan}) par Robot si le bot et Robot cela fonctionnera.

Test en fesant un new eggdrop tu verras le résultat.
En gros :

Tu prends ton bot qui sera @ ont va dire prout
Et tu auras Robot un eggdrop de base sans rien en tcl etc dedans que tu mettras @ aussi.

Une fois le tout fait test en modifiant comme je t'ai dit tu verra le résultat :)
#8
Re alias

ou alors

lesny Wrote:édite j'ai compris mon erreur car je taper .-blacklist pseudo

Alors que c'est .-blacklist pseudo!*@* :)


ça marche très bien aussi =)
#9
d'accord :)
#10
en tous cas merci beaucoup pour ton code sais exactement ce qu'il me fallais =)


au plaisir un jour de retravailler avec toi bonne soirée
#11
de rien :)

Tu devrait savoir que je stock pas mal même si j'ai pleins de truc en cours mais je sup jamais des choses qui peuvent être utile.

me also if you come back soon :)
#12
je sais d'ailleur avec les cours que tu ma donner durant 1ans je ne supprime plus rien et je t'avoue que c'est fort utile

i waiting for your invitation
#13
Ouep et je pense t'avoir asser bien former tout de même donc tu es assez debrouillard maintenant
#14
oui sa va je me débrouille bien mais bon comme tous on n'as toujours besoin d'en apprendre plus comme toi tu te débrouille super bien en tcl mais tu as encore beaucoup de chose a apprendre =)

Enfin ici ce n'est pas un salon de discutions on risque de se faire tiré les oreilles =)
#15
ho oui j'ai encore pas mal de chose à apprendre c'est clair :).

tiré les oreilles ? sa serait stupide des fois des discutions valent mieux que des codes à tout bout de champ surtout ça un rapport indirect la :p


Possibly Related Threads…
Thread Author Replies Views Last Post
  Système de bannissement d'utilisateur qui idle trop longtemps sur un salon d'aide mecmec 4 2,871 15/08/2019, 00:38
Last Post: CrazyCat
  [Demande] Opé Sur Host et Non sur Nick BaGrift 16 10,318 26/06/2014, 13:48
Last Post: BaGrift
  Ban sur l'host Alucard`68 5 3,770 14/04/2012, 15:56
Last Post: Alucard`68
Sad Bannir un host en TCL Babytigrou16 31 20,763 22/11/2007, 21:03
Last Post: Babytigrou16

Forum Jump:


Users browsing this thread: 1 Guest(s)