34e
@verb #16:"@log" any any any rdo #55
@program #16:"@log" any any any
"Copied from Generic Wizard (#17):@log by Slacker (#55) Dec 11 14:39:04 1997"
"@log [<string>]    enters a comment in the server log."
"If no string is given, you are prompted to enter one or more lines for an extended comment."
set_task_perms(player)
whostr = "from " + $su:nn(player)
if (player != this)
  $msg:mtell("huh")
elseif (argstr)
  server_log(tostr("COMMENT: [", whostr, "]  ", argstr))
  player:notify("One-line comment logged.")
elseif (lines = $command_utils:read_lines())
  server_log(tostr("COMMENT: [", whostr, "]"))
  for l in (lines)
    server_log(l)
  endfor
  server_log(tostr("END_COMMENT."))
  player:tell(length(lines), " lines logged as extended comment.")
endif
"Last modified by Dax (#789) on Mon Dec 10 19:03:44 2001 MST."
.

0