@verb #2111:"@upload" any any any rxdo #7446
@program #2111:"@upload" any any any
"Syntax: @upload <object>.<property>"
"Same as eval <object>.<property> = $command_utils:read_lines()"
if (!(prop = $code_utils:parse_propref(argstr)))
  return player:tell("Syntax: @upload &lt;object&gt;.&lt;property&gt;")
endif
dobj = player:my_match_object(prop[1])
if ($command_utils:object_match_failed(dobj, prop[1]))
  return
endif
player:tell("[debug: dobj = ", toliteral(dobj), "; prop = ", toliteral(prop), "]")
if (`dobj.(prop[2]) ! E_PROPNF => E_PROPNF' == E_PROPNF)
  return player:tell("No such property.")
endif
dobj.(prop[2]) = $command_utils:read_lines()
player:tell("Ok")
"Last modified by Dax (#789) on Thu Nov  8 11:53:54 2001 MST."
.