]> git.mxchange.org Git - friendica.git/blob - include/html2plain.php
fix docstring of `get_poke_verbs()`
[friendica.git] / include / html2plain.php
1 <?php
2
3 require_once 'include/html2bbcode.php';
4
5 function breaklines($line, $level, $wraplength = 75)
6 {
7         if ($wraplength == 0) {
8                 $wraplength = 2000000;
9         }
10
11         $wraplen = $wraplength - $level;
12
13         $newlines = [];
14
15         do {
16                 $oldline = $line;
17
18                 $subline = substr($line, 0, $wraplen);
19
20                 $pos = strrpos($subline, ' ');
21
22                 if ($pos == 0) {
23                         $pos = strpos($line, ' ');
24                 }
25
26                 if (($pos > 0) && strlen($line) > $wraplen) {
27                         $newline = trim(substr($line, 0, $pos));
28                         if ($level > 0) {
29                                 $newline = str_repeat(">", $level) . ' ' . $newline;
30                         }
31
32                         $newlines[] = $newline . " ";
33                         $line = substr($line, $pos + 1);
34                 }
35         } while ((strlen($line) > $wraplen) && !($oldline == $line));
36
37         if ($level > 0) {
38                 $line = str_repeat(">", $level) . ' ' . $line;
39         }
40
41         $newlines[] = $line;
42
43         return implode($newlines, "\n");
44 }
45
46 function quotelevel($message, $wraplength = 75)
47 {
48         $lines = explode("\n", $message);
49
50         $newlines = [];
51         $level = 0;
52         foreach ($lines as $line) {
53                 $line = trim($line);
54                 $startquote = false;
55                 while (strpos("*" . $line, '[quote]') > 0) {
56                         $level++;
57                         $pos = strpos($line, '[quote]');
58                         $line = substr($line, 0, $pos) . substr($line, $pos + 7);
59                         $startquote = true;
60                 }
61
62                 $currlevel = $level;
63
64                 while (strpos("*" . $line, '[/quote]') > 0) {
65                         $level--;
66                         if ($level < 0) {
67                                 $level = 0;
68                         }
69
70                         $pos = strpos($line, '[/quote]');
71                         $line = substr($line, 0, $pos) . substr($line, $pos + 8);
72                 }
73
74                 if (!$startquote || ($line != '')) {
75                         $newlines[] = breaklines($line, $currlevel, $wraplength);
76                 }
77         }
78
79         return implode($newlines, "\n");
80 }
81
82 function collecturls($message)
83 {
84         $pattern = '/<a.*?href="(.*?)".*?>(.*?)<\/a>/is';
85         preg_match_all($pattern, $message, $result, PREG_SET_ORDER);
86
87         $urls = [];
88         foreach ($result as $treffer) {
89                 $ignore = false;
90
91                 // A list of some links that should be ignored
92                 $list = ["/user/", "/tag/", "/group/", "/profile/", "/search?search=", "/search?tag=", "mailto:", "/u/", "/node/",
93                         "//facebook.com/profile.php?id=", "//plus.google.com/", "//twitter.com/"];
94                 foreach ($list as $listitem) {
95                         if (strpos($treffer[1], $listitem) !== false) {
96                                 $ignore = true;
97                         }
98                 }
99
100                 if ((strpos($treffer[1], "//twitter.com/") !== false) && (strpos($treffer[1], "/status/") !== false)) {
101                         $ignore = false;
102                 }
103
104                 if ((strpos($treffer[1], "//plus.google.com/") !== false) && (strpos($treffer[1], "/posts") !== false)) {
105                         $ignore = false;
106                 }
107
108                 if ((strpos($treffer[1], "//plus.google.com/") !== false) && (strpos($treffer[1], "/photos") !== false)) {
109                         $ignore = false;
110                 }
111
112                 if (!$ignore) {
113                         $urls[$treffer[1]] = $treffer[1];
114                 }
115         }
116
117         return $urls;
118 }
119
120 function html2plain($html, $wraplength = 75, $compact = false)
121 {
122         global $lang;
123
124         $message = str_replace("\r", "", $html);
125
126         $doc = new DOMDocument();
127         $doc->preserveWhiteSpace = false;
128
129         $message = mb_convert_encoding($message, 'HTML-ENTITIES', "UTF-8");
130
131         @$doc->loadHTML($message);
132
133         $xpath = new DomXPath($doc);
134         $list = $xpath->query("//pre");
135         foreach ($list as $node) {
136                 $node->nodeValue = str_replace("\n", "\r", $node->nodeValue);
137         }
138
139         $message = $doc->saveHTML();
140         $message = str_replace(["\n<", ">\n", "\r", "\n", "\xC3\x82\xC2\xA0"], ["<", ">", "<br>", " ", ""], $message);
141         $message = preg_replace('= [\s]*=i', " ", $message);
142
143         // Collecting all links
144         $urls = collecturls($message);
145
146         @$doc->loadHTML($message);
147
148         node2bbcode($doc, 'html', [], '', '');
149         node2bbcode($doc, 'body', [], '', '');
150
151         // MyBB-Auszeichnungen
152         /*
153           node2bbcode($doc, 'span', array('style'=>'text-decoration: underline;'), '_', '_');
154           node2bbcode($doc, 'span', array('style'=>'font-style: italic;'), '/', '/');
155           node2bbcode($doc, 'span', array('style'=>'font-weight: bold;'), '*', '*');
156
157           node2bbcode($doc, 'strong', array(), '*', '*');
158           node2bbcode($doc, 'b', array(), '*', '*');
159           node2bbcode($doc, 'i', array(), '/', '/');
160           node2bbcode($doc, 'u', array(), '_', '_');
161          */
162
163         if ($compact) {
164                 node2bbcode($doc, 'blockquote', [], "»", "«");
165         } else {
166                 node2bbcode($doc, 'blockquote', [], '[quote]', "[/quote]\n");
167         }
168
169         node2bbcode($doc, 'br', [], "\n", '');
170
171         node2bbcode($doc, 'span', [], "", "");
172         node2bbcode($doc, 'pre', [], "", "");
173         node2bbcode($doc, 'div', [], "\r", "\r");
174         node2bbcode($doc, 'p', [], "\n", "\n");
175
176         //node2bbcode($doc, 'ul', array(), "\n[list]", "[/list]\n");
177         //node2bbcode($doc, 'ol', array(), "\n[list=1]", "[/list]\n");
178         node2bbcode($doc, 'li', [], "\n* ", "\n");
179
180         node2bbcode($doc, 'hr', [], "\n" . str_repeat("-", 70) . "\n", "");
181
182         node2bbcode($doc, 'tr', [], "\n", "");
183         node2bbcode($doc, 'td', [], "\t", "");
184
185         node2bbcode($doc, 'h1', [], "\n\n*", "*\n");
186         node2bbcode($doc, 'h2', [], "\n\n*", "*\n");
187         node2bbcode($doc, 'h3', [], "\n\n*", "*\n");
188         node2bbcode($doc, 'h4', [], "\n\n*", "*\n");
189         node2bbcode($doc, 'h5', [], "\n\n*", "*\n");
190         node2bbcode($doc, 'h6', [], "\n\n*", "*\n");
191
192         // Problem: there is no reliable way to detect if it is a link to a tag or profile
193         //node2bbcode($doc, 'a', array('href'=>'/(.+)/'), ' $1 ', ' ', true);
194         //node2bbcode($doc, 'a', array('href'=>'/(.+)/', 'rel'=>'oembed'), ' $1 ', '', true);
195         //node2bbcode($doc, 'img', array('alt'=>'/(.+)/'), '$1', '');
196         //node2bbcode($doc, 'img', array('title'=>'/(.+)/'), '$1', '');
197         //node2bbcode($doc, 'img', array(), '', '');
198         if (!$compact) {
199                 node2bbcode($doc, 'img', ['src' => '/(.+)/'], ' [img]$1', '[/img] ');
200         } else {
201                 node2bbcode($doc, 'img', ['src' => '/(.+)/'], ' ', ' ');
202         }
203
204         node2bbcode($doc, 'iframe', ['src' => '/(.+)/'], ' $1 ', '');
205
206         $message = $doc->saveHTML();
207
208         if (!$compact) {
209                 $message = str_replace("[img]", "", $message);
210                 $message = str_replace("[/img]", "", $message);
211         }
212
213         // was ersetze ich da?
214         // Irgendein stoerrisches UTF-Zeug
215         $message = str_replace(chr(194) . chr(160), ' ', $message);
216
217         $message = str_replace("&nbsp;", " ", $message);
218
219         // Aufeinanderfolgende DIVs
220         $message = preg_replace('=\r *\r=i', "\n", $message);
221         $message = str_replace("\r", "\n", $message);
222
223         $message = strip_tags($message);
224
225         $message = html_entity_decode($message, ENT_QUOTES, 'UTF-8');
226
227         if (!$compact && ($message != '')) {
228                 foreach ($urls as $id => $url) {
229                         if ($url != '' && strpos($message, $url) === false) {
230                                 $message .= "\n" . $url . ' ';
231                         }
232                 }
233         }
234
235         $message = str_replace("\n«", "«\n", $message);
236         $message = str_replace("»\n", "\n»", $message);
237
238         do {
239                 $oldmessage = $message;
240                 $message = str_replace("\n\n\n", "\n\n", $message);
241         } while ($oldmessage != $message);
242
243         $message = quotelevel(trim($message), $wraplength);
244
245         return trim($message);
246 }