initial import of changes from 9front bikeshedding; bundle rc-httpd
This commit is contained in:
Stanley Lieber
parent
6d3bcc867c
commit
a99fa8b44f
46 changed files with 1061 additions and 572 deletions
137
bin/cgilib.rc
Normal file → Executable file
137
bin/cgilib.rc
Normal file → Executable file
|
|
@ -2,7 +2,7 @@
|
|||
|
||||
fn dprint { echo $* >[1=2] }
|
||||
fn dprintv { { for(v in $*) { echo -n $v^'#'^$#$v^'=' $$v '; ' }; echo } >[1=2] }
|
||||
|
||||
fn echo {if(! ~ $1 -n || ! ~ $2 '') /bin/echo $*}
|
||||
fn escape_html { sed 's/&/\&/g; s/</\</g; s/>/\>/g' $* }
|
||||
|
||||
fn http_redirect {
|
||||
|
|
@ -12,7 +12,7 @@ fn http_redirect {
|
|||
t=$"base_url^$1
|
||||
if not
|
||||
t=$"base_url^$"req_path^$1
|
||||
echo 'Status: '^$2^'
|
||||
exec /bin/echo 'Status: '^$2^'
|
||||
Location: '^$t^'
|
||||
|
||||
'
|
||||
|
|
@ -29,7 +29,7 @@ fn load_post_args {
|
|||
ifs='&
|
||||
' for(pair in `{cat}) {
|
||||
ifs='=' { pair=`{echo -n $pair} }
|
||||
n='post_arg_'^`{echo $pair(1)|tr -cd 'a-zA-Z0-9_'}
|
||||
n='post_arg_'^`{echo $pair(1)|urldecode|tr -cd 'a-zA-Z0-9_'}
|
||||
post_args=( $post_args $n )
|
||||
ifs=() { $n=`{echo -n $pair(2)|urldecode|tr -d '
'} }
|
||||
}
|
||||
|
|
@ -64,89 +64,52 @@ fn awk_buffer {
|
|||
END { printf "%s", buf }'
|
||||
}
|
||||
|
||||
fn urldecode {
|
||||
awk '
|
||||
BEGIN {
|
||||
hextab ["0"] = 0; hextab ["8"] = 8;
|
||||
hextab ["1"] = 1; hextab ["9"] = 9;
|
||||
hextab ["2"] = 2; hextab ["A"] = hextab ["a"] = 10
|
||||
hextab ["3"] = 3; hextab ["B"] = hextab ["b"] = 11;
|
||||
hextab ["4"] = 4; hextab ["C"] = hextab ["c"] = 12;
|
||||
hextab ["5"] = 5; hextab ["D"] = hextab ["d"] = 13;
|
||||
hextab ["6"] = 6; hextab ["E"] = hextab ["e"] = 14;
|
||||
hextab ["7"] = 7; hextab ["F"] = hextab ["f"] = 15;
|
||||
}
|
||||
{
|
||||
decoded = ""
|
||||
i = 1
|
||||
len = length ($0)
|
||||
while ( i <= len ) {
|
||||
c = substr ($0, i, 1)
|
||||
if ( c == "%" ) {
|
||||
if ( i+2 <= len ) {
|
||||
c1 = substr ($0, i+1, 1)
|
||||
c2 = substr ($0, i+2, 1)
|
||||
if ( hextab [c1] == "" || hextab [c2] == "" ) {
|
||||
print "WARNING: invalid hex encoding: %" c1 c2 | "cat >&2"
|
||||
} else {
|
||||
code = 0 + hextab [c1] * 16 + hextab [c2] + 0
|
||||
c = sprintf ("%c", code)
|
||||
i = i + 2
|
||||
}
|
||||
} else {
|
||||
print "WARNING: invalid % encoding: " substr ($0, i, len - i)
|
||||
}
|
||||
} else if ( c == "+" ) {
|
||||
c = " "
|
||||
}
|
||||
decoded = decoded c
|
||||
++i
|
||||
}
|
||||
printf "%s", decoded
|
||||
}
|
||||
'
|
||||
}
|
||||
fn urldecode { /bin/urlencode -d }
|
||||
|
||||
fn url_encode {
|
||||
awk '
|
||||
BEGIN {
|
||||
# We assume an awk implementation that is just plain dumb.
|
||||
# We will convert an character to its ASCII value with the
|
||||
# table ord[], and produce two-digit hexadecimal output
|
||||
# without the printf("%02X") feature.
|
||||
#fn urldecode {
|
||||
#awk '
|
||||
#BEGIN {
|
||||
# hextab ["0"] = 0; hextab ["8"] = 8;
|
||||
# hextab ["1"] = 1; hextab ["9"] = 9;
|
||||
# hextab ["2"] = 2; hextab ["A"] = hextab ["a"] = 10
|
||||
# hextab ["3"] = 3; hextab ["B"] = hextab ["b"] = 11;
|
||||
# hextab ["4"] = 4; hextab ["C"] = hextab ["c"] = 12;
|
||||
# hextab ["5"] = 5; hextab ["D"] = hextab ["d"] = 13;
|
||||
# hextab ["6"] = 6; hextab ["E"] = hextab ["e"] = 14;
|
||||
# hextab ["7"] = 7; hextab ["F"] = hextab ["f"] = 15;
|
||||
#}
|
||||
#{
|
||||
# decoded = ""
|
||||
# i = 1
|
||||
# len = length ($0)
|
||||
# while ( i <= len ) {
|
||||
# c = substr ($0, i, 1)
|
||||
# if ( c == "%" ) {
|
||||
# if ( i+2 <= len ) {
|
||||
# c1 = substr ($0, i+1, 1)
|
||||
# c2 = substr ($0, i+2, 1)
|
||||
# if ( hextab [c1] == "" || hextab [c2] == "" ) {
|
||||
# print "WARNING: invalid hex encoding: %" c1 c2 | "cat >&2"
|
||||
# } else {
|
||||
# code = 0 + hextab [c1] * 16 + hextab [c2] + 0
|
||||
# c = sprintf ("%c", code)
|
||||
# i = i + 2
|
||||
# }
|
||||
# } else {
|
||||
# print "WARNING: invalid % encoding: " substr ($0, i, len - i)
|
||||
# }
|
||||
# } else if ( c == "+" ) {
|
||||
# c = " "
|
||||
# }
|
||||
# decoded = decoded c
|
||||
# ++i
|
||||
# }
|
||||
# printf "%s", decoded
|
||||
#}
|
||||
#'
|
||||
#}
|
||||
|
||||
EOL = "%0A" # "end of line" string (encoded)
|
||||
split ("1 2 3 4 5 6 7 8 9 A B C D E F", hextab, " ")
|
||||
hextab [0] = 0
|
||||
for ( i=1; i<=255; ++i ) ord [ sprintf ("%c", i) "" ] = i + 0
|
||||
if ("'^$"EncodeEOL^'" == "yes") EncodeEOL = 1; else EncodeEOL = 0
|
||||
}
|
||||
{
|
||||
encoded = ""
|
||||
for ( i=1; i<=length ($0); ++i ) {
|
||||
c = substr ($0, i, 1)
|
||||
if ( c ~ /[a-zA-Z0-9.-]/ ) {
|
||||
encoded = encoded c # safe character
|
||||
} else if ( c == " " ) {
|
||||
encoded = encoded "+" # special handling
|
||||
} else {
|
||||
# unsafe character, encode it as a two-digit hex-number
|
||||
lo = ord [c] % 16
|
||||
hi = int (ord [c] / 16);
|
||||
encoded = encoded "%" hextab [hi] hextab [lo]
|
||||
}
|
||||
}
|
||||
if ( EncodeEOL ) {
|
||||
printf ("%s", encoded EOL)
|
||||
} else {
|
||||
print encoded
|
||||
}
|
||||
}
|
||||
END {
|
||||
#if ( EncodeEOL ) print ""
|
||||
}
|
||||
' $*
|
||||
}
|
||||
fn url_encode { /bin/urlencode $* }
|
||||
|
||||
# Cookies
|
||||
fn set_cookie {
|
||||
|
|
@ -165,10 +128,10 @@ fn get_cookie {
|
|||
|
||||
|
||||
fn static_file {
|
||||
echo 'Content-Type: '`{select_mime $1}
|
||||
echo -n 'Content-Type: '
|
||||
select_mime $1
|
||||
echo
|
||||
cat $1
|
||||
exit
|
||||
exec cat $1
|
||||
}
|
||||
|
||||
fn select_mime {
|
||||
|
|
|
|||
0
bin/contrib/hgweb.config
Normal file → Executable file
0
bin/contrib/hgweb.config
Normal file → Executable file
14
bin/contrib/rc-httpd/handlers/__mkfstmp
Normal file
14
bin/contrib/rc-httpd/handlers/__mkfstmp
Normal file
|
|
@ -0,0 +1,14 @@
|
|||
#!/bin/rc
|
||||
cgiargs=$*
|
||||
|
||||
fn error{
|
||||
if(~ $1 404)
|
||||
exec cgi $cgiargs
|
||||
if not
|
||||
$rc_httpd_dir/handlers/error $1
|
||||
}
|
||||
|
||||
if(~ $location */)
|
||||
exec cgi $cgiargs
|
||||
if not
|
||||
exec serve-static
|
||||
6
bin/contrib/rc-httpd/handlers/authorize
Executable file
6
bin/contrib/rc-httpd/handlers/authorize
Executable file
|
|
@ -0,0 +1,6 @@
|
|||
#!/bin/rc
|
||||
if(~ $REMOTE_USER ''){
|
||||
extra_headers=($extra_headers 'WWW-Authenticate: Basic realm="'$"SERVER_NAME'"')
|
||||
error 401
|
||||
exit
|
||||
}
|
||||
46
bin/contrib/rc-httpd/handlers/cgi
Executable file
46
bin/contrib/rc-httpd/handlers/cgi
Executable file
|
|
@ -0,0 +1,46 @@
|
|||
#!/bin/rc
|
||||
fn filter_headers{
|
||||
response=(200 OK)
|
||||
lines=''
|
||||
done=false
|
||||
while(~ $done false){
|
||||
line=`{getline}
|
||||
head=`{echo $line | awk '{print tolower($1)}'}
|
||||
if(~ $head status:*)
|
||||
response=`{echo $line | awk '{$1="" ; print}'}
|
||||
if not if(~ $line '')
|
||||
done=true
|
||||
if not
|
||||
lines=$"lines^$"line^$cr^'
|
||||
'
|
||||
}
|
||||
echo 'HTTP/1.1' $"response^$cr
|
||||
echo -n $"lines
|
||||
do_log $response(1)
|
||||
}
|
||||
|
||||
fn run_cgi {
|
||||
path=$cgi_path exec $"cgi_bin $params || echo 'Status: 500'
|
||||
}
|
||||
|
||||
cgi_bin=$1
|
||||
cgi_dir=.
|
||||
if(! ~ $#* 1)
|
||||
cgi_dir=$*($#*)
|
||||
if not if(~ $"cgi_bin /*){
|
||||
cgi_dir=`{basename -d $"cgi_bin}
|
||||
cgi_dir=$"cgi_dir
|
||||
}
|
||||
if(! ~ $"cgi_bin */*)
|
||||
cgi_bin=./$"cgi_bin
|
||||
if(! builtin cd $"cgi_dir >[2]/dev/null || ! test -x $"cgi_bin){
|
||||
error 500
|
||||
exit
|
||||
}
|
||||
|
||||
run_cgi | {
|
||||
filter_headers
|
||||
emit_extra_headers
|
||||
echo $cr
|
||||
exec cat
|
||||
}
|
||||
111
bin/contrib/rc-httpd/handlers/dir-index
Executable file
111
bin/contrib/rc-httpd/handlers/dir-index
Executable file
|
|
@ -0,0 +1,111 @@
|
|||
#!/bin/rc
|
||||
PATH_INFO=`{echo $PATH_INFO | urlencode -d}
|
||||
full_path=$"FS_ROOT^$"PATH_INFO
|
||||
full_path=$"full_path
|
||||
if(! test -d $full_path){
|
||||
error 404
|
||||
exit
|
||||
}
|
||||
if(! test -r $full_path -x $full_path){
|
||||
error 503
|
||||
exit
|
||||
}
|
||||
do_log 200
|
||||
builtin cd $full_path
|
||||
if(~ $"NOINDEXFILE ^ $"NOINDEX ''){
|
||||
ifile=index.htm*
|
||||
if(! ~ $ifile(1) *'*'){
|
||||
PATH_INFO=$ifile(1)
|
||||
FS_ROOT=''
|
||||
exec serve-static
|
||||
}
|
||||
}
|
||||
title=`{echo $SITE_TITLE | sed s,%s,^$"PATH_INFO^,}
|
||||
title=$"title
|
||||
lso=()
|
||||
switch($2){
|
||||
case size
|
||||
# ls has no option to sort by size
|
||||
# could pipe it through sort, I suppose
|
||||
case date
|
||||
lso=-t
|
||||
}
|
||||
echo 'HTTP/1.1 200 OK'^$cr
|
||||
emit_extra_headers
|
||||
echo 'Content-type: text/html'^$cr
|
||||
echo $cr
|
||||
echo '<html>
|
||||
<head>
|
||||
<title>'^$title^'</title>
|
||||
<style type="text/css">
|
||||
.size {
|
||||
text-align: right;
|
||||
padding-right: 4pt;
|
||||
}
|
||||
.day {
|
||||
text-align: right;
|
||||
padding-right: 3pt;
|
||||
}
|
||||
.datetime {
|
||||
text-align: right;
|
||||
}
|
||||
.name {
|
||||
text-align: right;
|
||||
padding-left: 3pt;
|
||||
}
|
||||
</style>
|
||||
</head>
|
||||
<body>'
|
||||
echo '<h1>'^$title^'</h1>'
|
||||
if(! ~ $PATH_INFO /)
|
||||
echo '<a href="../">Parent directory</a>'
|
||||
echo '<table>'
|
||||
ls -lQ $lso | awk '
|
||||
function urlencode(loc){
|
||||
# very minimal encoding, just enough for our static-file purposes
|
||||
url=loc
|
||||
gsub("%", "%25", url) # this one first!
|
||||
gsub("\\$", "%24", url)
|
||||
gsub("&", "%26", url)
|
||||
gsub("\\+", "%2B", url)
|
||||
gsub("\\?", "%3F", url)
|
||||
gsub(" ", "%20", url)
|
||||
gsub("\"", "%22", url)
|
||||
gsub("#", "%23", url)
|
||||
return url
|
||||
}
|
||||
function hrsize(size){
|
||||
if(size > 1073741824) return sprintf("%.1fGB", size/1073741824)
|
||||
if(size > 10485760) return sprintf("%iMB", size/1048576)
|
||||
if(size > 1048576) return sprintf("%.1fMB", size/1048576)
|
||||
if(size > 10240) return sprintf("%iKB", size/1024)
|
||||
if(size > 1024) return sprintf("%.1fKB", size/1024)
|
||||
return sprintf("%iB", size)
|
||||
}
|
||||
/^(-|a)/ {
|
||||
print "<tr>"
|
||||
print "<td class=\"size\">"hrsize($6)"</td>"
|
||||
print "<td class=\"month\">"$7"</td>"
|
||||
print "<td class=\"day\">"$8"</td>"
|
||||
print "<td class=\"datetime\">"$9"</td>"
|
||||
$1="" ; $2="" ; $3="" ; $4="" ; $5="" ; $6="" ; $7="" ; $8="" ; $9=""
|
||||
sub("^ *?", "")
|
||||
print "<td><a class=\"file name\" href=\""urlencode($0)"\">"$0"</a></td>"
|
||||
print "</tr>"
|
||||
$0=""
|
||||
}
|
||||
/^d/ {
|
||||
print "<tr>"
|
||||
print "<td class=\"size\"> </td>"
|
||||
print "<td class=\"month\">"$7"</td>"
|
||||
print "<td class=\"day\">"$8"</td>"
|
||||
print "<td class=\"datetime\">"$9"</td>"
|
||||
$1="" ; $2="" ; $3="" ; $4="" ; $5="" ; $6="" ; $7="" ; $8="" ; $9=""
|
||||
sub("^ *?", "")
|
||||
print "<td><a class=\"dir name\" href=\""urlencode($0)"/\">"$0"/</a></td>"
|
||||
print "</tr>"
|
||||
}'
|
||||
echo '</table>
|
||||
|
||||
</body>
|
||||
</html>'
|
||||
43
bin/contrib/rc-httpd/handlers/error
Executable file
43
bin/contrib/rc-httpd/handlers/error
Executable file
|
|
@ -0,0 +1,43 @@
|
|||
#!/bin/rc
|
||||
# DO NOT make this script callable directly from the web!
|
||||
fn do_error{
|
||||
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 401{
|
||||
do_error '401 Unauthorized' \
|
||||
'The requested path '^$"location^' requires authorization.'
|
||||
}
|
||||
|
||||
fn 404{
|
||||
do_error '404 Not Found' \
|
||||
'The requested path '^$"location^' was not found on this server.'
|
||||
}
|
||||
|
||||
fn 500{
|
||||
do_error '500 Internal Server Error' \
|
||||
'The server has encountered an internal misconfiguration and is unable to satisfy your request.'
|
||||
}
|
||||
|
||||
fn 503{
|
||||
do_error '503 Forbidden' \
|
||||
'You do not have permission to access '^$"location^' on this server.'
|
||||
}
|
||||
|
||||
do_log $1
|
||||
$1
|
||||
30
bin/contrib/rc-httpd/handlers/redirect
Executable file
30
bin/contrib/rc-httpd/handlers/redirect
Executable file
|
|
@ -0,0 +1,30 @@
|
|||
#!/bin/rc
|
||||
if(~ $#2 0){
|
||||
error 500
|
||||
exit
|
||||
}
|
||||
switch($1){
|
||||
case perm*
|
||||
do_log 301
|
||||
echo 'HTTP/1.1 301 Moved Permanently'^$cr
|
||||
case temp*
|
||||
do_log 302
|
||||
echo 'HTTP/1.1 302 Moved Temporarily'^$cr
|
||||
case seeother
|
||||
do_log 303
|
||||
echo 'HTTP/1.1 303 See Other'^$cr
|
||||
case *
|
||||
error 500
|
||||
exit
|
||||
}
|
||||
echo 'Location: ' ^ $2 ^ $cr
|
||||
emit_extra_headers
|
||||
echo 'Content-type: text/html'^$cr
|
||||
echo $cr
|
||||
echo '<html><body>'
|
||||
if(~ $#3 0)
|
||||
echo 'Browser did not accept redirect.'
|
||||
if not
|
||||
echo $3
|
||||
echo '<a href="'^$"location^'/">Click here</a>'
|
||||
echo '</body></html>'
|
||||
43
bin/contrib/rc-httpd/handlers/serve-static
Executable file
43
bin/contrib/rc-httpd/handlers/serve-static
Executable file
|
|
@ -0,0 +1,43 @@
|
|||
#!/bin/rc
|
||||
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
|
||||
switch($full_path){
|
||||
case *.html *.htm
|
||||
type=text/html
|
||||
case *.css
|
||||
type=text/css
|
||||
case *.txt
|
||||
type='text/plain; charset=utf-8'
|
||||
case *.jpg *.jpeg
|
||||
type=image/jpeg
|
||||
case *.gif
|
||||
type=image/gif
|
||||
case *.png
|
||||
type=image/png
|
||||
case *
|
||||
type=`{file -m $full_path}
|
||||
}
|
||||
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
|
||||
14
bin/contrib/rc-httpd/handlers/static-or-cgi
Executable file
14
bin/contrib/rc-httpd/handlers/static-or-cgi
Executable file
|
|
@ -0,0 +1,14 @@
|
|||
#!/bin/rc
|
||||
cgiargs=$*
|
||||
|
||||
fn error{
|
||||
if(~ $1 404)
|
||||
exec cgi $cgiargs
|
||||
if not
|
||||
$rc_httpd_dir/handlers/error $1
|
||||
}
|
||||
|
||||
if(~ $location */)
|
||||
exec cgi $cgiargs
|
||||
if not
|
||||
exec serve-static
|
||||
5
bin/contrib/rc-httpd/handlers/static-or-index
Executable file
5
bin/contrib/rc-httpd/handlers/static-or-index
Executable file
|
|
@ -0,0 +1,5 @@
|
|||
#!/bin/rc
|
||||
if(~ $PATH_INFO */)
|
||||
exec dir-index $params
|
||||
if not
|
||||
exec serve-static
|
||||
101
bin/contrib/rc-httpd/rc-httpd
Executable file
101
bin/contrib/rc-httpd/rc-httpd
Executable file
|
|
@ -0,0 +1,101 @@
|
|||
#!/bin/rc
|
||||
rc_httpd_dir=/rc/bin/rc-httpd
|
||||
path=(/bin $rc_httpd_dir/handlers)
|
||||
cgi_path=/bin
|
||||
SERVER_PORT=80 # default for CGI scripts, may be overridden by the Host header
|
||||
extra_headers='Server: rc-httpd'
|
||||
cr=
|
||||
|
||||
fn do_log{
|
||||
echo `{date} :: $SERVER_NAME :: $request :: \
|
||||
$HTTP_USER_AGENT :: $1 :: $HTTP_REFERER >[1=2]
|
||||
}
|
||||
|
||||
fn emit_extra_headers{
|
||||
for(header in $extra_headers)
|
||||
echo $"header^$cr
|
||||
}
|
||||
|
||||
fn getline{ read | sed 's/'^$"cr^'$//g' }
|
||||
|
||||
fn terminate{
|
||||
echo `{date} connection terminated >[1=2]
|
||||
exit terminate
|
||||
}
|
||||
|
||||
fn trim_input{ read -c $CONTENT_LENGTH }
|
||||
|
||||
request=`{getline}
|
||||
if(~ $#request 0)
|
||||
terminate
|
||||
REQUEST_METHOD=$request(1)
|
||||
REQUEST_URI=$request(2)
|
||||
reqlines=''
|
||||
HTTP_COOKIE=''
|
||||
REMOTE_USER=''
|
||||
done=false
|
||||
chunked=no
|
||||
while(~ $"done false){
|
||||
line=`{getline}
|
||||
if(~ $#line 0)
|
||||
done=true
|
||||
reqlines=$"reqlines$"line'
|
||||
'
|
||||
h=`{echo $line | awk '{print tolower($1)}'}
|
||||
switch($h){
|
||||
case ''
|
||||
done=true
|
||||
case host:
|
||||
SERVER_NAME=$line(2)
|
||||
case referer:
|
||||
HTTP_REFERER=$line(2)
|
||||
case user-agent:
|
||||
HTTP_USER_AGENT=`{echo $line | sed 's;[^:]+:[ ]+;;'}
|
||||
case content-length:
|
||||
CONTENT_LENGTH=$line(2)
|
||||
case content-type:
|
||||
CONTENT_TYPE=$line(2)
|
||||
case cookie:
|
||||
cookie=`{echo $line | sed 's;^[^:]+:[ ]*;;'}
|
||||
HTTP_COOKIE=$"HTTP_COOKIE^$"cookie^'; '
|
||||
case authorization:
|
||||
REMOTE_USER=`{auth/httpauth $line(3)}
|
||||
case transfer-encoding:
|
||||
~ $line(2) chunked && chunked=yes
|
||||
}
|
||||
}
|
||||
if(~ $REQUEST_URI *://* //*){
|
||||
SERVER_NAME=`{echo $REQUEST_URI | sed '
|
||||
s;^[^:]+:;;
|
||||
s;^//([^/]+).*;\1;'}
|
||||
REQUEST_URI=`{echo $REQUEST_URI | sed '
|
||||
s;^[^:]+:;;
|
||||
s;^//[^/]+/?;/;'}
|
||||
}
|
||||
QUERY_STRING=`{echo $REQUEST_URI | sed 's;[^?]*\??;;'}
|
||||
params=`{echo $QUERY_STRING | sed 's;\+; ;g'}
|
||||
location=`{echo $REQUEST_URI | sed 's;\?.*;;'}
|
||||
location=`{echo $location | sed '
|
||||
s;[^/]+/\.\./;/;g
|
||||
s;/\./;/;g
|
||||
s;//+;/;g
|
||||
'}
|
||||
SERVER_NAME=`{echo $SERVER_NAME | sed 's;^(\[[^\]]+\]|[^:]+)\:([0-9]+)$;\1 \2;'}
|
||||
if(~ $#SERVER_NAME 2){
|
||||
SERVER_PORT=$SERVER_NAME(2)
|
||||
SERVER_NAME=$SERVER_NAME(1)
|
||||
}
|
||||
if(~ $REQUEST_METHOD (PUT POST)){
|
||||
if(! ~ $"CONTENT_LENGTH '')
|
||||
trim_input | exec $rc_httpd_dir/select-handler
|
||||
if not{
|
||||
if(~ $chunked yes){
|
||||
echo 'HTTP/1.1 411 Length required'^$cr
|
||||
echo $cr
|
||||
exit
|
||||
}
|
||||
exec $rc_httpd_dir/select-handler
|
||||
}
|
||||
}
|
||||
if not
|
||||
. $rc_httpd_dir/select-handler
|
||||
177
bin/contrib/rc-httpd/select-handler
Executable file
177
bin/contrib/rc-httpd/select-handler
Executable file
|
|
@ -0,0 +1,177 @@
|
|||
#!/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*){
|
||||
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
|
||||
}
|
||||
if not
|
||||
error 503
|
||||
|
|
@ -1,4 +1,4 @@
|
|||
#!/usr/bin/awk -f
|
||||
#!/bin/awk -f
|
||||
BEGIN {
|
||||
hextab ["0"] = 0; hextab ["8"] = 8;
|
||||
hextab ["1"] = 1; hextab ["9"] = 9;
|
||||
|
|
|
|||
0
bin/contrib/urlencode.awk
Normal file → Executable file
0
bin/contrib/urlencode.awk
Normal file → Executable file
0
bin/contrib/webserver.rc
Normal file → Executable file
0
bin/contrib/webserver.rc
Normal file → Executable file
13
bin/corehandlers.rc
Normal file → Executable file
13
bin/corehandlers.rc
Normal file → Executable file
|
|
@ -75,9 +75,9 @@ fn dir_listing_handler {
|
|||
d=`{basename -d $1}
|
||||
if(~ $#d 0)
|
||||
d='/'
|
||||
echo $d|sed 's,.*//,,g; s,/$,,; s,/, / ,g; s/[\-_]/ /g; s,.*,<h1 class="dir-list-head">&</h1> <ul class="dir-list">,'
|
||||
echo $d|sed 's,.*//,,g; s,/$,,; s,/, / ,g; s,.*,<h1 class="dir-list-head">&</h1> <ul class="dir-list">,'
|
||||
# Symlinks suck: '/.' forces ls to list the linked dir if $d is a symlink.
|
||||
ls -F $dir_listing_ls_opts $sitedir$d/. | sed $dirfilter$dirclean | awk '{match($0, "/[^/]*/?$"); l=substr($0, RSTART+1, RLENGTH-1);n=l; gsub(/[\-_]/, " ", n); print "<li><a href=\""l"\">"n"</a></li>"; }' | uniq
|
||||
ls -F $dir_listing_ls_opts $sitedir$d/. | sed $dirfilter$dirclean' s,.*/([^/]+/?)$,<li><a href="\1">\1</a></li>,'
|
||||
echo '</ul>'
|
||||
}
|
||||
|
||||
|
|
@ -121,13 +121,8 @@ fn setup_handlers {
|
|||
# Dir listing
|
||||
if not if(~ $local_path */index) {
|
||||
handler_body_main=(dir_listing_handler $req_path)
|
||||
if(test -f $sitedir$req_path'_header.md') {
|
||||
t=`{get_file_title $sitedir$req_path'_header.md'}
|
||||
if(! ~ $"t '')
|
||||
pageTitle=$t
|
||||
|
||||
ll_add handlers_body_head md_handler $sitedir$req_path'_header.md'
|
||||
}
|
||||
if(test -f $sitedir$req_path'_header.md')
|
||||
ll_add handlers_body_head md_handler $sitedir$req_path'_header.md'
|
||||
if(test -f $sitedir$req_path'_footer.md')
|
||||
ll_add handlers_body_foot md_handler $sitedir$req_path'_footer.md'
|
||||
}
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
#!/usr/bin/env rc
|
||||
#!/bin/rc
|
||||
|
||||
fn fltr_cache {
|
||||
a=()
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
#!/usr/bin/awk -f
|
||||
#!/bin/awk -f
|
||||
function pr(str) {
|
||||
if(lastc !~ "[{(]")
|
||||
gsub(/'/, "''", str)
|
||||
|
|
|
|||
28
bin/werc.rc
28
bin/werc.rc
|
|
@ -1,4 +1,4 @@
|
|||
#!/usr/local/plan9/bin/rc
|
||||
#!/bin/rc
|
||||
. ./cgilib.rc
|
||||
. ./werclib.rc
|
||||
. ./wercconf.rc
|
||||
|
|
@ -15,7 +15,7 @@ dirfilter='s/\*$//; s,/+\./+,/,g; s,^\./,,; /\/[._][^\/]/d; /'$forbidden_uri_cha
|
|||
dirclean=' s/\.(md|html|txt)$//; '
|
||||
|
||||
# Careful, the proper p9p path might not be set until initrc.local is sourced
|
||||
path=(. $PLAN9/bin ./bin /bin /usr/bin)
|
||||
path=(. /bin ./bin)
|
||||
|
||||
headers=lib/headers.tpl
|
||||
res_tail='</body></html>'
|
||||
|
|
@ -35,14 +35,14 @@ for(a in $werc_apps)
|
|||
|
||||
fn werc_exec_request {
|
||||
site=$SERVER_NAME
|
||||
base_url=http://$site
|
||||
base_url=http://$site:$SERVER_PORT
|
||||
sitedir=$sitesdir/$site
|
||||
master_template=`{get_lib_file default_master.tpl}
|
||||
current_date_time=`{date}
|
||||
|
||||
# Note: $REQUEST_URI is not officially in CGI 1.1, but seems to be de-facto
|
||||
# Note: We only urldecode %5F->'_' because some sites (stackoverflow.com?) urlencode it in their links,
|
||||
# perhaps we should completely urldecode the whole url.
|
||||
# perhaps we should completel urldecode the whole url.
|
||||
req_path=`{echo -n $REQUEST_URI | sed 's/\?.*//; s!//+!/!g; s/%5[Ff]/_/g; s/'^$forbidden_uri_chars^'//g; s/\.\.*/./g; 1q'}
|
||||
req_url=$base_url^$req_path
|
||||
local_path=$sitedir$req_path
|
||||
|
|
@ -61,15 +61,9 @@ fn werc_exec_request {
|
|||
if(~ $local_path */) {
|
||||
if(test -d $local_path)
|
||||
local_path=$local_path^'index'
|
||||
|
||||
# If path has a trailing /, and a plain file exists matching that 'name.*'
|
||||
# remove the traling / and redirect to 'name' .
|
||||
# XXX: This redir might step on apps with synthetic dirs.
|
||||
if not {
|
||||
# TODO: Maybe we should be smarter about how to check for existing files
|
||||
if(ls `{basename -d $local_path}^'.*' >/dev/null >[2]/dev/null)
|
||||
perm_redirect `{echo $req_path|sed 's,/+$,,'}
|
||||
}
|
||||
if not if(ls `{basename -d $local_path}^* >/dev/null >[2]/dev/null)
|
||||
perm_redirect `{echo $req_path|sed 's,/+$,,'}
|
||||
}
|
||||
if not if(~ $req_path *'.' *',' *';' *':')
|
||||
perm_redirect `{echo $req_path | sed 's/[.,;:)]$//'}
|
||||
|
|
@ -128,17 +122,17 @@ fn werc_exec_request {
|
|||
|
||||
for(h in $extraHttpHeaders)
|
||||
echo $h
|
||||
echo 'Content-Type: '^$http_content_type
|
||||
echo Content-Type: $http_content_type
|
||||
echo # End of HTTP headers
|
||||
|
||||
if(! ~ $#debug 0)
|
||||
dprint $"SERVER_NAME^$"REQUEST_URI - $"HTTP_USER_AGENT - $"REQUEST_METHOD - $"handler_body_main - $"master_template
|
||||
dprint $"SERVER_NAME^$"REQUEST_URI - $"HTTP_USER_AGENT - $"REQUEST_METHOD - $"handler_body_main - $"master_template
|
||||
|
||||
if(~ $REQUEST_METHOD HEAD)
|
||||
exit
|
||||
|
||||
template $headers $master_template | awk_buffer
|
||||
|
||||
template $headers $master_template # | awk_buffer
|
||||
echo $res_tail
|
||||
}
|
||||
|
||||
werc_exec_request # >[2]/tmp/wercdebug.log
|
||||
werc_exec_request
|
||||
|
|
|
|||
|
|
@ -1,4 +1,4 @@
|
|||
#!/usr/local/plan9/bin/rc
|
||||
#!/bin/rc
|
||||
|
||||
# This is a wrapper script for broken http servers like recent lighttpd versions which throw away cgi's stderr.
|
||||
|
||||
|
|
|
|||
0
bin/wercconf.rc
Normal file → Executable file
0
bin/wercconf.rc
Normal file → Executable file
2
bin/werclib.rc
Normal file → Executable file
2
bin/werclib.rc
Normal file → Executable file
|
|
@ -102,7 +102,7 @@ fn get_html_title {
|
|||
|
||||
# As a backup we might want to pick the first 'non-tag' text in the file with:
|
||||
if(~ $"t '')
|
||||
t=`{sed -n -e 's/^[ ]*(<[^>]+>)*([^<]+).*/\2/p; 32q' < $1 | sed 1q}
|
||||
t=`{sed -n -e 's/^(<[^>]+>)*([^<]+).*/\2/p; 32q' < $1 | sed 1q}
|
||||
|
||||
echo $t
|
||||
}
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue