]> git.mxchange.org Git - friendica.git/blob - include/Scrape.php
1b319481ba1e27c9a1fb1e7d5bd0e9b9c2efadaa
[friendica.git] / include / Scrape.php
1 <?php
2
3 require_once('library/HTML5/Parser.php');
4 require_once('include/crypto.php');
5
6 if(! function_exists('scrape_dfrn')) {
7 function scrape_dfrn($url) {
8
9         $a = get_app();
10
11         $ret = array();
12
13         logger('scrape_dfrn: url=' . $url);
14
15         $s = fetch_url($url);
16
17         if(! $s) 
18                 return $ret;
19
20         $headers = $a->get_curl_headers();
21         logger('scrape_dfrn: headers=' . $headers, LOGGER_DEBUG);
22
23
24         $lines = explode("\n",$headers);
25         if(count($lines)) {
26                 foreach($lines as $line) {                              
27                         // don't try and run feeds through the html5 parser
28                         if(stristr($line,'content-type:') && ((stristr($line,'application/atom+xml')) || (stristr($line,'application/rss+xml'))))
29                                 return ret;
30                 }
31         }
32
33
34         $dom = HTML5_Parser::parse($s);
35
36         if(! $dom)
37                 return $ret;
38
39         $items = $dom->getElementsByTagName('link');
40
41         // get DFRN link elements
42
43         foreach($items as $item) {
44                 $x = $item->getAttribute('rel');
45                 if(($x === 'alternate') && ($item->getAttribute('type') === 'application/atom+xml'))
46                         $ret['feed_atom'] = $item->getAttribute('href');
47                 if(substr($x,0,5) == "dfrn-") {
48                         $ret[$x] = $item->getAttribute('href');
49                 }
50                 if($x === 'lrdd') {
51                         $decoded = urldecode($item->getAttribute('href'));
52                         if(preg_match('/acct:([^@]*)@/',$decoded,$matches))
53                                 $ret['nick'] = $matches[1];
54                 }
55         }
56
57         // Pull out hCard profile elements
58
59         $largest_photo = 0;
60
61         $items = $dom->getElementsByTagName('*');
62         foreach($items as $item) {
63                 if(attribute_contains($item->getAttribute('class'), 'vcard')) {
64                         $level2 = $item->getElementsByTagName('*');
65                         foreach($level2 as $x) {
66                                 if(attribute_contains($x->getAttribute('class'),'fn')) {
67                                         $ret['fn'] = $x->textContent;
68                                 }
69                                 if((attribute_contains($x->getAttribute('class'),'photo'))
70                                         || (attribute_contains($x->getAttribute('class'),'avatar'))) {
71                                         $size = intval($x->getAttribute('width'));
72                                         // dfrn prefers 175, so if we find this, we set largest_size so it can't be topped.
73                                         if(($size > $largest_photo) || ($size == 175) || (! $largest_photo)) {
74                                                 $ret['photo'] = $x->getAttribute('src');
75                                                 $largest_photo = (($size == 175) ? 9999 : $size);
76                                         }
77                                 }
78                                 if(attribute_contains($x->getAttribute('class'),'key')) {
79                                         $ret['key'] = $x->textContent;
80                                 }
81                         }
82                 }
83         }
84
85         return $ret;
86 }}
87
88
89
90
91
92
93 if(! function_exists('validate_dfrn')) {
94 function validate_dfrn($a) {
95         $errors = 0;
96         if(! x($a,'key'))
97                 $errors ++;
98         if(! x($a,'dfrn-request'))
99                 $errors ++;
100         if(! x($a,'dfrn-confirm'))
101                 $errors ++;
102         if(! x($a,'dfrn-notify'))
103                 $errors ++;
104         if(! x($a,'dfrn-poll'))
105                 $errors ++;
106         return $errors;
107 }}
108
109 if(! function_exists('scrape_meta')) {
110 function scrape_meta($url) {
111
112         $a = get_app();
113
114         $ret = array();
115
116         logger('scrape_meta: url=' . $url);
117
118         $s = fetch_url($url);
119
120         if(! $s) 
121                 return $ret;
122
123         $headers = $a->get_curl_headers();
124         logger('scrape_meta: headers=' . $headers, LOGGER_DEBUG);
125
126         $lines = explode("\n",$headers);
127         if(count($lines)) {
128                 foreach($lines as $line) {                              
129                         // don't try and run feeds through the html5 parser
130                         if(stristr($line,'content-type:') && ((stristr($line,'application/atom+xml')) || (stristr($line,'application/rss+xml'))))
131                                 return ret;
132                 }
133         }
134
135
136
137         $dom = HTML5_Parser::parse($s);
138
139         if(! $dom)
140                 return $ret;
141
142         $items = $dom->getElementsByTagName('meta');
143
144         // get DFRN link elements
145
146         foreach($items as $item) {
147                 $x = $item->getAttribute('name');
148                 if(substr($x,0,5) == "dfrn-")
149                         $ret[$x] = $item->getAttribute('content');
150         }
151
152         return $ret;
153 }}
154
155
156 if(! function_exists('scrape_vcard')) {
157 function scrape_vcard($url) {
158
159         $a = get_app();
160
161         $ret = array();
162
163         logger('scrape_vcard: url=' . $url);
164
165         $s = fetch_url($url);
166
167         if(! $s) 
168                 return $ret;
169
170         $headers = $a->get_curl_headers();
171         $lines = explode("\n",$headers);
172         if(count($lines)) {
173                 foreach($lines as $line) {                              
174                         // don't try and run feeds through the html5 parser
175                         if(stristr($line,'content-type:') && ((stristr($line,'application/atom+xml')) || (stristr($line,'application/rss+xml'))))
176                                 return ret;
177                 }
178         }
179
180         $dom = HTML5_Parser::parse($s);
181
182         if(! $dom)
183                 return $ret;
184
185         // Pull out hCard profile elements
186
187         $largest_photo = 0;
188
189         $items = $dom->getElementsByTagName('*');
190         foreach($items as $item) {
191                 if(attribute_contains($item->getAttribute('class'), 'vcard')) {
192                         $level2 = $item->getElementsByTagName('*');
193                         foreach($level2 as $x) {
194                                 if(attribute_contains($x->getAttribute('class'),'fn'))
195                                         $ret['fn'] = $x->textContent;
196                                 if((attribute_contains($x->getAttribute('class'),'photo'))
197                                         || (attribute_contains($x->getAttribute('class'),'avatar'))) {
198                                         $size = intval($x->getAttribute('width'));
199                                         if(($size > $largest_photo) || (! $largest_photo)) {
200                                                 $ret['photo'] = $x->getAttribute('src');
201                                                 $largest_photo = $size;
202                                         }
203                                 }
204                                 if((attribute_contains($x->getAttribute('class'),'nickname'))
205                                         || (attribute_contains($x->getAttribute('class'),'uid'))) {
206                                         $ret['nick'] = $x->textContent;
207                                 }
208                         }
209                 }
210         }
211
212         return $ret;
213 }}
214
215
216 if(! function_exists('scrape_feed')) {
217 function scrape_feed($url) {
218
219         $a = get_app();
220
221         $ret = array();
222         $s = fetch_url($url);
223
224         if(! $s) 
225                 return $ret;
226
227         $headers = $a->get_curl_headers();
228         logger('scrape_feed: headers=' . $headers, LOGGER_DEBUG);
229
230         $lines = explode("\n",$headers);
231         if(count($lines)) {
232                 foreach($lines as $line) {                              
233                         if(stristr($line,'content-type:')) {
234                                 if(stristr($line,'application/atom+xml') || stristr($s,'<feed')) {
235                                         $ret['feed_atom'] = $url;
236                                         return $ret;
237                                 }
238                                 if(stristr($line,'application/rss+xml') || stristr($s,'<rss')) {
239                                         $ret['feed_rss'] = $url;
240                                         return $ret;
241                                 }
242                         }
243                 }
244         }
245
246         $dom = HTML5_Parser::parse($s);
247
248         if(! $dom)
249                 return $ret;
250
251
252         $items = $dom->getElementsByTagName('img');
253
254         // get img elements (twitter)
255
256         if($items) {
257                 foreach($items as $item) {
258                         $x = $item->getAttribute('id');
259                         if($x === 'profile-image') {
260                                 $ret['photo'] = $item->getAttribute('src');
261                         }
262                 }
263         }
264
265
266         $head = $dom->getElementsByTagName('base');
267         if($head) {
268                 foreach($head as $head0) {
269                         $basename = $head0->getAttribute('href');
270                         break;
271                 }
272         }
273         if(! $basename)
274                 $basename = substr($url,0,strrpos($url,'/')) . '/';
275
276         $items = $dom->getElementsByTagName('link');
277
278         // get Atom/RSS link elements, take the first one of either.
279
280         if($items) {
281                 foreach($items as $item) {
282                         $x = $item->getAttribute('rel');
283                         if(($x === 'alternate') && ($item->getAttribute('type') === 'application/atom+xml')) {
284                                 if(! x($ret,'feed_atom'))
285                                         $ret['feed_atom'] = $item->getAttribute('href');
286                         }
287                         if(($x === 'alternate') && ($item->getAttribute('type') === 'application/rss+xml')) {
288                                 if(! x($ret,'feed_rss'))
289                                         $ret['feed_rss'] = $item->getAttribute('href');
290                         }
291                 }       
292         }
293
294         // Drupal and perhaps others only provide relative URL's. Turn them into absolute.
295
296         if(x($ret,'feed_atom') && (! strstr($ret['feed_atom'],'://')))
297                 $ret['feed_atom'] = $basename . $ret['feed_atom'];
298         if(x($ret,'feed_rss') && (! strstr($ret['feed_rss'],'://')))
299                 $ret['feed_rss'] = $basename . $ret['feed_rss'];
300
301         return $ret;
302 }}
303
304 define ( 'PROBE_NORMAL',   0);
305 define ( 'PROBE_DIASPORA', 1);
306
307 function probe_url($url, $mode = PROBE_NORMAL) {
308         require_once('include/email.php');
309
310         $result = array();
311
312         if(! $url)
313                 return $result;
314
315         $diaspora = false;
316         $diaspora_base = '';
317         $diaspora_guid = '';    
318         $diaspora_key = '';
319         $email_conversant = false;
320
321         $twitter = ((strpos($url,'twitter.com') !== false) ? true : false);
322
323         $at_addr = ((strpos($url,'@') !== false) ? true : false);
324
325         if(! $twitter) {
326
327                 if(strpos($url,'mailto:') !== false && $at_addr) {
328                         $url = str_replace('mailto:','',$url);
329                         $links = array();
330                 }
331                 else
332                         $links = lrdd($url);
333
334                 if(count($links)) {
335                         logger('probe_url: found lrdd links: ' . print_r($links,true), LOGGER_DATA);
336                         foreach($links as $link) {
337                                 if($link['@attributes']['rel'] === NAMESPACE_ZOT)
338                                         $zot = unamp($link['@attributes']['href']);
339                                 if($link['@attributes']['rel'] === NAMESPACE_DFRN)
340                                         $dfrn = unamp($link['@attributes']['href']);
341                                 if($link['@attributes']['rel'] === 'salmon')
342                                         $notify = unamp($link['@attributes']['href']);
343                                 if($link['@attributes']['rel'] === NAMESPACE_FEED)
344                                         $poll = unamp($link['@attributes']['href']);
345                                 if($link['@attributes']['rel'] === 'http://microformats.org/profile/hcard')
346                                         $hcard = unamp($link['@attributes']['href']);
347                                 if($link['@attributes']['rel'] === 'http://webfinger.net/rel/profile-page')
348                                         $profile = unamp($link['@attributes']['href']);
349                                 if($link['@attributes']['rel'] === 'http://joindiaspora.com/seed_location') {
350                                         $diaspora_base = unamp($link['@attributes']['href']);
351                                         $diaspora = true;
352                                 }
353                                 if($link['@attributes']['rel'] === 'http://joindiaspora.com/guid') {
354                                         $diaspora_guid = unamp($link['@attributes']['href']);
355                                         $diaspora = true;
356                                 }
357                                 if($link['@attributes']['rel'] === 'diaspora-public-key') {
358                                         $diaspora_key = base64_decode(unamp($link['@attributes']['href']));
359                                         $pubkey = rsatopem($diaspora_key);
360                                         $diaspora = true;
361                                 }
362                         }
363
364                         // Status.Net can have more than one profile URL. We need to match the profile URL
365                         // to a contact on incoming messages to prevent spam, and we won't know which one
366                         // to match. So in case of two, one of them is stored as an alias. Only store URL's
367                         // and not webfinger user@host aliases. If they've got more than two non-email style
368                         // aliases, let's hope we're lucky and get one that matches the feed author-uri because 
369                         // otherwise we're screwed.
370
371                         foreach($links as $link) {
372                                 if($link['@attributes']['rel'] === 'alias') {
373                                         if(strpos($link['@attributes']['href'],'@') === false) {
374                                                 if(isset($profile)) {
375                                                         if($link['@attributes']['href'] !== $profile)
376                                                                 $alias = unamp($link['@attributes']['href']);
377                                                 }
378                                                 else
379                                                         $profile = unamp($link['@attributes']['href']);
380                                         }
381                                 }
382                         }
383                 }
384                 elseif($mode == PROBE_NORMAL) {
385
386                         // Check email
387
388                         $orig_url = $url;
389                         if((strpos($orig_url,'@')) && validate_email($orig_url)) {
390                                 $x = q("SELECT `prvkey` FROM `user` WHERE `uid` = %d LIMIT 1",
391                                         intval(local_user())
392                                 );
393                                 $r = q("SELECT * FROM `mailacct` WHERE `uid` = %d AND `server` != '' LIMIT 1",
394                                         intval(local_user())
395                                 );
396                                 if(count($x) && count($r)) {
397                                     $mailbox = construct_mailbox_name($r[0]);
398                                         $password = '';
399                                         openssl_private_decrypt(hex2bin($r[0]['pass']),$password,$x[0]['prvkey']);
400                                         $mbox = email_connect($mailbox,$r[0]['user'],$password);
401                                         unset($password);
402                                 }
403                                 if($mbox) {
404                                         $msgs = email_poll($mbox,$orig_url);
405                                         if(count($msgs)) {
406                                                 $addr = $orig_url;
407                                                 $network = NETWORK_MAIL;
408                                                 $name = substr($url,0,strpos($url,'@'));
409                                                 $profile = 'http://' . substr($url,strpos($url,'@')+1);
410                                                 // fix nick character range
411                                                 $vcard = array('fn' => $name, 'nick' => $name, 'photo' => gravatar_img($url));
412                                                 $notify = 'smtp ' . random_string();
413                                                 $poll = 'email ' . random_string();
414                                                 $priority = 0;
415                                                 $x = email_msg_meta($mbox,$msgs[0]);
416                                                 if(stristr($x->from,$orig_url))
417                                                         $adr = imap_rfc822_parse_adrlist($x->from,'');
418                                                 elseif(stristr($x->to,$orig_url))
419                                                         $adr = imap_rfc822_parse_adrlist($x->to,'');
420                                                 if(isset($adr) && strlen($adr[0]->personal))
421                                                         $vcard['fn'] = notags($adr[0]->personal);
422                                         }
423                                         imap_close($mbox);
424                                 }
425                         }
426                 }
427         }       
428
429         if($mode == PROBE_NORMAL) {
430                 if(strlen($zot)) {
431                         $s = fetch_url($zot);
432                         if($s) {
433                                 $j = json_decode($s);
434                                 if($j) {
435                                         $network = NETWORK_ZOT;
436                                         $vcard   = array(
437                                                 'fn'    => $j->fullname, 
438                                                 'nick'  => $j->nickname, 
439                                                 'photo' => $j->photo
440                                         );
441                                         $profile  = $j->url;
442                                         $notify   = $j->post;
443                                         $pubkey   = $j->pubkey;
444                                         $poll     = 'N/A';
445                                 }
446                         }
447                 }
448
449                 if(strlen($dfrn)) {
450                         $ret = scrape_dfrn($dfrn);
451                         if(is_array($ret) && x($ret,'dfrn-request')) {
452                                 $network = NETWORK_DFRN;
453                                 $request = $ret['dfrn-request'];
454                                 $confirm = $ret['dfrn-confirm'];
455                                 $notify  = $ret['dfrn-notify'];
456                                 $poll    = $ret['dfrn-poll'];
457
458                                 $vcard = array();
459                                 $vcard['fn'] = $ret['fn'];
460                                 $vcard['nick'] = $ret['nick'];
461                                 $vcard['photo'] = $ret['photo'];
462                         }
463                 }
464         }
465
466         if($diaspora && $diaspora_base && $diaspora_guid) {
467                 if($mode == PROBE_DIASPORA || ! $notify)
468                         $notify = $diaspora_base . 'receive/post/' . $diaspora_guid;
469                 if(strpos($url,'@'))
470                         $addr = str_replace('acct:', '', $url);
471         }                       
472
473         if($network !== NETWORK_ZOT && $network !== NETWORK_DFRN && $network !== NETWORK_MAIL) {
474                 if($diaspora)
475                         $network = NETWORK_DIASPORA;
476                 else
477                         $network  = NETWORK_OSTATUS;
478                 $priority = 0;
479
480                 if($hcard && ! $vcard) {
481                         $vcard = scrape_vcard($hcard);
482
483                         // Google doesn't use absolute url in profile photos
484         
485                         if((x($vcard,'photo')) && substr($vcard['photo'],0,1) == '/') {
486                                 $h = @parse_url($hcard);
487                                 if($h)
488                                         $vcard['photo'] = $h['scheme'] . '://' . $h['host'] . $vcard['photo'];
489                         }
490                 
491                         logger('probe_url: scrape_vcard: ' . print_r($vcard,true), LOGGER_DATA);
492                 }
493
494                 if($twitter) {          
495                         logger('twitter: setup');
496                         $tid = basename($url);
497                         $tapi = 'https://api.twitter.com/1/statuses/user_timeline.rss';
498                         if(intval($tid))
499                                 $poll = $tapi . '?user_id=' . $tid;
500                         else
501                                 $poll = $tapi . '?screen_name=' . $tid;
502                         $profile = 'http://twitter.com/#!/' . $tid;
503                 }
504
505                 if(! x($vcard,'fn'))
506                         if(x($vcard,'nick'))
507                                 $vcard['fn'] = $vcard['nick'];
508
509                 $check_feed = false;
510
511                 if($twitter || ! $poll)
512                         $check_feed = true;
513                 if((! isset($vcard)) || (! $profile))
514                         $check_feed = true;
515                 if(($at_addr) && (! count($links)))
516                         $check_feed = false;
517
518                 if($check_feed) {
519
520                         $feedret = scrape_feed(($poll) ? $poll : $url);
521                         logger('probe_url: scrape_feed returns: ' . print_r($feedret,true), LOGGER_DATA);
522                         if(count($feedret) && ($feedret['feed_atom'] || $feedret['feed_rss'])) {
523                                 $poll = ((x($feedret,'feed_atom')) ? unamp($feedret['feed_atom']) : unamp($feedret['feed_rss']));
524                                 if(! x($vcard)) 
525                                         $vcard = array();
526                         }
527
528                         if(x($feedret,'photo') && (! x($vcard,'photo')))
529                                 $vcard['photo'] = $feedret['photo'];
530                         require_once('library/simplepie/simplepie.inc');
531                     $feed = new SimplePie();
532                         $xml = fetch_url($poll);
533
534                         logger('probe_url: fetch feed: ' . $poll . ' returns: ' . $xml, LOGGER_DATA);
535                         $a = get_app();
536
537                         logger('probe_url: scrape_feed: headers: ' . $a->get_curl_headers(), $LOGGER_DATA);
538
539                         $feed->set_raw_data($xml);
540
541                     $feed->init();
542                         if($feed->error())
543                                 logger('probe_url: scrape_feed: Error parsing XML: ' . $feed->error());
544
545
546                         if(! x($vcard,'photo'))
547                                 $vcard['photo'] = $feed->get_image_url();
548                         $author = $feed->get_author();
549
550                         if($author) {                   
551                                 $vcard['fn'] = unxmlify(trim($author->get_name()));
552                                 if(! $vcard['fn'])
553                                         $vcard['fn'] = trim(unxmlify($author->get_email()));
554                                 if(strpos($vcard['fn'],'@') !== false)
555                                         $vcard['fn'] = substr($vcard['fn'],0,strpos($vcard['fn'],'@'));
556                                 $email = unxmlify($author->get_email());
557                                 if(! $profile && $author->get_link())
558                                         $profile = trim(unxmlify($author->get_link()));
559                                 if(! $vcard['photo']) {
560                                         $rawtags = $feed->get_feed_tags( SIMPLEPIE_NAMESPACE_ATOM_10, 'author');
561                                 if($rawtags) {
562                                                 $elems = $rawtags[0]['child'][SIMPLEPIE_NAMESPACE_ATOM_10];
563                                                 if((x($elems,'link')) && ($elems['link'][0]['attribs']['']['rel'] === 'photo'))
564                                                         $vcard['photo'] = $elems['link'][0]['attribs']['']['href'];
565                                 }
566                                 }
567                         }
568                         else {
569                                 $item = $feed->get_item(0);
570                                 if($item) {
571                                         $author = $item->get_author();
572                                         if($author) {                   
573                                                 $vcard['fn'] = trim(unxmlify($author->get_name()));
574                                                 if(! $vcard['fn'])
575                                                         $vcard['fn'] = trim(unxmlify($author->get_email()));
576                                                 if(strpos($vcard['fn'],'@') !== false)
577                                                         $vcard['fn'] = substr($vcard['fn'],0,strpos($vcard['fn'],'@'));
578                                                 $email = unxmlify($author->get_email());
579                                                 if(! $profile && $author->get_link())
580                                                         $profile = trim(unxmlify($author->get_link()));
581                                         }
582                                         if(! $vcard['photo']) {
583                                                 $rawmedia = $item->get_item_tags('http://search.yahoo.com/mrss/','thumbnail');
584                                                 if($rawmedia && $rawmedia[0]['attribs']['']['url'])
585                                                         $vcard['photo'] = unxmlify($rawmedia[0]['attribs']['']['url']);
586                                         }
587                                         if(! $vcard['photo']) {
588                                                 $rawtags = $item->get_item_tags( SIMPLEPIE_NAMESPACE_ATOM_10, 'author');
589                                         if($rawtags) {
590                                                         $elems = $rawtags[0]['child'][SIMPLEPIE_NAMESPACE_ATOM_10];
591                                                         if((x($elems,'link')) && ($elems['link'][0]['attribs']['']['rel'] === 'photo'))
592                                                                 $vcard['photo'] = $elems['link'][0]['attribs']['']['href'];
593                                         }
594                                         }
595                                 }
596                         }
597
598                         if((! $vcard['photo']) && strlen($email))
599                                 $vcard['photo'] = gravatar_img($email);
600                         if($poll === $profile)
601                                 $lnk = $feed->get_permalink();
602                         if(isset($lnk) && strlen($lnk))
603                                 $profile = $lnk;        
604
605                         if(! (x($vcard,'fn')))
606                                 $vcard['fn'] = notags($feed->get_title());
607                         if(! (x($vcard,'fn')))
608                                 $vcard['fn'] = notags($feed->get_description());
609
610                         if(strpos($vcard['fn'],'Twitter / ') !== false) {
611                                 $vcard['fn'] = substr($vcard['fn'],strpos($vcard['fn'],'/')+1);
612                                 $vcard['fn'] = trim($vcard['fn']);
613                         }
614                         if(! x($vcard,'nick')) {
615                                 $vcard['nick'] = strtolower(notags(unxmlify($vcard['fn'])));
616                                 if(strpos($vcard['nick'],' '))
617                                         $vcard['nick'] = trim(substr($vcard['nick'],0,strpos($vcard['nick'],' ')));
618                         }
619                         if(! $network)
620                                 $network = 'feed';
621                         if(! $priority)
622                                 $priority = 2;
623                 }
624         }
625
626         if(! x($vcard,'photo')) {
627                 $a = get_app();
628                 $vcard['photo'] = $a->get_baseurl() . '/images/default-profile.jpg' ; 
629         }
630
631         if(! $profile)
632                 $profile = $url;
633
634         $vcard['fn'] = notags($vcard['fn']);
635         $vcard['nick'] = str_replace(' ','',notags($vcard['nick']));
636
637
638         $result['name'] = $vcard['fn'];
639         $result['nick'] = $vcard['nick'];
640         $result['url'] = $profile;
641         $result['addr'] = $addr;
642         $result['notify'] = $notify;
643         $result['poll'] = $poll;
644         $result['request'] = $request;
645         $result['confirm'] = $confirm;
646         $result['photo'] = $vcard['photo'];
647         $result['priority'] = $priority;
648         $result['network'] = $network;
649         $result['alias'] = $alias;
650         $result['pubkey'] = $pubkey;
651
652         logger('probe_url: ' . print_r($result,true), LOGGER_DEBUG);
653
654         return $result;
655 }