source: obfuscate.sh@ 276015d2

10.0 10.1 11.0 11.1 11.2 11.3 12.0 12.1 12.2 6.2 6.2.0 6.2.0-rc1 6.2.0-rc2 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
Last change on this file since 276015d2 was 276015d2, checked in by Randy McMurchy <randy@…>, 18 years ago

Added the LastChangedBy and Date keywords then set the corresponding keyword property on each file in the repo

git-svn-id: svn://svn.linuxfromscratch.org/BLFS/trunk/BOOK@6430 af4574ff-66df-0310-9fd7-8a98e5e911e0

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