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 $in = $begin.$replace.$end;
13 // Having this defined in just one spot could help when changes need
14 // to be made to the pattern
15 // Make sure that the expression is evaluated case insensitively
17 // Here's pretty sophisticated IP matching:
18 // $IPMatch = '(2[0-5][0-9]|1?[0-9]{1,2})';
19 // $IPMatch = '\[?' . $IPMatch . '(\.' . $IPMatch . '){3}\]?';
22 $IP_RegExp_Match = '\\[?[0-9]{1,3}(\\.[0-9]{1,3}){3}\\]?';
23 $Host_RegExp_Match = '(' . $IP_RegExp_Match .
24 '|[0-9a-z]([-.]?[0-9a-z])*\\.[a-z][a-z]+)';
25 $Email_RegExp_Match = '[0-9a-z]([-_.]?[0-9a-z])*(%' . $Host_RegExp_Match .
26 ')?@' . $Host_RegExp_Match;
28 function parseEmail (&$body) {
29 global $color, $Email_RegExp_Match;
30 $Size = strlen($body);
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 ($Email_RegExp_Match, $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 ($Email_RegExp_Match, "<a href=\"../src/compose.php?send_to=\\0\">\\0</a>", $body);
48 $body = eregi_replace ($Email_RegExp_Match, "<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 // We don't want to re-initialize this stuff for every line. Save work
58 // and just do it once here.
59 $url_parser_url_tokens = array(
63 'telnet:', // Special case -- doesn't need the slashes
67 $url_parser_poss_ends = array(' ', "\n", "\r", '<', '>', ".\r", ".\n",
68 '. ', ' ', ')', '(', '"', '<', '>', '.<',
69 ']', '[', '{', '}', "\240");
72 function parseUrl (&$body)
74 global $url_parser_poss_ends, $url_parser_url_tokens;;
76 $target_pos = strlen($body);
78 while ($start != $target_pos)
82 // Find the first token to replace
83 foreach ($url_parser_url_tokens as $the_token)
85 $pos = strpos(strtolower($body), $the_token, $start);
86 if (is_int($pos) && $pos < $target_pos)
89 $target_token = $the_token;
93 // Look for email addresses between $start and $target_pos
94 $check_str = substr($body, $start, $target_pos);
96 if (parseEmail($check_str))
98 replaceBlock($body, $check_str, $start, $target_pos);
99 $target_pos = strlen($check_str) +
$start;
102 // If there was a token to replace, replace it
103 if ($target_token != '')
105 // Find the end of the URL
107 foreach ($url_parser_poss_ends as $key => $val)
109 $enda = strpos($body,$val,$target_pos);
110 if (is_int($enda) && $enda < $end)
115 $url = substr($body, $target_pos, $end-$target_pos);
117 // Replace URL with HyperLinked Url, requires 1 char in link
118 if ($url != '' && $url != $target_token)
120 $url_str = "<a href=\"$url\" target=\"_blank\">$url</a>";
121 replaceBlock($body,$url_str,$target_pos,$end);
122 $target_pos +
= strlen($url_str);
126 // Not quite a valid link, skip ahead to next chance
127 $target_pos +
= strlen($target_token);
132 $start = $target_pos;
133 $target_pos = strlen($body);