11/05/2012, 07:11
Salut,
Sa fait un bail poto :D
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 :)
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 :)