Switch to edit mode.
Name(s): tell_www_page1: "Parse the CGI, and log the user in. Then show either the frameset, or a content page depending on the mode." 2: if (caller != this && caller != $www) 3: raise(E_PERM) 4: endif 5: data = this:www_login() 6: "If the mode is 'FH' (Frame Hang) or 'FR' (Frame Reload), then serve frameset page." 7: if (`data[3][1] == "F" ! ANY') 8: this:www_frameset(@args, data) 9: else 10: "Extend the buffer and transcript." 11: valid(this.buffer) && $wiz_utils:autoextend(this.buffer) 12: valid(this.transcript) && $wiz_utils:autoextend(this.transcript) 13: pass(data) 14: endif 15: "Last modified by Dax (#789) on Thu Aug 6 14:37:52 1998 EDT."