bind pub - !lire pub:!lire
proc pub:!lire { nick uhost hand channel args } {
global rep
if {$channel != "#abus"} { putserv "notice $nick :14Tu dois être sur 3#abus14 pour utiliser cette commande !"; return }
set rabus [open $rep/abus.txt "r"]
putserv "privmsg $channel :14Bonjour 3$nick14, il y a eu des plaintes pendant ton absence :"
set lignes "0"
while {![eof $rabus]} {
incr $lignes
set liste [gets $rabus]
putserv "PRIVMSG $channel :$liste"
unset liste
}
if {$ligne == 0} { putserv "privmsg $channel :Aucune plainte $nick !"; }
close $rabus
}