Subversion Repositories svn LFS-FR

Compare Revisions

Ignore whitespace Rev 598 → Rev 599

/trunk/lfs/obfuscate.sh
30,7 → 30,7
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'`
cp ${1}{,.tmp}
cp ${1} ${1}.tmp
sed -e "s|mailto:$i|mailto:$link|" \
-e "s|$i|$plaintext|" ${1}.tmp > ${1}
rm ${1}.tmp