source: 3d8851e

10.0 10.1 11.0 7.10 7.6 7.7 7.8 7.9 8.0 8.1 8.2 8.3 8.4 9.0 9.1 basic bdubbs/svn elogind ken/refactor-virt krejzi/svn lazarus nosym perl-modules qt5new trunk xry111/git-date xry111/git-date-for-trunk xry111/git-date-test
Last change on this file since 3d8851e was 5d6f29a, checked in by Manuel Canales Esparcia <manuel@…>, 14 years ago

Typo fix.

git-svn-id: svn:// af4574ff-66df-0310-9fd7-8a98e5e911e0

  • Property mode set to 100644
File size: 1.3 KB
[276015d2]3# $LastChangedBy$
4# $Date$
7# obfuscate email addresses in XML/HTML
8# Script written (and slight perl modification) by Archaic <archaic AT linuxfromscratch D0T org>
[35d9770]9# Modified from "sed -i" to old style "sed -e" by Manuel Canales <manuel AT linuxfromscratch D0T org>
10# to prevent hangs on very long files, like nonckunked books.
[4a02298]11# Original Perl expression by Anderson Lizardo <lizardo AT linuxfromscratch D0T org>
12# Released under the GNU General Public License
14# This script currently only seeks out mailto: addresses. If those same
15# addresses also appear in plaintext, we need to obfuscate those as well.
17# This script was made for a very specific purpose so I was a bit lazy in
18# writing the regex's.
20# Please send comments, enhancements, etc. to the above address
22#set -e # Bail on all errors
24# First, ensure that we are given a file to process
25# if [ $# -lt 1 ]; then
26# echo -e "\nYou must provide an input file."
27# exit 1
28# fi
30# Nothing like a backup plan!
31#cp "$1" "$1".bak
[5d6f29a]33for i in `grep -o '"mailto:.*@.*"' ${1} |cut -d\" -f2|sed -e 's|^mailto:||' -e 's|"$||'`; do
[4a02298]34 link=`echo $i | perl -pe 's/[^\n]/"\\\&#".ord($&)."\;"/ge'`
35 plaintext=`echo $i | sed -e 's|@| AT |' -e 's|\.| D0T |g'`
[35d9770]36 cp ${1}{,.tmp}
37 sed -e "s|mailto:$i|mailto:$link|" \
38 -e "s|$i|$plaintext|" ${1}.tmp > ${1}
39 rm ${1}.tmp
[35d9770]41#rm $FILE.tmp
[4a02298]42#exit 0
Note: See TracBrowser for help on using the repository browser.