From: lace <>
Date: Sun, 12 Mar 2006 09:48:22 +0000 (+0000)
Subject: Support "mailto:" stripping also from "(at)" obfuscated addresses.
X-Git-Url: http://git.jankratochvil.net/?p=MyWeb.git;a=commitdiff_plain;h=0c7663aae12f00d8b4cb794fd266a52d96baffb5

Support "mailto:" stripping also from "(at)" obfuscated addresses.
---

diff --git a/Web.pm b/Web.pm
index 19b9e93..d24bf28 100644
--- a/Web.pm
+++ b/Web.pm
@@ -817,7 +817,7 @@ my($in,$contents,%args)=@_;
 	if (!defined $contents) {
 		$contents=$in;
 		$contents=File::Basename::basename($contents) if $args{"basename"};
-		$contents=~s/^mailto:([-.\w]+@[-.\w]+)$/$1/;
+		$contents=~s/^mailto:([-.\w]+(?:@|\Q(at)\E)[-.\w]+)$/$1/;
 		$contents=escapeHTML($contents);
 		}
 	$contents=~s#<a\b[^>]*>##gi;