315 lines
7.5 KiB
Plaintext
315 lines
7.5 KiB
Plaintext
##############################################
|
|
# Useful CGI functions
|
|
|
|
NEW_LINE='
|
|
'
|
|
|
|
fn dprint { echo $* >[1=2] }
|
|
|
|
fn escape_html { sed 's/&/\&/g; s/</\</g; s/>/\>/g' $* }
|
|
|
|
fn perm_redirect {
|
|
echo 'Status: 301 Moved Permanantly
|
|
Location: '^$1^'
|
|
|
|
'
|
|
exit
|
|
}
|
|
|
|
fn get_post_args {
|
|
if(~ $#POST_ARGS 0) {
|
|
ifs='&
|
|
' for(pair in `{cat}) {
|
|
pair=`{echo -n $pair | sed 's/=/\&/'} \
|
|
# Maybe we should urldecode on the first pass?
|
|
POST_ARGS=( $POST_ARGS $pair )
|
|
ifs=() \
|
|
if(~ $pair(1) $*)
|
|
$pair(1)=`{echo -n $pair(2) | urldecode | tr -d '
|
|
'}
|
|
}
|
|
}
|
|
if not {
|
|
pa=$POST_ARGS
|
|
while(! ~ $#pa 0) {
|
|
ifs=() \
|
|
if(~ $pa(1) $*)
|
|
$pa(1)=`{echo -n $pa(2) | urldecode | tr -d '
|
|
'}
|
|
pa=$pa(3-)
|
|
}
|
|
}
|
|
}
|
|
|
|
# Is this really useful?
|
|
fn awk_buffer {
|
|
awk '{
|
|
buf = buf $0"\n"
|
|
if(length(buf) > 8192) {
|
|
printf "%s", buf
|
|
buf = ""
|
|
}
|
|
}
|
|
END { printf "%s", buf }'
|
|
}
|
|
|
|
fn urldecode {
|
|
awk '
|
|
BEGIN {
|
|
hextab ["0"] = 0; hextab ["8"] = 8;
|
|
hextab ["1"] = 1; hextab ["9"] = 9;
|
|
hextab ["2"] = 2; hextab ["A"] = hextab ["a"] = 10
|
|
hextab ["3"] = 3; hextab ["B"] = hextab ["b"] = 11;
|
|
hextab ["4"] = 4; hextab ["C"] = hextab ["c"] = 12;
|
|
hextab ["5"] = 5; hextab ["D"] = hextab ["d"] = 13;
|
|
hextab ["6"] = 6; hextab ["E"] = hextab ["e"] = 14;
|
|
hextab ["7"] = 7; hextab ["F"] = hextab ["f"] = 15;
|
|
}
|
|
{
|
|
decoded = ""
|
|
i = 1
|
|
len = length ($0)
|
|
while ( i <= len ) {
|
|
c = substr ($0, i, 1)
|
|
if ( c == "%" ) {
|
|
if ( i+2 <= len ) {
|
|
c1 = substr ($0, i+1, 1)
|
|
c2 = substr ($0, i+2, 1)
|
|
if ( hextab [c1] == "" || hextab [c2] == "" ) {
|
|
print "WARNING: invalid hex encoding: %" c1 c2 | "cat >&2"
|
|
} else {
|
|
code = 0 + hextab [c1] * 16 + hextab [c2] + 0
|
|
c = sprintf ("%c", code)
|
|
i = i + 2
|
|
}
|
|
} else {
|
|
print "WARNING: invalid % encoding: " substr ($0, i, len - i)
|
|
}
|
|
} else if ( c == "+" ) {
|
|
c = " "
|
|
}
|
|
decoded = decoded c
|
|
++i
|
|
}
|
|
printf decoded
|
|
}
|
|
'
|
|
}
|
|
|
|
fn crop_text {
|
|
max_chars=$1
|
|
|
|
ellipsis='...'
|
|
if(~ $#* 2)
|
|
ellipsis=$2
|
|
|
|
awk -v max'='^$"max_chars^' ' -v 'ellipsis='$ellipsis '
|
|
{
|
|
nc += 1 + length;
|
|
if(nc > max) {
|
|
print substr($0, 1, nc - max) ellipsis
|
|
exit
|
|
}
|
|
print
|
|
}'
|
|
}
|
|
|
|
|
|
# Cookies
|
|
fn set_cookie {
|
|
# TODO: should check input values more carefully
|
|
name=$1
|
|
val=$2
|
|
extraHttpHeaders=( $extraHttpHeaders 'Set-cookie: '^$"name^'='^$"val^'; path=/;' )
|
|
}
|
|
fn get_cookie {
|
|
ifs=';' { co = `{ echo $HTTP_COOKIE } }
|
|
|
|
#for(c in $co)
|
|
# if(~ $c $1^'='*) # This matching doesn't work
|
|
# echo $c|sed 's/[^=]*=//'
|
|
|
|
# WARNING: we might be adding a trailing new line
|
|
{ for(c in $co) echo $c } | sed -n 's/[^=]*=//p'
|
|
}
|
|
|
|
|
|
|
|
##############################################
|
|
# More werc-specific functions
|
|
|
|
fn template { awk -f bin/template.awk $* | rc $rcargs }
|
|
|
|
# .rec parsing
|
|
fn parse_rec {
|
|
ifs='
|
|
' for(i in `{sed 's/% *//g; /^$/q' < $1}) {
|
|
v=`{echo -n $i | sed 's/^/rec_/; s/=.*//;'}
|
|
$v=`{echo -n $i | sed 's/^[^=]*=//'}
|
|
}
|
|
ifs=() { rec_data=`{sed -n '/^[^%]./,$p' < $1} }
|
|
}
|
|
|
|
|
|
# Auth code
|
|
|
|
# Cookie format: WERC_USER: name:timestamp:hash(name.timestamp.password)
|
|
# login_user can't be used from a template because it sets a cookie
|
|
fn login_user {
|
|
# Note: get_user can use an existing cookie, so we might end up setting an existing cookie
|
|
if(get_user $*)
|
|
set_cookie werc_user $"logged_user^':0:'^$"logged_password
|
|
}
|
|
|
|
# Checks if we are logged in, if called with an argument, we check group membership too
|
|
fn check_user {
|
|
if(! get_user)
|
|
status='Not logged in'
|
|
if not if(! ~ $#1 0 && ! grep -s '^'^$logged_user^'$' etc/groups/$1)
|
|
status=User $logged_user not in group $1
|
|
if not
|
|
true
|
|
}
|
|
|
|
# If not logged in, try to get user login info from POST info or from cookie
|
|
fn get_user {
|
|
if(~ $#logged_user 0) {
|
|
if(~ $#* 2) {
|
|
user_name=$1
|
|
user_password $2
|
|
}
|
|
if not if(~ $REQUEST_METHOD POST)
|
|
get_post_args user_name user_password
|
|
|
|
if(~ $#user_name 0) {
|
|
ifs=':' { cu=`{get_cookie werc_user|tr -d $NEW_LINE} }
|
|
if(! ~ $#cu 0) {
|
|
user_name=$cu(1)
|
|
user_password=$cu(3)
|
|
}
|
|
}
|
|
auth_user $user_name $user_password
|
|
}
|
|
if not
|
|
true
|
|
}
|
|
|
|
# Check if user_name and user_password represent a valid user account
|
|
# If valid, 'log in' by setting logged_user
|
|
fn auth_user {
|
|
user_name=$1
|
|
user_password=$2
|
|
|
|
pfile='etc/users/'^$"user_name^'/password'
|
|
if(~ $#user_name 0 || ~ $#user_password 0)
|
|
status='Auth: missing user name or pass: '^$"user_name^' / '^$"user_password
|
|
if not if(! test -f $pfile)
|
|
status='Auth: cant find '^$pfile
|
|
if not if(! ~ $user_password `{cat $pfile})
|
|
status='Auth: Pass '$user_password' doesnt match '^`{cat $pfile}
|
|
if not {
|
|
logged_user=$user_name
|
|
logged_password=$user_password
|
|
dprint Auth: success
|
|
}
|
|
}
|
|
|
|
|
|
|
|
# Blog stuff
|
|
fn make_blog_post {
|
|
bdir=$1
|
|
btitle=$2
|
|
btext=$3
|
|
if(! ~ 0 $#1 $#2 $#3) {
|
|
date=`{/bin/date +%F}
|
|
|
|
n=1
|
|
for(f in $bdir^$date^'-'*) {
|
|
i=`{echo -n $f | sed -n 's,^.*/'$date'-([0-9]+)_.*,\1,p'|tr -d $NEW_LINE}
|
|
if(! ~ $#i 0 && test $i -ge $n)
|
|
n=`{hoc -e $i'+1'}
|
|
}
|
|
btitle=`{echo -n $"btitle | sed 's/[ ]+/_/g; 1q'}
|
|
|
|
echo $btext > $bdir^'/'^$"date^'-'^$"n^_$"btitle.md
|
|
}
|
|
if not
|
|
status=Missing blog post arguments $1 $2 $3
|
|
}
|
|
|
|
fn sortedBlogPostList {
|
|
# the /./->/|/ are added so we can sort -t| and order only the file name
|
|
# NOTE: this breaks if any path element in blogDirs contain '/./' or '|'
|
|
if(! ~ $#* 0)
|
|
ls $*^'/./' | sed -n 's,/\./,/|/,; /\/[0-9]+.*\.md$/p' | sort -r '-t|' +1 | sed 's,/+\|/+,/,'
|
|
}
|
|
|
|
fn gen_blog_post_title {
|
|
title=`{basename $1 | sed 's/^[0-9\-]*_(.*)\.md$/\1/; s/_/ /g' }
|
|
permlink=`{echo $1 | sed 's,^/[a-z/]*www/,/,; s,^sites/[^/]*/*/,/,; s/\.md$//' }
|
|
du=`{ls -l $1}
|
|
by=''
|
|
if(! ~ $#blogAuthor 0) {
|
|
if(! ~ $blogAuthor '')
|
|
by='By '$"blogAuthor
|
|
}
|
|
if not if(~ $#blogDirs 1)
|
|
by='By '$du(4)
|
|
echo '##<a href="'^$"permlink^'">' $"title^'</a> *( '$by Last mod: $du(7 8 9) $current_date_time(5) ' )*'
|
|
}
|
|
|
|
|
|
###################################
|
|
# App framework
|
|
|
|
fn select_apps {
|
|
found=()
|
|
for(a in $enabled_apps) {
|
|
. ./apps/$a/app.rc
|
|
if($a^'_test')
|
|
found=yes
|
|
}
|
|
|
|
~ $#found 1 # Set status
|
|
}
|
|
|
|
fn app_handler {
|
|
$app_body_handler
|
|
}
|
|
|
|
|
|
##################################
|
|
# Meta-data extract
|
|
|
|
fn get_var {
|
|
if(! ~ $#* 2) {
|
|
status='ERROR: wrong get_var args >>' $* '<< instead of: get_var file-name var-name'
|
|
dprint $status
|
|
}
|
|
if not
|
|
sed -n '/^\* '$2': /p; /^\* '$2': /q; /^$/q' < $1
|
|
}
|
|
|
|
#app_blog_methods = ( _post index.rss )
|
|
#fn app_blog__post {
|
|
# echo
|
|
#}
|
|
#
|
|
#app_blog___default {
|
|
# if (~ $blog)
|
|
# call_app blogpost
|
|
#}
|
|
#
|
|
## --
|
|
#app_blogpost_methods = ( comment _edit )
|
|
#
|
|
#fn app_blogpost_comment {
|
|
# call_app comments
|
|
#}
|
|
#
|
|
## --
|
|
#app_comments_methods = ( _post _edit )
|
|
#
|
|
#fn app_comments___default {
|
|
#
|
|
#}
|