311
@verb #8585:"get_event get_entry" this none this rxdo #9988
@program #8585:"get_event get_entry" this none this
if (!caller_perms().wizard && caller != this)
  raise(E_PERM)
endif
{who, journal, readtype, readwhich, ?subject = 0, ?truncate = 0, ?noprops = 0} = args
{fl, uname, pword, @stuff} = this:get_login(who)
if (readtype == "one")
  message_specifiers = {{"selecttype", "one"}, {"itemid", tostr(@readwhich)}}
endif
usejournal = journal != uname ? {{"usejournal", journal}} | {}
return this:send_request({{"mode", "getevents"}, {"user", uname}, {"hpassword", pword}, {"truncate", tostr(truncate)}, {"prefersubject", tostr(subject)}, {"noprops", tostr(noprops)}, @usejournal, @message_specifiers})
"Last modified by Cecil (#7407) on Mon Feb  4 17:25:25 2002 MST."
.

0