View/Edit #81:do_GET do_HEAD

Switch to edit mode.

1:  caller == this || raise(E_PERM)
2:  if ($login:blacklisted(host = `$su:connection_hostname(connection_name(this)) ! E_INVARG => ""') && this.user == $no_one)
3:    return $www.error:unauthorized()
4:  elseif (`$login:graylisted(host) ! E_INVARG')
5:    if (time() > $wiz_utils.last_web_alert + 60 * 2)
6:      $wiz_utils.last_web_alert = time()
7:      $wiz_utils:guard_alert("Web-Connection from graylisted site (", host, ") by ", this.user:nn(), " to ", this.url)
8:    endif
9:  elseif (this.host && this.host != (hoststr = strsub(strsub($www.url, "http://", ""), "/", "")) && this.host != $ip && this.host != tostr(hoststr, ":", $www.port) && this.host != tostr($ip, ":", $www.port))
10:   return $www.error:moved_permanently(tostr($www.url, $www:find_ref(this.object), this.parameters))
11: endif
12: $www:serve_page(this.object, this.parameters, "")
13: this:boot()
14: "Last modified by Dax (#789) on Thu Jul 25 14:58:14 2002 MDT."
15: "This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:05 2002 MDT)."
16: "Last modified by Dax (#789) on Thu May  5 15:56:06 2005 MDT."

[home | help | who | search | setup | code]