View/Edit #23:update_user_info

Switch to edit mode.

1:  if (valid(caller_perms()) && !caller_perms().wizard)
2:    raise(E_PERM)
3:  endif
4:  {user, time, cn} = args
5:  user.first_connect_time = min(time, user.first_connect_time)
6:  user.previous_connection = {user.last_login_time, $string_utils:connection_hostname(user.last_connect_place)}
7:  user.last_login_time = time()
8:  user:add_connect_place($su:connection_hostname(cn))
9:  if (parent(user) != $guest)
10:   $site_db:add(user, cn)
11: endif
12: user.current_connection_name = cn
13: user:_get_solidified() || user:_get_petrified() || user:_set_best_before(time() + user.extend_expiry_time)
14: user.last_connect_time = time()
15: "Last modified by Dax (#789) on Sat May 14 13:38:00 2005 MDT."

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