@verb #755:"tell_www_page" this none this rxdo #789
@program #755:"tell_www_page" this none this
"Parse the CGI, and log the user in.  Then show either the frameset, or a content page depending on the mode."
if (caller != this && caller != $www)
  raise(E_PERM)
endif
data = this:www_login()
"If the mode is 'FH' (Frame Hang) or 'FR' (Frame Reload), then serve frameset page."
if (`data[3][1] == "F" ! ANY')
  this:www_frameset(@args, data)
else
  "Extend the buffer and transcript."
  valid(this.buffer) && $wiz_utils:autoextend(this.buffer)
  valid(this.transcript) && $wiz_utils:autoextend(this.transcript)
  pass(data)
endif
"Last modified by Dax (#789) on Thu Aug  6 14:37:52 1998 EDT."
.