+- Communauté Eggdrop (https://forum.eggdrop.fr)
+-- Forum : Eggdrop et scripts (https://forum.eggdrop.fr/forumdisplay.php?fid=8)
+--- Forum : Scripts (https://forum.eggdrop.fr/forumdisplay.php?fid=4)
+--- Sujet : [Résolu] problème de timer sur un unban (/showthread.php?tid=1664)
problème de timer sur un unban - Alucard`68 - 24/02/2017
Bonjour à tous :)
Donc voila je souhaite rajouter un timer sur des commandes de ban pour unban automatiquement au bout de x minutes (il est volontairement réglé a 1 minutes pour faire les test)
Voici le code modifier :
tcl
set cs "ChanServ"
set chanlog "#Services"
set unban(time) "1"
set exemptreason "\002\0034!! ERROR 404 COMMAND NOT FOUND !! \0037Pseudo protété \00312Commande NOT FOUND"
set vhostexempt {
*Root@domain.tld
*@TechAdmin.domain.tld
*@le.reste.des.vhost
}
bind pub m !br banraison
proc banraison { nick host hand channel text } {
global cs chanlog vhostexempt exemptreason unban
set args [split $text]
set victim [lindex $args 0]
set reason [join [lrange $args 1 end]]
if { ![onchan $victim $channel] } {
putserv "PRIVMSG $channel :\0034$victim \00312n'est pas là \0037$nick"
return 0
}
set vichost [getchanhost $victim $channel]
set protec 0
foreach vhost $vhostexempt {
if { [string match -nocase $vhost $vichost] } {
set protec 1
}
}
if { $protec == 1 } {
putserv "NOTICE $nick :$exemptreason"
} else {
putserv "PRIVMSG $cs ban $channel $victim $reason"
putserv "PRIVMSG $chanlog :\0034$victim \00312a été bannie de \0034$channel \00312par \0034$nick \00312pour la raison :\0037 $reason"
timer $unban(time) "PRIVMSG $cs unban $channel -b $victim"
}
}
La commande fonctionne très bien aucun souci à se niveau le problème intervient au moment du unban voila le message d'erreur
Code :
[18:38:00]Tcl error in script for 'timer73':
[18:38:00]invalid command name 'PRIVMSG'Comment puis-je résoudre se problème ?
Et aussi si par exemple je ban 2 users a 10 minutes d'intervalle le unban se fera aussi a 10 minutes d'intervalle ou les 2 en même temps ?
Oui je veux que sa unban à intervalle
Espérant avoir été assez clair.
Bien à vous.
Bye.
RE: problème de timer sur un unban - CrazyCat - 25/02/2017
Il manque peut-être un putserv ?
RE: problème de timer sur un unban - Alucard`68 - 25/02/2017
Bonsoir,
Donc j'ai tenter plusieurs façon mais rien ne fonctionne
tcl
timer $unban(time) "putserv PRIVMSG $cs unban $channel -b $victim"
ou
timer $unban(time) putserv "PRIVMSG $cs unban $channel -b $victim"
ou
putserv timer $unban(time) "PRIVMSG $cs unban $channel -b $victim"
Code :
1er test:
[19:41:00] Tcl error in script for 'timer81':
[19:41:00] wrong # args: should be "putserv text ?mode?"
2eme test:
[19:43:00] Tcl error in script for 'timer81':
[19:43:00] wrong # args: should be "putserv text ?mode?"
3eme test:
[19:45:00] Tcl error in script for 'timer81':
[19:45:00] wrong # args: should be "putserv text ?mode?"RE: problème de timer sur un unban - CrazyCat - 26/02/2017
Je te laisse jeter un oeil sur Timers - Utimers qui t'explique la syntaxe logique:
tcl
timer <minutes> <proc_a_lancer>
Dans ton cas, tu devrais faire:
tcl
timer $unban(time) [list putserv "PRIVMSG $cs :unban $channel -b $victim"]
RE: problème de timer sur un unban - Alucard`68 - 26/02/2017
Bonsoir, j'ai modifier comme conseillé mais cela ne fonctionne pas
tcl
proc banraison { nick host hand channel text } {
global cs chanlog exempt unban
set args [split $text]
set victim [lindex $args 0]
set reason [join [lrange $args 1 end]]
if { ![onchan $victim $channel] } {
putserv "PRIVMSG $channel :\0034$victim \00312n'est pas là \0037$nick"
return 0
}
set vichost [getchanhost $victim $channel]
set protec 0
foreach vhost $exempt(vhost) {
if { [string match -nocase $vhost $vichost] } {
set protec 1
}
}
if { $protec == 1 } {
putserv "NOTICE $nick :$exempt(reason)"
} else {
putserv "PRIVMSG $cs ban $channel $victim $reason"
putserv "PRIVMSG $chanlog :\0034$victim \00312a été bannie de \0034$channel \00312par \0034$nick \00312pour la raison :\0037 $reason"
timer $unban(time) [list putserv "PRIVMSG $cs :unban $channel -b $victim"]
}
}
plus de message d'erreur a propos du timer par contre a priori il unban eggdrop à la place de l'user.
Code :
[05:31:00] -ChanServ (Service@EnjOy-TchaT.fr)- Vous avez été débanni de #TesT.Comment faire ?
EDIT :
Pas étonnant que cela ne fonctionne pas puisque la commande n'est pas bonne...
j'ai donc modifier par
tcl
timer $unban(time) [list putserv "mode $channel -b $victim"]
La je n'ai plus aucun message d'erreur en PL par contre sa ne unban toujours pas...
j'ai aussi tenté en remplacent "$victim" par "$host" mais même constat.
Donc comment faire pour que mon unban fonctonne ?
Merci d'avance.
Bye.
RE: problème de timer sur un unban - CrazyCat - 26/02/2017
En regardant le ban que mets chanserv ?
Le mieux est peut-être que tu maitrises complètement le ban, donc que l'eggdrop le pose lui-même au lieu de passer par chanserv et qu'il le retire lui-même.
En plus, le jour où les services sont en panne, ça continue à fonctionner.
RE: problème de timer sur un unban - Alucard`68 - 18/04/2017
Problème résolue avec le upgrade vers anope 2.0.X
Encore merci :)
Bye.