Removed line, plugin.php now handles this properly.
[squirrelmail.git] / functions / url_parser.php
CommitLineData
59177427 1<?php
43fcef5c 2 /* URL Passing code to allow links from with in emails */
245a6892 3 /* $Id$ */
43fcef5c 4
5 $url_parser_php = true;
6
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;
11 return $ret;
12 }
13
9eea179c 14 function parseEmail (&$body) {
9297917e 15 global $color;
9eea179c 16 $Size = strlen($body);
e2ef6f4b 17
8f7163e7 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
21 //
22 // Here's pretty sophisticated IP matching:
23 // $IPMatch = '(2[0-5][0-9]|1?[0-9]{1,2})';
24 // $IPMatch = '\[?' . $IPMatch . '(\.' . $IPMatch . '){3}\]?';
25 //
26 // Here's enough:
27 $IPMatch = '\[?[0-9]{1,3}(\.[0-9]{1,3}){3}\]?';
28 $Host = '(' . $IPMatch . '|[0-9a-z]([-.]?[0-9a-z])*\.[a-wyz][a-z](g|l|m|pa|t|u|v)?)';
29 $Expression = '[0-9a-z]([-_.]?[0-9a-z])*(%' . $Host . ')?@' . $Host;
e2ef6f4b 30
9297917e 31 /*
32 This is here in case we ever decide to use highlighting of searched
33 text. this does it for email addresses
34
35 if ($what && ($where == "BODY" || $where == "TEXT")) {
e2ef6f4b 36 eregi ($Expression, $body, $regs);
9297917e 37 $oldaddr = $regs[0];
38 if ($oldaddr) {
39 $newaddr = eregi_replace ($what, "<b><font color=\"$color[2]\">$what</font></font></b>", $oldaddr);
40 $body = str_replace ($oldaddr, "<a href=\"../src/compose.php?send_to=$oldaddr\">$newaddr</a>", $body);
41 }
42 } else {
e2ef6f4b 43 $body = eregi_replace ($Expression, "<a href=\"../src/compose.php?send_to=\\0\">\\0</a>", $body);
9297917e 44 }
45 */
8f7163e7 46
e2ef6f4b 47 $body = eregi_replace ($Expression, "<a href=\"../src/compose.php?send_to=\\0\">\\0</a>", $body);
9eea179c 48
49 // If there are any changes, it'll just get bigger.
50 if ($Size != strlen($body))
51 return 1;
52 return 0;
175e7218 53 }
43fcef5c 54
43fcef5c 55
9eea179c 56 function parseUrl (&$body)
8f7163e7 57 {
58 $url_tokens = array(
59 'http://',
60 'https://',
61 'ftp://',
62 'telnet:', // Special case -- doesn't need the slashes
63 'gopher://',
64 'news://');
65
66 $poss_ends = array(' ', '\n', '\r', '<', '>', '.\r', '.\n', '.&nbsp;',
67 '&nbsp;', ')', '(', '&quot;', '&lt;', '&gt;', '.<', ']', '[', '{',
68 '}', "\240");
69
70 $start = 0;
71 $target_pos = strlen($body);
72
73 while ($start != $target_pos)
e2ef6f4b 74 {
8f7163e7 75 $target_token = '';
76
77 // Find the first token to replace
78 foreach ($url_tokens as $the_token)
79 {
80 $pos = strpos(strtolower($body), $the_token, $start);
81 if (is_int($pos) && $pos < $target_pos)
82 {
83 $target_pos = $pos;
84 $target_token = $the_token;
85 }
86 }
87
88 // Look for email addresses between $start and $target_pos
89 $check_str = substr($body, $start, $target_pos);
8f7163e7 90
9eea179c 91 if (parseEmail($check_str))
8f7163e7 92 {
9eea179c 93 $body = replaceBlock($body, $check_str, $start, $target_pos);
94 $target_pos = strlen($check_str) + $start;
8f7163e7 95 }
e2ef6f4b 96
8f7163e7 97 // If there was a token to replace, replace it
98 if ($target_token != '')
99 {
100 // Find the end of the URL
101 $end=strlen($body);
102 foreach ($poss_ends as $key => $val)
103 {
104 $enda = strpos($body,$val,$target_pos);
105 if (is_int($enda) && $enda < $end)
106 $end = $enda;
107 }
108
109 // Extract URL
110 $url = substr($body, $target_pos, $end-$target_pos);
111
112 // Replace URL with HyperLinked Url, requires 1 char in link
113 if ($url != '' && $url != $target_token)
114 {
115 $url_str = "<a href=\"$url\" target=\"_blank\">$url</a>";
116 $body = replaceBlock($body,$url_str,$target_pos,$end);
117 $target_pos += strlen($url_str);
118 }
119 else
120 {
121 // Not quite a valid link, skip ahead to next chance
122 $target_pos += strlen($target_token);
123 }
124 }
125
126 // Move forward
127 $start = $target_pos;
128 $target_pos = strlen($body);
129 }
43fcef5c 130 }
8f7163e7 131
43fcef5c 132?>