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
 }