10.0
10.1
11.0
11.1
11.2
11.3
12.0
12.1
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/intltool
xry111/llvm18
xry111/soup3
xry111/spidermonkey128
xry111/test-20220226
xry111/xf86-video-removal
Last change
on this file since a257775 was 5d6f29a, checked in by Manuel Canales Esparcia <manuel@…>, 17 years ago |
Typo fix.
git-svn-id: svn://svn.linuxfromscratch.org/BLFS/trunk/BOOK@6844 af4574ff-66df-0310-9fd7-8a98e5e911e0
|
-
Property mode
set to
100644
|
File size:
1.3 KB
|
Rev | Line | |
---|
[4a02298] | 1 | #!/bin/bash
|
---|
| 2 |
|
---|
[276015d2] | 3 | # $LastChangedBy$
|
---|
| 4 | # $Date$
|
---|
| 5 |
|
---|
[4a02298] | 6 | # obfuscate.sh
|
---|
| 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
|
---|
| 13 | #
|
---|
| 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.
|
---|
| 16 | #
|
---|
| 17 | # This script was made for a very specific purpose so I was a bit lazy in
|
---|
| 18 | # writing the regex's.
|
---|
| 19 | #
|
---|
| 20 | # Please send comments, enhancements, etc. to the above address
|
---|
| 21 |
|
---|
| 22 | #set -e # Bail on all errors
|
---|
| 23 |
|
---|
| 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
|
---|
| 29 |
|
---|
| 30 | # Nothing like a backup plan!
|
---|
| 31 | #cp "$1" "$1".bak
|
---|
| 32 |
|
---|
[5d6f29a] | 33 | for 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
|
---|
[4a02298] | 40 | done
|
---|
[35d9770] | 41 | #rm $FILE.tmp
|
---|
[4a02298] | 42 | #exit 0
|
---|
Note:
See
TracBrowser
for help on using the repository browser.