Last change
on this file since 32a0631 was
02095ae,
checked in by Jim Gifford <clfs@…>, 18 years ago
|
r3633@server (orig r1649): jciccone | 2006-05-25 16:48:42 -0700
Added the Initial clfs-2.0 branch using sysroot builds.
|
-
Property mode set to
100644
|
File size:
1.1 KB
|
Line | |
---|
1 | #!/bin/bash |
---|
2 | |
---|
3 | # obfuscate.sh |
---|
4 | # obfuscate email addresses in XML/HTML |
---|
5 | # Script written (and slight perl modification) by Archaic <archaic AT linuxfromscratch D0T org> |
---|
6 | # Original Perl expression by Anderson Lizardo <lizardo AT linuxfromscratch D0T org> |
---|
7 | # Released under the GNU General Public License |
---|
8 | # |
---|
9 | # This script currently only seeks out mailto: addresses. If those same |
---|
10 | # addresses also appear in plaintext, we need to obfuscate those as well. |
---|
11 | # |
---|
12 | # This script was made for a very specific purpose so I was a bit lazy in |
---|
13 | # writing the regex's. |
---|
14 | # |
---|
15 | # Please send comments, enhancements, etc. to the above address |
---|
16 | |
---|
17 | #set -e # Bail on all errors |
---|
18 | |
---|
19 | # First, ensure that we are given a file to process |
---|
20 | # if [ $# -lt 1 ]; then |
---|
21 | # echo -e "\nYou must provide an input file." |
---|
22 | # exit 1 |
---|
23 | # fi |
---|
24 | |
---|
25 | # Nothing like a backup plan! |
---|
26 | #cp "$1" "$1".bak |
---|
27 | |
---|
28 | for i in `grep -o '"mailto:.*@.*"' "$1" |sed -e 's|^"mailto:||' -e 's|"$||'`; do |
---|
29 | link=`echo $i | perl -pe 's/[^\n]/"\\\&#".ord($&)."\;"/ge'` |
---|
30 | plaintext=`echo $i | sed -e 's|@| AT |' -e 's|\.| D0T |g'` |
---|
31 | sed -i "s|mailto:$i|mailto:$link|" "$1" |
---|
32 | sed -i "s|$i|$plaintext|" "$1" |
---|
33 | done |
---|
34 | |
---|
35 | #exit 0 |
---|
Note: See
TracBrowser
for help on using the repository browser.