g9srv/blog

54 lines
730 B
Bash
Executable File

#!/bin/rc
cr=
webroot = ./
while(! ~ $#* 0) {
switch ($1) {
case -w
webroot=$2
shift
case *
echo Usage: g9srv/blog [-w webroot]
exit usage
}
shift
}
sitename='Fultons gem pod'
blogname='My blog'
fn header{
echo $1 $2$cr
}
fn gettitle{
echo `{echo $1 | sed 's/\+/ /g'}
}
posts=`{ls -pr $webroot/posts}
fullurl=`{read}
echo $fullurl >[1=2]
url=`{echo $fullurl | sed 's/gemini:\/\/[0-9 a-z .]*//
s/
//
s/%2B/+/g'}
if(~ $url '') url=/
if (~ $url '/'){
header 20 text/gemini
echo '#' $sitename
echo $tagline
echo '##' $blogname
for(i in $posts){
name=`{gettitle $i}
echo '=>' posts/$i $name
}
cat $webroot/homepage
exit 0
}
if(test -f $webroot$url){
header 20 text/gemini
cat $webroot$url
}