ref: ac5fa3343f0fe77b9a14d82de1d2a4757769fe4b
parent: e13004429d600c3f058155beab2f698c9867799b
author: uriel <uriel@engel.se.cat-v.org>
date: Fri Jun 15 02:33:49 EDT 2007
Make html filtering hack case insensitive
--- a/bin/controller.rc
+++ b/bin/controller.rc
@@ -87,7 +87,7 @@
if not if ( test -f $body.tpl )
template.awk $body.tpl | rc $rcargs
if not if ( test -f $body.html )
- cat $body.html | /bin/sed '0,/<body>/d; /<\/body>/,$d'
+ cat $body.html | /bin/sed '0,/<[Bb][Oo][Dd][Yy][^>]*>/d; /<\/[Bb][Oo][Dd][Yy]>/,$d'
if not if (~ $body *.html && test -f $body )
cat $body | /bin/sed -i '0,/<body[^>]*>/d;/<\/body>/,$d'
if not if ( ~ $body */[bB]log/index */[bB]log//index && ~ $#blogDirs 0 )