2 /* URL Passing code to allow links from with in emails */
5 $url_parser_php = true;
7 function replaceBlock ($in, $replace, $start, $end) {
8 $begin = substr($in,0,$start);
9 $end = substr($in,$end,strlen($in)-$end);
10 $ret = $begin.$replace.$end;
14 function parseEmail (&$body) {
16 $Size = strlen($body);
18 // Having this defined in just one spot could help when changes need
19 // to be made to the pattern
20 // Make sure that the expression is evaluated case insensitively
22 // Here's pretty sophisticated IP matching:
23 // $IPMatch = '(2[0-5][0-9]|1?[0-9]{1,2})';
24 // $IPMatch = '\[?' . $IPMatch . '(\.' . $IPMatch . '){3}\]?';
27 $IPMatch = '\\[?[0-9]{1,3}(\\.[0-9]{1,3}){3}\\]?';
28 $Host = '(' . $IPMatch .
29 '|[0-9a-z]([-.]?[0-9a-z])*\\.[a-wyz][a-z](fo|g|l|m|me|o|op|pa|ro|seum|t|u|v|z)?)';
30 $Expression = '[0-9a-z]([-_.]?[0-9a-z])*(%' . $Host . ')?@' . $Host;
33 This is here in case we ever decide to use highlighting of searched
34 text. this does it for email addresses
36 if ($what && ($where == "BODY" || $where == "TEXT")) {
37 eregi ($Expression, $body, $regs);
40 $newaddr = eregi_replace ($what, "<b><font color=\"$color[2]\">$what</font></font></b>", $oldaddr);
41 $body = str_replace ($oldaddr, "<a href=\"../src/compose.php?send_to=$oldaddr\">$newaddr</a>", $body);
44 $body = eregi_replace ($Expression, "<a href=\"../src/compose.php?send_to=\\0\">\\0</a>", $body);
48 $body = eregi_replace ($Expression, "<a href=\"../src/compose.php?send_to=\\0\">\\0</a>", $body);
50 // If there are any changes, it'll just get bigger.
51 if ($Size != strlen($body))
57 function parseUrl (&$body)
63 'telnet:', // Special case -- doesn't need the slashes
67 $poss_ends = array(' ', "\n", "\r", '<', '>', ".\r", ".\n", '. ',
68 ' ', ')', '(', '"', '<', '>', '.<', ']', '[', '{',
72 $target_pos = strlen($body);
74 while ($start != $target_pos)
78 // Find the first token to replace
79 foreach ($url_tokens as $the_token)
81 $pos = strpos(strtolower($body), $the_token, $start);
82 if (is_int($pos) && $pos < $target_pos)
85 $target_token = $the_token;
89 // Look for email addresses between $start and $target_pos
90 $check_str = substr($body, $start, $target_pos);
92 if (parseEmail($check_str))
94 $body = replaceBlock($body, $check_str, $start, $target_pos);
95 $target_pos = strlen($check_str) +
$start;
98 // If there was a token to replace, replace it
99 if ($target_token != '')
101 // Find the end of the URL
103 foreach ($poss_ends as $key => $val)
105 $enda = strpos($body,$val,$target_pos);
106 if (is_int($enda) && $enda < $end)
111 $url = substr($body, $target_pos, $end-$target_pos);
113 // Replace URL with HyperLinked Url, requires 1 char in link
114 if ($url != '' && $url != $target_token)
116 $url_str = "<a href=\"$url\" target=\"_blank\">$url</a>";
117 $body = replaceBlock($body,$url_str,$target_pos,$end);
118 $target_pos +
= strlen($url_str);
122 // Not quite a valid link, skip ahead to next chance
123 $target_pos +
= strlen($target_token);
128 $start = $target_pos;
129 $target_pos = strlen($body);