114 lines
3.1 KiB
Bash
Executable File
114 lines
3.1 KiB
Bash
Executable File
#!/usr/local/plan9/bin/rc
|
|
. ./cgilib.rc
|
|
. ./werclib.rc
|
|
. ./wercconf.rc
|
|
. ./corehandlers.rc
|
|
. ./fltr_cache.rc
|
|
cd ..
|
|
|
|
forbidden_uri_chars='[^a-zA-Z0-9_+\-\/\.]'
|
|
|
|
# Expected input: ls -F style, $sitedir/path/to/files/
|
|
# <ls -F+x><symlink hack><Useless?><hiden files >
|
|
dirfilter='s/\*$//; s,/+\./+,/,g; s,^\./,,; /\/[._][^\/]/d; /'$forbidden_uri_chars'/d; /^\/(robots|sitemap)\.txt$|\/index\.(md|html|txt|tpl)$/d; /_werc\/?$/d; '
|
|
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)
|
|
|
|
headers=lib/headers.tpl
|
|
res_tail='</body></html>'
|
|
ll_add handlers_bar_left nav_tree
|
|
werc_apps=( apps/* )
|
|
werc_root=`{pwd}
|
|
sitesdir=sites
|
|
|
|
. ./etc/initrc
|
|
|
|
if(test -f etc/initrc.local)
|
|
. ./etc/initrc.local
|
|
|
|
for(a in $werc_apps)
|
|
. ./$a/app.rc
|
|
|
|
fn werc_exec_request {
|
|
site=$SERVER_NAME
|
|
base_url=http://$site
|
|
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
|
|
req_path=`{echo -n $REQUEST_URI | sed 's/\?.*//; s!//+!/!g; s/'^$forbidden_uri_chars^'//g; s/\.\.*/./g; 1q'}
|
|
local_path=$sitedir$req_path
|
|
ifs='/' { args=`{echo -n $req_path} }
|
|
|
|
# Preload post args for templates where cgi's stdin is not accessible
|
|
if(~ $REQUEST_METHOD POST) {
|
|
load_post_args
|
|
login_user
|
|
}
|
|
|
|
if(~ $req_path */index)
|
|
perm_redirect `{echo $req_path | sed 's,/index$,/,'}
|
|
|
|
if(~ $local_path */) {
|
|
if(test -d $local_path)
|
|
local_path=$local_path^'index'
|
|
if not # XXX: This redir might step on apps with synthetic dirs.
|
|
perm_redirect `{echo $req_path|sed 's,/+$,,'}
|
|
}
|
|
if not if(test -d $local_path)
|
|
perm_redirect $base_url^$req_path^'/'
|
|
|
|
if(! ~ $#args 0)
|
|
pageTitle=`{ echo $args|sed -e 's/ / - /g' -e 's/_/ /g' }
|
|
|
|
cd $sitedir
|
|
req_paths_list='/' # Note: req_paths_list doesn't include 'stnythetic' dirs.
|
|
conf_wd='/' # Used in config files to know where we are in the document tree.
|
|
if(test -f _werc/config)
|
|
. _werc/config
|
|
for(i in $args) {
|
|
conf_wd=$conf_wd^$i
|
|
req_paths_list=($req_paths_list $conf_wd)
|
|
if(test -d $i) {
|
|
conf_wd=$conf_wd'/'
|
|
cd $i
|
|
if(test -f _werc/config)
|
|
. _werc/config
|
|
}
|
|
}
|
|
cd $werc_root
|
|
|
|
f=();t=()
|
|
for(i in $perm_redir_patterns) {
|
|
if(~ $#f 0)
|
|
f=$i
|
|
if not {
|
|
t=$i
|
|
from=$base_url^$req_path
|
|
to=`{ echo $from | sed 's!'$f'!'$t'!' }
|
|
if(! ~ $to $from)
|
|
perm_redirect $to
|
|
f=()
|
|
}
|
|
}
|
|
|
|
# Set Page title
|
|
if(~ $"pageTitle '')
|
|
pageTitle=$"siteTitle' '$"siteSubTitle
|
|
if not
|
|
pageTitle=$"pageTitle' | '$"siteTitle' '$"siteSubTitle
|
|
|
|
setup_handlers
|
|
|
|
if(! ~ $#debug 0)
|
|
dprint $"SERVER_NAME^$"REQUEST_URI - $"HTTP_USER_AGENT - $"REQUEST_METHOD - $"handler_body_main - $"master_template
|
|
|
|
template $headers $master_template | awk_buffer
|
|
echo $res_tail
|
|
}
|
|
|
|
werc_exec_request
|