]> git.mxchange.org Git - friendica.git/blob - include/msgclean.php
The global contact for server users is now stored directly
[friendica.git] / include / msgclean.php
1 <?php
2
3 function savereplace($pattern, $replace, $text)
4 {
5         $save = $text;
6
7         $text = preg_replace($pattern, $replace, $text);
8
9         if ($text == '')
10                 $text = $save;
11         return($text);
12 }
13
14 function unifyattributionline($message)
15 {
16         $quotestr = array('quote', 'spoiler');
17         foreach ($quotestr as $quote) {
18
19                 $message = savereplace('/----- Original Message -----\s.*?From: "([^<"].*?)" <(.*?)>\s.*?To: (.*?)\s*?Cc: (.*?)\s*?Sent: (.*?)\s.*?Subject: ([^\n].*)\s*\['.$quote.'\]/i', "[".$quote."='$1']\n", $message);
20                 $message = savereplace('/----- Original Message -----\s.*?From: "([^<"].*?)" <(.*?)>\s.*?To: (.*?)\s*?Sent: (.*?)\s.*?Subject: ([^\n].*)\s*\['.$quote.'\]/i', "[".$quote."='$1']\n", $message);
21
22                 $message = savereplace('/-------- Original-Nachricht --------\s*\['.$quote.'\]\nDatum: (.*?)\nVon: (.*?) <(.*?)>\nAn: (.*?)\nBetreff: (.*?)\n/i', "[".$quote."='$2']\n", $message);
23                 $message = savereplace('/-------- Original-Nachricht --------\s*\['.$quote.'\]\sDatum: (.*?)\s.*Von: "([^<"].*?)" <(.*?)>\s.*An: (.*?)\n.*/i', "[".$quote."='$2']\n", $message);
24                 $message = savereplace('/-------- Original-Nachricht --------\s*\['.$quote.'\]\nDatum: (.*?)\nVon: (.*?)\nAn: (.*?)\nBetreff: (.*?)\n/i', "[".$quote."='$2']\n", $message);
25
26                 $message = savereplace('/-----Urspr.*?ngliche Nachricht-----\sVon: "([^<"].*?)" <(.*?)>\s.*Gesendet: (.*?)\s.*An: (.*?)\s.*Betreff: ([^\n].*?).*:\s*\['.$quote.'\]/i', "[".$quote."='$1']\n", $message);
27                 $message = savereplace('/-----Urspr.*?ngliche Nachricht-----\sVon: "([^<"].*?)" <(.*?)>\s.*Gesendet: (.*?)\s.*An: (.*?)\s.*Betreff: ([^\n].*?)\s*\['.$quote.'\]/i', "[".$quote."='$1']\n", $message);
28
29                 $message = savereplace('/Am (.*?), schrieb (.*?):\s*\['.$quote.'\]/i', "[".$quote."='$2']\n", $message);
30
31                 $message = savereplace('/Am .*?, \d+ .*? \d+ \d+:\d+:\d+ \+\d+\sschrieb\s(.*?)\s<(.*?)>:\s*\['.$quote.'\]/i', "[".$quote."='$1']\n", $message);
32
33                 $message = savereplace('/Am (.*?) schrieb (.*?) <(.*?)>:\s*\['.$quote.'\]/i', "[".$quote."='$2']\n", $message);
34                 $message = savereplace('/Am (.*?) schrieb <(.*?)>:\s*\['.$quote.'\]/i', "[".$quote."='$2']\n", $message);
35                 $message = savereplace('/Am (.*?) schrieb (.*?):\s*\['.$quote.'\]/i', "[".$quote."='$2']\n", $message);
36                 $message = savereplace('/Am (.*?) schrieb (.*?)\n(.*?):\s*\['.$quote.'\]/i', "[".$quote."='$2']\n", $message);
37
38                 $message = savereplace('/(\d+)\/(\d+)\/(\d+) ([^<"].*?) <(.*?)>\s*\['.$quote.'\]/i', "[".$quote."='$4']\n", $message);
39
40                 $message = savereplace('/On .*?, \d+ .*? \d+ \d+:\d+:\d+ \+\d+\s(.*?)\s<(.*?)>\swrote:\s*\['.$quote.'\]/i', "[".$quote."='$1']\n", $message);
41
42                 $message = savereplace('/On (.*?) at (.*?), (.*?)\s<(.*?)>\swrote:\s*\['.$quote.'\]/i', "[".$quote."='$3']\n", $message);
43                 $message = savereplace('/On (.*?)\n([^<].*?)\s<(.*?)>\swrote:\s*\['.$quote.'\]/i', "[".$quote."='$2']\n", $message);
44                 $message = savereplace('/On (.*?), (.*?), (.*?)\s<(.*?)>\swrote:\s*\['.$quote.'\]/i', "[".$quote."='$3']\n", $message);
45                 $message = savereplace('/On ([^,].*?), (.*?)\swrote:\s*\['.$quote.'\]/i', "[".$quote."='$2']\n", $message);
46                 $message = savereplace('/On (.*?), (.*?)\swrote\s*\['.$quote.'\]/i', "[".$quote."='$2']\n", $message);
47
48                 // Der loescht manchmal den Body - was eigentlich unmoeglich ist
49                 $message = savereplace('/On (.*?),(.*?),(.*?),(.*?), (.*?) wrote:\s*\['.$quote.'\]/i', "[".$quote."='$5']\n", $message);
50
51                 $message = savereplace('/Zitat von ([^<].*?) <(.*?)>:\s*\['.$quote.'\]/i', "[".$quote."='$1']\n", $message);
52
53                 $message = savereplace('/Quoting ([^<].*?) <(.*?)>:\s*\['.$quote.'\]/i', "[".$quote."='$1']\n", $message);
54
55                 $message = savereplace('/From: "([^<"].*?)" <(.*?)>\s*\['.$quote.'\]/i', "[".$quote."='$1']\n", $message);
56                 $message = savereplace('/From: <(.*?)>\s*\['.$quote.'\]/i', "[".$quote."='$1']\n", $message);
57
58                 $message = savereplace('/Du \(([^)].*?)\) schreibst:\s*\['.$quote.'\]/i', "[".$quote."='$1']\n", $message);
59
60                 $message = savereplace('/--- (.*?) <.*?> schrieb am (.*?):\s*\['.$quote.'\]/i', "[".$quote."='$1']\n", $message);
61                 $message = savereplace('/--- (.*?) schrieb am (.*?):\s*\['.$quote.'\]/i', "[".$quote."='$1']\n", $message);
62
63                 $message = savereplace('/\* (.*?) <(.*?)> hat geschrieben:\s*\['.$quote.'\]/i', "[".$quote."='$1']\n", $message);
64
65                 $message = savereplace('/(.*?) <(.*?)> schrieb (.*?)\):\s*\['.$quote.'\]/i', "[".$quote."='$1']\n", $message);
66                 $message = savereplace('/(.*?) <(.*?)> schrieb am (.*?) um (.*):\s*\['.$quote.'\]/i', "[".$quote."='$1']\n", $message);
67                 $message = savereplace('/(.*?) schrieb am (.*?) um (.*):\s*\['.$quote.'\]/i', "[".$quote."='$1']\n", $message);
68                 $message = savereplace('/(.*?) \((.*?)\) schrieb:\s*\['.$quote.'\]/i', "[".$quote."='$2']\n", $message);
69                 $message = savereplace('/(.*?) schrieb:\s*\['.$quote.'\]/i', "[".$quote."='$1']\n", $message);
70
71                 $message = savereplace('/(.*?) <(.*?)> writes:\s*\['.$quote.'\]/i', "[".$quote."='$1']\n", $message);
72                 $message = savereplace('/(.*?) \((.*?)\) writes:\s*\['.$quote.'\]/i', "[".$quote."='$2']\n", $message);
73                 $message = savereplace('/(.*?) writes:\s*\['.$quote.'\]/i', "[".$quote."='$1']\n", $message);
74
75                 $message = savereplace('/\* (.*?) wrote:\s*\['.$quote.'\]/i', "[".$quote."='$1']\n", $message);
76                 $message = savereplace('/(.*?) wrote \(.*?\):\s*\['.$quote.'\]/i', "[".$quote."='$1']\n", $message);
77                 $message = savereplace('/(.*?) wrote:\s*\['.$quote.'\]/i', "[".$quote."='$1']\n", $message);
78
79                 $message = savereplace('/([^<].*?) <.*?> hat am (.*?)\sum\s(.*)\sgeschrieben:\s*\['.$quote.'\]/i', "[".$quote."='$1']\n", $message);
80
81                 $message = savereplace('/(\d+)\/(\d+)\/(\d+) ([^<"].*?) <(.*?)>:\s*\['.$quote.'\]/i', "[".$quote."='$4']\n", $message);
82                 $message = savereplace('/(\d+)\/(\d+)\/(\d+) (.*?) <(.*?)>\s*\['.$quote.'\]/i', "[".$quote."='$4']\n", $message);
83                 $message = savereplace('/(\d+)\/(\d+)\/(\d+) <(.*?)>:\s*\['.$quote.'\]/i', "[".$quote."='$4']\n", $message);
84                 $message = savereplace('/(\d+)\/(\d+)\/(\d+) <(.*?)>\s*\['.$quote.'\]/i', "[".$quote."='$4']\n", $message);
85
86                 $message = savereplace('/(.*?) <(.*?)> schrubselte:\s*\['.$quote.'\]/i', "[".$quote."='$1']\n", $message);
87                 $message = savereplace('/(.*?) \((.*?)\) schrubselte:\s*\['.$quote.'\]/i', "[".$quote."='$2']\n", $message);
88
89         }
90         return($message);
91 }
92
93 function removegpg($message)
94 {
95
96         $pattern = '/(.*)\s*-----BEGIN PGP SIGNED MESSAGE-----\s*[\r\n].*Hash:.*?[\r\n](.*)'.
97                 '[\r\n]\s*-----BEGIN PGP SIGNATURE-----\s*[\r\n].*'.
98                 '[\r\n]\s*-----END PGP SIGNATURE-----(.*)/is';
99
100         preg_match($pattern, $message, $result);
101
102         $cleaned = trim($result[1].$result[2].$result[3]);
103
104         $cleaned = str_replace(array("\n- --\n", "\n- -"), array("\n-- \n", "\n-"), $cleaned);
105
106
107         if ($cleaned == '')
108                 $cleaned = $message;
109
110         return($cleaned);
111 }
112
113 function removesig($message)
114 {
115         $sigpos = strrpos($message, "\n-- \n");
116         $quotepos = strrpos($message, "[/quote]");
117
118         if ($sigpos == 0) {
119                 // Speziell fuer web.de, die das als Trenner verwenden
120                 $message = str_replace("\n___________________________________________________________\n", "\n-- \n", $message);
121                 $sigpos = strrpos($message, "\n-- \n");
122                 $quotepos = strrpos($message, "[/quote]");
123         }
124
125         // Sollte sich der Signaturtrenner innerhalb eines Quotes befinden
126         // wird keine Signaturtrennung ausgefuehrt
127         if (($sigpos < $quotepos) and ($sigpos != 0))
128                 return(array('body' => $message, 'sig' => ''));
129
130         /// @TODO Regexp umstellen, so dass auf 1 oder kein Leerzeichen
131         /// geprueft wird
132         /// $message = str_replace("\n--\n", "\n-- \n", $message);
133
134         $pattern = '/(.*)[\r\n]-- [\r\n](.*)/is';
135
136         preg_match($pattern, $message, $result);
137
138         if (($result[1] != '') and ($result[2] != '')) {
139                 $cleaned = trim($result[1])."\n";
140                 $sig = trim($result[2]);
141                 //      '[hr][size=x-small][color=darkblue]'.trim($result[2]).'[/color][/size]';
142         } else {
143                 $cleaned = $message;
144                 $sig = '';
145         }
146
147         return(array('body' => $cleaned, 'sig' => $sig));
148 }
149
150 function removelinebreak($message)
151 {
152         $arrbody = explode("\n", trim($message));
153
154         $lines = array();
155         $lineno = 0;
156
157         foreach($arrbody as $i => $line) {
158                 $currquotelevel = 0;
159                 $currline = $line;
160                 while ((strlen($currline)>0) and ((substr($currline, 0, 1) == '>')
161                         or (substr($currline, 0, 1) == ' '))) {
162                         if (substr($currline, 0, 1) == '>')
163                                 $currquotelevel++;
164
165                         $currline = ltrim(substr($currline, 1));
166                 }
167
168                 $quotelevel = 0;
169                 $nextline = trim($arrbody[$i+1]);
170                 while ((strlen($nextline)>0) and ((substr($nextline, 0, 1) == '>')
171                         or (substr($nextline, 0, 1) == ' '))) {
172                         if (substr($nextline, 0, 1) == '>')
173                                 $quotelevel++;
174
175                         $nextline = ltrim(substr($nextline, 1));
176                 }
177
178                 $len = strlen($line);
179                 $firstword = strpos($nextline.' ', ' ');
180
181                 $specialchars = ((substr(trim($nextline), 0, 1) == '-') or
182                                 (substr(trim($nextline), 0, 1) == '=') or
183                                 (substr(trim($nextline), 0, 1) == '*') or
184                                 (substr(trim($nextline), 0, 1) == '·') or
185                                 (substr(trim($nextline), 0, 4) == '[url') or
186                                 (substr(trim($nextline), 0, 5) == '[size') or
187                                 (substr(trim($nextline), 0, 7) == 'http://') or
188                                 (substr(trim($nextline), 0, 8) == 'https://'));
189
190                 if (!$specialchars) 
191                         $specialchars = ((substr(rtrim($line), -1) == '-') or
192                                         (substr(rtrim($line), -1) == '=') or
193                                         (substr(rtrim($line), -1) == '*') or
194                                         (substr(rtrim($line), -1) == '·') or
195                                         (substr(rtrim($line), -6) == '[/url]') or
196                                         (substr(rtrim($line), -7) == '[/size]'));
197
198                 //if ($specialchars)
199                 //      echo ("Special\n");
200
201                 if ($lines[$lineno] != '') {
202                         if (substr($lines[$lineno], -1) != ' ')
203                         $lines[$lineno] .= ' ';
204
205                         while ((strlen($line)>0) and ((substr($line, 0, 1) == '>')
206                         or (substr($line, 0, 1) == ' '))) {
207
208                                 $line = ltrim(substr($line, 1));
209                         }
210
211                 }
212                 //else
213                 //      $lines[$lineno] = $quotelevel.'-'.$len.'-'.$firstword.'-';
214
215                 $lines[$lineno] .= $line;
216                 //if ((($len + $firstword < 68) and (substr($line, -1, 1) != ' '))
217                 //      or ($quotelevel != $currquotelevel) or $specialchars)
218                 if (((substr($line, -1, 1) != ' '))
219                         or ($quotelevel != $currquotelevel))
220                         $lineno++;
221         }
222         return(implode("\n", $lines));
223
224 }
225 ?>