Update of mhonarc/MHonArc/lib
Modified Files:
readmail.pl
Log Message:
Simplified URL regex to only schemes worth linking.
======================================================================
FILE: mhonarc/MHonArc/lib/readmail.pl
<http://www.mhonarc.org/cgi-bin/viewcvs.cgi/*checkout*/mhonarc/MHonArc/lib/readmail.pl?rev=2.37>
<http://www.mhonarc.org/cgi-bin/viewcvs.cgi/mhonarc/MHonArc/lib/readmail.pl.diff?r1=2.36&r2=2.37&diff_format=h>
--- readmail.pl 2 Jun 2005 05:50:27 -0000 2.36
+++ readmail.pl 20 Jul 2005 19:10:48 -0000 2.37
@@ -61,11 +61,15 @@
##
-## String for matching the start of a URL
+## String for matching the start of a URL: It seems unnecessary to
+# try to recognize all valid schemes, so we use a simplier regex.
+# Keep the old one around just in case we need to resurrect it.
+#$UrlRxStr =
+# '(?:(?:https?|ftp|afs|wais|telnet|ldap|gopher|z39\.50[rs]|vemmi|imap|'.
+# 'nfs|acap|rtspu?|tip|pop|sip|(?:soap|xmlrpc)\.beeps?|go|ipp|'.
+# 'tftp)://|'.
+# 'news:(?://)?|'.
+# '(?:nntp|mid|cid|mailto|prospero|data|service|tel|fax|modem|h\.323):)';
$UrlRxStr =
- '(?:(?:https?|ftp|afs|wais|telnet|ldap|gopher|z39\.50[rs]|vemmi|imap|'.
- 'nfs|acap|rtspu?|tip|pop|sip|(?:soap|xmlrpc)\.beeps?|go|ipp|'.
- 'tftp)://|'.
- 'news:(?://)?|'.
- '(?:nntp|mid|cid|mailto|prospero|data|service|tel|fax|modem|h\.323):)';
+ '(?:(?:https?|ftp|ldap|gopher)://|news:(?://)?|(?:nntp|mailto):)';
## Constants for use as second argument to MAILdecode_1522_str().
---------------------------------------------------------------------
To sign-off this list, send email to majordomo(_at_)mhonarc(_dot_)org with the
message text UNSUBSCRIBE MHONARC-COMMITS