bin/contrib/rc-httpd/: fix default paths and environment variables; create a generic default select-handler; add tcp80, used for launching rc-httpd from listen(8)
This commit is contained in:
Stanley Lieber
parent
a99fa8b44f
commit
d9c48e6ee0
3 changed files with 13 additions and 173 deletions
|
|
@ -1,7 +1,7 @@
|
|||
#!/bin/rc
|
||||
rc_httpd_dir=/rc/bin/rc-httpd
|
||||
path=(/bin $rc_httpd_dir/handlers)
|
||||
cgi_path=/bin
|
||||
rc_httpd_dir=/home/sl/www/werc/bin/contrib/rc-httpd
|
||||
path=($PLAN9/bin $rc_httpd_dir/handlers)
|
||||
cgi_path=$PLAN9/bin
|
||||
SERVER_PORT=80 # default for CGI scripts, may be overridden by the Host header
|
||||
extra_headers='Server: rc-httpd'
|
||||
cr=
|
||||
|
|
|
|||
|
|
@ -1,177 +1,12 @@
|
|||
#!/bin/rc
|
||||
# 2016-02-01T19:31:03-0500
|
||||
rfork n
|
||||
fn do_error{
|
||||
do_log $1
|
||||
echo 'HTTP/1.1 '^$1^$cr
|
||||
emit_extra_headers
|
||||
echo 'Content-type: text/html'^$cr
|
||||
echo $cr
|
||||
echo '<html>
|
||||
<head>
|
||||
<title>'^$1^'</title>
|
||||
</head>
|
||||
<body>
|
||||
<h1>'^$1^'</h1>'
|
||||
echo $2
|
||||
echo '<p><i>rc-httpd at' $SERVER_NAME '</i>'
|
||||
echo '
|
||||
</body>
|
||||
</html>
|
||||
'
|
||||
}
|
||||
|
||||
fn http_redirect {
|
||||
if(~ $1 http://* https://*)
|
||||
t=$1
|
||||
if not if(~ $1 /*)
|
||||
t=$"base_url^$1
|
||||
if not
|
||||
t=$"base_url^$"req_path^$1
|
||||
exec /bin/echo 'Status: '^$2^'
|
||||
Location: '^$t^'
|
||||
|
||||
'
|
||||
exit
|
||||
}
|
||||
|
||||
fn okstatic{
|
||||
full_path=`{echo $"FS_ROOT^$"PATH_INFO | urlencode -d}
|
||||
full_path=$"full_path
|
||||
if(~ $full_path */)
|
||||
error 503
|
||||
if(test -d $full_path){
|
||||
redirect perm $"location^'/' \
|
||||
'URL not quite right, and browser did not accept redirect.'
|
||||
exit
|
||||
}
|
||||
if(! test -e $full_path){
|
||||
error 404
|
||||
exit
|
||||
}
|
||||
if(! test -r $full_path){
|
||||
error 503
|
||||
exit
|
||||
}
|
||||
do_log 200
|
||||
type='text/plain'
|
||||
max_age=3600 # 1 hour
|
||||
echo 'HTTP/1.1 200 OK'^$cr
|
||||
emit_extra_headers
|
||||
echo 'Content-type: '^$type^'; charset=utf-8'^$cr
|
||||
echo 'Content-length: '^`{ls -l $full_path | awk '{print $6}'}
|
||||
echo 'Cache-control: max-age='^$max_age^$cr
|
||||
echo $cr
|
||||
exec cat $full_path
|
||||
}
|
||||
|
||||
# surprise!
|
||||
if(~ $HTTP_REFERER *hiphopstan.com/forum* *slax.*/forum*){
|
||||
# Route requests to werc.
|
||||
# Change the werc path to match your system.
|
||||
if(~ $SERVER_NAME *){
|
||||
PATH_INFO=$location
|
||||
FS_ROOT=/usr/sl/www/werc/sites/hotlink
|
||||
exec static-or-index
|
||||
}
|
||||
if(~ $HTTP_REFERER 'http://okturing.com/index.rc?start=100' || {~ $SERVER_NAME okturing.com && ~ $location /index.rc} || ~ $location /qemu/plan9.flp.gz){
|
||||
do_error '402 PAYMENT REQUIRED'
|
||||
exit
|
||||
}
|
||||
if(~ $location /*/wp-admin* /wiki/index.php* /wp/wp-admin* /wp-config* /wp-content/* wp-login.php* /admin.php* /index.php/admin* /phpinfo.php* /phpMyAdmin/* /phpMyAdmin-2/* /*xmlrpc.php){
|
||||
do_error '402 PAYMENT REQUIRED'
|
||||
exit
|
||||
}
|
||||
|
||||
# build environment and namespace
|
||||
SERVER_NAME=`{echo $SERVER_NAME | sed 's/^www\.//g'}
|
||||
|
||||
if(~ $location *~nis*)
|
||||
location=`{echo $location | sed 's/\/\~nis/\/_nis/g'}
|
||||
|
||||
if(~ $SERVER_NAME 9front.org){
|
||||
bind /usr/sl/plan9front /usr/sl/www/werc/sites/9front.org/9front
|
||||
bind /usr/sl/www/werc/sites/9front.org/_werc/pub/style.css /usr/sl/www/werc/pub/style/style.css
|
||||
bind /usr/sl/www/werc/sites/plan9.stanleylieber.com/src /usr/sl/www/werc/sites/9front.org/extra
|
||||
aux/stub -d /usr/sl/www/werc/sites/9front.org/extra/rc
|
||||
bind /usr/sl/www/werc/sites/plan9.stanleylieber.com/rc /usr/sl/www/werc/sites/9front.org/extra/rc
|
||||
bind /usr/sl/www/werc/sites/bell-labs.co/9front/iso /usr/sl/www/werc/sites/9front.org/iso
|
||||
bind /usr/sl/www/werc/sites/plan9.stanleylieber.com/pkg /usr/sl/www/werc/sites/9front.org/pkg
|
||||
if(~ $location /who/*){
|
||||
for(i in Aram aiju alvaro cinap_lenrek eekee erik joy kenji lf94 martian67 mveety rminnich sl)
|
||||
bind /usr/sl/www/werc/sites/9front.org/$i /usr/sl/www/werc/sites/9front.org/who/$i/index.txt
|
||||
}
|
||||
aux/stub /usr/sl/www/werc/sites/9front.org/9front.torrent
|
||||
bind /usr/sl/www/werc/sites/bell-labs.co/9front/iso/9front-5048.e16a172bcae6.iso.bz2.torrent /usr/sl/www/werc/sites/9front.org/9front.torrent
|
||||
if(~ $location /list.html)
|
||||
location=/lists.html
|
||||
}
|
||||
if(~ $SERVER_NAME bugs.9front.org){
|
||||
bind /usr/sl/www/werc/sites/bugs.9front.org/_werc/pub/style.css /usr/sl/www/werc/pub/style/style.css
|
||||
bind -a /usr/bugs /usr/sl/www/werc/sites/bugs.9front.org
|
||||
if(~ $location /closed/[a-z0-9]* /open/[a-z0-9]*){
|
||||
d=`{basename -d $location}
|
||||
aux/stub /usr/sl/www/werc/sites/bugs.9front.org^$d^/index.md
|
||||
bind /usr/bugs^$d^/readme /usr/sl/www/werc/sites/bugs.9front.org^$d^/index.md
|
||||
}
|
||||
}
|
||||
if(~ $SERVER_NAME fqa.9front.org){
|
||||
#location=`{echo $"location | sed 's/^(fqa|appendix).*\.html$//g'}
|
||||
}
|
||||
if(~ $SERVER_NAME lists.9front.org){
|
||||
for(i in 9atom 9changes 9fans 9front 9front-bugs 9front-commits 9front-sysinfo 9nag acme-sac cat-v cypherpunks dlr harvey harvey-commits harvey-issues inferno nix plan9port-dev sam-fans sierra31 skunk-works tscm-l tuhs werc www-html www-talk www-vrml)
|
||||
bind /mail/box/$i/mbox /usr/sl/www/werc/sites/lists.9front.org/$i
|
||||
}
|
||||
if(~ $SERVER_NAME wiki.9front.org)
|
||||
bind /usr/sl/www/werc/sites/wiki.9front.org/_werc/pub/style.css /usr/sl/www/werc/pub/style/style.css
|
||||
if(~ $SERVER_NAME golang.cat-v.org)
|
||||
bind /usr/sl/www/werc/sites/go-lang.cat-v.org /usr/sl/www/werc/sites/golang.cat-v.org
|
||||
if(~ $SERVER_NAME plan9.stanleylieber.com){
|
||||
bind /usr/sl/www/werc/sites/plan9.stanleylieber.com/_werc/pub/style.css /usr/sl/www/werc/pub/style/style.css
|
||||
bind /mail/lib /usr/sl/www/werc/sites/plan9.stanleylieber.com/mail/lib
|
||||
bind /sys/lib/dist/mail/lib/names.local /usr/sl/www/werc/sites/plan9.stanleylieber.com/mail/lib/names.local
|
||||
bind /rc/bin/service.crazy/tcp587 /usr/sl/www/werc/sites/plan9.stanleylieber.com/mail/service/tcp587
|
||||
bind /rc/bin/service.crazy/tcp993 /usr/sl/www/werc/sites/plan9.stanleylieber.com/mail/service/tcp993
|
||||
bind /rc/bin/rc-httpd/select-handler /usr/sl/www/werc/sites/plan9.stanleylieber.com/rc-httpd/select-handler
|
||||
bind /rc/bin/service.crazy/tcp80 /usr/sl/www/werc/sites/plan9.stanleylieber.com/rc-httpd/tcp80
|
||||
bind /rc/bin/service.crazy/tcp443 /usr/sl/www/werc/sites/plan9.stanleylieber.com/rc-httpd/tcp443
|
||||
}
|
||||
|
||||
# route requests
|
||||
if(~ $SERVER_NAME okturing.com && ~ $location /src/*/body){
|
||||
PATH_INFO=$location
|
||||
FS_ROOT=/usr/sl/www/werc/sites/okturing.com
|
||||
okstatic
|
||||
}
|
||||
if not if(~ $SERVER_NAME emma.stanleylieber.com fqa.* gl.* iawtp.com ln.* lists.* mold.dk nm.* nsacom.net osuny.co.uk osx.* ph.* pop.* pp.* qualitycountrylyrics.com ragnarok.* tcasey.* tip.9front.org tn.* ur.* volksutils.com weekly.9front.org zeroxpark.com || ~ $location /cbz/* /favicon.ico /img/* /pdf/* /src/* /txt/*){
|
||||
PATH_INFO=$location
|
||||
FS_ROOT=/usr/sl/www/werc/sites/$SERVER_NAME
|
||||
exec static-or-index
|
||||
}
|
||||
if not if(~ $SERVER_NAME *bell-labs.co){
|
||||
bind -a /usr/sl/www/werc/sites/9front.org/who /usr/sl/www/werc/sites/bell-labs.co/who
|
||||
PATH_INFO=$location
|
||||
FS_ROOT=/usr/sl/www/werc/sites/bell-labs.co
|
||||
exec static-or-index
|
||||
}
|
||||
if not if(~ $SERVER_NAME ttr.inri.net){
|
||||
PATH_INFO=$location
|
||||
FS_ROOT=/usr/sl/t
|
||||
exec static-or-index
|
||||
}
|
||||
if not if(~ $SERVER_NAME vr.stanleylieber.com){
|
||||
if(~ $location / /bin/* /etc/* /*htaccess /*htpasswd /index.rc* /lib/* /stats/*){
|
||||
PATH_INFO=$location
|
||||
FS_ROOT=/usr/sl/www/werc/sites/vr.stanleylieber.com
|
||||
exec cgi /usr/sl/www/werc/sites/vr.stanleylieber.com/index.rc $*
|
||||
}
|
||||
if not{
|
||||
PATH_INFO=$location
|
||||
FS_ROOT=/usr/sl/www/werc/sites/vr.stanleylieber.com
|
||||
exec static-or-index
|
||||
}
|
||||
}
|
||||
if not if(~ $SERVER_NAME *){
|
||||
PATH_INFO=$location
|
||||
FS_ROOT=/usr/sl/www/werc/sites/$SERVER_NAME
|
||||
exec static-or-cgi /usr/sl/www/werc/bin/werc.rc
|
||||
FS_ROOT=/home/sl/www/werc/sites/$SERVER_NAME
|
||||
exec static-or-cgi /home/sl/www/werc/bin/werc.rc
|
||||
}
|
||||
if not
|
||||
error 503
|
||||
|
|
|
|||
5
bin/contrib/tcp80
Executable file
5
bin/contrib/tcp80
Executable file
|
|
@ -0,0 +1,5 @@
|
|||
#!/bin/rc
|
||||
# For use with listen(8).
|
||||
# Change rc-httpd path to match your system.
|
||||
# Change /dev/null to location of logfile.
|
||||
exec /home/sl/www/werc/bin/contrib/rc-httpd/rc-httpd >>[2]/dev/null
|
||||
Loading…
Add table
Add a link
Reference in a new issue