git://git.jankratochvil.net
/
MyWeb.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
db8e856
)
Support "mailto:" stripping also from "(at)" obfuscated addresses.
author
lace
<>
Sun, 12 Mar 2006 09:48:22 +0000
(09:48 +0000)
committer
lace
<>
Sun, 12 Mar 2006 09:48:22 +0000
(09:48 +0000)
Web.pm
patch
|
blob
|
history
diff --git
a/Web.pm
b/Web.pm
index
19b9e93
..
d24bf28
100644
(file)
--- 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"};
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;
$contents=escapeHTML($contents);
}
$contents=~s#<a\b[^>]*>##gi;