qbit/werc
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Various small fixes and code improvements, mostly for the blog code

Browse Source
This commit is contained in:
uriel 2007-05-30 11:52:05 +02:00
parent 321eda21b6
commit 89a5535257
1 changed files with 25 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
bin/controller.rc
View File

@ -1,7 +1,7 @@
#!/usr/local/plan9/bin/rc #!/usr/local/plan9/bin/rc
path=(. ./bin $PLAN9/bin /bin/ /usr/bin) path=(. ./bin $PLAN9/bin /bin/ /usr/bin)
ifs='/' { args = `{ echo -n $REQUEST_URI | sed -e 's/[^a-zA-Z0-9_\-\/]//g' -e 's/\?.*//' } } ifs='/' { args = `{ echo -n $REQUEST_URI | sed -e 's/[^a-zA-Z0-9_+\-\/]//g' -e 's/\?.*//' } }
args=`{echo $args | tr -d ' args=`{echo $args | tr -d '
'} '}
cd .. cd ..
@ -52,7 +52,7 @@ fn menu {
ls -F $1 | grep -v '/_[^/]*' | sed -e 's,^./,,' -e 's,\.md$,,' | awk ' ls -F $1 | grep -v '/_[^/]*' | sed -e 's,^./,,' -e 's,\.md$,,' | awk '
BEGIN { print "<ul class=\"sidebar\">" } BEGIN { print "<ul class=\"sidebar\">" }
END { print "</ul>" } END { print "</ul>" }
/^([a-zA-Z0-9_\-]+[\/*]?)+$/ && ! /index$/ { /^([a-zA-Z0-9+_\-]+[\/*]?)+$/ && ! /index$/ {
isdir = match($0, "/$") isdir = match($0, "/$")
sub("[*/]$", "") # The '*' makes no sense to me sub("[*/]$", "") # The '*' makes no sense to me
@ -91,28 +91,32 @@ fn gensidebar {
# Body # Body
fn genbody { fn genbody {
if ( test -f $body ) { cat $body | markdown.pl } if ( test -f $body ) {
cat $body | markdown.pl
}
if not { if not {
if ( ! ~ $blog 'yes' ) {
if ( ~ $body */index.md ) { if ( ~ $body */index.md ) {
echo '<h1>' `{basename `{basename -d $body}}'</h1>' echo '<h1>' `{basename `{basename -d $body}}'</h1>'
echo '<ul>' echo '<ul>'
ls -F `{ basename -d $body } | sed -e 's,^./,,' -e 's,\.md$,,' -e 's,^'$sitedir'/([^/]*[/]?)+,<li><a href="\1">\1</a></li>,' ls -F `{ basename -d $body } |grep -v '(^.|/_[^/]*$)' | sed -e 's,^./,,' -e 's,\.md$,,' -e 's,^'$sitedir'/([^/]*[/]?)+,<li><a href="\1">\1</a></li>,'
echo '</ul>' echo '</ul>'
} }
if not { template.awk inc/404.tpl | rc } if not { template.awk inc/404.tpl | rc }
} }
ld = `{basename -d $body }^/_log/
if ( test -d $ld ) {
for ( i in `{ ls $ld/ | grep '.*\.md$'| sort -n } ) {
t=`{basename $i|sed -e 's/[0-9\-]*_//' -e 's,\.md$,,' -e 's/_/ /' }
d=`{ls -l $i |awk '{print $7 " " $8 " " $9}'}
u=`{ls -l $i |awk '{print $4 }'}
echo '<h2>' $"t '<small style="font-size: 70%">by '$"u' - '$"d'</small></h2>'
cat $i | markdown.pl
echo '<hr />'
} }
if ( ~ $blog 'yes' && ~ $body */index.md ) {
if ( ! ~ $#blogTitle 0 )
echo '<h1>'$"blogTitle'</h1>'
for ( i in `{ ls $blogDirs | grep '[0-9]+.*\.md$'| sort -r -t. +1 } ) {
t=`{basename $i|sed -e 's/^[0-9\-]*_//' -e 's,\.md$,,' -e 's/_/ /g' }
du=`{ls -l $i }
#echo '<h2>' $"t '<small style="font-size: 70%">by '$"$du(4)' (Last mod: '$du(7) $du(8) $du(9)')</small></h2>'
echo '## ' $"t '*(By '$du(4)' Last mod: ' ( $du(7 8 9) ) ')*'
cat $i
echo
} | markdown.pl
} }
} }