Bonjour je voudrais savoir si sa serai possible de me créer un plainte.tcl pour mettre sur mon eggdrop pour mon serv. j'ai deja une source qui fonctionne que je voudrai améliorer.
Donc je voudrais qu'il enregistre les plaintes sur un fichier .txt
Que je tape !list pour avoir toute la liste des plaintes en notice.
quand je tape !read N° de la plainte ( !read 1 ) elle s'affiche sur le salon #Plainte et envoi une notice as la personne qui as porter plainte pour lui dire que la plainte as ete prise en charge par le service abus
et enfin un !del N° de la plainte ( !del 1 ) pour l'effacer de la base txt.
Merci D'avance.
Cordialement Aragorn
tcl
###############
# Plainte.tcl #
###############
bind msgm - "*" plainte:send
proc plainte:send { nick uhost hand arg } {
set backroom "#Plainte"
if { [string equal -nocase [lindex $arg 1] "plainte"] } {
putserv "PRIVMSG $backroom :\[ Plainte \] [lindex $arg 0] contre [lrange $arg 2 end]"
putserv "NOTICE $nick :Votre plainte as été déposé au service abus. Merci de patienter."
}
}
Donc je voudrais qu'il enregistre les plaintes sur un fichier .txt
Que je tape !list pour avoir toute la liste des plaintes en notice.
quand je tape !read N° de la plainte ( !read 1 ) elle s'affiche sur le salon #Plainte et envoi une notice as la personne qui as porter plainte pour lui dire que la plainte as ete prise en charge par le service abus
et enfin un !del N° de la plainte ( !del 1 ) pour l'effacer de la base txt.
Merci D'avance.
Cordialement Aragorn