@verb #80:"has_proxy" this none this rxdo #789
@program #80:"has_proxy" this none this
"Is the webber stuck behind a firewall?"
"Firewalls break Java connections and 'live' pages that never stop loading."
{?webber = player} = args
if (!webber:isa($webber))
  return raise(E_INVARG)
endif
try
  where = connection_name(webber)
except (E_INVARG)
  return 0
  "(walk out quietly...)"
endtry
if (index(where, "proxy") || index(where, "mail.ingenia.com"))
  return 1
elseif (!webber.user_agent)
  "The GET request may arrive before the User_Agent info."
  suspend(1)
endif
return index(player.user_agent, "proxy")
"Examples of Proxy usage:"
"  Mozilla/2.01E (Win95; I) via proxy gateway CERN-HTTPD/3.0 libwww/2.17"
"  port 7780 from www-proxy.ingenia.com, port 1073"
"As opposed to:"
"  Mozilla/2.01E (Win95; I)"
"  port 7780 from mercury.ingenia.com, port 1116"
"Last modified by Cecil (#7407) on Tue Feb  4 17:20:51 2003 MST."
.