Reorg code in five source files: werc.rc, cgilib.rc, corehandlers.rc, wercconf.rc and werclib.rc.
This commit is contained in:
uriel
parent
92ac3004c9
commit
a1d12138bb
167
bin/cgilib.rc
167
bin/cgilib.rc
@ -1,11 +1,7 @@
|
|||||||
##############################################
|
# Useful CGI stuff
|
||||||
# Useful CGI functions
|
|
||||||
|
|
||||||
NEW_LINE='
|
|
||||||
'
|
|
||||||
|
|
||||||
fn dprint { echo $* >[1=2] }
|
fn dprint { echo $* >[1=2] }
|
||||||
fn dprintvars { { for(v in $*) { echo -n $v^'#'^$#$v^'=' $$v '; ' }; echo } >[1=2] }
|
fn dprintv { { for(v in $*) { echo -n $v^'#'^$#$v^'=' $$v '; ' }; echo } >[1=2] }
|
||||||
|
|
||||||
fn escape_html { sed 's/&/\&/g; s/</\</g; s/>/\>/g' $* }
|
fn escape_html { sed 's/&/\&/g; s/</\</g; s/>/\>/g' $* }
|
||||||
|
|
||||||
@ -25,13 +21,6 @@ Location: '^$t^'
|
|||||||
fn perm_redirect { http_redirect $1 '301 Moved Permanantly' }
|
fn perm_redirect { http_redirect $1 '301 Moved Permanantly' }
|
||||||
fn post_redirect { http_redirect $1 '303 See Other' }
|
fn post_redirect { http_redirect $1 '303 See Other' }
|
||||||
|
|
||||||
fn static_file {
|
|
||||||
echo 'Content-Type: '`{select_mime $1}
|
|
||||||
echo
|
|
||||||
cat $1
|
|
||||||
exit
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
# Note: should check if content type is application/x-www-form-urlencoded?
|
# Note: should check if content type is application/x-www-form-urlencoded?
|
||||||
fn load_post_args {
|
fn load_post_args {
|
||||||
@ -117,22 +106,6 @@ BEGIN {
|
|||||||
'
|
'
|
||||||
}
|
}
|
||||||
|
|
||||||
fn crop_text {
|
|
||||||
ellipsis='...'
|
|
||||||
if(~ $#* 2)
|
|
||||||
ellipsis=$2
|
|
||||||
|
|
||||||
awk -v max'='^$"1^' ' -v 'ellipsis='$ellipsis '
|
|
||||||
{
|
|
||||||
nc += 1 + length;
|
|
||||||
if(nc > max) {
|
|
||||||
print substr($0, 1, nc - max) ellipsis
|
|
||||||
exit
|
|
||||||
}
|
|
||||||
print
|
|
||||||
}'
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
# Cookies
|
# Cookies
|
||||||
fn set_cookie {
|
fn set_cookie {
|
||||||
@ -149,6 +122,14 @@ fn get_cookie {
|
|||||||
{ for(c in $co) echo $c } | sed -n 's/^ ?'$1'=//p'
|
{ for(c in $co) echo $c } | sed -n 's/^ ?'$1'=//p'
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
|
fn static_file {
|
||||||
|
echo 'Content-Type: '`{select_mime $1}
|
||||||
|
echo
|
||||||
|
cat $1
|
||||||
|
exit
|
||||||
|
}
|
||||||
|
|
||||||
fn select_mime {
|
fn select_mime {
|
||||||
m='text/plain'
|
m='text/plain'
|
||||||
if(~ $1 *.css)
|
if(~ $1 *.css)
|
||||||
@ -169,128 +150,30 @@ fn select_mime {
|
|||||||
##############################################
|
##############################################
|
||||||
# Generic rc programming helpers
|
# Generic rc programming helpers
|
||||||
|
|
||||||
|
# Manage nested lists
|
||||||
fn ll_add {
|
fn ll_add {
|
||||||
_l=$1^_^$#$1
|
_l=$1^_^$#$1
|
||||||
$_l=$*(2-)
|
$_l=$*(2-)
|
||||||
$1=( $$1 $_l )
|
$1=( $$1 $_l )
|
||||||
}
|
}
|
||||||
|
|
||||||
|
NEW_LINE='
|
||||||
|
'
|
||||||
|
|
||||||
##############################################
|
fn crop_text {
|
||||||
# Werc-specific functions
|
ellipsis='...'
|
||||||
|
if(~ $#* 2)
|
||||||
|
ellipsis=$2
|
||||||
|
|
||||||
fn get_lib_file {
|
awk -v max'='^$"1^' ' -v 'ellipsis='$ellipsis '
|
||||||
if(! ~ $#sitedir 0 && test -f $sitedir/_werc/lib/$1)
|
{
|
||||||
echo -n $sitedir/_werc/lib/$1
|
nc += 1 + length;
|
||||||
if not if(! ~ $#masterSite 0 && test -f $sitesdir/$masterSite/_werc/lib/$1)
|
if(nc > max) {
|
||||||
echo -n $sitesdir/$masterSite/_werc/lib/$1
|
print substr($0, 1, nc - max) ellipsis
|
||||||
if not if(test -f lib/$1)
|
exit
|
||||||
echo -n lib/$1
|
|
||||||
if not if(~ $#* 2)
|
|
||||||
echo -n $2
|
|
||||||
if not
|
|
||||||
status='Can''t find lib file: '$1
|
|
||||||
}
|
}
|
||||||
|
print
|
||||||
fn template { awk -f bin/template.awk $* | rc $rcargs }
|
}'
|
||||||
|
|
||||||
# Auth code
|
|
||||||
allowed_user_chars='[a-zA-Z0-9_]'
|
|
||||||
# Cookie format: WERC_USER: name:timestamp:hash(name.timestamp.password)
|
|
||||||
# login_user can't be used from a template because it sets a cookie
|
|
||||||
fn login_user {
|
|
||||||
# Note: we set the cookie even if it is already there.
|
|
||||||
if(get_user $*)
|
|
||||||
set_cookie werc_user $"logged_user^':0:'^$"logged_password
|
|
||||||
}
|
|
||||||
|
|
||||||
# Check login status, if called with group arg we check membership too
|
|
||||||
fn check_user {
|
|
||||||
get_user
|
|
||||||
_status=$status
|
|
||||||
if(! ~ $"_status '')
|
|
||||||
_status=(Not logged in: $"_status)
|
|
||||||
if not if(! ~ $#* 0 && ! grep -s '^'^$logged_user^'$' etc/groups/$* etc/groups/admin) {
|
|
||||||
dprint NOT IN GROUP
|
|
||||||
_status=(User $logged_user not in groups $*)
|
|
||||||
}
|
|
||||||
status=$_status
|
|
||||||
}
|
|
||||||
|
|
||||||
# If not logged in, try to get user login info from POST or from cookie
|
|
||||||
fn get_user {
|
|
||||||
if(~ $#logged_user 0) {
|
|
||||||
if(~ $#* 2) {
|
|
||||||
user_name=$1
|
|
||||||
user_password=$2
|
|
||||||
}
|
|
||||||
if not if(~ $REQUEST_METHOD POST)
|
|
||||||
get_post_args user_name user_password
|
|
||||||
|
|
||||||
if(~ $#user_name 0) {
|
|
||||||
ifs=':' { cu=`{get_cookie werc_user|tr -d $NEW_LINE} }
|
|
||||||
if(! ~ $#cu 0) {
|
|
||||||
user_name=$cu(1)
|
|
||||||
user_password=$cu(3)
|
|
||||||
}
|
|
||||||
}
|
|
||||||
auth_user $user_name $user_password
|
|
||||||
}
|
|
||||||
if not
|
|
||||||
status=()
|
|
||||||
}
|
|
||||||
|
|
||||||
# Check if user_name and user_password represent a valid user account
|
|
||||||
# If valid, 'log in' by setting logged_user
|
|
||||||
fn auth_user {
|
|
||||||
user_name=$1
|
|
||||||
user_password=$2
|
|
||||||
|
|
||||||
pfile='etc/users/'^$"user_name^'/password'
|
|
||||||
if(~ $#user_name 0 || ~ $#user_password 0)
|
|
||||||
status=('Auth: missing user name or pass: '^$"user_name^' / '^$"user_password)
|
|
||||||
if not if(! test -f $pfile)
|
|
||||||
status=('Auth: cant find '^$pfile)
|
|
||||||
if not if(! ~ $user_password `{cat $pfile})
|
|
||||||
status=('Auth: Pass '$user_password' doesnt match '^`{cat $pfile})
|
|
||||||
if not {
|
|
||||||
logged_user=$user_name
|
|
||||||
logged_password=$user_password
|
|
||||||
dprint Auth: success
|
|
||||||
status=()
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
fn user_controls {
|
|
||||||
echo User: $"logged_user
|
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
# .md '(meta-)data' extract
|
|
||||||
fn get_md_file_attr {
|
|
||||||
sed -n '/^\* '$2': /p; /^\* '$2': /q; /^$/q' < $1
|
|
||||||
}
|
|
||||||
|
|
||||||
#app_blog_methods = ( _post index.rss )
|
|
||||||
#fn app_blog__post {
|
|
||||||
# echo
|
|
||||||
#}
|
|
||||||
#
|
|
||||||
#app_blog___default {
|
|
||||||
# if (~ $blog)
|
|
||||||
# call_app blogpost
|
|
||||||
#}
|
|
||||||
#
|
|
||||||
## --
|
|
||||||
#app_blogpost_methods = ( comment _edit )
|
|
||||||
#
|
|
||||||
#fn app_blogpost_comment {
|
|
||||||
# call_app comments
|
|
||||||
#}
|
|
||||||
#
|
|
||||||
## --
|
|
||||||
#app_comments_methods = ( _post _edit )
|
|
||||||
#
|
|
||||||
#fn app_comments___default {
|
|
||||||
#
|
|
||||||
#}
|
|
||||||
|
|||||||
115
bin/corehandlers.rc
Normal file
115
bin/corehandlers.rc
Normal file
@ -0,0 +1,115 @@
|
|||||||
|
# Werc builtin handlers
|
||||||
|
|
||||||
|
fn nav_tree {
|
||||||
|
if(! ~ $#sideBarNavTitle 0)
|
||||||
|
echo '<p class="sideBarTitle">'$"sideBarNavTitle':</p>'
|
||||||
|
# Ignore stderr, last path element might be a file that doesn't exist (eg., foo for foo.md)
|
||||||
|
# /./ to deal with p9p's ls failure to follow dir symlinks otherwise
|
||||||
|
ls -F $sitedir/./$req_paths_list >[2]/dev/null \
|
||||||
|
| sed 's!^'$sitedir'!!; '$dirfilter'/\/[^_.\/][^\/]*(\.(md|txt|html)|\/)$/!d; '$dirclean \
|
||||||
|
| sort -u | awk -F/ '
|
||||||
|
function p(x, y, s) { for(i=0; i < x-y; i+=1) print s }
|
||||||
|
{
|
||||||
|
d = ""
|
||||||
|
if(match($0, "/$"))
|
||||||
|
d = "/"
|
||||||
|
sub("/$", "") # Strip trailing / for dirs so NF is consistent
|
||||||
|
|
||||||
|
p(NF, lNF, "<ul class=\"side-bar\">")
|
||||||
|
p(lNF, NF, "</ul>")
|
||||||
|
lNF = NF
|
||||||
|
|
||||||
|
bname = $NF d
|
||||||
|
path = $0 d
|
||||||
|
gsub("_", " ", bname)
|
||||||
|
|
||||||
|
if(index(ENVIRON["req_path"] "/", path) == 1)
|
||||||
|
print "<li><a href=\"" path "\" class=\"thisPage\">»<i> " bname "</i></a>"
|
||||||
|
else
|
||||||
|
print "<li><a href=\"" path "\">› " bname "</a></li>"
|
||||||
|
}
|
||||||
|
END { p(lNF, 0, "</ul>") }'
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
fn md_handler { $formatter < $1 }
|
||||||
|
|
||||||
|
fn tpl_handler { template $* }
|
||||||
|
|
||||||
|
fn html_handler {
|
||||||
|
# body states: 0 = no <body> found, 2 = after <body>, 1 = after <body></body>, -1 = after </body>
|
||||||
|
awk 'gsub(".*<[Bb][Oo][Dd][Yy][^>]*>", "") > 0 {body=2}
|
||||||
|
gsub("</ *[Bb][Oo][Dd][Yy][^>]*>.*", "") > 0 {print; body=body-1}
|
||||||
|
body==2 {print}
|
||||||
|
body==0 {buf=buf "\n" $0}
|
||||||
|
END {if(body<=0) {print buf}}' < $1
|
||||||
|
}
|
||||||
|
|
||||||
|
fn txt_handler {
|
||||||
|
# Note: Words are not broken, even if they are way beyond 82 chars long
|
||||||
|
echo '<pre>'
|
||||||
|
sed 's/</\</g; s/>/\>/g' < $1 | fmt -l 82 -j
|
||||||
|
echo '</pre>'
|
||||||
|
}
|
||||||
|
|
||||||
|
fn dir_listing_handler {
|
||||||
|
d=`{basename -d $1}
|
||||||
|
if(~ $#d 0)
|
||||||
|
d='/'
|
||||||
|
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' s,.*/([^/]+/?)$,<li><a href="\1">\1</a></li>,'
|
||||||
|
echo '</ul>'
|
||||||
|
}
|
||||||
|
|
||||||
|
fn notices_handler {
|
||||||
|
for(type in notify_errors notify_notes notify_success)
|
||||||
|
for(n in $$type)
|
||||||
|
echo '<div class="'$type'"><b>'$"n'</b></div>'
|
||||||
|
}
|
||||||
|
|
||||||
|
fn setup_handlers {
|
||||||
|
|
||||||
|
if(test -f $local_path.md)
|
||||||
|
handler_body_main=(md_handler $local_path.md)
|
||||||
|
if not if(test -f $local_path.tpl)
|
||||||
|
handler_body_main=(tpl_handler $local_path.tpl)
|
||||||
|
if not if(test -f $local_path.html)
|
||||||
|
handler_body_main=(html_handler $local_path.html)
|
||||||
|
# Global tpl (eg sitemap.tpl), should take precedence over txt handler!
|
||||||
|
if not if(test -f lib^$req_path^.tpl)
|
||||||
|
handler_body_main=(tpl_handler lib^$req_path^.tpl)
|
||||||
|
if not if(test -f $local_path.txt)
|
||||||
|
handler_body_main=(txt_handler $local_path.txt)
|
||||||
|
|
||||||
|
# XXX Should check that $enabled_apps exist in $werc_apps?
|
||||||
|
# XXX Should split init of apps that provide main handler (eg., blog) and apps that don't (eg., comments)?
|
||||||
|
if(! ~ $#enabled_apps 0)
|
||||||
|
for(a in $enabled_apps)
|
||||||
|
$a^'_init'
|
||||||
|
|
||||||
|
if(! ~ $#handler_body_main 0)
|
||||||
|
{ } # We are done
|
||||||
|
# Dir listing
|
||||||
|
if not if(~ $local_path */index)
|
||||||
|
handler_body_main=(dir_listing_handler $req_path)
|
||||||
|
# Canonize explicit .html urls, the web server might handle this first!
|
||||||
|
if not if(~ $local_path *.html && test -f $local_path)
|
||||||
|
perm_redirect `{ echo $req_path|sed 's/.html$//' }
|
||||||
|
# Fallback static file handler
|
||||||
|
if not if(test -f $local_path)
|
||||||
|
static_file $local_path
|
||||||
|
if not if(~ $req_path /pub/* && test -f .$req_path)
|
||||||
|
static_file .$req_path
|
||||||
|
# File not found
|
||||||
|
if not {
|
||||||
|
handler_body_main=(tpl_handler `{get_lib_file 404.tpl})
|
||||||
|
echo 'Status: 404 Not Found'
|
||||||
|
dprint 'NOT FOUND: '$SERVER_NAME^$"REQUEST_URI^' - '^$"HTTP_REFERER^' - '^$"HTTP_USER_AGENT
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
fn run_handlers { for(h in $*) run_handler $$h }
|
||||||
|
fn run_handler { $*(1) $*(2-) }
|
||||||
|
|
||||||
|
|
||||||
137
bin/werc.rc
137
bin/werc.rc
@ -1,5 +1,8 @@
|
|||||||
#!/usr/local/plan9/bin/rc
|
#!/usr/local/plan9/bin/rc
|
||||||
. ./cgilib.rc
|
. ./cgilib.rc
|
||||||
|
. ./werclib.rc
|
||||||
|
. ./wercconf.rc
|
||||||
|
. ./corehandlers.rc
|
||||||
cd ..
|
cd ..
|
||||||
|
|
||||||
forbidden_uri_chars='[^a-zA-Z0-9_+\-\/\.]'
|
forbidden_uri_chars='[^a-zA-Z0-9_+\-\/\.]'
|
||||||
@ -9,132 +12,6 @@ forbidden_uri_chars='[^a-zA-Z0-9_+\-\/\.]'
|
|||||||
dirfilter='s/\*$//; s,/+\./+,/,g; s,^\./,,; /\/[._][^\/]/d; /'$forbidden_uri_chars'/d; /^\/(robots|sitemap)\.txt$|\/index\.(md|html|txt|tpl)$/d; /_werc\/?$/d; '
|
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)$//; '
|
dirclean=' s/\.(md|html|txt)$//; '
|
||||||
|
|
||||||
# To be used from config files
|
|
||||||
fn conf_perm_redirect {
|
|
||||||
if(~ $#* 1)
|
|
||||||
perm_redirect $1
|
|
||||||
if not
|
|
||||||
perm_redir_patterns=($perm_redir_patterns $1 $2)
|
|
||||||
}
|
|
||||||
|
|
||||||
fn conf_hide_paths {
|
|
||||||
for(i in $*)
|
|
||||||
dirfilter=$dirfilter^'/^'$i'$/d; '
|
|
||||||
}
|
|
||||||
|
|
||||||
# Standard handlers
|
|
||||||
fn nav_tree {
|
|
||||||
if(! ~ $#sideBarNavTitle 0)
|
|
||||||
echo '<p class="sideBarTitle">'$"sideBarNavTitle':</p>'
|
|
||||||
# Ignore stderr, last path element might be a file that doesn't exist (eg., foo for foo.md)
|
|
||||||
# /./ to deal with p9p's ls failure to follow dir symlinks otherwise
|
|
||||||
ls -F $sitedir/./$req_paths_list >[2]/dev/null \
|
|
||||||
| sed 's!^'$sitedir'!!; '$dirfilter'/\/[^_.\/][^\/]*(\.(md|txt|html)|\/)$/!d; '$dirclean \
|
|
||||||
| sort -u | awk -F/ '
|
|
||||||
function p(x, y, s) { for(i=0; i < x-y; i+=1) print s }
|
|
||||||
{
|
|
||||||
d = ""
|
|
||||||
if(match($0, "/$"))
|
|
||||||
d = "/"
|
|
||||||
sub("/$", "") # Strip trailing / for dirs so NF is consistent
|
|
||||||
|
|
||||||
p(NF, lNF, "<ul class=\"side-bar\">")
|
|
||||||
p(lNF, NF, "</ul>")
|
|
||||||
lNF = NF
|
|
||||||
|
|
||||||
bname = $NF d
|
|
||||||
path = $0 d
|
|
||||||
gsub("_", " ", bname)
|
|
||||||
|
|
||||||
if(index(ENVIRON["req_path"] "/", path) == 1)
|
|
||||||
print "<li><a href=\"" path "\" class=\"thisPage\">»<i> " bname "</i></a>"
|
|
||||||
else
|
|
||||||
print "<li><a href=\"" path "\">› " bname "</a></li>"
|
|
||||||
}
|
|
||||||
END { p(lNF, 0, "</ul>") }'
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
fn md_handler { $formatter < $1 }
|
|
||||||
|
|
||||||
fn tpl_handler { template $* }
|
|
||||||
|
|
||||||
fn html_handler {
|
|
||||||
# body states: 0 = no <body> found, 2 = after <body>, 1 = after <body></body>, -1 = after </body>
|
|
||||||
awk 'gsub(".*<[Bb][Oo][Dd][Yy][^>]*>", "") > 0 {body=2}
|
|
||||||
gsub("</ *[Bb][Oo][Dd][Yy][^>]*>.*", "") > 0 {print; body=body-1}
|
|
||||||
body==2 {print}
|
|
||||||
body==0 {buf=buf "\n" $0}
|
|
||||||
END {if(body<=0) {print buf}}' < $1
|
|
||||||
}
|
|
||||||
|
|
||||||
fn txt_handler {
|
|
||||||
# Note: Words are not broken, even if they are way beyond 82 chars long
|
|
||||||
echo '<pre>'
|
|
||||||
sed 's/</\</g; s/>/\>/g' < $1 | fmt -l 82 -j
|
|
||||||
echo '</pre>'
|
|
||||||
}
|
|
||||||
|
|
||||||
fn dir_listing_handler {
|
|
||||||
d=`{basename -d $1}
|
|
||||||
if(~ $#d 0)
|
|
||||||
d='/'
|
|
||||||
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' s,.*/([^/]+/?)$,<li><a href="\1">\1</a></li>,'
|
|
||||||
echo '</ul>'
|
|
||||||
}
|
|
||||||
|
|
||||||
fn notices_handler {
|
|
||||||
for(type in notify_errors notify_notes notify_success)
|
|
||||||
for(n in $$type)
|
|
||||||
echo '<div class="'$type'"><b>'$"n'</b></div>'
|
|
||||||
}
|
|
||||||
|
|
||||||
fn setup_handlers {
|
|
||||||
|
|
||||||
if(test -f $local_path.md)
|
|
||||||
handler_body_main=(md_handler $local_path.md)
|
|
||||||
if not if(test -f $local_path.tpl)
|
|
||||||
handler_body_main=(tpl_handler $local_path.tpl)
|
|
||||||
if not if(test -f $local_path.html)
|
|
||||||
handler_body_main=(html_handler $local_path.html)
|
|
||||||
# Global tpl (eg sitemap.tpl), should take precedence over txt handler!
|
|
||||||
if not if(test -f lib^$req_path^.tpl)
|
|
||||||
handler_body_main=(tpl_handler lib^$req_path^.tpl)
|
|
||||||
if not if(test -f $local_path.txt)
|
|
||||||
handler_body_main=(txt_handler $local_path.txt)
|
|
||||||
|
|
||||||
# XXX Should check that $enabled_apps exist in $werc_apps?
|
|
||||||
# XXX Should split init of apps that provide main handler (eg., blog) and apps that don't (eg., comments)?
|
|
||||||
if(! ~ $#enabled_apps 0)
|
|
||||||
for(a in $enabled_apps)
|
|
||||||
$a^'_init'
|
|
||||||
|
|
||||||
if(! ~ $#handler_body_main 0)
|
|
||||||
{ } # We are done
|
|
||||||
# Dir listing
|
|
||||||
if not if(~ $local_path */index)
|
|
||||||
handler_body_main=(dir_listing_handler $req_path)
|
|
||||||
# Canonize explicit .html urls, the web server might handle this first!
|
|
||||||
if not if(~ $local_path *.html && test -f $local_path)
|
|
||||||
perm_redirect `{ echo $req_path|sed 's/.html$//' }
|
|
||||||
# Fallback static file handler
|
|
||||||
if not if(test -f $local_path)
|
|
||||||
static_file $local_path
|
|
||||||
if not if(~ $req_path /pub/* && test -f .$req_path)
|
|
||||||
static_file .$req_path
|
|
||||||
# File not found
|
|
||||||
if not {
|
|
||||||
handler_body_main=(tpl_handler `{get_lib_file 404.tpl})
|
|
||||||
echo 'Status: 404 Not Found'
|
|
||||||
dprint 'NOT FOUND: '$SERVER_NAME^$"REQUEST_URI^' - '^$"HTTP_REFERER^' - '^$"HTTP_USER_AGENT
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
fn run_handlers { for(h in $*) run_handler $$h }
|
|
||||||
fn run_handler { $*(1) $*(2-) }
|
|
||||||
|
|
||||||
# Careful, the proper p9p path might not be set until initrc.local is sourced
|
# Careful, the proper p9p path might not be set until initrc.local is sourced
|
||||||
path=(. $PLAN9/bin ./bin/ /bin/ /usr/bin)
|
path=(. $PLAN9/bin ./bin/ /bin/ /usr/bin)
|
||||||
|
|
||||||
@ -144,8 +21,6 @@ ll_add handlers_bar_left nav_tree
|
|||||||
werc_apps=( apps/* )
|
werc_apps=( apps/* )
|
||||||
werc_root=`{pwd}
|
werc_root=`{pwd}
|
||||||
sitesdir=sites
|
sitesdir=sites
|
||||||
for(i in siteTitle siteSubTitle pageTitle extraHeaders)
|
|
||||||
$i = ''
|
|
||||||
|
|
||||||
. ./etc/initrc
|
. ./etc/initrc
|
||||||
|
|
||||||
@ -220,8 +95,8 @@ fn werc_exec_request {
|
|||||||
}
|
}
|
||||||
|
|
||||||
# Set Page title
|
# Set Page title
|
||||||
if(~ $pageTitle '')
|
if(~ $"pageTitle '')
|
||||||
pageTitle=$siteTitle' '$siteSubTitle
|
pageTitle=$"siteTitle' '$"siteSubTitle
|
||||||
if not
|
if not
|
||||||
pageTitle=$"pageTitle' | '$"siteTitle' '$"siteSubTitle
|
pageTitle=$"pageTitle' | '$"siteTitle' '$"siteSubTitle
|
||||||
|
|
||||||
@ -230,7 +105,7 @@ fn werc_exec_request {
|
|||||||
if(! ~ $#debug 0)
|
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
|
||||||
|
|
||||||
template $headers $master_template | awk_buffer
|
template $headers $master_template #| awk_buffer
|
||||||
echo $res_tail
|
echo $res_tail
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|||||||
12
bin/wercconf.rc
Normal file
12
bin/wercconf.rc
Normal file
@ -0,0 +1,12 @@
|
|||||||
|
# To be used from config files
|
||||||
|
fn conf_perm_redirect {
|
||||||
|
if(~ $#* 1)
|
||||||
|
perm_redirect $1
|
||||||
|
if not
|
||||||
|
perm_redir_patterns=($perm_redir_patterns $1 $2)
|
||||||
|
}
|
||||||
|
|
||||||
|
fn conf_hide_paths {
|
||||||
|
for(i in $*)
|
||||||
|
dirfilter=$dirfilter^'/^'$i'$/d; '
|
||||||
|
}
|
||||||
117
bin/werclib.rc
Normal file
117
bin/werclib.rc
Normal file
@ -0,0 +1,117 @@
|
|||||||
|
fn get_lib_file {
|
||||||
|
if(! ~ $#sitedir 0 && test -f $sitedir/_werc/lib/$1)
|
||||||
|
echo -n $sitedir/_werc/lib/$1
|
||||||
|
if not if(! ~ $#masterSite 0 && test -f $sitesdir/$masterSite/_werc/lib/$1)
|
||||||
|
echo -n $sitesdir/$masterSite/_werc/lib/$1
|
||||||
|
if not if(test -f lib/$1)
|
||||||
|
echo -n lib/$1
|
||||||
|
if not if(~ $#* 2)
|
||||||
|
echo -n $2
|
||||||
|
if not
|
||||||
|
status='Can''t find lib file: '$1
|
||||||
|
}
|
||||||
|
|
||||||
|
fn template { awk -f bin/template.awk $* | rc $rcargs }
|
||||||
|
|
||||||
|
# Auth code
|
||||||
|
allowed_user_chars='[a-zA-Z0-9_]'
|
||||||
|
# Cookie format: WERC_USER: name:timestamp:hash(name.timestamp.password)
|
||||||
|
# login_user can't be used from a template because it sets a cookie
|
||||||
|
fn login_user {
|
||||||
|
# Note: we set the cookie even if it is already there.
|
||||||
|
if(get_user $*)
|
||||||
|
set_cookie werc_user $"logged_user^':0:'^$"logged_password
|
||||||
|
}
|
||||||
|
|
||||||
|
# Check login status, if called with group arg we check membership too
|
||||||
|
fn check_user {
|
||||||
|
get_user
|
||||||
|
_status=$status
|
||||||
|
if(! ~ $"_status '')
|
||||||
|
_status=(Not logged in: $"_status)
|
||||||
|
if not if(! ~ $#* 0 && ! grep -s '^'^$logged_user^'$' etc/groups/$* etc/groups/admin) {
|
||||||
|
dprint NOT IN GROUP
|
||||||
|
_status=(User $logged_user not in groups $*)
|
||||||
|
}
|
||||||
|
status=$_status
|
||||||
|
}
|
||||||
|
|
||||||
|
# If not logged in, try to get user login info from POST or from cookie
|
||||||
|
fn get_user {
|
||||||
|
if(~ $#logged_user 0) {
|
||||||
|
if(~ $#* 2) {
|
||||||
|
user_name=$1
|
||||||
|
user_password=$2
|
||||||
|
}
|
||||||
|
if not if(~ $REQUEST_METHOD POST)
|
||||||
|
get_post_args user_name user_password
|
||||||
|
|
||||||
|
if(~ $#user_name 0) {
|
||||||
|
ifs=':' { cu=`{get_cookie werc_user|tr -d $NEW_LINE} }
|
||||||
|
if(! ~ $#cu 0) {
|
||||||
|
user_name=$cu(1)
|
||||||
|
user_password=$cu(3)
|
||||||
|
}
|
||||||
|
}
|
||||||
|
auth_user $user_name $user_password
|
||||||
|
}
|
||||||
|
if not
|
||||||
|
status=()
|
||||||
|
}
|
||||||
|
|
||||||
|
# Check if user_name and user_password represent a valid user account
|
||||||
|
# If valid, 'log in' by setting logged_user
|
||||||
|
fn auth_user {
|
||||||
|
user_name=$1
|
||||||
|
user_password=$2
|
||||||
|
|
||||||
|
pfile='etc/users/'^$"user_name^'/password'
|
||||||
|
if(~ $#user_name 0 || ~ $#user_password 0)
|
||||||
|
status=('Auth: missing user name or pass: '^$"user_name^' / '^$"user_password)
|
||||||
|
if not if(! test -f $pfile)
|
||||||
|
status=('Auth: cant find '^$pfile)
|
||||||
|
if not if(! ~ $user_password `{cat $pfile})
|
||||||
|
status=('Auth: Pass '$user_password' doesnt match '^`{cat $pfile})
|
||||||
|
if not {
|
||||||
|
logged_user=$user_name
|
||||||
|
logged_password=$user_password
|
||||||
|
dprint Auth: success
|
||||||
|
status=()
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
fn user_controls {
|
||||||
|
echo User: $"logged_user
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
# .md '(meta-)data' extract
|
||||||
|
fn get_md_file_attr {
|
||||||
|
sed -n '/^\* '$2': /p; /^\* '$2': /q; /^$/q' < $1
|
||||||
|
}
|
||||||
|
|
||||||
|
##########################################################################
|
||||||
|
##########################################################################
|
||||||
|
#app_blog_methods = ( _post index.rss )
|
||||||
|
#fn app_blog__post {
|
||||||
|
# echo
|
||||||
|
#}
|
||||||
|
#
|
||||||
|
#app_blog___default {
|
||||||
|
# if (~ $blog)
|
||||||
|
# call_app blogpost
|
||||||
|
#}
|
||||||
|
#
|
||||||
|
## --
|
||||||
|
#app_blogpost_methods = ( comment _edit )
|
||||||
|
#
|
||||||
|
#fn app_blogpost_comment {
|
||||||
|
# call_app comments
|
||||||
|
#}
|
||||||
|
#
|
||||||
|
## --
|
||||||
|
#app_comments_methods = ( _post _edit )
|
||||||
|
#
|
||||||
|
#fn app_comments___default {
|
||||||
|
#
|
||||||
|
#}
|
||||||
Loading…
Reference in New Issue
Block a user