]> git.mxchange.org Git - friendica.git/blob - include/text.php
Initial implementation of internal PuSH server in Friendica. It has been tested with...
[friendica.git] / include / text.php
1 <?php
2
3 // This is our template processor.
4 // $s is the string requiring macro substitution.
5 // $r is an array of key value pairs (search => replace)
6 // returns substituted string.
7 // WARNING: this is pretty basic, and doesn't properly handle search strings that are substrings of each other.
8 // For instance if 'test' => "foo" and 'testing' => "bar", testing could become either bar or fooing, 
9 // depending on the order in which they were declared in the array.
10
11 require_once("include/template_processor.php");
12 require_once("include/friendica_smarty.php");
13
14 if(! function_exists('replace_macros')) {
15 /**
16  * This is our template processor
17  * 
18  * @param string|FriendicaSmarty $s the string requiring macro substitution, 
19  *                                                                      or an instance of FriendicaSmarty
20  * @param array $r key value pairs (search => replace)
21  * @return string substituted string
22  */
23 function replace_macros($s,$r) {
24         
25         $stamp1 = microtime(true);
26
27         $a = get_app();
28
29         $t = $a->template_engine();
30         try {
31                 $output = $t->replace_macros($s,$r);
32         } catch (Exception $e) {
33                 echo "<pre><b>".__function__."</b>: ".$e->getMessage()."</pre>"; killme();
34         }
35
36         $a->save_timestamp($stamp1, "rendering");
37
38         return $output;
39 }}
40
41
42 // random string, there are 86 characters max in text mode, 128 for hex
43 // output is urlsafe
44
45 define('RANDOM_STRING_HEX',  0x00 );
46 define('RANDOM_STRING_TEXT', 0x01 );
47
48 if(! function_exists('random_string')) {
49 function random_string($size = 64,$type = RANDOM_STRING_HEX) {
50         // generate a bit of entropy and run it through the whirlpool
51         $s = hash('whirlpool', (string) rand() . uniqid(rand(),true) . (string) rand(),(($type == RANDOM_STRING_TEXT) ? true : false));
52         $s = (($type == RANDOM_STRING_TEXT) ? str_replace("\n","",base64url_encode($s,true)) : $s);
53         return(substr($s,0,$size));
54 }}
55
56 if(! function_exists('notags')) {
57 /**
58  * This is our primary input filter. 
59  *
60  * The high bit hack only involved some old IE browser, forget which (IE5/Mac?)
61  * that had an XSS attack vector due to stripping the high-bit on an 8-bit character
62  * after cleansing, and angle chars with the high bit set could get through as markup.
63  * 
64  * This is now disabled because it was interfering with some legitimate unicode sequences 
65  * and hopefully there aren't a lot of those browsers left. 
66  *
67  * Use this on any text input where angle chars are not valid or permitted
68  * They will be replaced with safer brackets. This may be filtered further
69  * if these are not allowed either.   
70  *
71  * @param string $string Input string
72  * @return string Filtered string
73  */
74 function notags($string) {
75
76         return(str_replace(array("<",">"), array('[',']'), $string));
77
78 //  High-bit filter no longer used
79 //      return(str_replace(array("<",">","\xBA","\xBC","\xBE"), array('[',']','','',''), $string));
80 }}
81
82
83
84 if(! function_exists('escape_tags')) {
85 /**
86  * use this on "body" or "content" input where angle chars shouldn't be removed,
87  * and allow them to be safely displayed.
88  * @param string $string
89  * @return string
90  */
91 function escape_tags($string) {
92
93         return(htmlspecialchars($string, ENT_COMPAT, 'UTF-8', false));
94 }}
95
96
97 // generate a string that's random, but usually pronounceable. 
98 // used to generate initial passwords
99
100 if(! function_exists('autoname')) {
101 /**
102  * generate a string that's random, but usually pronounceable. 
103  * used to generate initial passwords
104  * @param int $len
105  * @return string
106  */
107 function autoname($len) {
108
109         if($len <= 0)
110                 return '';
111
112         $vowels = array('a','a','ai','au','e','e','e','ee','ea','i','ie','o','ou','u'); 
113         if(mt_rand(0,5) == 4)
114                 $vowels[] = 'y';
115
116         $cons = array(
117                         'b','bl','br',
118                         'c','ch','cl','cr',
119                         'd','dr',
120                         'f','fl','fr',
121                         'g','gh','gl','gr',
122                         'h',
123                         'j',
124                         'k','kh','kl','kr',
125                         'l',
126                         'm',
127                         'n',
128                         'p','ph','pl','pr',
129                         'qu',
130                         'r','rh',
131                         's','sc','sh','sm','sp','st',
132                         't','th','tr',
133                         'v',
134                         'w','wh',
135                         'x',
136                         'z','zh'
137                         );
138
139         $midcons = array('ck','ct','gn','ld','lf','lm','lt','mb','mm', 'mn','mp',
140                                 'nd','ng','nk','nt','rn','rp','rt');
141
142         $noend = array('bl', 'br', 'cl','cr','dr','fl','fr','gl','gr',
143                                 'kh', 'kl','kr','mn','pl','pr','rh','tr','qu','wh');
144
145         $start = mt_rand(0,2);
146         if($start == 0)
147                 $table = $vowels;
148         else
149                 $table = $cons;
150
151         $word = '';
152
153         for ($x = 0; $x < $len; $x ++) {
154                 $r = mt_rand(0,count($table) - 1);
155                 $word .= $table[$r];
156   
157                 if($table == $vowels)
158                         $table = array_merge($cons,$midcons);
159                 else
160                         $table = $vowels;
161
162         }
163
164         $word = substr($word,0,$len);
165
166         foreach($noend as $noe) {
167                 if((strlen($word) > 2) && (substr($word,-2) == $noe)) {
168                         $word = substr($word,0,-1);
169                         break;
170                 }
171         }
172         if(substr($word,-1) == 'q')
173                 $word = substr($word,0,-1);    
174         return $word;
175 }}
176
177
178 // escape text ($str) for XML transport
179 // returns escaped text.
180
181 if(! function_exists('xmlify')) {
182 /**
183  * escape text ($str) for XML transport
184  * @param string $str
185  * @return string Escaped text.
186  */
187 function xmlify($str) {
188 /*      $buffer = '';
189         
190         $len = mb_strlen($str);
191         for($x = 0; $x < $len; $x ++) {
192                 $char = mb_substr($str,$x,1);
193         
194                 switch( $char ) {
195
196                         case "\r" :
197                                 break;
198                         case "&" :
199                                 $buffer .= '&amp;';
200                                 break;
201                         case "'" :
202                                 $buffer .= '&apos;';
203                                 break;
204                         case "\"" :
205                                 $buffer .= '&quot;';
206                                 break;
207                         case '<' :
208                                 $buffer .= '&lt;';
209                                 break;
210                         case '>' :
211                                 $buffer .= '&gt;';
212                                 break;
213                         case "\n" :
214                                 $buffer .= "\n";
215                                 break;
216                         default :
217                                 $buffer .= $char;
218                                 break;
219                 }       
220         }*/
221
222         $buffer = mb_ereg_replace("&", "&amp;", $str);
223         $buffer = mb_ereg_replace("'", "&apos;", $buffer);
224         $buffer = mb_ereg_replace("\"", "&quot;", $buffer);
225         $buffer = mb_ereg_replace("<", "&lt;", $buffer);
226         $buffer = mb_ereg_replace(">", "&gt;", $buffer);
227
228         $buffer = trim($buffer);
229         return($buffer);
230 }}
231
232 if(! function_exists('unxmlify')) {
233 /**
234  * undo an xmlify
235  * @param string $s xml escaped text
236  * @return string unescaped text
237  */
238 function unxmlify($s) {
239 //      $ret = str_replace('&amp;','&', $s);
240 //      $ret = str_replace(array('&lt;','&gt;','&quot;','&apos;'),array('<','>','"',"'"),$ret);
241         $ret = mb_ereg_replace('&amp;', '&', $s);
242         $ret = mb_ereg_replace('&apos;', "'", $ret);
243         $ret = mb_ereg_replace('&quot;', '"', $ret);
244         $ret = mb_ereg_replace('&lt;', "<", $ret);
245         $ret = mb_ereg_replace('&gt;', ">", $ret);
246         return $ret;    
247 }}
248
249 if(! function_exists('hex2bin')) {
250 /**
251  * convenience wrapper, reverse the operation "bin2hex"
252  * @param string $s
253  * @return number
254  */
255 function hex2bin($s) {
256         if(! (is_string($s) && strlen($s)))
257                 return '';
258
259         if(! ctype_xdigit($s)) {
260                 return($s);
261         }
262
263         return(pack("H*",$s));
264 }}
265
266
267 if(! function_exists('paginate_data')) {
268 /**
269  * Automatica pagination data.
270  *
271  * @param App $a App instance
272  * @param int $count [optional] item count (used with alt pager)
273  * @return Array data for pagination template
274  */
275 function paginate_data(&$a, $count=null) {
276         $stripped = preg_replace('/(&page=[0-9]*)/','',$a->query_string);
277
278         $stripped = str_replace('q=','',$stripped);
279         $stripped = trim($stripped,'/');
280         $pagenum = $a->pager['page'];
281         $url = $a->get_baseurl() . '/' . $stripped;
282
283
284         $data = array();
285         function _l(&$d, $name, $url, $text, $class="") { 
286                 
287                 $d[$name] = array('url'=>$url, 'text'=>$text, 'class'=>$class); 
288         }
289
290         if (!is_null($count)){
291                 // alt pager
292                 if($a->pager['page']>1)
293                         _l($data,  "prev", $url.'&page='.($a->pager['page'] - 1), t('newer'));
294                 if($count>0)
295                         _l($data,  "next", $url.'&page='.($a->pager['page'] + 1), t('older'));
296         } else {
297                 // full pager
298                 if($a->pager['total'] > $a->pager['itemspage']) {
299                         if($a->pager['page'] != 1)
300                                 _l($data,  "prev", $url.'&page='.($a->pager['page'] - 1), t('prev'));
301
302                         _l($data, "first", $url."&page=1",  t('first'));
303
304                         
305                         $numpages = $a->pager['total'] / $a->pager['itemspage'];
306
307                         $numstart = 1;
308                         $numstop = $numpages;
309
310                         if($numpages > 14) {
311                                 $numstart = (($pagenum > 7) ? ($pagenum - 7) : 1);
312                                 $numstop = (($pagenum > ($numpages - 7)) ? $numpages : ($numstart + 14));
313                         }
314
315                         $pages = array();
316
317                         for($i = $numstart; $i <= $numstop; $i++){
318                                 if($i == $a->pager['page'])
319                                         _l($pages, $i, "#",  $i, "current");
320                                 else
321                                         _l($pages, $i, $url."&page=$i", $i, "n");
322                         }
323
324                         if(($a->pager['total'] % $a->pager['itemspage']) != 0) {
325                                 if($i == $a->pager['page'])
326                                         _l($pages, $i, "#",  $i, "current");
327                                 else
328                                         _l($pages, $i, $url."&page=$i", $i, "n");
329                         }
330
331                         $data['pages'] = $pages;
332
333                         $lastpage = (($numpages > intval($numpages)) ? intval($numpages)+1 : $numpages);
334                         _l($data, "last", $url."&page=$lastpage", t('last'));
335                         
336                         if(($a->pager['total'] - ($a->pager['itemspage'] * $a->pager['page'])) > 0)
337                                 _l($data, "next", $url."&page=".($a->pager['page'] + 1), t('next'));
338
339                 }       
340         }
341         return $data;
342
343 }}
344
345 if(! function_exists('paginate')) {
346 /**
347  * Automatic pagination.
348  *
349  *  To use, get the count of total items.
350  * Then call $a->set_pager_total($number_items);
351  * Optionally call $a->set_pager_itemspage($n) to the number of items to display on each page
352  * Then call paginate($a) after the end of the display loop to insert the pager block on the page
353  * (assuming there are enough items to paginate).
354  * When using with SQL, the setting LIMIT %d, %d => $a->pager['start'],$a->pager['itemspage']
355  * will limit the results to the correct items for the current page. 
356  * The actual page handling is then accomplished at the application layer. 
357  * 
358  * @param App $a App instance
359  * @return string html for pagination #FIXME remove html
360  */
361 function paginate(&$a) {
362         
363         $data = paginate_data($a);
364         $tpl = get_markup_template("paginate.tpl");
365         return replace_macros($tpl, array("pager" => $data));
366
367 }}
368
369 if(! function_exists('alt_pager')) {
370 /**
371  * Alternative pager
372  * @param App $a App instance
373  * @param int $i
374  * @return string html for pagination #FIXME remove html
375  */
376 function alt_pager(&$a, $i) {
377
378         $data = paginate_data($a, $i);
379         $tpl = get_markup_template("paginate.tpl");
380         return replace_macros($tpl, array('pager' => $data));
381         
382 }}
383
384
385 if(! function_exists('expand_acl')) {
386 /**
387  * Turn user/group ACLs stored as angle bracketed text into arrays
388  * 
389  * @param string $s
390  * @return array
391  */
392 function expand_acl($s) {
393         // turn string array of angle-bracketed elements into numeric array
394         // e.g. "<1><2><3>" => array(1,2,3);
395         $ret = array();
396
397         if(strlen($s)) {
398                 $t = str_replace('<','',$s);
399                 $a = explode('>',$t);
400                 foreach($a as $aa) {
401                         if(intval($aa))
402                                 $ret[] = intval($aa);
403                 }
404         }
405         return $ret;
406 }}              
407
408 if(! function_exists('sanitise_acl')) {
409 /**
410  * Wrap ACL elements in angle brackets for storage 
411  * @param string $item
412  */
413 function sanitise_acl(&$item) {
414         if(intval($item))
415                 $item = '<' . intval(notags(trim($item))) . '>';
416         else
417                 unset($item);
418 }}
419
420
421 if(! function_exists('perms2str')) {
422 /**
423  * Convert an ACL array to a storable string
424  * 
425  * Normally ACL permissions will be an array.
426  * We'll also allow a comma-separated string.
427  * 
428  * @param string|array $p
429  * @return string
430  */
431 function perms2str($p) {
432         $ret = '';
433         if(is_array($p))
434                 $tmp = $p;
435         else
436                 $tmp = explode(',',$p);
437
438         if(is_array($tmp)) {
439                 array_walk($tmp,'sanitise_acl');
440                 $ret = implode('',$tmp);
441         }
442         return $ret;
443 }}
444
445
446 if(! function_exists('item_new_uri')) {
447 /**
448  * generate a guaranteed unique (for this domain) item ID for ATOM
449  * safe from birthday paradox
450  * 
451  * @param string $hostname
452  * @param int $uid
453  * @return string
454  */
455 function item_new_uri($hostname,$uid) {
456
457         do {
458                 $dups = false;
459                 $hash = random_string();
460
461                 $uri = "urn:X-dfrn:" . $hostname . ':' . $uid . ':' . $hash;
462
463                 $r = q("SELECT `id` FROM `item` WHERE `uri` = '%s' LIMIT 1",
464                         dbesc($uri));
465                 if(count($r))
466                         $dups = true;
467         } while($dups == true);
468         return $uri;
469 }}
470
471 // Generate a guaranteed unique photo ID.
472 // safe from birthday paradox
473
474 if(! function_exists('photo_new_resource')) {
475 /**
476  * Generate a guaranteed unique photo ID.
477  * safe from birthday paradox
478  * 
479  * @return string
480  */     
481 function photo_new_resource() {
482
483         do {
484                 $found = false;
485                 $resource = hash('md5',uniqid(mt_rand(),true));
486                 $r = q("SELECT `id` FROM `photo` WHERE `resource-id` = '%s' LIMIT 1",
487                         dbesc($resource)
488                 );
489                 if(count($r))
490                         $found = true;
491         } while($found == true);
492         return $resource;
493 }}
494
495
496 if(! function_exists('load_view_file')) {
497 /**
498  * @deprecated
499  * wrapper to load a view template, checking for alternate
500  * languages before falling back to the default
501  * 
502  * @global string $lang
503  * @global App $a
504  * @param string $s view name
505  * @return string
506  */     
507 function load_view_file($s) {
508         global $lang, $a;
509         if(! isset($lang))
510                 $lang = 'en';
511         $b = basename($s);
512         $d = dirname($s);
513         if(file_exists("$d/$lang/$b")) {
514                 $stamp1 = microtime(true);
515                 $content = file_get_contents("$d/$lang/$b");
516                 $a->save_timestamp($stamp1, "file");
517                 return $content;
518         }
519
520         $theme = current_theme();
521
522         if(file_exists("$d/theme/$theme/$b")) {
523                 $stamp1 = microtime(true);
524                 $content = file_get_contents("$d/theme/$theme/$b");
525                 $a->save_timestamp($stamp1, "file");
526                 return $content;
527         }
528
529         $stamp1 = microtime(true);
530         $content = file_get_contents($s);
531         $a->save_timestamp($stamp1, "file");
532         return $content;
533 }}
534
535 if(! function_exists('get_intltext_template')) {
536 /**
537  * load a view template, checking for alternate
538  * languages before falling back to the default
539  * 
540  * @global string $lang
541  * @param string $s view path
542  * @return string
543  */
544 function get_intltext_template($s) {
545         global $lang;
546
547         $a = get_app();
548         $engine = '';
549         if($a->theme['template_engine'] === 'smarty3')
550                 $engine = "/smarty3";
551
552         if(! isset($lang))
553                 $lang = 'en';
554
555         if(file_exists("view/$lang$engine/$s")) {
556                 $stamp1 = microtime(true);
557                 $content = file_get_contents("view/$lang$engine/$s");
558                 $a->save_timestamp($stamp1, "file");
559                 return $content;
560         } elseif(file_exists("view/en$engine/$s")) {
561                 $stamp1 = microtime(true);
562                 $content = file_get_contents("view/en$engine/$s");
563                 $a->save_timestamp($stamp1, "file");
564                 return $content;
565         } else {
566                 $stamp1 = microtime(true);
567                 $content = file_get_contents("view$engine/$s");
568                 $a->save_timestamp($stamp1, "file");
569                 return $content;
570         }
571 }}
572
573 if(! function_exists('get_markup_template')) {
574 /**
575  * load template $s
576  * 
577  * @param string $s
578  * @param string $root
579  * @return string
580  */
581 function get_markup_template($s, $root = '') {
582         $stamp1 = microtime(true);
583
584         $a = get_app();
585         $t = $a->template_engine();
586         try {
587                 $template = $t->get_template_file($s, $root);
588         } catch (Exception $e) {
589                 echo "<pre><b>".__function__."</b>: ".$e->getMessage()."</pre>"; killme();
590         }
591         
592         $a->save_timestamp($stamp1, "file");
593         
594         return $template;
595 }}
596
597 if(! function_exists("get_template_file")) {
598 /**
599  * 
600  * @param App $a
601  * @param string $filename
602  * @param string $root
603  * @return string
604  */
605 function get_template_file($a, $filename, $root = '') {
606         $theme = current_theme();
607
608         // Make sure $root ends with a slash /
609         if($root !== '' && $root[strlen($root)-1] !== '/')
610                 $root = $root . '/';
611
612         if(file_exists("{$root}view/theme/$theme/$filename"))
613                 $template_file = "{$root}view/theme/$theme/$filename";
614         elseif (x($a->theme_info,"extends") && file_exists("{$root}view/theme/{$a->theme_info["extends"]}/$filename"))
615                 $template_file = "{$root}view/theme/{$a->theme_info["extends"]}/$filename";
616         elseif (file_exists("{$root}/$filename"))
617                 $template_file = "{$root}/$filename";
618         else
619                 $template_file = "{$root}view/$filename";
620
621         return $template_file;
622 }}
623
624
625
626
627
628
629
630 if(! function_exists('attribute_contains')) {
631 /**
632  *  for html,xml parsing - let's say you've got
633  *  an attribute foobar="class1 class2 class3"
634  *  and you want to find out if it contains 'class3'.
635  *  you can't use a normal sub string search because you
636  *  might match 'notclass3' and a regex to do the job is 
637  *  possible but a bit complicated. 
638  *  pass the attribute string as $attr and the attribute you 
639  *  are looking for as $s - returns true if found, otherwise false
640  * 
641  * @param string $attr attribute value
642  * @param string $s string to search
643  * @return boolean True if found, False otherwise
644  */
645 function attribute_contains($attr,$s) {
646         $a = explode(' ', $attr);
647         if(count($a) && in_array($s,$a))
648                 return true;
649         return false;
650 }}
651
652 if(! function_exists('logger')) {
653 /**
654  * log levels:
655  * LOGGER_NORMAL (default)
656  * LOGGER_TRACE
657  * LOGGER_DEBUG
658  * LOGGER_DATA
659  * LOGGER_ALL
660  * 
661  * @global App $a
662  * @global dba $db
663  * @param string $msg
664  * @param int $level
665  */
666 function logger($msg,$level = 0) {
667         // turn off logger in install mode
668         global $a;
669         global $db;
670
671         if(($a->module == 'install') || (! ($db && $db->connected))) return;
672
673         $debugging = get_config('system','debugging');
674         $loglevel  = intval(get_config('system','loglevel'));
675         $logfile   = get_config('system','logfile');
676
677         if((! $debugging) || (! $logfile) || ($level > $loglevel))
678                 return;
679
680         $stamp1 = microtime(true);
681         @file_put_contents($logfile, datetime_convert() . ':' . session_id() . ' ' . $msg . "\n", FILE_APPEND);
682         $a->save_timestamp($stamp1, "file");
683         return;
684 }}
685
686
687 if(! function_exists('activity_match')) {
688 /**
689  * Compare activity uri. Knows about activity namespace.
690  * 
691  * @param string $haystack
692  * @param string $needle
693  * @return boolean
694  */
695 function activity_match($haystack,$needle) {
696         if(($haystack === $needle) || ((basename($needle) === $haystack) && strstr($needle,NAMESPACE_ACTIVITY_SCHEMA)))
697                 return true;
698         return false;
699 }}
700
701
702 if(! function_exists('get_tags')) {
703 /**
704  * Pull out all #hashtags and @person tags from $s;
705  * We also get @person@domain.com - which would make 
706  * the regex quite complicated as tags can also
707  * end a sentence. So we'll run through our results
708  * and strip the period from any tags which end with one.
709  * Returns array of tags found, or empty array.
710  * 
711  * @param string $s
712  * @return array
713  */
714 function get_tags($s) {
715         $ret = array();
716
717         // ignore anything in a code block
718         $s = preg_replace('/\[code\](.*?)\[\/code\]/sm','',$s);
719
720         // Force line feeds at bbtags
721         $s = str_replace(array("[", "]"), array("\n[", "]\n"), $s);
722
723         // ignore anything in a bbtag
724         $s = preg_replace('/\[(.*?)\]/sm','',$s);
725
726         // Match full names against @tags including the space between first and last
727         // We will look these up afterward to see if they are full names or not recognisable.
728
729         if(preg_match_all('/(@[^ \x0D\x0A,:?]+ [^ \x0D\x0A@,:?]+)([ \x0D\x0A@,:?]|$)/',$s,$match)) {
730                 foreach($match[1] as $mtch) {
731                         if(strstr($mtch,"]")) {
732                                 // we might be inside a bbcode color tag - leave it alone
733                                 continue;
734                         }
735                         if(substr($mtch,-1,1) === '.')
736                                 $ret[] = substr($mtch,0,-1);
737                         else
738                                 $ret[] = $mtch;
739                 }
740         }
741
742         // Otherwise pull out single word tags. These can be @nickname, @first_last
743         // and #hash tags.
744
745         if(preg_match_all('/([@#][^ \x0D\x0A,;:?]+)([ \x0D\x0A,;:?]|$)/',$s,$match)) {
746                 foreach($match[1] as $mtch) {
747                         if(strstr($mtch,"]")) {
748                                 // we might be inside a bbcode color tag - leave it alone
749                                 continue;
750                         }
751                         if(substr($mtch,-1,1) === '.')
752                                 $mtch = substr($mtch,0,-1);
753                         // ignore strictly numeric tags like #1
754                         if((strpos($mtch,'#') === 0) && ctype_digit(substr($mtch,1)))
755                                 continue;
756                         // try not to catch url fragments
757                         if(strpos($s,$mtch) && preg_match('/[a-zA-z0-9\/]/',substr($s,strpos($s,$mtch)-1,1)))
758                                 continue;
759                         $ret[] = $mtch;
760                 }
761         }
762         return $ret;
763 }}
764
765
766 // 
767
768 if(! function_exists('qp')) {
769 /**
770  * quick and dirty quoted_printable encoding
771  * 
772  * @param string $s
773  * @return string
774  */     
775 function qp($s) {
776 return str_replace ("%","=",rawurlencode($s));
777 }} 
778
779
780
781 if(! function_exists('get_mentions')) {
782 /**
783  * @param array $item
784  * @return string html for mentions #FIXME: remove html
785  */
786 function get_mentions($item) {
787         $o = '';
788         if(! strlen($item['tag']))
789                 return $o;
790
791         $arr = explode(',',$item['tag']);
792         foreach($arr as $x) {
793                 $matches = null;
794                 if(preg_match('/@\[url=([^\]]*)\]/',$x,$matches)) {
795                         $o .= "\t\t" . '<link rel="mentioned" href="' . $matches[1] . '" />' . "\r\n";
796                         $o .= "\t\t" . '<link rel="ostatus:attention" href="' . $matches[1] . '" />' . "\r\n";
797                 }
798         }
799         return $o;
800 }}
801
802 if(! function_exists('contact_block')) {
803 /**
804  * Get html for contact block.
805  * 
806  * @template contact_block.tpl
807  * @hook contact_block_end (contacts=>array, output=>string)
808  * @return string
809  */
810 function contact_block() {
811         $o = '';
812         $a = get_app();
813
814         $shown = get_pconfig($a->profile['uid'],'system','display_friend_count');
815         if($shown === false)
816                 $shown = 24;
817         if($shown == 0)
818                 return;
819
820         if((! is_array($a->profile)) || ($a->profile['hide-friends']))
821                 return $o;
822         $r = q("SELECT COUNT(*) AS `total` FROM `contact` WHERE `uid` = %d AND `self` = 0 AND `blocked` = 0 and `pending` = 0 AND `hidden` = 0 AND `archive` = 0",
823                         intval($a->profile['uid'])
824         );
825         if(count($r)) {
826                 $total = intval($r[0]['total']);
827         }
828         if(! $total) {
829                 $contacts = t('No contacts');
830                 $micropro = Null;
831                 
832         } else {
833                 $r = q("SELECT * FROM `contact` WHERE `uid` = %d AND `self` = 0 AND `blocked` = 0 and `pending` = 0 AND `hidden` = 0 AND `archive` = 0 ORDER BY RAND() LIMIT %d",
834                                 intval($a->profile['uid']),
835                                 intval($shown)
836                 );
837                 if(count($r)) {
838                         $contacts = sprintf( tt('%d Contact','%d Contacts', $total),$total);
839                         $micropro = Array();
840                         foreach($r as $rr) {
841                                 $micropro[] = micropro($rr,true,'mpfriend');
842                         }
843                 }
844         }
845         
846         $tpl = get_markup_template('contact_block.tpl');
847         $o = replace_macros($tpl, array(
848                 '$contacts' => $contacts,
849                 '$nickname' => $a->profile['nickname'],
850                 '$viewcontacts' => t('View Contacts'),
851                 '$micropro' => $micropro,
852         ));
853
854         $arr = array('contacts' => $r, 'output' => $o);
855
856         call_hooks('contact_block_end', $arr);
857         return $o;
858
859 }}
860
861 if(! function_exists('micropro')) {
862 /**
863  * 
864  * @param array $contact
865  * @param boolean $redirect
866  * @param string $class
867  * @param boolean $textmode
868  * @return string #FIXME: remove html
869  */
870 function micropro($contact, $redirect = false, $class = '', $textmode = false) {
871
872         if($class)
873                 $class = ' ' . $class;
874
875         $url = $contact['url'];
876         $sparkle = '';
877         $redir = false;
878
879         if($redirect) {
880                 $a = get_app();
881                 $redirect_url = $a->get_baseurl() . '/redir/' . $contact['id'];
882                 if(local_user() && ($contact['uid'] == local_user()) && ($contact['network'] === 'dfrn')) {
883                         $redir = true;
884                         $url = $redirect_url;
885                         $sparkle = ' sparkle';
886                 }
887                 else
888                         $url = zrl($url);
889         }
890         $click = ((x($contact,'click')) ? ' onclick="' . $contact['click'] . '" ' : '');
891         if($click)
892                 $url = '';
893         if($textmode) {
894                 return '<div class="contact-block-textdiv' . $class . '"><a class="contact-block-link' . $class . $sparkle 
895                         . (($click) ? ' fakelink' : '') . '" '
896                         . (($redir) ? ' target="redir" ' : '')
897                         . (($url) ? ' href="' . $url . '"' : '') . $click
898                         . '" title="' . $contact['name'] . ' [' . $contact['url'] . ']" alt="' . $contact['name'] 
899                         . '" >'. $contact['name'] . '</a></div>' . "\r\n";
900         }
901         else {
902                 return '<div class="contact-block-div' . $class . '"><a class="contact-block-link' . $class . $sparkle 
903                         . (($click) ? ' fakelink' : '') . '" '
904                         . (($redir) ? ' target="redir" ' : '')
905                         . (($url) ? ' href="' . $url . '"' : '') . $click . ' ><img class="contact-block-img' . $class . $sparkle . '" src="' 
906                         . $contact['micro'] . '" title="' . $contact['name'] . ' [' . $contact['url'] . ']" alt="' . $contact['name'] 
907                         . '" /></a></div>' . "\r\n";
908         }
909 }}
910
911
912
913 if(! function_exists('search')) {
914 /**
915  * search box
916  * 
917  * @param string $s search query
918  * @param string $id html id
919  * @param string $url search url
920  * @param boolean $save show save search button
921  * @return string html for search box #FIXME: remove html
922  */
923 function search($s,$id='search-box',$url='/search',$save = false) {
924         $a = get_app();
925         $o  = '<div id="' . $id . '">';
926         $o .= '<form action="' . $a->get_baseurl((stristr($url,'network')) ? true : false) . $url . '" method="get" >';
927         $o .= '<input type="text" name="search" id="search-text" placeholder="' . t('Search') . '" value="' . $s .'" />';
928         $o .= '<input type="submit" name="submit" id="search-submit" value="' . t('Search') . '" />'; 
929         if($save)
930                 $o .= '<input type="submit" name="save" id="search-save" value="' . t('Save') . '" />'; 
931         $o .= '</form></div>';
932         return $o;
933 }}
934
935 if(! function_exists('valid_email')) {
936 /**
937  * Check if $x is a valid email string
938  * 
939  * @param string $x
940  * @return boolean
941  */
942 function valid_email($x){
943
944         if(get_config('system','disable_email_validation'))
945                 return true;
946
947         if(preg_match('/^[_a-zA-Z0-9\-\+]+(\.[_a-zA-Z0-9\-\+]+)*@[a-zA-Z0-9-]+(\.[a-zA-Z0-9-]+)+$/',$x))
948                 return true;
949         return false;
950 }}
951
952
953 if(! function_exists('linkify')) {
954 /**
955  * Replace naked text hyperlink with HTML formatted hyperlink
956  *
957  * @param string $s
958  */
959 function linkify($s) {
960         $s = preg_replace("/(https?\:\/\/[a-zA-Z0-9\:\/\-\?\&\;\.\=\_\~\#\'\%\$\!\+]*)/", ' <a href="$1" target="external-link">$1</a>', $s);
961         $s = preg_replace("/\<(.*?)(src|href)=(.*?)\&amp\;(.*?)\>/ism",'<$1$2=$3&$4>',$s);
962         return($s);
963 }}
964
965
966 /**
967  * Load poke verbs
968  *
969  * @return array index is present tense verb
970                                  value is array containing past tense verb, translation of present, translation of past
971  * @hook poke_verbs pokes array
972  */
973 function get_poke_verbs() {
974         
975         // index is present tense verb
976         // value is array containing past tense verb, translation of present, translation of past
977
978         $arr = array(
979                 'poke' => array( 'poked', t('poke'), t('poked')),
980                 'ping' => array( 'pinged', t('ping'), t('pinged')),
981                 'prod' => array( 'prodded', t('prod'), t('prodded')),
982                 'slap' => array( 'slapped', t('slap'), t('slapped')),
983                 'finger' => array( 'fingered', t('finger'), t('fingered')),
984                 'rebuff' => array( 'rebuffed', t('rebuff'), t('rebuffed')),
985         );
986         call_hooks('poke_verbs', $arr);
987         return $arr;
988 }
989
990 /**
991  * Load moods
992  * @return array index is mood, value is translated mood
993  * @hook mood_verbs moods array
994  */
995 function get_mood_verbs() {
996         
997         $arr = array(
998                 'happy'      => t('happy'),
999                 'sad'        => t('sad'),
1000                 'mellow'     => t('mellow'),
1001                 'tired'      => t('tired'),
1002                 'perky'      => t('perky'),
1003                 'angry'      => t('angry'),
1004                 'stupefied'  => t('stupified'),
1005                 'puzzled'    => t('puzzled'),
1006                 'interested' => t('interested'),
1007                 'bitter'     => t('bitter'),
1008                 'cheerful'   => t('cheerful'),
1009                 'alive'      => t('alive'),
1010                 'annoyed'    => t('annoyed'),
1011                 'anxious'    => t('anxious'),
1012                 'cranky'     => t('cranky'),
1013                 'disturbed'  => t('disturbed'),
1014                 'frustrated' => t('frustrated'),
1015                 'motivated'  => t('motivated'),
1016                 'relaxed'    => t('relaxed'),
1017                 'surprised'  => t('surprised'),
1018         );
1019
1020         call_hooks('mood_verbs', $arr);
1021         return $arr;
1022 }
1023
1024
1025
1026 if(! function_exists('smilies')) {
1027 /**
1028  * Replaces text emoticons with graphical images
1029  *
1030  * It is expected that this function will be called using HTML text.
1031  * We will escape text between HTML pre and code blocks from being 
1032  * processed. 
1033  * 
1034  * At a higher level, the bbcode [nosmile] tag can be used to prevent this 
1035  * function from being executed by the prepare_text() routine when preparing
1036  * bbcode source for HTML display
1037  *
1038  * @param string $s
1039  * @param boolean $sample
1040  * @return string
1041  * @hook smilie ('texts' => smilies texts array, 'icons' => smilies html array, 'string' => $s)
1042  */
1043 function smilies($s, $sample = false) {
1044         $a = get_app();
1045
1046         if(intval(get_config('system','no_smilies')) 
1047                 || (local_user() && intval(get_pconfig(local_user(),'system','no_smilies'))))
1048                 return $s;
1049
1050         $s = preg_replace_callback('/<pre>(.*?)<\/pre>/ism','smile_encode',$s);
1051         $s = preg_replace_callback('/<code>(.*?)<\/code>/ism','smile_encode',$s);
1052
1053         $texts =  array( 
1054                 '&lt;3', 
1055                 '&lt;/3', 
1056                 '&lt;\\3', 
1057                 ':-)', 
1058                 ';-)', 
1059                 ':-(', 
1060                 ':-P', 
1061                 ':-p', 
1062                 ':-"', 
1063                 ':-&quot;', 
1064                 ':-x', 
1065                 ':-X', 
1066                 ':-D', 
1067                 '8-|', 
1068                 '8-O', 
1069                 ':-O', 
1070                 '\\o/', 
1071                 'o.O', 
1072                 'O.o', 
1073                 'o_O', 
1074                 'O_o', 
1075                 ":'(", 
1076                 ":-!", 
1077                 ":-/", 
1078                 ":-[", 
1079                 "8-)",
1080                 ':beer', 
1081                 ':homebrew', 
1082                 ':coffee', 
1083                 ':facepalm',
1084                 ':like',
1085                 ':dislike',
1086                 '~friendica',
1087                 'red#'
1088
1089         );
1090
1091         $icons = array(
1092                 '<img class="smiley" src="' . $a->get_baseurl() . '/images/smiley-heart.gif" alt="<3" />',
1093                 '<img class="smiley" src="' . $a->get_baseurl() . '/images/smiley-brokenheart.gif" alt="</3" />',
1094                 '<img class="smiley" src="' . $a->get_baseurl() . '/images/smiley-brokenheart.gif" alt="<\\3" />',
1095                 '<img class="smiley" src="' . $a->get_baseurl() . '/images/smiley-smile.gif" alt=":-)" />',
1096                 '<img class="smiley" src="' . $a->get_baseurl() . '/images/smiley-wink.gif" alt=";-)" />',
1097                 '<img class="smiley" src="' . $a->get_baseurl() . '/images/smiley-frown.gif" alt=":-(" />',
1098                 '<img class="smiley" src="' . $a->get_baseurl() . '/images/smiley-tongue-out.gif" alt=":-P" />',
1099                 '<img class="smiley" src="' . $a->get_baseurl() . '/images/smiley-tongue-out.gif" alt=":-p" />',
1100                 '<img class="smiley" src="' . $a->get_baseurl() . '/images/smiley-kiss.gif" alt=":-\"" />',
1101                 '<img class="smiley" src="' . $a->get_baseurl() . '/images/smiley-kiss.gif" alt=":-\"" />',
1102                 '<img class="smiley" src="' . $a->get_baseurl() . '/images/smiley-kiss.gif" alt=":-x" />',
1103                 '<img class="smiley" src="' . $a->get_baseurl() . '/images/smiley-kiss.gif" alt=":-X" />',
1104                 '<img class="smiley" src="' . $a->get_baseurl() . '/images/smiley-laughing.gif" alt=":-D" />',
1105                 '<img class="smiley" src="' . $a->get_baseurl() . '/images/smiley-surprised.gif" alt="8-|" />',
1106                 '<img class="smiley" src="' . $a->get_baseurl() . '/images/smiley-surprised.gif" alt="8-O" />',
1107                 '<img class="smiley" src="' . $a->get_baseurl() . '/images/smiley-surprised.gif" alt=":-O" />',                
1108                 '<img class="smiley" src="' . $a->get_baseurl() . '/images/smiley-thumbsup.gif" alt="\\o/" />',
1109                 '<img class="smiley" src="' . $a->get_baseurl() . '/images/smiley-Oo.gif" alt="o.O" />',
1110                 '<img class="smiley" src="' . $a->get_baseurl() . '/images/smiley-Oo.gif" alt="O.o" />',
1111                 '<img class="smiley" src="' . $a->get_baseurl() . '/images/smiley-Oo.gif" alt="o_O" />',
1112                 '<img class="smiley" src="' . $a->get_baseurl() . '/images/smiley-Oo.gif" alt="O_o" />',
1113                 '<img class="smiley" src="' . $a->get_baseurl() . '/images/smiley-cry.gif" alt=":\'(" />',
1114                 '<img class="smiley" src="' . $a->get_baseurl() . '/images/smiley-foot-in-mouth.gif" alt=":-!" />',
1115                 '<img class="smiley" src="' . $a->get_baseurl() . '/images/smiley-undecided.gif" alt=":-/" />',
1116                 '<img class="smiley" src="' . $a->get_baseurl() . '/images/smiley-embarassed.gif" alt=":-[" />',
1117                 '<img class="smiley" src="' . $a->get_baseurl() . '/images/smiley-cool.gif" alt="8-)" />',
1118                 '<img class="smiley" src="' . $a->get_baseurl() . '/images/beer_mug.gif" alt=":beer" />',
1119                 '<img class="smiley" src="' . $a->get_baseurl() . '/images/beer_mug.gif" alt=":homebrew" />',
1120                 '<img class="smiley" src="' . $a->get_baseurl() . '/images/coffee.gif" alt=":coffee" />',
1121                 '<img class="smiley" src="' . $a->get_baseurl() . '/images/smiley-facepalm.gif" alt=":facepalm" />',
1122                 '<img class="smiley" src="' . $a->get_baseurl() . '/images/like.gif" alt=":like" />',
1123                 '<img class="smiley" src="' . $a->get_baseurl() . '/images/dislike.gif" alt=":dislike" />',
1124                 '<a href="http://friendica.com">~friendica <img class="smiley" src="' . $a->get_baseurl() . '/images/friendica-16.png" alt="~friendica" /></a>',
1125                 '<a href="http://friendica.com">red <img class="smiley" src="' . $a->get_baseurl() . '/images/rhash-16.png" alt="red" /></a>'
1126         );
1127
1128         $params = array('texts' => $texts, 'icons' => $icons, 'string' => $s);
1129         call_hooks('smilie', $params);
1130
1131         if($sample) {
1132                 $s = '<div class="smiley-sample">';
1133                 for($x = 0; $x < count($params['texts']); $x ++) {
1134                         $s .= '<dl><dt>' . $params['texts'][$x] . '</dt><dd>' . $params['icons'][$x] . '</dd></dl>';
1135                 }
1136         }
1137         else {
1138                 $params['string'] = preg_replace_callback('/&lt;(3+)/','preg_heart',$params['string']);
1139                 $s = str_replace($params['texts'],$params['icons'],$params['string']);
1140         }
1141
1142         $s = preg_replace_callback('/<pre>(.*?)<\/pre>/ism','smile_decode',$s);
1143         $s = preg_replace_callback('/<code>(.*?)<\/code>/ism','smile_decode',$s);
1144
1145         return $s;
1146
1147 }}
1148
1149 function smile_encode($m) {
1150         return(str_replace($m[1],base64url_encode($m[1]),$m[0]));
1151 }
1152
1153 function smile_decode($m) {
1154         return(str_replace($m[1],base64url_decode($m[1]),$m[0]));
1155 }
1156
1157
1158 /**
1159  * expand <3333 to the correct number of hearts
1160  * 
1161  * @param string $x
1162  * @return string
1163  */
1164 function preg_heart($x) {
1165         $a = get_app();
1166         if(strlen($x[1]) == 1)
1167                 return $x[0];
1168         $t = '';
1169         for($cnt = 0; $cnt < strlen($x[1]); $cnt ++)
1170                 $t .= '<img class="smiley" src="' . $a->get_baseurl() . '/images/smiley-heart.gif" alt="<3" />';
1171         $r =  str_replace($x[0],$t,$x[0]);
1172         return $r;
1173 }
1174
1175
1176 if(! function_exists('day_translate')) {
1177 /**
1178  * Translate days and months names
1179  * 
1180  * @param string $s
1181  * @return string
1182  */
1183 function day_translate($s) {
1184         $ret = str_replace(array('Monday','Tuesday','Wednesday','Thursday','Friday','Saturday','Sunday'),
1185                 array( t('Monday'), t('Tuesday'), t('Wednesday'), t('Thursday'), t('Friday'), t('Saturday'), t('Sunday')),
1186                 $s);
1187
1188         $ret = str_replace(array('January','February','March','April','May','June','July','August','September','October','November','December'),
1189                 array( t('January'), t('February'), t('March'), t('April'), t('May'), t('June'), t('July'), t('August'), t('September'), t('October'), t('November'), t('December')),
1190                 $ret);
1191
1192         return $ret;
1193 }}
1194
1195
1196 if(! function_exists('normalise_link')) {
1197 /**
1198  * Normalize url
1199  * 
1200  * @param string $url
1201  * @return string
1202  */
1203 function normalise_link($url) {
1204         $ret = str_replace(array('https:','//www.'), array('http:','//'), $url);
1205         return(rtrim($ret,'/'));
1206 }}
1207
1208
1209
1210 if(! function_exists('link_compare')) {
1211 /**
1212  * Compare two URLs to see if they are the same, but ignore
1213  * slight but hopefully insignificant differences such as if one 
1214  * is https and the other isn't, or if one is www.something and 
1215  * the other isn't - and also ignore case differences.
1216  *
1217  * @param string $a first url
1218  * @param string $b second url
1219  * @return boolean True if the URLs match, otherwise False
1220  *
1221  */     
1222 function link_compare($a,$b) {
1223         if(strcasecmp(normalise_link($a),normalise_link($b)) === 0)
1224                 return true;
1225         return false;
1226 }}
1227
1228
1229 if(! function_exists('redir_private_images')) {
1230 /**
1231  * Find any non-embedded images in private items and add redir links to them
1232  * 
1233  * @param App $a
1234  * @param array $item
1235  */
1236 function redir_private_images($a, &$item) {
1237
1238         $matches = false;
1239         $cnt = preg_match_all('|\[img\](http[^\[]*?/photo/[a-fA-F0-9]+?(-[0-9]\.[\w]+?)?)\[\/img\]|', $item['body'], $matches, PREG_SET_ORDER);
1240         if($cnt) {
1241                 //logger("redir_private_images: matches = " . print_r($matches, true));
1242                 foreach($matches as $mtch) {
1243                         if(strpos($mtch[1], '/redir') !== false)
1244                                 continue;
1245
1246                         if((local_user() == $item['uid']) && ($item['private'] != 0) && ($item['contact-id'] != $a->contact['id']) && ($item['network'] == NETWORK_DFRN)) {
1247                                 //logger("redir_private_images: redir");
1248                                 $img_url = $a->get_baseurl() . '/redir?f=1&quiet=1&url=' . $mtch[1] . '&conurl=' . $item['author-link'];
1249                                 $item['body'] = str_replace($mtch[0], "[img]".$img_url."[/img]", $item['body']);
1250                         }
1251                 }
1252         }
1253
1254 }}
1255
1256
1257 // Given an item array, convert the body element from bbcode to html and add smilie icons.
1258 // If attach is true, also add icons for item attachments
1259
1260 if(! function_exists('prepare_body')) {
1261 /**
1262  * Given an item array, convert the body element from bbcode to html and add smilie icons.
1263  * If attach is true, also add icons for item attachments
1264  * 
1265  * @param array $item
1266  * @param boolean $attach
1267  * @return string item body html
1268  * @hook prepare_body_init item array before any work
1269  * @hook prepare_body ('item'=>item array, 'html'=>body string) after first bbcode to html
1270  * @hook prepare_body_final ('item'=>item array, 'html'=>body string) after attach icons and blockquote special case handling (spoiler, author)
1271  */
1272 function prepare_body(&$item,$attach = false) {
1273
1274         $a = get_app();
1275         call_hooks('prepare_body_init', $item);
1276
1277         $searchpath = $a->get_baseurl()."/search?tag=";
1278
1279         $tags=array();
1280         $hashtags = array();
1281         $mentions = array();
1282
1283         if (!get_config('system','suppress_tags')) {
1284                 $taglist = q("SELECT `type`, `term`, `url` FROM `term` WHERE `otype` = %d AND `oid` = %d AND `type` IN (%d, %d) ORDER BY `tid`",
1285                                 intval(TERM_OBJ_POST), intval($item['id']), intval(TERM_HASHTAG), intval(TERM_MENTION));
1286
1287                 foreach($taglist as $tag) {
1288
1289                         if ($tag["url"] == "")
1290                                 $tag["url"] = $searchpath.strtolower($tag["term"]);
1291
1292                         if ($tag["type"] == TERM_HASHTAG) {
1293                                 $hashtags[] = "#<a href=\"".$tag["url"]."\" target=\"external-link\">".$tag["term"]."</a>";
1294                                 $prefix = "#";
1295                         } elseif ($tag["type"] == TERM_MENTION) {
1296                                 $mentions[] = "@<a href=\"".$tag["url"]."\" target=\"external-link\">".$tag["term"]."</a>";
1297                                 $prefix = "@";
1298                         }
1299                         $tags[] = $prefix."<a href=\"".$tag["url"]."\" target=\"external-link\">".$tag["term"]."</a>";
1300                 }
1301         }
1302
1303         $item['tags'] = $tags;
1304         $item['hashtags'] = $hashtags;
1305         $item['mentions'] = $mentions;
1306
1307
1308         //$cachefile = get_cachefile($item["guid"]."-".strtotime($item["edited"])."-".hash("crc32", $item['body']));
1309         $cachefile = get_cachefile($item["guid"]."-".hash("md5", $item['body']));
1310
1311         if (($cachefile != '')) {
1312                 if (file_exists($cachefile)) {
1313                         $stamp1 = microtime(true);
1314                         $s = file_get_contents($cachefile);
1315                         $a->save_timestamp($stamp1, "file");
1316                 } else {
1317                         redir_private_images($a, $item);
1318                         $s = prepare_text($item['body']);
1319
1320                         $stamp1 = microtime(true);
1321                         file_put_contents($cachefile, $s);
1322                         $a->save_timestamp($stamp1, "file");
1323
1324                         logger('prepare_body: put item '.$item["id"].' into cachefile '.$cachefile);
1325                 }
1326         } else {
1327                 redir_private_images($a, $item);
1328                 $s = prepare_text($item['body']);
1329         }
1330
1331
1332         $prep_arr = array('item' => $item, 'html' => $s);
1333         call_hooks('prepare_body', $prep_arr);
1334         $s = $prep_arr['html'];
1335
1336         if(! $attach) {
1337                 // Replace the blockquotes with quotes that are used in mails
1338                 $mailquote = '<blockquote type="cite" class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">';
1339                 $s = str_replace(array('<blockquote>', '<blockquote class="spoiler">', '<blockquote class="author">'), array($mailquote, $mailquote, $mailquote), $s);
1340                 return $s;
1341         }
1342
1343         $as = '';
1344         $vhead = false;
1345         $arr = explode('[/attach],',$item['attach']);
1346         if(count($arr)) {
1347                 $as .= '<div class="body-attach">';
1348                 foreach($arr as $r) {
1349                         $matches = false;
1350                         $icon = '';
1351                         $cnt = preg_match_all('|\[attach\]href=\"(.*?)\" length=\"(.*?)\" type=\"(.*?)\" title=\"(.*?)\"|',$r,$matches, PREG_SET_ORDER);
1352                         if($cnt) {
1353                                 foreach($matches as $mtch) {
1354                                         $mime = $mtch[3];
1355
1356                                         if((local_user() == $item['uid']) && ($item['contact-id'] != $a->contact['id']) && ($item['network'] == NETWORK_DFRN))
1357                                                 $the_url = $a->get_baseurl() . '/redir/' . $item['contact-id'] . '?f=1&url=' . $mtch[1];
1358                                         else
1359                                                 $the_url = $mtch[1];
1360
1361                                         if(strpos($mime, 'video') !== false) {
1362                                                 if(!$vhead) {
1363                                                         $vhead = true;
1364                                                         $a->page['htmlhead'] .= replace_macros(get_markup_template('videos_head.tpl'), array(
1365                                                                 '$baseurl' => $a->get_baseurl(),
1366                                                         ));
1367                                                         $a->page['end'] .= replace_macros(get_markup_template('videos_end.tpl'), array(
1368                                                                 '$baseurl' => $a->get_baseurl(),
1369                                                         ));
1370                                                 }
1371
1372                                                 $id = end(explode('/', $the_url));
1373                                                 $as .= replace_macros(get_markup_template('video_top.tpl'), array(
1374                                                         '$video'        => array(
1375                                                                 'id'       => $id,
1376                                                                 'title'         => t('View Video'),
1377                                                                 'src'           => $the_url,
1378                                                                 'mime'          => $mime,
1379                                                         ),
1380                                                 ));
1381                                         }
1382
1383                                         $filetype = strtolower(substr( $mime, 0, strpos($mime,'/') ));
1384                                         if($filetype) {
1385                                                 $filesubtype = strtolower(substr( $mime, strpos($mime,'/') + 1 ));
1386                                                 $filesubtype = str_replace('.', '-', $filesubtype);
1387                                         }
1388                                         else {
1389                                                 $filetype = 'unkn';
1390                                                 $filesubtype = 'unkn';
1391                                         }
1392
1393                                         $icon = '<div class="attachtype icon s22 type-' . $filetype . ' subtype-' . $filesubtype . '"></div>';
1394                                         /*$icontype = strtolower(substr($mtch[3],0,strpos($mtch[3],'/')));
1395                                         switch($icontype) {
1396                                                 case 'video':
1397                                                 case 'audio':
1398                                                 case 'image':
1399                                                 case 'text':
1400                                                         $icon = '<div class="attachtype icon s22 type-' . $icontype . '"></div>';
1401                                                         break;
1402                                                 default:
1403                                                         $icon = '<div class="attachtype icon s22 type-unkn"></div>';
1404                                                         break;
1405                                         }*/
1406
1407                                         $title = ((strlen(trim($mtch[4]))) ? escape_tags(trim($mtch[4])) : escape_tags($mtch[1]));
1408                                         $title .= ' ' . $mtch[2] . ' ' . t('bytes');
1409
1410                                         $as .= '<a href="' . strip_tags($the_url) . '" title="' . $title . '" class="attachlink" target="external-link" >' . $icon . '</a>';
1411                                 }
1412                         }
1413                 }
1414                 $as .= '<div class="clear"></div></div>';
1415         }
1416         $s = $s . $as;
1417
1418
1419         // Look for spoiler
1420         $spoilersearch = '<blockquote class="spoiler">';
1421
1422         // Remove line breaks before the spoiler
1423         while ((strpos($s, "\n".$spoilersearch) !== false))
1424                 $s = str_replace("\n".$spoilersearch, $spoilersearch, $s);
1425         while ((strpos($s, "<br />".$spoilersearch) !== false))
1426                 $s = str_replace("<br />".$spoilersearch, $spoilersearch, $s);
1427
1428         while ((strpos($s, $spoilersearch) !== false)) {
1429
1430                 $pos = strpos($s, $spoilersearch);
1431                 $rnd = random_string(8);
1432                 $spoilerreplace = '<br /> <span id="spoiler-wrap-'.$rnd.'" style="white-space:nowrap;" class="fakelink" onclick="openClose(\'spoiler-'.$rnd.'\');">'.sprintf(t('Click to open/close')).'</span>'.
1433                                         '<blockquote class="spoiler" id="spoiler-'.$rnd.'" style="display: none;">';
1434                 $s = substr($s, 0, $pos).$spoilerreplace.substr($s, $pos+strlen($spoilersearch));
1435         }
1436
1437         // Look for quote with author
1438         $authorsearch = '<blockquote class="author">';
1439
1440         while ((strpos($s, $authorsearch) !== false)) {
1441
1442                 $pos = strpos($s, $authorsearch);
1443                 $rnd = random_string(8);
1444                 $authorreplace = '<br /> <span id="author-wrap-'.$rnd.'" style="white-space:nowrap;" class="fakelink" onclick="openClose(\'author-'.$rnd.'\');">'.sprintf(t('Click to open/close')).'</span>'.
1445                                         '<blockquote class="author" id="author-'.$rnd.'" style="display: block;">';
1446                 $s = substr($s, 0, $pos).$authorreplace.substr($s, $pos+strlen($authorsearch));
1447         }
1448
1449         $prep_arr = array('item' => $item, 'html' => $s);
1450         call_hooks('prepare_body_final', $prep_arr);
1451
1452         return $prep_arr['html'];
1453 }}
1454
1455
1456 if(! function_exists('prepare_text')) {
1457 /**
1458  * Given a text string, convert from bbcode to html and add smilie icons.
1459  * 
1460  * @param string $text
1461  * @return string
1462  */
1463 function prepare_text($text) {
1464
1465         require_once('include/bbcode.php');
1466
1467         if(stristr($text,'[nosmile]'))
1468                 $s = bbcode($text);
1469         else
1470                 $s = smilies(bbcode($text));
1471
1472         return $s;
1473 }}
1474
1475
1476
1477 /**
1478  * return array with details for categories and folders for an item
1479  * 
1480  * @param array $item
1481  * @return array
1482  * 
1483   * [
1484  *      [ // categories array
1485  *          {
1486  *               'name': 'category name',
1487  *               'removeurl': 'url to remove this category',
1488  *               'first': 'is the first in this array? true/false',
1489  *               'last': 'is the last in this array? true/false',
1490  *           } ,
1491  *           ....
1492  *       ],
1493  *       [ //folders array
1494  *                      {
1495  *               'name': 'folder name',
1496  *               'removeurl': 'url to remove this folder',
1497  *               'first': 'is the first in this array? true/false',
1498  *               'last': 'is the last in this array? true/false',
1499  *           } ,
1500  *           ....       
1501  *       ]
1502  *  ]
1503  */
1504 function get_cats_and_terms($item) {
1505
1506     $a = get_app();
1507     $categories = array();
1508     $folders = array();
1509
1510     $matches = false; $first = true;
1511     $cnt = preg_match_all('/<(.*?)>/',$item['file'],$matches,PREG_SET_ORDER);
1512     if($cnt) {
1513         foreach($matches as $mtch) {
1514             $categories[] = array(
1515                 'name' => xmlify(file_tag_decode($mtch[1])),
1516                 'url' =>  "#",
1517                 'removeurl' => ((local_user() == $item['uid'])?$a->get_baseurl() . '/filerm/' . $item['id'] . '?f=&cat=' . xmlify(file_tag_decode($mtch[1])):""),
1518                 'first' => $first,
1519                 'last' => false
1520             );
1521             $first = false;
1522         }
1523     }
1524     if (count($categories)) $categories[count($categories)-1]['last'] = true;
1525     
1526
1527         if(local_user() == $item['uid']) {
1528             $matches = false; $first = true;
1529         $cnt = preg_match_all('/\[(.*?)\]/',$item['file'],$matches,PREG_SET_ORDER);
1530             if($cnt) {
1531             foreach($matches as $mtch) {
1532                     $folders[] = array(
1533                     'name' => xmlify(file_tag_decode($mtch[1])),
1534                          'url' =>  "#",
1535                         'removeurl' => ((local_user() == $item['uid'])?$a->get_baseurl() . '/filerm/' . $item['id'] . '?f=&term=' . xmlify(file_tag_decode($mtch[1])):""),
1536                     'first' => $first,
1537                         'last' => false
1538                 );
1539                     $first = false;
1540                         }
1541         }
1542     }
1543
1544     if (count($folders)) $folders[count($folders)-1]['last'] = true;
1545
1546     return array($categories, $folders);
1547 }
1548
1549
1550
1551 if(! function_exists('feed_hublinks')) {
1552 /**
1553  * return atom link elements for all of our hubs
1554  * @return string hub link xml elements
1555  */
1556 function feed_hublinks() {
1557         $a = get_app();
1558         $hub = get_config('system','huburl');
1559
1560         $hubxml = '';
1561         if(strlen($hub)) {
1562                 $hubs = explode(',', $hub);
1563                 if(count($hubs)) {
1564                         foreach($hubs as $h) {
1565                                 $h = trim($h);
1566                                 if(! strlen($h))
1567                                         continue;
1568                                 if ($h === '[internal]')
1569                                         $h = $a->get_baseurl() . '/pubsubhubbub';
1570                                 $hubxml .= '<link rel="hub" href="' . xmlify($h) . '" />' . "\n" ;
1571                         }
1572                 }
1573         }
1574         return $hubxml;
1575 }}
1576
1577
1578 if(! function_exists('feed_salmonlinks')) {
1579 /**
1580  * return atom link elements for salmon endpoints
1581  * @param string $nick user nickname
1582  * @return string salmon link xml elements
1583  */
1584 function feed_salmonlinks($nick) {
1585
1586         $a = get_app();
1587
1588         $salmon  = '<link rel="salmon" href="' . xmlify($a->get_baseurl() . '/salmon/' . $nick) . '" />' . "\n" ;
1589
1590         // old style links that status.net still needed as of 12/2010 
1591
1592         $salmon .= '  <link rel="http://salmon-protocol.org/ns/salmon-replies" href="' . xmlify($a->get_baseurl() . '/salmon/' . $nick) . '" />' . "\n" ; 
1593         $salmon .= '  <link rel="http://salmon-protocol.org/ns/salmon-mention" href="' . xmlify($a->get_baseurl() . '/salmon/' . $nick) . '" />' . "\n" ; 
1594         return $salmon;
1595 }}
1596
1597 if(! function_exists('get_plink')) {
1598 /**
1599  * get private link for item
1600  * @param array $item
1601  * @return boolean|array False if item has not plink, otherwise array('href'=>plink url, 'title'=>translated title)
1602  */
1603 function get_plink($item) {
1604         $a = get_app(); 
1605         if (x($item,'plink') && ($item['private'] != 1)) {
1606                 return array(
1607                         'href' => $item['plink'],
1608                         'title' => t('link to source'),
1609                 );
1610         } 
1611         else {
1612                 return false;
1613         }
1614 }}
1615
1616 if(! function_exists('unamp')) {
1617 /**
1618  * replace html amp entity with amp char
1619  * @param string $s
1620  * @return string
1621  */
1622 function unamp($s) {
1623         return str_replace('&amp;', '&', $s);
1624 }}
1625
1626
1627
1628
1629 if(! function_exists('lang_selector')) {
1630 /**
1631  * get html for language selector
1632  * @global string $lang
1633  * @return string 
1634  * @template lang_selector.tpl
1635  */
1636 function lang_selector() {
1637         global $lang;
1638         
1639         $langs = glob('view/*/strings.php');
1640         
1641         $lang_options = array();
1642         $selected = "";
1643         
1644         if(is_array($langs) && count($langs)) {
1645                 $langs[] = '';
1646                 if(! in_array('view/en/strings.php',$langs))
1647                         $langs[] = 'view/en/';
1648                 asort($langs);
1649                 foreach($langs as $l) {
1650                         if($l == '') {
1651                                 $lang_options[""] = t('default');
1652                                 continue;
1653                         }
1654                         $ll = substr($l,5);
1655                         $ll = substr($ll,0,strrpos($ll,'/'));
1656                         $selected = (($ll === $lang && (x($_SESSION, 'language'))) ? $ll : $selected);
1657                         $lang_options[$ll]=$ll;
1658                 }
1659         }
1660
1661         $tpl = get_markup_template("lang_selector.tpl");        
1662         $o = replace_macros($tpl, array(
1663                 '$title' => t('Select an alternate language'),
1664                 '$langs' => array($lang_options, $selected),
1665                 
1666         ));
1667         return $o;
1668 }}
1669
1670
1671 if(! function_exists('return_bytes')) {
1672 /**
1673  * return number of bytes in size (K, M, G)
1674  * @param string $size_str
1675  * @return number
1676  */
1677 function return_bytes ($size_str) {
1678     switch (substr ($size_str, -1))
1679     {
1680         case 'M': case 'm': return (int)$size_str * 1048576;
1681         case 'K': case 'k': return (int)$size_str * 1024;
1682         case 'G': case 'g': return (int)$size_str * 1073741824;
1683         default: return $size_str;
1684     }
1685 }}
1686
1687 /**
1688  * @return string
1689  */
1690 function generate_user_guid() {
1691         $found = true;
1692         do {
1693                 $guid = random_string(16);
1694                 $x = q("SELECT `uid` FROM `user` WHERE `guid` = '%s' LIMIT 1",
1695                         dbesc($guid)
1696                 );
1697                 if(! count($x))
1698                         $found = false;
1699         } while ($found == true );
1700         return $guid;
1701 }
1702
1703
1704 /**
1705  * @param string $s
1706  * @param boolean $strip_padding
1707  * @return string
1708  */
1709 function base64url_encode($s, $strip_padding = false) {
1710
1711         $s = strtr(base64_encode($s),'+/','-_');
1712
1713         if($strip_padding)
1714                 $s = str_replace('=','',$s);
1715
1716         return $s;
1717 }
1718
1719 /**
1720  * @param string $s
1721  * @return string
1722  */
1723 function base64url_decode($s) {
1724
1725         if(is_array($s)) {
1726                 logger('base64url_decode: illegal input: ' . print_r(debug_backtrace(), true));
1727                 return $s;
1728         }
1729
1730 /*
1731  *  // Placeholder for new rev of salmon which strips base64 padding.
1732  *  // PHP base64_decode handles the un-padded input without requiring this step
1733  *  // Uncomment if you find you need it.
1734  *
1735  *      $l = strlen($s);
1736  *      if(! strpos($s,'=')) {
1737  *              $m = $l % 4;
1738  *              if($m == 2)
1739  *                      $s .= '==';
1740  *              if($m == 3)
1741  *                      $s .= '=';
1742  *      }
1743  *
1744  */
1745
1746         return base64_decode(strtr($s,'-_','+/'));
1747 }
1748
1749
1750 if (!function_exists('str_getcsv')) {
1751         /**
1752          * Parse csv string
1753          * 
1754          * @param string $input
1755          * @param string $delimiter
1756          * @param string $enclosure
1757          * @param string $escape
1758          * @param string $eol
1759          * @return boolean|array False on error, otherwise array[row][column]
1760          */
1761     function str_getcsv($input, $delimiter = ',', $enclosure = '"', $escape = '\\', $eol = '\n') {
1762         if (is_string($input) && !empty($input)) {
1763             $output = array();
1764             $tmp    = preg_split("/".$eol."/",$input);
1765             if (is_array($tmp) && !empty($tmp)) {
1766                 while (list($line_num, $line) = each($tmp)) {
1767                     if (preg_match("/".$escape.$enclosure."/",$line)) {
1768                         while ($strlen = strlen($line)) {
1769                             $pos_delimiter       = strpos($line,$delimiter);
1770                             $pos_enclosure_start = strpos($line,$enclosure);
1771                             if (
1772                                 is_int($pos_delimiter) && is_int($pos_enclosure_start)
1773                                 && ($pos_enclosure_start < $pos_delimiter)
1774                                 ) {
1775                                 $enclosed_str = substr($line,1);
1776                                 $pos_enclosure_end = strpos($enclosed_str,$enclosure);
1777                                 $enclosed_str = substr($enclosed_str,0,$pos_enclosure_end);
1778                                 $output[$line_num][] = $enclosed_str;
1779                                 $offset = $pos_enclosure_end+3;
1780                             } else {
1781                                 if (empty($pos_delimiter) && empty($pos_enclosure_start)) {
1782                                     $output[$line_num][] = substr($line,0);
1783                                     $offset = strlen($line);
1784                                 } else {
1785                                     $output[$line_num][] = substr($line,0,$pos_delimiter);
1786                                     $offset = (
1787                                                 !empty($pos_enclosure_start)
1788                                                 && ($pos_enclosure_start < $pos_delimiter)
1789                                                 )
1790                                                 ?$pos_enclosure_start
1791                                                 :$pos_delimiter+1;
1792                                 }
1793                             }
1794                             $line = substr($line,$offset);
1795                         }
1796                     } else {
1797                         $line = preg_split("/".$delimiter."/",$line);
1798    
1799                         /*
1800                          * Validating against pesky extra line breaks creating false rows.
1801                          */
1802                         if (is_array($line) && !empty($line[0])) {
1803                             $output[$line_num] = $line;
1804                         } 
1805                     }
1806                 }
1807                 return $output;
1808             } else {
1809                 return false;
1810             }
1811         } else {
1812             return false;
1813         }
1814     }
1815
1816
1817 /**
1818  * return div element with class 'clear'
1819  * @return string
1820  * @deprecated
1821  */
1822 function cleardiv() {
1823         return '<div class="clear"></div>';
1824 }
1825
1826
1827 function bb_translate_video($s) {
1828
1829         $matches = null;
1830         $r = preg_match_all("/\[video\](.*?)\[\/video\]/ism",$s,$matches,PREG_SET_ORDER);
1831         if($r) {
1832                 foreach($matches as $mtch) {
1833                         if((stristr($mtch[1],'youtube')) || (stristr($mtch[1],'youtu.be')))
1834                                 $s = str_replace($mtch[0],'[youtube]' . $mtch[1] . '[/youtube]',$s);
1835                         elseif(stristr($mtch[1],'vimeo'))
1836                                 $s = str_replace($mtch[0],'[vimeo]' . $mtch[1] . '[/vimeo]',$s);
1837                 }
1838         }
1839         return $s;      
1840 }
1841
1842 function html2bb_video($s) {
1843
1844         $s = preg_replace('#<object[^>]+>(.*?)https?://www.youtube.com/((?:v|cp)/[A-Za-z0-9\-_=]+)(.*?)</object>#ism',
1845                         '[youtube]$2[/youtube]', $s);
1846
1847         $s = preg_replace('#<iframe[^>](.*?)https?://www.youtube.com/embed/([A-Za-z0-9\-_=]+)(.*?)</iframe>#ism',
1848                         '[youtube]$2[/youtube]', $s);
1849
1850         $s = preg_replace('#<iframe[^>](.*?)https?://player.vimeo.com/video/([0-9]+)(.*?)</iframe>#ism',
1851                         '[vimeo]$2[/vimeo]', $s);
1852
1853         return $s;
1854 }
1855
1856 /**
1857  * apply xmlify() to all values of array $val, recursively
1858  * @param array $val
1859  * @return array
1860  */
1861 function array_xmlify($val){
1862         if (is_bool($val)) return $val?"true":"false";
1863         if (is_array($val)) return array_map('array_xmlify', $val);
1864         return xmlify((string) $val);
1865 }
1866
1867
1868 /**
1869  * transorm link href and img src from relative to absolute
1870  * 
1871  * @param string $text
1872  * @param string $base base url
1873  * @return string
1874  */
1875 function reltoabs($text, $base)
1876 {
1877   if (empty($base))
1878     return $text;
1879
1880   $base = rtrim($base,'/');
1881
1882   $base2 = $base . "/";
1883         
1884   // Replace links
1885   $pattern = "/<a([^>]*) href=\"(?!http|https|\/)([^\"]*)\"/";
1886   $replace = "<a\${1} href=\"" . $base2 . "\${2}\"";
1887   $text = preg_replace($pattern, $replace, $text);
1888
1889   $pattern = "/<a([^>]*) href=\"(?!http|https)([^\"]*)\"/";
1890   $replace = "<a\${1} href=\"" . $base . "\${2}\"";
1891   $text = preg_replace($pattern, $replace, $text);
1892
1893   // Replace images
1894   $pattern = "/<img([^>]*) src=\"(?!http|https|\/)([^\"]*)\"/";
1895   $replace = "<img\${1} src=\"" . $base2 . "\${2}\"";
1896   $text = preg_replace($pattern, $replace, $text); 
1897
1898   $pattern = "/<img([^>]*) src=\"(?!http|https)([^\"]*)\"/";
1899   $replace = "<img\${1} src=\"" . $base . "\${2}\"";
1900   $text = preg_replace($pattern, $replace, $text); 
1901
1902
1903   // Done
1904   return $text;
1905 }
1906
1907 /**
1908  * get translated item type
1909  * 
1910  * @param array $itme
1911  * @return string
1912  */
1913 function item_post_type($item) {
1914         if(intval($item['event-id']))
1915                 return t('event');
1916         if(strlen($item['resource-id']))
1917                 return t('photo');
1918         if(strlen($item['verb']) && $item['verb'] !== ACTIVITY_POST)
1919                 return t('activity');
1920         if($item['id'] != $item['parent'])
1921                 return t('comment');
1922         return t('post');
1923 }
1924
1925 // post categories and "save to file" use the same item.file table for storage.
1926 // We will differentiate the different uses by wrapping categories in angle brackets
1927 // and save to file categories in square brackets.
1928 // To do this we need to escape these characters if they appear in our tag. 
1929
1930 function file_tag_encode($s) {
1931         return str_replace(array('<','>','[',']'),array('%3c','%3e','%5b','%5d'),$s);
1932 }
1933
1934 function file_tag_decode($s) {
1935         return str_replace(array('%3c','%3e','%5b','%5d'),array('<','>','[',']'),$s);
1936 }
1937
1938 function file_tag_file_query($table,$s,$type = 'file') {
1939
1940         if($type == 'file')
1941                 $str = preg_quote( '[' . str_replace('%','%%',file_tag_encode($s)) . ']' );
1942         else
1943                 $str = preg_quote( '<' . str_replace('%','%%',file_tag_encode($s)) . '>' );
1944         return " AND " . (($table) ? dbesc($table) . '.' : '') . "file regexp '" . dbesc($str) . "' ";
1945 }
1946
1947 // ex. given music,video return <music><video> or [music][video]
1948 function file_tag_list_to_file($list,$type = 'file') {
1949         $tag_list = '';
1950         if(strlen($list)) {
1951                 $list_array = explode(",",$list);
1952                 if($type == 'file') {
1953                         $lbracket = '[';
1954                         $rbracket = ']';
1955                 }
1956                 else {
1957                         $lbracket = '<';
1958                         $rbracket = '>';
1959                 }
1960
1961                 foreach($list_array as $item) {
1962                   if(strlen($item)) {
1963                                 $tag_list .= $lbracket . file_tag_encode(trim($item))  . $rbracket;
1964                         }
1965                 }
1966         }
1967         return $tag_list;
1968 }
1969
1970 // ex. given <music><video>[friends], return music,video or friends
1971 function file_tag_file_to_list($file,$type = 'file') {
1972         $matches = false;
1973         $list = '';
1974         if($type == 'file') {
1975                 $cnt = preg_match_all('/\[(.*?)\]/',$file,$matches,PREG_SET_ORDER);
1976         }
1977         else {
1978                 $cnt = preg_match_all('/<(.*?)>/',$file,$matches,PREG_SET_ORDER);
1979         }
1980         if($cnt) {
1981                 foreach($matches as $mtch) {
1982                         if(strlen($list))
1983                                 $list .= ',';
1984                         $list .= file_tag_decode($mtch[1]);
1985                 }
1986         }
1987
1988         return $list;
1989 }
1990
1991 function file_tag_update_pconfig($uid,$file_old,$file_new,$type = 'file') {
1992         // $file_old - categories previously associated with an item
1993         // $file_new - new list of categories for an item
1994
1995         if(! intval($uid))
1996                 return false;
1997
1998         if($file_old == $file_new)
1999                 return true;
2000
2001         $saved = get_pconfig($uid,'system','filetags');
2002         if(strlen($saved)) {
2003                 if($type == 'file') {
2004                         $lbracket = '[';
2005                         $rbracket = ']';
2006                 }
2007                 else {
2008                         $lbracket = '<';
2009                         $rbracket = '>';
2010                 }
2011
2012                 $filetags_updated = $saved;
2013
2014                 // check for new tags to be added as filetags in pconfig
2015                 $new_tags = array();
2016                 $check_new_tags = explode(",",file_tag_file_to_list($file_new,$type));
2017
2018                 foreach($check_new_tags as $tag) {
2019                         if(! stristr($saved,$lbracket . file_tag_encode($tag) . $rbracket))
2020                                 $new_tags[] = $tag;
2021                 }
2022
2023                 $filetags_updated .= file_tag_list_to_file(implode(",",$new_tags),$type);
2024
2025                 // check for deleted tags to be removed from filetags in pconfig
2026                 $deleted_tags = array();
2027                 $check_deleted_tags = explode(",",file_tag_file_to_list($file_old,$type));
2028
2029                 foreach($check_deleted_tags as $tag) {
2030                         if(! stristr($file_new,$lbracket . file_tag_encode($tag) . $rbracket))
2031                                 $deleted_tags[] = $tag;
2032                 }
2033
2034                 foreach($deleted_tags as $key => $tag) {
2035                         $r = q("select file from item where uid = %d " . file_tag_file_query('item',$tag,$type),
2036                                 intval($uid)
2037                         );
2038
2039                         if(count($r)) {
2040                                 unset($deleted_tags[$key]);
2041                         }
2042                         else {
2043                                 $filetags_updated = str_replace($lbracket . file_tag_encode($tag) . $rbracket,'',$filetags_updated);
2044                         }
2045                 }
2046
2047                 if($saved != $filetags_updated) {
2048                         set_pconfig($uid,'system','filetags', $filetags_updated);
2049                 }
2050                 return true;
2051         }
2052         else
2053                 if(strlen($file_new)) {
2054                         set_pconfig($uid,'system','filetags', $file_new);
2055                 }
2056                 return true;
2057 }
2058
2059 function file_tag_save_file($uid,$item,$file) {
2060         $result = false;
2061         if(! intval($uid))
2062                 return false;
2063         $r = q("select file from item where id = %d and uid = %d limit 1",
2064                 intval($item),
2065                 intval($uid)
2066         );
2067         if(count($r)) {
2068                 if(! stristr($r[0]['file'],'[' . file_tag_encode($file) . ']'))
2069                         q("update item set file = '%s' where id = %d and uid = %d limit 1",
2070                                 dbesc($r[0]['file'] . '[' . file_tag_encode($file) . ']'),
2071                                 intval($item),
2072                                 intval($uid)
2073                         );
2074                 $saved = get_pconfig($uid,'system','filetags');
2075                 if((! strlen($saved)) || (! stristr($saved,'[' . file_tag_encode($file) . ']')))
2076                         set_pconfig($uid,'system','filetags',$saved . '[' . file_tag_encode($file) . ']');
2077                 info( t('Item filed') );
2078         }
2079         return true;
2080 }
2081
2082 function file_tag_unsave_file($uid,$item,$file,$cat = false) {
2083         $result = false;
2084         if(! intval($uid))
2085                 return false;
2086
2087         if($cat == true)
2088                 $pattern = '<' . file_tag_encode($file) . '>' ;
2089         else
2090                 $pattern = '[' . file_tag_encode($file) . ']' ;
2091
2092
2093         $r = q("select file from item where id = %d and uid = %d limit 1",
2094                 intval($item),
2095                 intval($uid)
2096         );
2097         if(! count($r))
2098                 return false;
2099
2100         q("update item set file = '%s' where id = %d and uid = %d limit 1",
2101                 dbesc(str_replace($pattern,'',$r[0]['file'])),
2102                 intval($item),
2103                 intval($uid)
2104         );
2105
2106         $r = q("select file from item where uid = %d and deleted = 0 " . file_tag_file_query('item',$file,(($cat) ? 'category' : 'file')),
2107                 intval($uid)
2108         );
2109
2110         if(! count($r)) {
2111                 $saved = get_pconfig($uid,'system','filetags');
2112                 set_pconfig($uid,'system','filetags',str_replace($pattern,'',$saved));
2113
2114         }
2115         return true;
2116 }
2117
2118 function normalise_openid($s) {
2119         return trim(str_replace(array('http://','https://'),array('',''),$s),'/');
2120 }
2121
2122
2123 function undo_post_tagging($s) {
2124         $matches = null;
2125         $cnt = preg_match_all('/([@#])\[url=(.*?)\](.*?)\[\/url\]/ism',$s,$matches,PREG_SET_ORDER);
2126         if($cnt) {
2127                 foreach($matches as $mtch) {
2128                         $s = str_replace($mtch[0], $mtch[1] . $mtch[3],$s);
2129                 }
2130         }
2131         return $s;
2132 }
2133
2134 function fix_mce_lf($s) {
2135         $s = str_replace("\r\n","\n",$s);
2136 //      $s = str_replace("\n\n","\n",$s);
2137         return $s;
2138 }
2139
2140
2141 function protect_sprintf($s) {
2142         return(str_replace('%','%%',$s));
2143 }
2144
2145
2146 function is_a_date_arg($s) {
2147         $i = intval($s);
2148         if($i > 1900) {
2149                 $y = date('Y');
2150                 if($i <= $y+1 && strpos($s,'-') == 4) {
2151                         $m = intval(substr($s,5));
2152                         if($m > 0 && $m <= 12)
2153                                 return true;
2154                 }
2155         }
2156         return false;
2157 }