Someone

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\"."
  }
}




error message

Rajohan`Linux> tcl return $::errorInfo
<-sBNC> wrong # args: should be "expired"
<-sBNC>     while executing
<-sBNC> "expired 49 21 20 07 2007"
<-sBNC>     ("eval" body line 1)
<-sBNC>     invoked from within
<-sBNC> "eval expired {49 21 20 07 2007}"
<-sBNC>     invoked from within
<-sBNC> "catch [list eval $p $args] error"