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

Minnor code format and comment cleanups, remove duplicated code

Browse source
This commit is contained in:
Uriel 2008-10-14 01:40:20 +02:00
parent 916b093502
commit 339a7a5b4d
1 changed files with 4 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

10
bin/controller.rc
View file

@ -117,7 +117,7 @@ fn dir_listing_handler {
d = `{basename -d $1} d = `{basename -d $1}
echo '<h1 style="text-transform: capitalize;">' `{echo $d|sed -e 's,.*//,,g' -e 's,/$,,' -e 's,/, / ,g' } '</h1>' echo '<h1 style="text-transform: capitalize;">' `{echo $d|sed -e 's,.*//,,g' -e 's,/$,,' -e 's,/, / ,g' } '</h1>'
echo '<ul style="text-transform: capitalize;">' echo '<ul style="text-transform: capitalize;">'
ls -F $d | sed -e $dirfilter' s,^'$sitedir'/.*/([^$].*),<li><a href="\1">\1</a></li>,' ls -F $d | sed -e $dirfilter' s,^'$sitedir'/.*/([^$].*),<li><a href="\1">\1</a></li>,' # XXX I'm not sure what the [^$] does there
echo '</ul>' echo '</ul>'
} }
@ -127,7 +127,7 @@ fn blog_dir_handler {
blogDirs = $* blogDirs = $*
if (! ~ $blogTitle '') if (! ~ $blogTitle '')
echo '<h1>'$"blogTitle'</h1>' #" stupid vim syntax highlighting ;P echo '<h1>'$"blogTitle'</h1>'
echo '<div style="text-align:right">(<a href="index.rss">rss feed</a>)</div>' echo '<div style="text-align:right">(<a href="index.rss">rss feed</a>)</div>'
@ -139,17 +139,13 @@ fn blog_dir_handler {
} }
fn blog_post_handler { fn blog_post_handler {
gen_blog_post_title $1 | $formatter gen_blog_post_title $1 | $formatter
$formatter < $1 $formatter < $1
} }
fn quote_html {
sed 's/</\&lt;/g; s/>/\&gt;/g'
}
fn debug_handler { fn debug_handler {
echo '<pre>' echo '<pre>'
env | quote_html env | escape_html
echo --------------------- echo ---------------------
umask umask
echo '</pre>' echo '</pre>'