Changeset 3398

Timestamp:

2002-08-23T15:31:53+12:00 (22 years ago)

Author:

jrm21

Message:

Oops... the last change to the regex was too permissive... fixed up to
restrict the chars allowed in the anchor...

File:

• trunk/gsdl/perllib/plugins/EMAILPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/EMAILPlug.pm

@@ -410 +410 @@
     # assume hostnames are \.\w\- only, then might have a trailing '/.*'
     # assume URI doesn't finish with a '.'
-    $text =~ s@((http|ftp|https)://[\w\-]+(\.[\w\-]+)*/?((&amp;|\.)?[\w\?\=\-_/~]+)*(\#.*)?)@<a href=\"$1\">$1<\/a>@g;
+    $text =~ s@((http|ftp|https)://[\w\-]+(\.[\w\-]+)*/?((&amp;|\.)?[\w\?\=\-_/~]+)*(\#[\w\.\-_]*)?)@<a href=\"$1\">$1<\/a>@g;