proc expire:commands {client parameters} {
  if {[string equal -nocase [lindex $parameters 0] "help"] && [getbncuser $client "admin"]} {
    bncaddcommand expire Admin "Manage expire date" "Syntax: expire <add|del>\n expire add <nick> <date>\n expire del <nick>\n"
  }
  if {[string equal -nocase [lindex $parameters 0] "expire"] && [getbncuser $client "admin"]} {
    haltoutput
    if {[llength $parameters] < 1} {
      bncreply "Syntax: expire <add|del>"
    } 
    else {
      switch [lindex $parameters 1] {
        "add" {
          expire:add [lindex $parameters 2] [lindex $parameters 3] [join [lrange $parameters 4 end]]
        }
        "del" {
          expire:del [lindex $parameters 2]
        }
        default {
          bncreply "Syntax: expire <add|del>"
        }
      }
    }
  }
}