Changeset 35d9770 for obfuscate.sh
- Timestamp:
- 07/07/2007 10:30:37 AM (17 years ago)
- Branches:
- 10.0, 10.1, 11.0, 11.1, 11.2, 11.3, 12.0, 12.1, 12.2, 6.3, 6.3-rc1, 6.3-rc2, 6.3-rc3, 7.10, 7.4, 7.5, 7.6, 7.6-blfs, 7.6-systemd, 7.7, 7.8, 7.9, 8.0, 8.1, 8.2, 8.3, 8.4, 9.0, 9.1, basic, bdubbs/svn, elogind, gimp3, gnome, kde5-13430, kde5-14269, kde5-14686, kea, ken/TL2024, ken/inkscape-core-mods, ken/tuningfonts, krejzi/svn, lazarus, lxqt, nosym, perl-modules, plabs/newcss, plabs/python-mods, python3.11, qt5new, rahul/power-profiles-daemon, renodr/vulkan-addition, systemd-11177, systemd-13485, trunk, upgradedb, xry111/for-12.3, xry111/intltool, xry111/llvm18, xry111/soup3, xry111/spidermonkey128, xry111/test-20220226, xry111/xf86-video-removal
- Children:
- c425f86
- Parents:
- 3c6bf83
- File:
-
- 1 edited
-
obfuscate.sh (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
obfuscate.sh
r3c6bf83 r35d9770 7 7 # obfuscate email addresses in XML/HTML 8 8 # Script written (and slight perl modification) by Archaic <archaic AT linuxfromscratch D0T org> 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. 9 11 # Original Perl expression by Anderson Lizardo <lizardo AT linuxfromscratch D0T org> 10 12 # Released under the GNU General Public License … … 29 31 #cp "$1" "$1".bak 30 32 31 for i in `grep -o '"mailto:.*@.*"' "$1" |cut -d\" -f2|sed -e 's|^mailto:||' -e 's|"$||'`; do33 for i in `grep -o '"mailto:.*@.*"' ${1} |cut -d\" -f2|sed -e 's|^"mailto:||' -e 's|"$||'`; do 32 34 link=`echo $i | perl -pe 's/[^\n]/"\\\&#".ord($&)."\;"/ge'` 33 35 plaintext=`echo $i | sed -e 's|@| AT |' -e 's|\.| D0T |g'` 34 sed -i "s|mailto:$i|mailto:$link|" "$1" 35 sed -i "s|$i|$plaintext|" "$1" 36 cp ${1}{,.tmp} 37 sed -e "s|mailto:$i|mailto:$link|" \ 38 -e "s|$i|$plaintext|" ${1}.tmp > ${1} 39 rm ${1}.tmp 36 40 done 37 41 #rm $FILE.tmp 38 42 #exit 0
Note:
See TracChangeset
for help on using the changeset viewer.
