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

Delete some deprecated code left over from the old blog system.

Browse source
This commit is contained in:
Uriel 2009-01-02 16:51:59 +01:00
parent d7edcd7bd9
commit 58512f2e1f
1 changed files with 0 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

23
bin/cgilib.rc
View file

@ -213,7 +213,6 @@ fn auth_user {
}
# Blog stuff
fn make_blog_post {
bdir=$1
@ -236,28 +235,6 @@ fn make_blog_post {
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