View/Edit #305:Tell_www_page

Switch to edit mode.

1:  $www.error:OK()
2:  user = listassoc(dobj, "user")[2]
3:  pass = listassoc(dobj, "auth")[2]
4:  user = $su:match_player(user)
5:  size = listassoc(dobj, "size")[2]
6:  size = toint(size)
7:  if (!valid(user) || !user:isa($accountable))
8:    player:tell("0-User does not exist.")
9:  elseif (!$perm_utils:authorise_user(user, pass, username, player))
10:   player:tell("0-Bad password.")
11: elseif (size > user:free_dbytes())
12:   player:tell("0-Not enough disk quota.")
13: elseif (size > this.max_size)
14:   player:tell("0-Greater than maximum upload size.")
15: else
16:   if (size > this.warn_size)
17:     "Warn the wizzen."
18:     $wiz_utils:guard_alert("User ", $su:nn(user), " has just been authenticated and authorized to upload a file of size ", $su:group_number(size), " bytes. This is below our maximum upload size, but > #305.warn_size.")
19:   endif
20:   player:tell("1-Accepted.")
21: endif
22: "Last modified by Dax (#789) on Tue May  3 14:09:31 2005 MDT."

[home | help | who | search | setup | code]