werc/bin/controller.rc

#!/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 '<h1 class="headerTitle"><a href="/">' ^ $"siteTitle ^ ' <span id="headerSubTitle">' ^ $"siteSubTitle ^ '</span></a></h1>'
}

dirfilter = '/\/[._]/d; s,^\./,,; s,\.md$,,; s,\.html,,;'

# Sidebar 
fn menu {
    ls -F $1 | sed $dirfilter | awk -F/ '
    BEGIN { print "<ul class=\"sidebar\">" }
    END { print "</ul>" }
    /^([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 "<li><a href=\"/" path "\" class=\"thisPage\">&raquo;<i> " bname "</i></a>"
                system("rc -c ''menu " path "''")
            } else {
                print "<li><a href=\"/" path "\" class=\"thisPage\">&raquo;<i> " bname "</i></a>"
            }
        } else 
            print "<li><a href=\"/" path "\">&rsaquo; " bname "</a>"

        print "</li>"
    }'
}

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,/<body>/d; /<\/body>/,$d' 
    if not if (~ $body *.html && test -f $body )
        sed '0,/<body>/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 '<h1>' `{basename `{basename -d $body}}'</h1>'
            echo '<ul>'
            ls -F `{ basename -d $body } | sed $dirfilter' s,^'$sitedir'/(.*),<li><a href="\1">\1</a></li>,'
            echo '</ul>'
    }
    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 '<h1>'$"blogTitle'</h1>'
	echo '<div align="right">(<a href="index.rss">rss feed</a>)</div>'
        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 ^ \
    	'<link rel="alternate" type="application/rss+xml" title="RSS" href="'$rssuri'">
'
}

# 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

<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0">
	<channel>
		<title>%($siteTitle%)</title>
		<link>%($uri%)</link>
		<description>%($blogDesc%)</description>
		<language>en-us</language>
		<generator>Tom Duff's rc, and Kris Maglione's clever hackery</generator>
		<webMaster>Uriel Mangado &lt;uriel99@gmail.com&gt;</webMaster>
%{
		for(f in `{sortedBlogPostList $blogDirs}) {
			statpost $f
%}		<item>
			<title>%($title%)</title>
			<author>%($by%)@noreply.cat-v.org</author>
			<link>%($uri%)</link>
                        <guid isPermaLink="true">%($uri%)</guid>
			<pubDate>%($date%)</pubDate>
			<description><![CDATA[<pre>%($summary%)</pre>]]></description>
		</item>
%		}
	</channel>
</rss>
!
Initial commit 2007-05-27 05:25:55 -06:00			`#!/usr/local/plan9/bin/rc`
			`path=(. ./bin $PLAN9/bin /bin/ /usr/bin)`
Modified controller. 2007-06-03 21:26:58 -06:00
			uri = `{echo -n $REQUEST_URI \| sed 's/\?.*//; s/[^a-zA-Z0-9_+\-\/]//g'}
			`ifs='/' {`
			args = `{echo -n $uri}
			`}`
Initial commit 2007-05-27 05:25:55 -06:00			`cd ..`

Major update of scripts 2007-05-28 20:04:05 -06:00			`# default config`
			`site=$SERVER_NAME`
			`sitedir=sites/$site`
			`headers=inc/headers.tpl`
Initial commit 2007-05-27 05:25:55 -06:00			`body=index`
Move functions near the top, allow .tpl files to be parsed on the fly and dont expect .md files everywhere, move some things into functions 2007-06-02 23:36:01 -06:00			`template=_default`
Initial commit 2007-05-27 05:25:55 -06:00			`sidebar=sidebar`
Added rss to controller. 2007-06-03 21:41:28 -06:00			`basedir=/gsoc/www`
			`baseuri=http://$site`
Create $extraHeaders for pages with blog entries. 2007-06-04 12:57:18 -06:00			`for(i in siteTitle siteSubTitle title extraHeaders)`
			`$i = ''`
Initial commit 2007-05-27 05:25:55 -06:00
Major update of scripts 2007-05-28 20:04:05 -06:00			`# Title`
			`fn gentitle {`
New embeded handling of .html files Remove old sh gensitemap Allow 'Blog' as well as 'blog' 2007-06-09 15:36:37 -06:00			`echo '<h1 class="headerTitle"><a href="/">' ^ $"siteTitle ^ ' <span id="headerSubTitle">' ^ $"siteSubTitle ^ '</span></a></h1>'`
Major update of scripts 2007-05-28 20:04:05 -06:00			`}`

New embeded handling of .html files Remove old sh gensitemap Allow 'Blog' as well as 'blog' 2007-06-09 15:36:37 -06:00			`dirfilter = '/\/[._]/d; s,^\./,,; s,\.md$,,; s,\.html,,;'`
Modified controller. 2007-06-03 21:26:58 -06:00
A bunch of stuff before breaking things up 2007-05-27 20:07:40 -06:00			`# Sidebar`
			`fn menu {`
Modified controller. 2007-06-03 21:26:58 -06:00			`ls -F $1 \| sed $dirfilter \| awk -F/ '`
A bunch of stuff before breaking things up 2007-05-27 20:07:40 -06:00			`BEGIN { print "<ul class=\"sidebar\">" }`
			`END { print "</ul>" }`
Modified controller. 2007-06-03 21:26:58 -06:00			`/^([a-zA-Z0-9+_\-]+[\/*]?)+$/ && $NF != "index" {`
A bunch of stuff before breaking things up 2007-05-27 20:07:40 -06:00			`isdir = match($0, "/$")`
Modified controller. 2007-06-03 21:26:58 -06:00			`sub("[*/]$", "")`

Fix the RSS content-type. 2007-06-03 22:52:33 -06:00			`path = bname = $0`
A bunch of stuff before breaking things up 2007-05-27 20:07:40 -06:00			`sub("^(.*/)?([0-9]+_)?", "", bname)`
			`gsub("_", " ", bname)`

Modified controller. 2007-06-03 21:26:58 -06:00			`if(isdir) {`
			`bname = bname "/"`
			`path = $0 "/"`
			`}`
A bunch of stuff before breaking things up 2007-05-27 20:07:40 -06:00
Modified controller. 2007-06-03 21:26:58 -06:00			`if(index(ENVIRON["REQUEST_URI"], "/" path) == 1) {`
A bunch of stuff before breaking things up 2007-05-27 20:07:40 -06:00			`if(isdir) {`
Modified controller. 2007-06-03 21:26:58 -06:00			`print "<li><a href=\"/" path "\" class=\"thisPage\">»<i> " bname "</i></a>"`
			`system("rc -c ''menu " path "''")`
A bunch of stuff before breaking things up 2007-05-27 20:07:40 -06:00			`} else {`
Modified controller. 2007-06-03 21:26:58 -06:00			`print "<li><a href=\"/" path "\" class=\"thisPage\">»<i> " bname "</i></a>"`
A bunch of stuff before breaking things up 2007-05-27 20:07:40 -06:00			`}`
			`} else`
Modified controller. 2007-06-03 21:26:58 -06:00			`print "<li><a href=\"/" path "\">&rsaquo; " bname "</a>"`
A bunch of stuff before breaking things up 2007-05-27 20:07:40 -06:00
			`print "</li>"`
			`}'`
			`}`

			`fn gensidebar {`
Modified controller. 2007-06-03 21:26:58 -06:00			`@{`
			`cd $sitedir`
			`menu .`
			`}`
A bunch of stuff before breaking things up 2007-05-27 20:07:40 -06:00			`}`

Move functions near the top, allow .tpl files to be parsed on the fly and dont expect .md files everywhere, move some things into functions 2007-06-02 23:36:01 -06:00			`fn sortedBlogPostList {`
Modified controller. 2007-06-03 21:26:58 -06:00			`# the /./ is added so we can sort -t. and order only the file name`
Fix null concat error when opening rss feeds with no items 2007-06-05 03:08:24 -06:00			`if (! ~ $#* 0)`
			`ls $^'/./' \| grep '[0-9]+.\.md$'\| sort -r -t. +1`
Move functions near the top, allow .tpl files to be parsed on the fly and dont expect .md files everywhere, move some things into functions 2007-06-02 23:36:01 -06:00			`}`
A bunch of stuff before breaking things up 2007-05-27 20:07:40 -06:00
			`# Body`
Major update of scripts 2007-05-28 20:04:05 -06:00			`fn genbody {`
Modified controller. 2007-06-03 21:26:58 -06:00			`if ( test -f $body.md )`
			`markdown.pl < $body.md`
			`if not if ( test -f $body.tpl )`
Call rc with $rcargs for debugging. 2007-06-04 17:54:01 -06:00			`template.awk $body.tpl \| rc $rcargs`
New embeded handling of .html files Remove old sh gensitemap Allow 'Blog' as well as 'blog' 2007-06-09 15:36:37 -06:00			`if not if ( test -f $body.html )`
			`cat $body.html \| /bin/sed '0,/<body>/d; /<\/body>/,$d'`
			`if not if (~ $body *.html && test -f $body )`
			`sed '0,/<body>/d;/<\/body>/,$d' < $body`
			`if not if ( ~ $body /[bB]log/index /[bB]log//index && ~ $#blogDirs 0 )`
Fixed botched merge. 2007-06-04 17:52:37 -06:00			blogDirs = `{basename -d $body}
Modified controller. 2007-06-03 21:26:58 -06:00			`if not if(~ $body */index && ~ $#blogDirs 0) {`
			echo '<h1>' `{basename `{basename -d $body}}'</h1>'
			`echo '<ul>'`
			ls -F `{ basename -d $body } \| sed $dirfilter' s,^'$sitedir'/(.*),<li><a href="\1">\1</a></li>,'
			`echo '</ul>'`
Major update of scripts 2007-05-28 20:04:05 -06:00			`}`
Fix the RSS content-type. 2007-06-03 22:52:33 -06:00			`if not if(~ $#blogDirs 0)`
Call rc with $rcargs for debugging. 2007-06-04 17:54:01 -06:00			`template.awk inc/404.tpl \| rc $rcargs`
Modified controller. 2007-06-03 21:26:58 -06:00
			`# Technically wrong. Will spit out blog entries after 404 for /blog/foo, for instance.`
			`if(! ~ $#blogDirs 0) {`
			`if ( ! ~ $blogTitle '' )`
Various small fixes and code improvements, mostly for the blog code 2007-05-30 03:52:05 -06:00			`echo '<h1>'$"blogTitle'</h1>'`
Fixed botched merge. 2007-06-04 17:52:37 -06:00			`echo '<div align="right">(<a href="index.rss">rss feed</a>)</div>'`
Modified controller. 2007-06-03 21:26:58 -06:00			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`
Various small fixes and code improvements, mostly for the blog code 2007-05-30 03:52:05 -06:00			`echo`
			`} \| markdown.pl`
			`}`
Major update of scripts 2007-05-28 20:04:05 -06:00			`}`
A bunch of stuff before breaking things up 2007-05-27 20:07:40 -06:00
Move functions near the top, allow .tpl files to be parsed on the fly and dont expect .md files everywhere, move some things into functions 2007-06-02 23:36:01 -06:00
			`. etc/initrc`

Modified controller. 2007-06-03 21:26:58 -06:00			`if (! ~ $args '') {`
Move functions near the top, allow .tpl files to be parsed on the fly and dont expect .md files everywhere, move some things into functions 2007-06-02 23:36:01 -06:00			`title=$args($#args)`
			title=`{echo $title \| sed 's/_/ /g' }
Modified controller. 2007-06-03 21:26:58 -06:00			`body=$uri`
Move functions near the top, allow .tpl files to be parsed on the fly and dont expect .md files everywhere, move some things into functions 2007-06-02 23:36:01 -06:00			`}`

Modified controller. 2007-06-03 21:26:58 -06:00			`fpath=$sitedir`
			`for ( i in '' $args ) {`
			`fpath = $fpath/$i`
			`if ( test -f $fpath/_config )`
			`. $fpath/_config`
			`}`
Move functions near the top, allow .tpl files to be parsed on the fly and dont expect .md files everywhere, move some things into functions 2007-06-02 23:36:01 -06:00
			`template=$sitedir/$template.tpl`
Modified controller. 2007-06-03 21:26:58 -06:00			`if (! ~ $#sidebar 0)`
			`sidebar=tpl/_inc/$sidebar.tpl`
Create $extraHeaders for pages with blog entries. 2007-06-04 12:57:18 -06:00
			`body=$sitedir/$body`
			`rssuri=$uri`
			`if (test -d $body) {`
Move functions near the top, allow .tpl files to be parsed on the fly and dont expect .md files everywhere, move some things into functions 2007-06-02 23:36:01 -06:00			`body=$body/index`
Create $extraHeaders for pages with blog entries. 2007-06-04 12:57:18 -06:00			`rssuri=$rssuri/`
			`}`

Some cleanup. 2007-06-04 16:36:30 -06:00			`if(! ~ $#blogDirs 0) {`
			rssuri=`{basename -d $uri}
			rssuri=$baseuri`{cleanname $"rssuri^/index.rss}
Create $extraHeaders for pages with blog entries. 2007-06-04 12:57:18 -06:00			`extraHeaders=$"extraHeaders ^ \`
			`'<link rel="alternate" type="application/rss+xml" title="RSS" href="'$rssuri'">`
			`'`
Some cleanup. 2007-06-04 16:36:30 -06:00			`}`
Create $extraHeaders for pages with blog entries. 2007-06-04 12:57:18 -06:00
Added rss to controller. 2007-06-03 21:41:28 -06:00			`# 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)}
Wrap the RSS description in <pre> tags. Fix summary. (should run the description through fmt(1), since some people insist on using WordPress, which doesn't hard wrap paragraphs). 2007-06-04 12:41:42 -06:00			uri=$baseuri^`{cleanname `{echo -n $uri \| sed 's/\.(md\|tpl)//g'}}
Added rss to controller. 2007-06-03 21:41:28 -06:00			`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'}`
			`}`
			`}`

Fix sed snafu. 2007-06-03 22:34:33 -06:00			`fn template {`
Call rc with $rcargs for debugging. 2007-06-04 17:54:01 -06:00			`template.awk \| rc $rcargs \|`
Fix sed snafu. 2007-06-03 22:34:33 -06:00			`awk '{`
			`buf = buf $0"\n"`
			`if(length(buf) > 8192) {`
			`printf "%s", buf`
			`buf = ""`
			`}`
			`}`
			`END{ printf "%s", buf }'`
			`}`

Added rss to controller. 2007-06-03 21:41:28 -06:00			`if(! ~ $REQUEST_URI */index.rss) {`
Blockbuffer all output. 2007-06-03 22:02:00 -06:00			`cat $headers $template \| template`
Added rss to controller. 2007-06-03 21:41:28 -06:00			`exit`
			`}`
Initial commit 2007-05-27 05:25:55 -06:00
Added rss to controller. 2007-06-03 21:41:28 -06:00			uri = `{echo $uri \| sed 's/indexrss$//'}
			`uri=$baseuri$"uri`

			`# Should be in a separate file.`
Blockbuffer all output. 2007-06-03 22:02:00 -06:00			`cat <<'!' \| template`
Fix the RSS content-type. 2007-06-03 22:52:33 -06:00			`Content-Type: text/xml; charset=utf-8`

Fixed RSS. 2007-06-03 22:20:23 -06:00			`<?xml version="1.0" encoding="UTF-8"?>`
Added rss to controller. 2007-06-03 21:41:28 -06:00			`<rss version="2.0">`
			`<channel>`
Fixed RSS. 2007-06-03 22:20:23 -06:00			`<title>%($siteTitle%)</title>`
Added rss to controller. 2007-06-03 21:41:28 -06:00			`<link>%($uri%)</link>`
			`<description>%($blogDesc%)</description>`
			`<language>en-us</language>`
			`<generator>Tom Duff's rc, and Kris Maglione's clever hackery</generator>`
Fixed RSS. 2007-06-03 22:20:23 -06:00			`<webMaster>Uriel Mangado <uriel99@gmail.com></webMaster>`
Added rss to controller. 2007-06-03 21:41:28 -06:00			`%{`
			for(f in `{sortedBlogPostList $blogDirs}) {
			`statpost $f`
			`%} <item>`
			`<title>%($title%)</title>`
Fixed RSS. 2007-06-03 22:20:23 -06:00			`<author>%($by%)@noreply.cat-v.org</author>`
Added rss to controller. 2007-06-03 21:41:28 -06:00			`<link>%($uri%)</link>`
Fixed RSS. 2007-06-03 22:20:23 -06:00			`<guid isPermaLink="true">%($uri%)</guid>`
Added rss to controller. 2007-06-03 21:41:28 -06:00			`<pubDate>%($date%)</pubDate>`
Wrap the RSS description in <pre> tags. Fix summary. (should run the description through fmt(1), since some people insist on using WordPress, which doesn't hard wrap paragraphs). 2007-06-04 12:41:42 -06:00			`<description><![CDATA[<pre>%($summary%)</pre>]]></description>`
Added rss to controller. 2007-06-03 21:41:28 -06:00			`</item>`
			`% }`
			`</channel>`
Add </rss> tag. 2007-06-03 22:03:01 -06:00			`</rss>`
Added rss to controller. 2007-06-03 21:41:28 -06:00			`!`
Initial commit 2007-05-27 05:25:55 -06:00