From 224cb73643074f8f0654b688df7df13dd7b8ae4a Mon Sep 17 00:00:00 2001
From: Thomas Schwinge <tschwinge@gnu.org>
Date: Sat, 21 Mar 2009 14:45:53 +0100
Subject: purify_html: New.

---
 purify_html | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100755 purify_html

(limited to 'purify_html')

diff --git a/purify_html b/purify_html
new file mode 100755
index 00000000..a9ead881
--- /dev/null
+++ b/purify_html
@@ -0,0 +1,11 @@
+#!/bin/sh
+
+# Un-mangle mailto links: convert HTML character entities to real characters.
+find ./ -name \*.html -print0 \
+  | xargs -0 \
+    perl -p -i -l -e \
+      'BEGIN { $replacing = 0; }
+      # The replacing-toggling logic is a bit rough, but so is life.
+      $replacing = 1 if /<a href="mailto:/;
+      s%\&#(x?)([^;]*);%chr(length($1) ? hex($2) : $2)%eg if $replacing;
+      $replacing = 0 if /<\/a>/;'
-- 
cgit v1.2.3