Subversion Repositories svn LFS-FR

Compare Revisions

Ignore whitespace Rev 597 → Rev 598

/trunk/lfs/obfuscate.sh
3,6 → 3,8
# obfuscate.sh
# obfuscate email addresses in XML/HTML
# Script written (and slight perl modification) by Archaic <archaic AT linuxfromscratch D0T org>
# Modified from "sed -i" to old style "sed -e" by Manuel Canales <manuel AT linuxfromscratch D0T org>
# to prevent hangs on very long files, like nonckunked books.
# Original Perl expression by Anderson Lizardo <lizardo AT linuxfromscratch D0T org>
# Released under the GNU General Public License
#
25,11 → 27,13
# Nothing like a backup plan!
#cp "$1" "$1".bak
 
for i in `grep -o '"mailto:.*@.*"' "$1" |sed -e 's|^"mailto:||' -e 's|"$||'`; do
for i in `grep -o '"mailto:.*@.*"' ${1} |sed -e 's|^"mailto:||' -e 's|"$||'`; do
link=`echo $i | perl -pe 's/[^\n]/"\\\&#".ord($&)."\;"/ge'`
plaintext=`echo $i | sed -e 's|@| AT |' -e 's|\.| D0T |g'`
sed -i "s|mailto:$i|mailto:$link|" "$1"
sed -i "s|$i|$plaintext|" "$1"
cp ${1}{,.tmp}
sed -e "s|mailto:$i|mailto:$link|" \
-e "s|$i|$plaintext|" ${1}.tmp > ${1}
rm ${1}.tmp
done
 
#rm $FILE.tmp
#exit 0