@verb #3887:"@pages" any none none rdo #3887
@program #3887:"@pages" any none none
if (player != this)
  return player:tell(E_PERM)
endif
if (!args || argstr[1..2] in {"in", "ou"})
  {count, data, out} = {1, {}, argstr == "o"}
  for i in (out ? this.pages_out | this.pages_in)
    data = {@data, {tostr(out ? "o" | "i", count), $su:nn(i[1]), this:ctime(i[2]), i[3]}}
    count = count + 1
  endfor
  player:tellcolumns({1, 1, 1, 1}, {"ID", "Who", "When", "What"}, @data)
else
  try
    pages = argstr[1] == "o" ? this.pages_out | this.pages_in
    id = argstr[2] == "$" ? length(pages) | toint(argstr[2..$])
    player:tell({tostr($su:right("ID: ", 8), id), tostr($su:right("Who: ", 8), $su:nn(pages[id][1])), tostr($su:right("When: ", 8), ctime(pages[id][2])), tostr($su:right("What: ", 8), pages[id][3])})
  except (ANY)
    player:tell("No such page.")
  endtry
endif
"Last modified by Dax (#789) on Tue May  3 14:09:35 2005 MDT."
.