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 {$lignes > 0} { putserv "privmsg $channel :14Aucune plainte 3$nick 14!"; }
  close $rabus
  return 0
}