initial import of changes from 9front bikeshedding; bundle rc-httpd
This commit is contained in:
sl
parent
3b1be16a19
commit
32414fdfff
16
README
16
README
@ -14,7 +14,7 @@ Installation
|
||||
Requirements:
|
||||
|
||||
* An http server that can handle CGIs
|
||||
* Plan 9 from User Space: http://plan9.us - Or 9base-5 or later: http://tools.suckless.org/9base
|
||||
* Plan 9 from User Space: http://swtch.com/plan9port - Or 9base-tip: http://tools.suckless.org/9base
|
||||
|
||||
Note: Werc by default expects the Plan 9 tools to be installed under
|
||||
/usr/local/plan9/bin/, if you have installed them elsewhere you will need to
|
||||
@ -46,7 +46,7 @@ For general configuration options copy etc/initrc to etc/initrc.local and
|
||||
customize it as needed. Site (and directory) specific options can be set in a
|
||||
sites/example.com/_werc/config file inside the site's directory. To customize
|
||||
templates and included files you can store your own version of the files in
|
||||
lib/ under sites/example.com/_werc/lib
|
||||
lib/ under sites/example.com/_werc/lib.
|
||||
|
||||
The source tree for the werc website is included under sites/werc.cat-v.org as
|
||||
an example, feel free to use it as a template for your own site.
|
||||
@ -58,21 +58,17 @@ http://werc.cat-v.org/docs/
|
||||
Contact
|
||||
-------
|
||||
|
||||
For comments, suggestions, bug reports or patches join the werc9 list in
|
||||
google groups: http://groups.google.com/group/werc9 or the irc channel #cat-v
|
||||
in irc.freenode.org
|
||||
For comments, suggestions, bug reports or patches join the werc mailing list
|
||||
at: http://werc.cat-v.org or the irc channel #cat-v in irc.freenode.org
|
||||
|
||||
If you have a public website that uses werc I would love to hear about it and
|
||||
get feedback about you experience setting it up.
|
||||
|
||||
If you want to be notified of new releases see the News section of the website
|
||||
or use Freshmeat: http://freshmeat.net/projects/werc/
|
||||
|
||||
Thanks
|
||||
------
|
||||
|
||||
Garbeam, Kris Maglione, sqweek, soul9, mycroftiv, maht, yiyus and many others
|
||||
for their ideas, patches, testing and other contributions.
|
||||
Garbeam, Kris Maglione, sqweek, soul9, mycroftiv, maht, yiyus, cinap_lenrek,
|
||||
khm and many others for their ideas, patches, testing and other contributions.
|
||||
|
||||
|
||||
License
|
||||
|
||||
@ -26,7 +26,7 @@ fn blagh_init {
|
||||
if(check_user $conf_blog_editors) {
|
||||
editor_mode=on
|
||||
if(~ $"post_arg_date '')
|
||||
post_date=`{/bin/date +%F|sed 's,-,/,g'}
|
||||
post_date=`{date -i|sed 's,-,/,g'} # date -i is 9front/9base only
|
||||
if not
|
||||
post_date=$post_arg_date
|
||||
ll_add handlers_bar_left echo '<a href="'$blagh_uri'new_post">Make a new post</a>'
|
||||
|
||||
@ -5,18 +5,18 @@
|
||||
fn statpost {
|
||||
f = $1
|
||||
|
||||
updated = `{/bin/date --rfc-3339'=seconds' -r $f |tr ' ' 'T'}
|
||||
updated = `{date -t `{mtime $f | awk '{print $1}'}} # date -t is 9front/9base only
|
||||
post_uri=$base_url^`{cleanname `{echo $f | sed -e 's!^'$sitedir'!!'}}^'/'
|
||||
title=`{read $f/index.md}
|
||||
# Not used: date=`{/bin/date -Rd `{basename $f |sed 's/(^[0-9\-]*).*/\1/; s/-[0-9]$//'}}
|
||||
# TODO: use mtime(1) and ls(1) instead of lunix's stat(1)
|
||||
stat=`{stat -c '%Y %U' $f}
|
||||
#stat=`{stat -c '%Y %U' $f}
|
||||
#mdate=`{/bin/date -Rd `{mtime $f|awk '{print $1}' }} # Not used because it is unreliable
|
||||
by=$stat(2)
|
||||
by=`{ls -m $f | sed 's/^\[//g; s/].*$//g' >[2]/dev/null}
|
||||
#ifs=() { summary=`{cat $f/index.md | crop_text 1024 ... | $formatter } }
|
||||
ifs=() { summary=`{cat $f/index.md | strip_title_from_md_file | ifs=$difs {$formatter} } }
|
||||
}
|
||||
updated = `{/bin/date --rfc-3339'=seconds' |sed 's/ /T/'}
|
||||
updated = `{date -t} # date -t is 9front/9base only
|
||||
%}
|
||||
|
||||
<feed xmlns="http://www.w3.org/2005/Atom"
|
||||
@ -28,10 +28,10 @@ updated = `{/bin/date --rfc-3339'=seconds' |sed 's/ /T/'}
|
||||
|
||||
<link rel="self" href="%($base_url^$req_path%)"/>
|
||||
<id>%($base_url^$req_path%)</id>
|
||||
<icon>/favicon.ico</icon>
|
||||
<icon><![CDATA[/favicon.ico]]></icon>
|
||||
|
||||
<title>%($siteTitle%)</title>
|
||||
<subtitle>%($siteSubTitle%)</subtitle>
|
||||
<title><![CDATA[%($siteTitle%)]]></title>
|
||||
<subtitle><![CDATA[%($siteSubTitle%)]]></subtitle>
|
||||
|
||||
% # <updated>2008-09-24T12:47:00-04:00</updated>
|
||||
<updated>%($updated%)</updated>
|
||||
@ -44,13 +44,13 @@ updated = `{/bin/date --rfc-3339'=seconds' |sed 's/ /T/'}
|
||||
% # Maybe we should be smarter, see: http://diveintomark.org/archives/2004/05/28/howto-atom-id, example: <id>tag:intertwingly.net,2004:2899</id>
|
||||
<id>%($post_uri%)</id>
|
||||
<link href="%($post_uri%)"/>
|
||||
<title>%($title%)</title>
|
||||
<title><![CDATA[%($title%)]]></title>
|
||||
% # <link rel="replies" href="2899.atom" thr:count="0"/>
|
||||
<author><name>%($by%)</name></author>
|
||||
<author><name><![CDATA[%($by%)]]></name></author>
|
||||
|
||||
|
||||
<content type="xhtml"><div xmlns="http://www.w3.org/1999/xhtml">
|
||||
%($summary%)
|
||||
<![CDATA[%($summary%)]]>
|
||||
</div></content>
|
||||
|
||||
<updated>%($updated%)</updated>
|
||||
@ -61,79 +61,3 @@ updated = `{/bin/date --rfc-3339'=seconds' |sed 's/ /T/'}
|
||||
</feed>
|
||||
|
||||
% exit
|
||||
|
||||
<feed xmlns="http://www.w3.org/2005/Atom"
|
||||
xmlns:thr="http://purl.org/syndication/thread/1.0">
|
||||
<link rel="self" href="http://intertwingly.net/blog/index.atom"/>
|
||||
<id>http://intertwingly.net/blog/index.atom</id>
|
||||
<icon>../favicon.ico</icon>
|
||||
|
||||
<title>Sam Ruby</title>
|
||||
<subtitle>It’s just data</subtitle>
|
||||
<author>
|
||||
<name>Sam Ruby</name>
|
||||
<email>rubys@intertwingly.net</email>
|
||||
<uri>/blog/</uri>
|
||||
</author>
|
||||
<updated>2008-09-24T12:47:00-04:00</updated>
|
||||
<link href="/blog/"/>
|
||||
<link rel="license" href="http://creativecommons.org/licenses/BSD/"/>
|
||||
|
||||
<entry>
|
||||
<id>tag:intertwingly.net,2004:2899</id>
|
||||
<link href="/blog/2008/09/11/RubyConf-2008"/>
|
||||
<link rel="replies" href="2899.atom" thr:count="0"/>
|
||||
<title>RubyConf 2008</title>
|
||||
<content type="xhtml"><div xmlns="http://www.w3.org/1999/xhtml">
|
||||
|
||||
<p>My <a href="http://www.rubyconf.org/talks/14">proposal</a> has been accepted for <a href="http://www.rubyconf.org/talks">RubyConf 2008</a>. Because of the presence of Ruby implementers, this is going to be a bit challenging as it will likely turn into two talks at once. One sharing experiences with fellow developers concerning things they may need to watch out for, and another with language designers about the impact of their changes. It also is likely to be true, as it was at <a href="http://intertwingly.net/blog/2008/07/24/Ruby-1-9-What-to-Expect">OSCON</a>, that there will be members of the audience who know way more about this subject than I do.</p>
|
||||
<p>I had originally requested a slot on Saturday. My current slot requires me to shave a day off of <a href="http://us.apachecon.com/c/acus2008/">ApacheCon</a>. I’ve again asked that the slot be changed, but even if it doesn’t move, I can manage this. At least we are only talking about a short hop from New Orleans to Orlando.</p>
|
||||
|
||||
</div></content>
|
||||
<updated>2008-09-11T06:51:36-04:00</updated>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<id>tag:intertwingly.net,2004:2898</id>
|
||||
<link href="/blog/2008/09/10/Small-Updates"/>
|
||||
<link rel="replies" href="2898.atom" thr:count="8" thr:updated="2008-09-10T15:31:05-04:00"/>
|
||||
<title>Small Updates</title>
|
||||
<summary type="xhtml"><div xmlns="http://www.w3.org/1999/xhtml">
|
||||
|
||||
<p><a href="http://hublog.hubmed.org/archives/001744.html">Alf Eaton</a>: <em>Aside: if you’re reading a Planet that contains HubLog, those posts will all jump to the top - sorry! (I wish Planets dealt better with small updates so I didn’t have to worry about it).</em></p>
|
||||
<p>I don’t know what publishing software you use, but I see you provide an Atom feed, and Planet 2.0 and Venus both implement <a href="http://www.atomenabled.org/developers/syndication/atom-format-spec.php#element.updated">atom:updated</a> as specified in RFC 4287.</p>
|
||||
|
||||
</div></summary>
|
||||
<content type="xhtml"><div xmlns="http://www.w3.org/1999/xhtml">
|
||||
|
||||
<p><a href="http://hublog.hubmed.org/archives/001744.html"><cite>Alf Eaton</cite></a>: <em>Aside: if you’re reading a Planet that contains HubLog, those posts will all jump to the top - sorry! (I wish Planets dealt better with small updates so I didn’t have to worry about it).</em></p>
|
||||
<p>I don’t know what publishing software you use, but I see you provide an Atom feed, and Planet 2.0 and Venus both implement <a href="http://www.atomenabled.org/developers/syndication/atom-format-spec.php#element.updated">atom:updated</a> as specified in RFC 4287.</p>
|
||||
<p>More specifically, if you have a minor update and leave the updated date alone, the posts will not jump to the top. The next release of WordPress, for example, will contain the necessary hooks for a <a href="http://blog.ciarang.com/posts/wp-minor-edit/">plugin</a> to provide a simple checkbox for indicating that the change constitutes a minor edit.</p>
|
||||
|
||||
</div></content>
|
||||
<updated>2008-09-10T10:18:47-04:00</updated>
|
||||
</entry>
|
||||
|
||||
<entry>
|
||||
<id>tag:intertwingly.net,2004:2897</id>
|
||||
<link href="/blog/2008/09/07/SVG-via-CSS"/>
|
||||
<link rel="replies" href="2897.atom" thr:count="10" thr:updated="2008-09-12T02:21:21-04:00"/>
|
||||
<title>SVG via CSS</title>
|
||||
<summary type="xhtml"><div xmlns="http://www.w3.org/1999/xhtml">
|
||||
|
||||
<p>Now that I have my weblog looking reasonably consistent between Gecko and WebKit based browsers, I’ve taken another look at Opera. Opera doesn’t have support for border-radius, but does have support for background images in SVG, which can be <a href="http://dev.opera.com/articles/view/new-development-techniques-using-opera-k/">used to provide the same effect</a>. My Nav Bar on <a href="http://rails.intertwingly.net/blog/">my test site</a> now employs this technique, and it requires two separate images: <a href="http://rails.intertwingly.net/stylesheets/rc-039-CCD.svg">039 on CCD</a> and <a href="http://rails.intertwingly.net/stylesheets/rc-CCD-FFF.svg">CCD on FFF</a>.</p>
|
||||
<p>Frankly, my first reaction to this was mixed. The pluses for SVG in CSS is that it doesn’t require either adjusting your markup or JavaScript to achieve these effects, a desirable characteristic that generally the <a href="http://www.cssjuice.com/25-rounded-corners-techniques-with-css/">other techniques</a> don’t share.</p>
|
||||
|
||||
</div></summary>
|
||||
|
||||
<content type="xhtml"><div xmlns="http://www.w3.org/1999/xhtml">
|
||||
|
||||
<p>Now that I have my weblog looking reasonably consistent between Gecko and WebKit based browsers, I’ve taken another look at Opera. Opera doesn’t have support for border-radius, but does have support for background images in SVG, which can be <a href="http://dev.opera.com/articles/view/new-development-techniques-using-opera-k/">used to provide the same effect</a>. My Nav Bar on <a href="http://rails.intertwingly.net/blog/">my test site</a> now employs this technique, and it requires two separate images: <a href="http://rails.intertwingly.net/stylesheets/rc-039-CCD.svg">039 on CCD</a> and <a href="http://rails.intertwingly.net/stylesheets/rc-CCD-FFF.svg">CCD on FFF</a>.</p>
|
||||
<p>Meanwhile, Robert O’Callahan has been exploring <a href="http://weblogs.mozillazine.org/roc/archives/2008/06/applying_svg_ef.html">other ways</a> to integrate these technologies.</p>
|
||||
|
||||
</div></content>
|
||||
<updated>2008-09-07T11:12:29-04:00</updated>
|
||||
</entry>
|
||||
|
||||
</feed>
|
||||
|
||||
|
||||
@ -6,13 +6,13 @@ fn statpost {
|
||||
|
||||
post_uri = `{echo $f | sed 's,^'$sitedir',,'}
|
||||
#title=`{basename $f | sed 's/^[0-9\-]*_(.*)\.md$/\1/; s/_/ /g' }
|
||||
title=`{read $f/index.md}
|
||||
date=`{/bin/date -Rd `{echo $f|sed 's,.*/([0-9][0-9][0-9][0-9]/[0-9][0-9]/[0-9][0-9])/.*,\1,'}}
|
||||
title=`{read $f/index.md}
|
||||
date=`{date `{mtime $f | awk '{print $1}'}} # rss 2.0 spec says pubDate should conform to rfc822
|
||||
# TODO: use mtime(1) and ls(1) instead of lunix's stat(1)
|
||||
stat=`{stat -c '%Y %U' $f}
|
||||
#stat=`{stat -c '%Y %U' $f}
|
||||
#mdate=`{/bin/date -Rd $stat(1)} # Not used because it is unreliable
|
||||
post_uri=$base_url^`{cleanname `{echo $f | sed -e 's!^'$sitedir'!!'}}^'/'
|
||||
by=$stat(2)
|
||||
by=`{ls -m $f | sed 's/^\[//g; s/].*$//g' >[2]/dev/null}
|
||||
ifs=() {summary=`{ cat $f/index.md |strip_title_from_md_file| ifs=$difs {$formatter | escape_html} }}
|
||||
}
|
||||
|
||||
@ -21,11 +21,11 @@ fn statpost {
|
||||
<rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom">
|
||||
<channel>
|
||||
<atom:link href="%($base_url^$req_path%)" rel="self" type="application/rss+xml" />
|
||||
<title>%($siteTitle%)</title>
|
||||
<title><![CDATA[%($siteTitle%)]]></title>
|
||||
<link>%($base_url^$req_path%)</link>
|
||||
<description>%($blogDesc%)</description>
|
||||
<description><![CDATA[%($blogDesc%)]]></description>
|
||||
<language>en-us</language>
|
||||
<generator>Tom Duff's rc, and Kris Maglione's clever hackery</generator>
|
||||
<generator><![CDATA[Tom Duff's rc, and Kris Maglione's clever hackery]]></generator>
|
||||
%{
|
||||
# <webMaster>uriel99+rss@gmail.com (Uriel)</webMaster>
|
||||
for(f in `{get_post_list $blagh_root$blagh_dirs}) {
|
||||
@ -39,12 +39,12 @@ fn statpost {
|
||||
#}
|
||||
%}
|
||||
<item>
|
||||
<title>%($title%)</title>
|
||||
<author>%($by%)@noreply.cat-v.org (%($by%))</author>
|
||||
<title><![CDATA[%($title%)]]></title>
|
||||
<author><![CDATA[%($by%)@noreply.cat-v.org (%($by%))]]></author>
|
||||
<link>%($post_uri%)</link>
|
||||
<guid isPermaLink="true">%($post_uri%)</guid>
|
||||
<pubDate>%($date%)</pubDate>
|
||||
<description>%($summary%)</description>
|
||||
<description><![CDATA[%($summary%)]]></description>
|
||||
</item>
|
||||
% }
|
||||
|
||||
|
||||
0
apps/bridge/app.rc
Normal file → Executable file
0
apps/bridge/app.rc
Normal file → Executable file
0
apps/bridge/comments_list.tpl
Normal file → Executable file
0
apps/bridge/comments_list.tpl
Normal file → Executable file
0
apps/bridge/foot.tpl
Normal file → Executable file
0
apps/bridge/foot.tpl
Normal file → Executable file
2
apps/dirdir/app.rc
Normal file → Executable file
2
apps/dirdir/app.rc
Normal file → Executable file
@ -7,7 +7,7 @@ fn conf_enable_wiki {
|
||||
fn dirdir_init {
|
||||
if(! ~ $#enable_wiki 0 && check_user $wiki_editors_groups) {
|
||||
lp=$local_path
|
||||
# werc.rc doesn't append /index when $local_path doesn't exit
|
||||
# werc.rc doesn't append /index when $local_path doesn't exist
|
||||
# maybe it should, but for now we can fix it up here.
|
||||
if(~ $lp */)
|
||||
lp=$lp^'index'
|
||||
|
||||
0
apps/dirdir/edit.tpl
Normal file → Executable file
0
apps/dirdir/edit.tpl
Normal file → Executable file
0
apps/dirdir/sidebar_controls.tpl
Normal file → Executable file
0
apps/dirdir/sidebar_controls.tpl
Normal file → Executable file
33
apps/paste/app.rc
Executable file
33
apps/paste/app.rc
Executable file
@ -0,0 +1,33 @@
|
||||
fn conf_enable_paste {
|
||||
paste_url=$conf_wd
|
||||
paste_dir=`{pwd}
|
||||
conf_enable_app paste
|
||||
}
|
||||
|
||||
fn paste_init {
|
||||
if (~ $REQUEST_METHOD POST && ~ $post_arg_url url && ~ $req_path $paste_url ) { # incoming paste
|
||||
now=`{ date -n }
|
||||
cksum=`{ echo $"post_arg_paste | sum | awk '{ print $1 }' }
|
||||
if (~ $cksum '1715a8eb' ) { # empty paste; discard
|
||||
post_redirect $base_url^$paste_url
|
||||
}
|
||||
if not { # save and redirect
|
||||
# TODO: stop using echo
|
||||
echo $"post_arg_paste > $paste_dir^/^$now^.^$cksum
|
||||
#cat<<EOF > $paste_dir^/^$now^.^$cksum
|
||||
#$"post_arg_paste
|
||||
#EOF
|
||||
#post_redirect $base_url^$paste_url^$now^.^$cksum
|
||||
echo 'Content-type: text/plain'; echo ''; exec echo $base_url^$paste_url^$now^.^$cksum
|
||||
}
|
||||
}
|
||||
if not { # show a paste if there is one
|
||||
if (test -r $werc_root/$local_path && ~ $QUERY_STRING raw ) {
|
||||
echo 'Content-type: text/plain'; echo ''; exec cat $werc_root/$local_path
|
||||
}
|
||||
}
|
||||
|
||||
# if we haven't done anything by now, we don't care. we just exit and let
|
||||
# werc handle it from here.
|
||||
}
|
||||
|
||||
6
apps/wman/app.rc
Normal file → Executable file
6
apps/wman/app.rc
Normal file → Executable file
@ -71,7 +71,6 @@ fn wman_get_section_desc {
|
||||
|
||||
fn wman_page_gen {
|
||||
#troff -manhtml $1| troff2html -t 'Plan 9 from User Space'
|
||||
# Using GNU col here to remove nroffs garbage (eg., from .ft B); p9p has no col(1) :(
|
||||
troff -N -m$wman_tmac $1 | wman_out_filter
|
||||
}
|
||||
|
||||
@ -80,10 +79,11 @@ fn wman_out_filter {
|
||||
}
|
||||
|
||||
fn wman_default_out_filter {
|
||||
# Using GNU col here to remove nroffs garbage (eg., from .ft B); p9p has no col(1) :(
|
||||
escape_html \
|
||||
| sed 's!([\.\-a-zA-Z0-9]+)\(('^`{echo $wman_cat_list|tr ' ' '|'}^')\)!<a href="../\2/\1">&</a>!g' \
|
||||
| awk '/^$/ {if(n != 1) print; n=1; next} /./ {n=0; print}'
|
||||
|
||||
| awk '/^$/ {if(n != 1) print; n=1; next} /./ {n=0; print}' \
|
||||
| col -x
|
||||
}
|
||||
|
||||
|
||||
|
||||
6
apps/wman/man_page.tpl
Normal file → Executable file
6
apps/wman/man_page.tpl
Normal file → Executable file
@ -1,7 +1,3 @@
|
||||
<pre>
|
||||
%{
|
||||
|
||||
wman_page_gen $wman_page_file
|
||||
|
||||
%}
|
||||
% wman_page_gen $wman_page_file
|
||||
</pre>
|
||||
|
||||
13
apps/wman/page_list.tpl
Normal file → Executable file
13
apps/wman/page_list.tpl
Normal file → Executable file
@ -1,11 +1,8 @@
|
||||
|
||||
% d=`{wman_get_section_desc $wman_cat}
|
||||
<h1>Manual pages - Section %($wman_cat%): %($"d%)</h1>
|
||||
|
||||
<h1>Manual pages - Section
|
||||
% echo $wman_cat': '$"d2
|
||||
</h1>
|
||||
<ul style="float:left">
|
||||
%{
|
||||
wman_ls_pages $wman_cat_path \
|
||||
| awk -F/ '{ print "<li><a href=\""$(NF)"\">"$(NF)"</a></li>" }
|
||||
NR%20 == 0 { print "</ul><ul style=\"float: left\">" }'
|
||||
%}
|
||||
% wman_ls_pages $wman_cat_path | awk -F/ '{ print "<li><a href=\""$(NF)"\">"$(NF)"</a></li>" } NR%20 == 0 { print "</ul><ul style=\"float: left\">" }'
|
||||
</ul>
|
||||
|
||||
|
||||
0
apps/wman/search.tpl
Normal file → Executable file
0
apps/wman/search.tpl
Normal file → Executable file
0
apps/wman/section_list.tpl
Normal file → Executable file
0
apps/wman/section_list.tpl
Normal file → Executable file
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
11
bin/corehandlers.rc
Normal file → Executable file
11
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
|
||||
|
||||
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)
|
||||
|
||||
26
bin/werc.rc
26
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
|
||||
}
|
||||
|
||||
0
etc/initrc
Normal file → Executable file
0
etc/initrc
Normal file → Executable file
0
pub/default_favicon.ico
Normal file → Executable file
0
pub/default_favicon.ico
Normal file → Executable file
|
Before Width: | Height: | Size: 2.1 KiB After Width: | Height: | Size: 2.1 KiB |
0
pub/style/imgs/sgl.png
Normal file → Executable file
0
pub/style/imgs/sgl.png
Normal file → Executable file
|
Before Width: | Height: | Size: 14 KiB After Width: | Height: | Size: 14 KiB |
0
pub/style/sinorca-screen-alt.css
Normal file → Executable file
0
pub/style/sinorca-screen-alt.css
Normal file → Executable file
0
pub/style/style.css
Normal file → Executable file
0
pub/style/style.css
Normal file → Executable file
0
pub/style/style_old.css
Normal file → Executable file
0
pub/style/style_old.css
Normal file → Executable file
Loading…
Reference in New Issue
Block a user