+
+function handle_body(&$body, &$inform, &$str_tags, $profile_uid, $tag) {
+ $profile=null;
+ if(isset($profile))\r
+ unset($profile);\r
+ if(strpos($tag,'#') === 0) {\r
+ if(strpos($tag,'[url='))\r
+ continue;\r
+ $basetag = str_replace('_',' ',substr($tag,1));\r
+ $body = str_replace($tag,'#[url=' . $a->get_baseurl() . '/search?search=' . rawurlencode($basetag) . ']' . $basetag . '[/url]',$body);\r
+ \r
+ $newtag = '#[url=' . $a->get_baseurl() . '/search?search=' . rawurlencode($basetag) . ']' . $basetag . '[/url]';\r
+ if(! stristr($str_tags,$newtag)) {\r
+ if(strlen($str_tags))\r
+ $str_tags .= ',';\r
+ $str_tags .= $newtag;\r
+ }\r
+ continue;\r
+ }\r
+ if(strpos($tag,'@') === 0) {\r
+ if(strpos($tag,'[url='))\r
+ continue;\r
+ $stat = false;\r
+ $name = substr($tag,1);\r
+ if((strpos($name,'@')) || (strpos($name,'http://'))) {\r
+ $newname = $name;\r
+ $links = @lrdd($name);\r
+ if(count($links)) {\r
+ foreach($links as $link) {\r
+ if($link['@attributes']['rel'] === 'http://webfinger.net/rel/profile-page')\r
+ $profile = $link['@attributes']['href'];\r
+ if($link['@attributes']['rel'] === 'salmon') {\r
+ if(strlen($inform))\r
+ $inform .= ',';\r
+ $inform .= 'url:' . str_replace(',','%2c',$link['@attributes']['href']);\r
+ }\r
+ }\r
+ }\r
+ }\r
+ else {\r
+ $newname = $name;\r
+ $alias = '';\r
+ $tagcid = 0;\r
+ if(strrpos($newname,'+')) {\r
+ $tagcid = intval(substr($newname,strrpos($newname,'+') + 1));\r
+ if(strpos($name,' '))\r
+ $name = substr($name,0,strpos($name,' '));\r
+ }\r
+ if($tagcid) {\r
+ $r = q("SELECT * FROM `contact` WHERE `id` = %d AND `uid` = %d LIMIT 1",\r
+ intval($tagcid),\r
+ intval($profile_uid)\r
+ );\r
+ }\r
+ elseif(strstr($name,'_') || strstr($name,' ')) {\r
+ $newname = str_replace('_',' ',$name);\r
+ $r = q("SELECT * FROM `contact` WHERE `name` = '%s' AND `uid` = %d LIMIT 1",\r
+ dbesc($newname),\r
+ intval($profile_uid)\r
+ );\r
+ }\r
+ else {\r
+ $r = q("SELECT * FROM `contact` WHERE `attag` = '%s' OR `nick` = '%s' AND `uid` = %d ORDER BY `attag` DESC LIMIT 1",\r
+ dbesc($name),\r
+ dbesc($name),\r
+ intval($profile_uid)\r
+ );\r
+ }\r
+ if(count($r)) {\r
+ $profile = $r[0]['url'];\r
+ if($r[0]['network'] === 'stat') {\r
+ $newname = $r[0]['nick'];\r
+ $stat = true;\r
+ if($r[0]['alias'])\r
+ $alias = $r[0]['alias'];\r
+ }\r
+ else\r
+ $newname = $r[0]['name'];\r
+ if(strlen($inform))\r
+ $inform .= ',';\r
+ $inform .= 'cid:' . $r[0]['id'];\r
+ }\r
+ }\r
+ if($profile) {\r
+ $body = str_replace('@' . $name, '@' . '[url=' . $profile . ']' . $newname . '[/url]', $body);\r
+ $profile = str_replace(',','%2c',$profile);\r
+ $newtag = '@[url=' . $profile . ']' . $newname . '[/url]';\r
+ if(! stristr($str_tags,$newtag)) {\r
+ if(strlen($str_tags))\r
+ $str_tags .= ',';\r
+ $str_tags .= $newtag;\r
+ }\r
+ \r
+ // Status.Net seems to require the numeric ID URL in a mention if the person isn't\r
+ // subscribed to you. But the nickname URL is OK if they are. Grrr. We'll tag both.\r
+ \r
+ if(strlen($alias)) {\r
+ $newtag = '@[url=' . $alias . ']' . $newname . '[/url]';\r
+ if(! stristr($str_tags,$newtag)) {\r
+ if(strlen($str_tags))\r
+ $str_tags .= ',';\r
+ $str_tags .= $newtag;\r
+ }\r
+ }\r
+ }\r
+ }
+}