proc ran {nick ident handle channel argument} {
  global rhost rport rpass challenge

  if {$argument == ""} {
    putserv "NOTICE $nick :Syntax: !glob \"FOR:U:ONLY\" m/h/d/w \"reason\""
  } else {
    set response [myran "irc_ban $argument $argument $argument"]
    putserv "NOTICE $nick :$response"
    putserv "PRIVMSG $channel :\[\002GLOBALT\002\] \002$argument\002 at $argument min. Reason: '$argument'"
  }

  return 1
}