Unnamed

bind time - "* * * * *" time:expired

proc time:expired {min hour day month year} {
  set date [clock format [clock seconds] -format "%d.%m.%Y"]
  set username [getctx]
  set expiredate [getbncuser $username tag expire]
  if {$expiredate == "none" || $expiredate == ""} {
    return 0
  } elseif {$expiredate <= $date} {
    bncreply "Your bnc account has expired. Your account has been suspended."
    setbncuser $username suspendreason "Your bnc account has expired"
    setbncuser $username tag suspend "1"
    setbncuser $username lock "1"
    bnckill "Your bnc account has expired. Your account has been suspended."  
  } else {
    bncreply "Your bnc account will expire \"$expiredate\"."
  }
}