View/Edit #23:tell_www_body

Name(s): tell_www_body

1:  "Redirect the user to the connect.moo.ca if they have JavaScript."
2:  caller == this || raise(E_PERM)
3:  if (player.user == $no_one)
4:    command = "connect guest"
5:  else
6:    pass = crypt(tostr(random()))
7:    this.VIP = {{time(), player.user, pass, $string_utils:connection_hostname(connection_name(player))}, @this.VIP}
8:    command = tostr("VIP-connect ", player.user, " ", pass)
9:  endif
10: player:tell("<FORM METHOD=post ACTION='http://connect.moo.ca/'>", $html_utils:input_hidden("command", command), "</FORM>")
11: player:tell("<SCRIPT LANGUAGE='JavaScript1.3'><!--")
12: player:tell("document.forms[0].submit()")
13: player:tell("//--></SCRIPT>")
14: player:tell("Your browser doesn't appear to support JavaScript 1.3.<P>That's no problem, just use one of our <A HREF='/clients'>Moo Telnet Clients</A>.")
15: "Last modified by Dax (#789) on Mon Dec 12 18:21:15 2005 MST."

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Dax (#789)

You are not logged in.