#!/usr/local/plan9/bin/rc . ./cgilib.rc cd .. forbidden_uri_chars='[^a-zA-Z0-9_+\-\/\.]' response_format=html fn get_lib_file { wantedfile = $1 if (test -f $sitedir/_werc/lib/$wantedfile) echo -n $sitedir/_werc/lib/$wantedfile if not if(! ~ $masterSite 0 && test -f sites/$masterSite/_werc/lib/$wantedfile) echo -n sites/$masterSite/_werc/lib/$wantedfile if not if (test -f lib/$wantedfile) echo -n lib/$wantedfile # DEPRECATED if not if (~ $#disableDeprecated 0 && test -f $sitedir/_inc/$wantedfile) { echo -n $sitedir/_inc/$wantedfile dprint DEPRECATION WARNING: Using file in depracted path: $sitedir/_inc/$wantedfile XXX } if not if(~ $#disableDeprecated 0 && ! ~ $masterSite 0 && test -f sites/$masterSite/_inc/$wantedfile) { echo -n sites/$masterSite/_inc/$wantedfile dprint DEPRECATION WARNING: Using file in depracted path: sites/$masterSite/_inc/$wantedfile XXX } if not if (~ $#disableDeprecated 0 && test -f inc/$wantedfile) { echo -n inc/$wantedfile dprint DEPRECATION WARNING: Using file in depracted path: inc/$wantedfile XXX } } # DEPRECATED fn get_inc_file { get_lib_file $* dprint DEPRECATION WARNING: Called get_inc_file, should call get_lib_file } # Title fn gentitle { echo '
' # XXX Insering a blank line between lines in input is good for fortunes.txt, but maybe not for other .txt files # XXX Words are not broken, even if they are way beyond 82 chars long cat $1 |sed 's/$/\n/g; s/\</g; s/>/\>/g' |fmt -l 82 -j echo '' } fn dir_listing_handler { body = $1 echo '
' env | quote_html echo --------------------- umask echo '' } fn select_handler { if (test -f $body.md) { if (! ~ $#inBlog 0) set_handler blog_post_handler $body.md if not set_handler md_handler $body.md if (! ~ $#allowComments 0 && ~ $REQUEST_METHOD POST) { get_post_args comment_user_name comment_text ddir = $body.md_werc/comments/ umask 002 mkdir -m 775 -p $ddir d = `{date -n} # Obvious race { echo '% user_name='^$comment_user_name' '^$comment_text } > $ddir/$d.rec } } if not if (~ $body */_debug) set_handler debug_handler if not if (test -f $body.tpl) set_handler tpl_handler $body.tpl if not if (test -f $body.html) set_handler html_handler $body.html # Handle explicit .html urls, this should not happen (the web server will usually handle this anyway) # XXX We probably should setup a permanent redirect to $body|sed 's/.html$//' here if not if (~ $body *.html && test -f $body) set_handler html_handler $body # Blog handler if not if (~ $body */[bB]log/index */[bB]log//index || ! ~ $#blogDirs 0) { if (~ $#blogDirs 0) blogDirs = `{basename -d $body} rssuri=`{basename -d $uri} rssuri=$baseuri`{cleanname $"rssuri^/index.rss} extraHeaders=$"extraHeaders ^ \ ' ' set_handler blog_dir_handler $blogDirs } # Rss feeds. TODO: we should check that the request is for a real blog dir if not if (~ $REQUEST_URI */index.rss) { uri = `{echo $uri | sed 's/index.rss$//'} if (~ $blogDirs 0) blogDirs = $sitedir^$uri uri=$baseuri$"uri master_template=feeds/rss20.tpl response_format=raw } # Global tpl (eg sitemap.tpl) if not if (test -f lib/^$uri^.tpl) set_handler tpl_handler lib/^$uri^.tpl if not if (test -f $body.txt) set_handler txt_handler $body.txt # Dir listing if not if(~ $body */index) set_handler dir_listing_handler $body # File not found if not { set_handler 404_handler $body dprint 'NOT FOUND: '$SERVER_NAME^$REQUEST_URI^' - '^$"HTTP_REFERER^' - '^$"HTTP_USER_AGENT echo 'Status: 404 Not Found' } } fn genbody { # Actually execute request $handler $handler_args } # Careful, the proper p9p path might not be set until initrc.local is sourced path=(. $PLAN9/bin ./bin/ /bin/ /usr/bin) site=$SERVER_NAME headers=lib/headers.tpl master_template=default_master.tpl sidebar=sidebar baseuri=http://$site/ for(i in siteTitle siteSubTitle pageTitle extraHeaders) $i = '' . etc/initrc if(test -f etc/initrc.local) . etc/initrc.local # Parse request URL uri = `{echo -n $REQUEST_URI | sed -e 's/\?.*//; s/'^$forbidden_uri_chars^'//g; s/\.\.*/./g;' -e '1q'} ifs='/' { args = `{echo -n $uri} } if(! ~ $#debug 0) dprint ' ' $SERVER_NAME^$REQUEST_URI^' - '^$"HTTP_USER_AGENT if (! ~ $args '') { if (~ $args($#args) 'index') perm_redirect `{ echo $REQUEST_URI | sed 's,/index$,/,' } pageTitle=`{echo $args | sed -e 's/ / - /g' -e 's/_/ /g'} body=$uri } if not { body='/' } fpath=$sitedir for (i in ('' $args)) { fpath = $fpath/$i # We don't want blog settings to cascade into posts, note that we are inBlog instead if (! ~ $#blogDirs 0 && ! ~ $body */index.rss */[bB]log */[bB]log/) { inBlog = $blogDirs blogDirs = () } if (test -f $fpath/_config) . $fpath/_config # DEPRECATED if (test -f $fpath/_werc/config) . $fpath/_werc/config if (~ $#blogDirs 0 && ~ $#inBlog 0 && ~ $i [Bb]log) inBlog = 'yes' } # Redirections and other preprocessing if (~ $#redirectPermanent 1) perm_redirect $"redirectPermanent if not if (~ $#redirectPermanent 2 && {echo $SERVER_NAME^$REQUEST_URI|grep -s $redirectPermanent(1) }) { # Experimental regexp sub-based redirect, probably should find a nicer interface # For now only used at sites/harmful.cat-v.org/software/OO_programming/_config to=`{echo $SERVER_NAME^$REQUEST_URI|sed 's@'^$redirectPermanent(1)^'@'^$redirectPermanent(2)^'@'} if(! ~ $to $REQUEST_URI) perm_redirect $to } # Set Page title if(~ $pageTitle '') pageTitle=$siteTitle^' '^$siteSubTitle if not pageTitle=$"pageTitle^' | '^$"siteTitle^' '^$"siteSubTitle body=$sitedir/$body if (test -d $body) { if(! ~ $body */) perm_redirect $REQUEST_URI^'/' body=$body/index } select_handler # Template/body selection master_template= `{get_lib_file $master_template} if(~ $master_template 0) { dprint DEPRECATION WARNING: using $sitedir/_default.tpl, should move to _werc/lib/XXX master_template=$sitedir/_default.tpl } if(~ $response_format html) { # Is awk_buffer really useful? template $headers $master_template | awk_buffer echo '