@verb #755:"www_welcome" this none this rxdo #789
@program #755:"www_welcome" this none this
"Display the welcome screen and login form."
if (caller != this && caller != this.transcript)
  raise(E_PERM)
endif
{?error = ""} = args
$msg:mtell(error ? "www_error" | "www_welcome", error)
player:tell(this:www_desc())
"Determine which mode is recommended for this webber."
frame = $www:has_frames()
proxy = $www:has_proxy()
modes = {"", "", "", "", ""}
if (!frame && proxy || index(player.user_agent, "Lynx"))
  modes[5] = " CHECKED"
elseif (!frame && !proxy)
  modes[4] = " CHECKED"
elseif (proxy && frame)
  modes[3] = " CHECKED"
elseif (frame && !proxy)
  "Live doesn't seem to work for most people."
  modes[3] = " CHECKED"
  "  modes[2] = \" CHECKED\";"
  "  modes[1] = \" CHECKED\";"
endif
player:tell("<FORM NAME=\"ModeSelect\">")
$msg:mtell("www_welcome_id")
$msg:mtell("www_welcome_pw")
$msg:mtell("www_welcome_md", @modes)
if (modes[3] == " CHECKED" && index(player.user_agent, "Mozilla/3.0 (Win"))
  player:tell("<B>Warning:</B> You appear to be using <B>Netscape 3.0</B>.  This browser has a bug in it that may force you to hit <TT>Reload</TT> every time you say anything in the <I>Frames, with periodic reload</I> mode.  Sorry for the inconvenience.  The problem has been solved in Netscape 3.01<BR>")
endif
player:tell("<INPUT NAME=\"SN\" TYPE=\"HIDDEN\" VALUE=\"0\">")
player:tell("<INPUT NAME=\"TX\" TYPE=\"HIDDEN\" VALUE=\"\">")
player:tell("<INPUT TYPE=\"submit\" VALUE=\"Login!\">")
player:tell("</FORM>")
"Last modified by Raptor (#6319) on Mon Oct 11 19:24:01 1999 MDT."
.