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


Gline user
#1
Bonjour,


je voudrais un script tcl pour gliner un user en faisant exemple : !gline user
cette commande sera disponible, qu'à partir d'un salon spécifique.
Quote:set glinechan "#test"

bind pub o !gline pub:!gline
proc pub:!gline { nick uhost handle channel arg } {
set nick [lindex $arg 0]
putserv "/gline $nick vous êtes banni du réseau"

}
putserv "$::glinechan "
return 1
}

Je voudrais savoir si mon script est bon ? si vous pouvez l'améliorer je dirais pas non.
#2
Mis à part le fait qu'utiliser un eggdrop (ircop donc) pour faire un gline est une énorme faille de sécurité, que ta commande de gline est totalement fausse et que tu as du code en trop qui va faire planter ton eggdrop, tout est bon.

Bref, à refaire complètement, et avant tout il faut vérifier l'utilité de ton script.
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#3
Bah l'utilité c'est de faire un peu comme le système du bot géofront, que certains membres du staff peuvent gliner en tapant cette commande.
T'aura pas un exemple qui soit à peu près similaire?
#4
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#5
Bonjour !

Je pense que le code devrai ressemblé un peu plus à ceci :

tcl
set GLineChan	"#test";
set GLineTime	"0";
bind pub o !gline pub:gline
proc pub:gline { nick uhost handle channel arg } {
	if { ![onchan $nick $::GLineChan] } { putquick "privmsg $chan :Access Denied." return 0; }
	set nick	[lindex $arg 0];
	putquick "gline $nick $::GLineTime :vous êtes banni du réseau";
	return 1;
}

Retrouvez les dernières modifications de mes scripts TCL (versions Alpha/Bêta) ainsi que d'autres de mes réalisations sur ma page GitHub et les versions stables dans la section scripts de ce site  8-)
#6
ZarTek Wrote:Je pense que le code devrai ressemblé un peu plus à ceci :

tcl
set GLineChan	"#test";
set GLineTime	"0";
bind pub o !gline pub:gline
proc pub:gline { nick uhost handle channel arg } {
	if { ![onchan $nick $::GLineChan] } { putquick "privmsg $chan :Access Denied." return 0; }
	set nick	[lindex $arg 0];
	putquick "gline $nick $::GLineTime :vous êtes banni du réseau";
	return 1;
}

CrazyCat Wrote:que ta commande de gline est totalement fausse
Et j'en ai discuté avec nispOr sur IRC, il ne se rend pas compte de toute la mécanique impliquée, surtout du fait que l'eggdrop n'est pas forcément sur un canal commun avec la victime (donc obligation de /whois et récupérer les infos)
irc.zeolia.net - Offrez-moi un café
Merci de ne pas demander d'aide en MP
Away
#7
Whois ? sa serais pas plutôt un /who $pseudo ?

De plus Geofront est une socket et non pas un eggdrop.


tcl
send ":$::sock(nick) WHO $pseudok"


Qui retrouve $pseudok :


tcl
if [string match **@* $pseudok] {
....


Exemple vite fait et la c'est à partir d'une socket.


Possibly Related Threads…
Thread Author Replies Views Last Post
  Gline logs Ryan 2 3,800 28/02/2012, 17:32
Last Post: CrazyCat

Forum Jump:


Users browsing this thread: 1 Guest(s)