@verb #7790:"do_login_command" this none this rxdo #789
@program #7790:"do_login_command" this none this
callers() && raise(E_PERM)
where = listiassoc(player, this.cache)
if (where)
`kill_task(this.cache[where][2]) ! ANY => "pbbt."'
this.cache[where][2] = task_id()
this.cache[where][3] = {@this.cache[where][3], tostr(">", $html_utils:literal_text(argstr), "
")}
else
this.cache = {@this.cache, {player, task_id(), {}}}
where = length(this.cache)
endif
suspend(5)
data = this.cache[where][3]
this.cache = listdelete(this.cache, where)
notify(player, "HTTP/1.0 200 OK")
notify(player, "Content-type: text/html")
notify(player, "")
notify(player, "")
notify(player, "" + $name + ": The Browser Mirror")
notify(player, "")
notify(player, "The Browser Mirror
")
notify(player, "This page reflects back all the information that your web browser is sending to every page it visits. Most people are suprised at how much information is transfered during anonymous browsing.")
notify(player, "Paranoid people can use a cloaking device (such as http://www.anonymizer.com/) to filter out all offending information.")
notify(player, "
")
notify(player, tostr("Your connection was received on ", connection_name(player), ""))
notify(player, "")
for x in (data)
notify(player, x)
endfor
notify(player, "
")
notify(player, "")
boot_player(player)
this.www_counter = this.www_counter + 1
"Last modified by Cecil (#7407) on Wed Feb 12 18:47:05 2003 MST."
.