1 #! /bin/sh
2 case $1 in
3 *.html)
4 # tidy -latin1 -wrap 0 -q -asxhtml $1 >$1.fixed 2>$1.report
5 # TIDY_RET=$?
6 cp $1 $1.fixed
7 TIDY_RET=0
8 perl -i -0777 -p -e 's/^\s*//;s{="mailto:(oetiker|tobi|tobias)@(oetiker.ch|ee.ethz.ch)"}{="http://tobi.oetiker.ch/"}g;s{="mailto:(\S*?)\@(\S*?)"}{="mailto:$1@..delete..this..$2"}g' $1.fixed
9 # yes, beleive it or not IE chockes on propper xhtml pages ... sigh
10 perl -i -0777 -p -e 's/^\s*<\?xml.+?\?>\s*//;' $1.fixed
11 if [ $TIDY_RET != 0 ]; then
12 echo Parsing: $1
13 egrep -v "^(HTML Tidy|$1:|To learn|Please send|HTML and CSS|Lobby your)" $1.report
14 rm $1.report
15 name=`basename $1 .html`
16 name=`basename $name .en`
17 name=`basename $name .de`
18 touch -m -t 198001010000 $name.*.html
19 exit 1
20 fi
21 mv $1.fixed $1
22 rm -f $1.report
23 ;;
24 esac