bind time - "* * * * *" ::listingban::unban
proc ::listingban::unban {minute hour day month year} {
  set query "SELECT id, ip FROM gline WHERE unban=1"
  ::listingban::service:connect
    ::mysql::sel $::mysqlink $query
    ::mysql::map $::mysqlink {id ip} {
          putserv "PRIVMSG #test :/gline -*@$ip"
          ::mysql::exec $::mysqlink "DELETE FROM gline WHERE id=$id"
          putserv "PRIVMSG #test :DELETE FROM gline WHERE id=$id"
    }
  ::listingban::service:deconnect
}