11/05/2012, 16:50
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