#!/usr/local/bin/bash
#
# Put ISO 2 encoding into all html documents in specified directory
#
HTMLDIR=${1}
LA2META=''
LA2LINK='ISO Latin 2<\/A>'
for i in $HTMLDIR/*.html
do
perl -i -pe "s/<.*CONTENT=\"text\/html; charset.+\n//" $i
perl -i -pe "s/<\/HEAD>/$LA2META\n<\/HEAD>/" $i
perl -i -pe "s//\n/" $i
done
# In index say it's in ISO-2
perl -i -pe "s/()/\$1\nDocument in $LA2LINK
\n/" \
$HTMLDIR/index.html