proc ::topicrdm::topictime {minute hour day month year} {
  set fi [open $::topicrdm::fichier(topics) r]
  for { set cpt 0 } { ($cpt <= $::topicrdm::current_line) && ![eof $fi] } { incr cpt } {
    set line [gets $fi]
    if { $line != "" } {
        putserv "TOPIC #test :$line"
        break
    }
  }

  if { [eof $fi]} {
  set ::topicrdm::current_line 0
  } else {
  incr ::topicrdm::current_line
  }
  close $fi
}