@verb #757:"www_login" this none this rxdo #789
@program #757:"www_login" this none this
"If dude don't exist, add da dude."
caller == this || raise(E_PERM)
result = pass(@args)
if (result == "Unknown username!")
  id = $string_utils:trim($www:parse_GET("ID"))
  if (id)
    this.users = {@this.users, {id, "*", {}, {}, "CHECKED", 0}}
    result = pass(@args)
    fork (0)
      "Purge any old users."
      users = {}
      for user in (this.users)
        if (user[6] + 300 > time())
          users = {@users, user}
        endif
      endfor
      this.users = users
    endfork
  else
    result = "Blank names are not allowed!"
  endif
endif
return result
"Last modified by Dax (#789) on Mon May 10 09:27:21 1999 MDT."
.