swerc

commit 597098578fcc5f7cd6cbccd947b011804b81497a
parent 6b49f74c75a4da2b2782f60a346c41d53cce252a
Author: uriel@engel.se.cat-v.org <unknown>
Date:   Wed, 27 Jun 2007 13:11:05 +0200

Fix wrong permalinks for gsoc.cat-v.org/blog (this is a bit of a special case hack)
Diffstat:
M
bin/controller.rc
 | 
3
++-

1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/bin/controller.rc b/bin/controller.rc
@@ -74,8 +74,9 @@ fn sortedBlogPostList {
 
 fn blogTitle {
     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}
-    echo '##<a href="' `{echo $1 | sed 's,^sites/[^/]*/*/,/,; s/\.md$//' } '">' $"title^'</a> *('By $du(4) Last mod: $du(7 8 9) ')*'
+    echo '##<a href="' $"permlink '">' $"title^'</a> *('By $du(4) Last mod: $du(7 8 9) ')*'
 }
 
 # Body