q/thirdculture
1
0
Fork 0
Code Issues 10 Pull requests Projects 1 Releases Packages Wiki Activity Actions

close to prerelase

Browse source
This commit is contained in:
Quentin Wolkensperg 2024-11-11 14:52:00 -05:00
parent e55fbb5b67
commit 31022358ed
181 changed files with 2118 additions and 141 deletions
Download patch file Download diff file Expand all files Collapse all files

12
werc/apps/blagh/app.rc
View file

@ -49,7 +49,7 @@ fn blagh_init {
if not if(~ $req_path $blagh_uri^index.rss)
blagh_setup_feed_handlers rss20.tpl 'text/xml; charset=utf-8'
if not if(~ $req_path $blagh_uri^feed.json)
if not if(~ $req_path $blagh_uri^feed.json)
blagh_setup_feed_handlers jsonfeed.tpl 'application/json; charset=utf-8'
if not if(~ $req_path $blagh_uri^new_post && ! ~ $#editor_mode 0) {
@ -101,16 +101,16 @@ fn get_post_list {
}
fn mkbpost {
bptext=$1
bpdate=$2
bptitle=$3
bpid=$4
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 '')