#!/usr/local/plan9/bin/rc path=(. ./bin $PLAN9/bin /bin/ /usr/bin) uri = `{echo -n $REQUEST_URI | sed 's/\?.*//; s/[^a-zA-Z0-9_+\-\/]//g'} ifs='/' { args = `{echo -n $uri} } cd .. # default config site=$SERVER_NAME sitedir=sites/$site headers=inc/headers.tpl body=index template=_default sidebar=sidebar basedir=/gsoc/www baseuri=http://$site for(i in siteTitle siteSubTitle title extraHeaders) $i = '' # Title fn gentitle { echo '

' ^ $"siteTitle ^ ' ' ^ $"siteSubTitle ^ '

' } dirfilter = '/\/[._]/d; s,^\./,,; s,\.md$,,; s,\.html,,;' # Sidebar fn menu { ls -F $1 | sed $dirfilter | awk -F/ ' BEGIN { print "" } /^([a-zA-Z0-9+_\-]+[\/*]?)+$/ && $NF != "index" { isdir = match($0, "/$") sub("[*/]$", "") path = bname = $0 sub("^(.*/)?([0-9]+_)?", "", bname) gsub("_", " ", bname) if(isdir) { bname = bname "/" path = $0 "/" } if(index(ENVIRON["REQUEST_URI"], "/" path) == 1) { if(isdir) { print "
  • » " bname "" system("rc -c ''menu " path "''") } else { print "
  • » " bname "" } } else print "
  • › " bname "" print "
    • " }' } fn gensidebar { @{ cd $sitedir menu . } } fn sortedBlogPostList { # the /./ is added so we can sort -t. and order only the file name if (! ~ $#* 0) ls $*^'/./' | grep '[0-9]+.*\.md$'| sort -r -t. +1 } # Body fn genbody { if ( test -f $body.md ) markdown.pl < $body.md if not if ( test -f $body.tpl ) template.awk $body.tpl | rc $rcargs if not if ( test -f $body.html ) cat $body.html | /bin/sed '0,//d; /<\/body>/,$d' if not if (~ $body *.html && test -f $body ) sed '0,//d;/<\/body>/,$d' < $body if not if ( ~ $body */[bB]log/index */[bB]log//index && ~ $#blogDirs 0 ) blogDirs = `{basename -d $body} if not if(~ $body */index && ~ $#blogDirs 0) { echo '

    ' `{basename `{basename -d $body}}'

    ' echo '' } if not if(~ $#blogDirs 0) template.awk inc/404.tpl | rc $rcargs # Technically wrong. Will spit out blog entries after 404 for /blog/foo, for instance. if(! ~ $#blogDirs 0) { if ( ! ~ $blogTitle '' ) echo '

    '$"blogTitle'

    ' echo '
    (rss feed)
    ' for ( f in `{ sortedBlogPostList $blogDirs } ) { title=`{basename $f | sed 's/^[0-9\-]*_(.*)\.md$/\1/; s/_/ /g' } du=`{ls -l $f} echo '##' $title '*('By $du(4) Last mod: $du(7 8 9) ')*' cat $f echo } | markdown.pl } } . etc/initrc if (! ~ $args '') { title=$args($#args) title=`{echo $title | sed 's/_/ /g' } body=$uri } fpath=$sitedir for ( i in '' $args ) { fpath = $fpath/$i if ( test -f $fpath/_config ) . $fpath/_config } template=$sitedir/$template.tpl if (! ~ $#sidebar 0) sidebar=tpl/_inc/$sidebar.tpl body=$sitedir/$body rssuri=$uri if (test -d $body) { body=$body/index rssuri=$rssuri/ } if(! ~ $#blogDirs 0) { rssuri=`{basename -d $uri} rssuri=$baseuri`{cleanname $"rssuri^/index.rss} extraHeaders=$"extraHeaders ^ \ ' ' } # RSS fn statpost { f = $1 uri = `{echo $f | sed 's,^'$basedir',,'} title=`{basename $f | sed 's/^[0-9\-]*_(.*)\.md$/\1/; s/_/ /g' } stat=`{stat -c '%Y %U' $f} date=`{/bin/date -Rd @$stat(1)} uri=$baseuri^`{cleanname `{echo -n $uri | sed 's/\.(md|tpl)//g'}} by=$stat(2) ifs=() { summary=`{awk -v max'='1024 '{ nc += 1 + length; if(nc > max) { print substr($0, 1, nc - max) "..." exit } print }' $f | sed 's/\]\]>/Fucking goddamn XML garbage/g'} } } fn template { template.awk | rc $rcargs | awk '{ buf = buf $0"\n" if(length(buf) > 8192) { printf "%s", buf buf = "" } } END{ printf "%s", buf }' } if(! ~ $REQUEST_URI */index.rss) { cat $headers $template | template exit } uri = `{echo $uri | sed 's/indexrss$//'} uri=$baseuri$"uri # Should be in a separate file. cat <<'!' | template Content-Type: text/xml; charset=utf-8 %($siteTitle%) %($uri%) %($blogDesc%) en-us Tom Duff's rc, and Kris Maglione's clever hackery Uriel Mangado <uriel99@gmail.com> %{ for(f in `{sortedBlogPostList $blogDirs}) { statpost $f %} %($title%) %($by%)@noreply.cat-v.org %($uri%) %($uri%) %($date%) %($summary%)]]> % } !