Communauté Eggdrop

Bonjour à tous et toutes.

En ce moment je fais mes premiers pas dans le TCL et je souhaiterai que lorsque quelqu'un tape !surveillant.

Et bien ça enregistre dans fichier.db : Le pseudo de celui qui a saisi ça, l'heure, et le jour.

Pour ensuite en tapant !listdb voir les gens qui ont saisit la commande.

Est-ce que quelqu'un aurait la sympathie de m'expliquer comment faire ça s'il vous plait ?

Je vous remercie par avance.

Salut,

Sa fait un bail poto

Tien je pense avoir une petite idée de ce que tu recherche




Je pense que sa doit être dans le genre que tu recherche

alias_angelius a écrit :Salut,

Sa fait un bail poto

Tien je pense avoir une petite idée de ce que tu recherche

TCL

set base "/home/eggdrop/fichier.db";
set adminlog "#adminlog"
 
bind pub - "!surveillant" surveille
proc surveille {nick uhost handle chan text} {
    set fp [open $::base a]
    puts $fp "[clock format [clock seconds] -format "%d/%m/%y"] $nick $text"
    close $fp
    putserv "NOTICE $nick :\00312Votre Texte a été enregistrée"
    putserv "PRIVMSG $::adminlog :\00312Add Texte : \0034$nick"
}
 
bind pub - "!listdb" listesur
proc listesur {nick uhost handle chan text} {
   set fp [open $::base r]
   set data [read -nonewline $fp]
   close $fp
   foreach templine [split $data "\n"] {
      set line [split $templine]
      puthelp "NOTICE $nick :$line"
      putserv "PRIVMSG $::adminlog :\00312 list Texte : \0034$nick"
   }
}

Je pense que sa doit être dans le genre que tu recherche

En effet, ça fait un long moment ! Je te remercie pour ton aide, tu as tout de suite compris ce que je voulais faire.
Comme ça désormais je vais pouvoir faire quelque chose de plus personnel à partir de ça.

Merci beaucoup alias

De rien poto