115 lines
3.7 KiB
Plaintext
115 lines
3.7 KiB
Plaintext
fn conf_enable_blog {
|
|
blagh_uri=$conf_wd
|
|
blagh_dirs=$*
|
|
if(~ $#blagh_dirs 0)
|
|
blagh_dirs=( . )
|
|
conf_enable_app blagh
|
|
}
|
|
|
|
fn blagh_init {
|
|
if(~ $#blagh_dirs 0 && ~ $req_path */[bB]log/*) {
|
|
blagh_uri=`{echo $req_path | sed 's,(/[bB]log/).*,\1,'}
|
|
blagh_dirs=( . )
|
|
}
|
|
|
|
# Should not match sub-dirs!
|
|
if(! ~ $#blagh_dirs 0) {
|
|
# && test -d / `{echo '-a -d '^$blagh_root^$blagh_dirs}
|
|
blagh_url=$base_url^$blagh_uri
|
|
blagh_root=$sitedir^$blagh_uri
|
|
if(check_user $blog_editors blog-editors) {
|
|
editor_mode=on
|
|
if(~ $"post_arg_date '')
|
|
post_date=`{/bin/date +%F|sed 's,-,/,g'}
|
|
if not
|
|
post_date=$post_arg_date
|
|
ll_add handlers_bar_left echo '<a href="'$blagh_uri'new_post">Make a new post</a>'
|
|
}
|
|
|
|
switch($req_path) {
|
|
case $blagh_uri
|
|
handler_body_main=blagh_body
|
|
u=$blagh_uri'index'
|
|
extraHeaders=$"extraHeaders ^ \
|
|
'<link rel="alternate" type="application/rss+xml" title="RSS" href="'$"u'.rss" />
|
|
<link rel="alternate" type="application/atom+xml" title="ATOM" href="'$"u'.atom" />'
|
|
case $blagh_uri^index.atom
|
|
blagh_setup_feed_handlers atom.tpl
|
|
case $blagh_uri^index.rss
|
|
blagh_setup_feed_handlers rss20.tpl
|
|
case $blagh_uri^new_post
|
|
if(! ~ $#editor_mode 0) {
|
|
handler_body_main=( tpl_handler `{get_lib_file blagh/new_post.tpl apps/blagh/new_post.tpl} )
|
|
if(~ $REQUEST_METHOD POST) {
|
|
if(mkbpost $"post_arg_body $"post_date $"post_arg_title $post_arg_id)
|
|
post_redirect $blagh_uri
|
|
if not
|
|
notify_errors=$status
|
|
}
|
|
}
|
|
}
|
|
|
|
}
|
|
}
|
|
|
|
fn blagh_setup_feed_handlers {
|
|
handler_body_main=NOT_USED_by_blagh_feeds
|
|
res_tail=()
|
|
headers=()
|
|
master_template=apps/blagh/$1 # Should we allow tempalte override?
|
|
}
|
|
|
|
fn blagh_body {
|
|
if (! ~ $"blogTitle '')
|
|
echo '<h1>'$"blogTitle'</h1>'
|
|
|
|
echo '<div style="text-align:right">(<a href="index.rss">RSS Feed</a>|<a href="index.atom">Atom Feed</a>)</div>'
|
|
|
|
for(p in `{get_post_list $blagh_root^$blagh_dirs}) {
|
|
l=`{echo -n $p|sed 's!'$sitedir^'/?(.*)([0-9]+/[0-9][0-9]/[0-9][0-9])(/[^/]+/)!\2 /\1\2\3!'}
|
|
sed '1s!.*^') ('^$l(1)^')!' < $p/index.md
|
|
} | $formatter
|
|
}
|
|
|
|
fn get_post_list {
|
|
# /./->/|/ done to sort -t| and order by date
|
|
# Note: $paths in blagh_dirs should not contain '/./' or '|'
|
|
ls -F $*^/./[0-9][0-9][0-9][0-9]/[0-9][0-9]/[0-9][0-9]/ >[2]/dev/null | sed -n '/'^$forbidden_uri_chars^'/d; s,/\./,/|/,; /\/$/p' | sort -r '-t|' +1 | sed 's,/+\|/+,/,'
|
|
}
|
|
|
|
fn mkbpost {
|
|
bptext=$1
|
|
bpdate=$2
|
|
bptitle=$3
|
|
bpid=$4
|
|
_status=()
|
|
if(~ $"bptext '')
|
|
_status=($_status 'You need to provide a post body.')
|
|
if(! ~ $"bpdate [0-9][0-9][0-9][0-9]/[0-9][0-9]/[0-9][0-9])
|
|
_status=($_status 'Invalid date: '''^$"bpdate^'''') # XXX Should make semantic check.
|
|
|
|
if(~ $#_status 0) {
|
|
umask 002 # Let group write
|
|
if(! ~ $"bpid '')
|
|
bpid=`{echo -n '-'^$bpid | sed 's/'$forbidden_uri_chars'+/_/g; 1q'}
|
|
|
|
ddir=$blagh_root^$bpdate^'/'
|
|
n=`{ls $ddir >[2]/dev/null |wc -l}
|
|
|
|
mkdir -p $ddir/$"n^$"bpid/
|
|
{
|
|
if(! ~ $"bptitle '') {
|
|
echo $bptitle
|
|
echo '========================================='
|
|
}
|
|
# TODO: Enable metadata
|
|
#echo '* Posted:' `{date}
|
|
#if(! ~ $#logged_user 0)
|
|
# echo '* Author: '$logged_user
|
|
echo
|
|
echo $bptext
|
|
}> $ddir/$"n^$"bpid/index.md
|
|
}
|
|
status=$_status
|
|
}
|