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


Enregistrer dans un fichier une demande
#1
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.
#2
Salut,

Sa fait un bail poto :D

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 :)
#3
alias_angelius Wrote:Salut,

Sa fait un bail poto :D

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
#4
De rien poto :D


Possibly Related Threads…
Thread Author Replies Views Last Post
  [Demande] Récupérer certaines infos dans fichier .user Hitsu 5 5,125 30/07/2013, 17:13
Last Post: CrazyCat
  nick list dans fichier html loulou7593 20 11,786 04/02/2012, 18:43
Last Post: djkenny
  Problème de phrases dans un fichier ReT 3 4,350 25/01/2012, 03:27
Last Post: ReT
  [Demande] Script 'piège' (Kick à la demande avec compteur de victime) Utas 6 7,058 21/12/2011, 11:24
Last Post: loulou7593
  [Recherche] messages fun dans un fichier .txt ReT 7 5,465 27/11/2011, 23:40
Last Post: ReT
  problèmes de collision lors d'opérations d'écriture dans un fichier MenzAgitat 4 4,877 28/06/2011, 20:12
Last Post: djkenny
  Mode +v les users enregistrer diabolo 10 7,255 22/02/2010, 19:15
Last Post: cestlemien
  [bug] Ecrire dans le fichier de log CrazyCat 5 5,878 30/12/2009, 10:12
Last Post: CrazyCat

Forum Jump:


Users browsing this thread: 1 Guest(s)