4ac
@verb #8585:"dj-user dj-changeuser" any none none rxdo #9988
@program #8585:"dj-user dj-changeuser" any none none
"lj-user (username) or lj-changeuser (username)"
""
"  Selects which journal you'd like to view. This is for primarily for journal-reading commands."
"  Note that this has NO impact on what user you are logged in as. For changing that, use lj-login and lj-logout"
if (caller_perms() != player)
  raise(E_PERM, "uh no")
endif
if (!(login = this:get_login(player)))
  player:tell("You must be logged into LiveJournal before you can perform this command. Perhaps you meant to type:")
  player:tell({"", "lj-login " + argstr})
  return
endif
try
  this:get_entry(player, $su:trim(argstr), "one", -1)
except e (ANY)
  return player:tell({"Unable to change to that user:", e[2]})
endtry
"Validated!"
if (i = listiassoc(player, this.current_user))
  this.current_user[i][2..$] = {$su:trim(argstr)}
else
  "Uhh, we shouldn't ever have to come here, but oh well."
  this.current_user = {@this.current_user, {player, $su:trim(argstr)}}
endif
player:tell("User ", $su:trim(argstr), " selected.")
"Last modified by Cecil (#7407) on Mon Feb  4 17:24:32 2002 MST."
.

0