mod/item.php

   1 <?php
   2 /**
   3  * @file mod/item.php
   4  */
   5
   6 /*
   7  * This is the POST destination for most all locally posted
   8  * text stuff. This function handles status, wall-to-wall status,
   9  * local comments, and remote coments that are posted on this site
  10  * (as opposed to being delivered in a feed).
  11  * Also processed here are posts and comments coming through the
  12  * statusnet/twitter API.
  13  *
  14  * All of these become an "item" which is our basic unit of
  15  * information.
  16  *
  17  * Posts that originate externally or do not fall into the above
  18  * posting categories go through item_store() instead of this function.
  19  */
  20 use Friendica\App;
  21 use Friendica\Core\Config;
  22 use Friendica\Core\System;
  23 use Friendica\Core\Worker;
  24 use Friendica\Database\DBM;
  25 use Friendica\Model\Contact;
  26 use Friendica\Model\GContact;
  27 use Friendica\Network\Probe;
  28 use Friendica\Protocol\Diaspora;
  29 use Friendica\Protocol\Email;
  30 use Friendica\Util\Emailer;
  31
  32 require_once 'include/crypto.php';
  33 require_once 'include/enotify.php';
  34 require_once 'include/tags.php';
  35 require_once 'include/files.php';
  36 require_once 'include/threads.php';
  37 require_once 'include/text.php';
  38 require_once 'include/items.php';
  39
  40 function item_post(App $a) {
  41
  42         if (!local_user() && !remote_user() && !x($_REQUEST, 'commenter')) {
  43                 return;
  44         }
  45
  46         require_once 'include/security.php';
  47
  48         $uid = local_user();
  49
  50         if (x($_REQUEST, 'dropitems')) {
  51                 $arr_drop = explode(',', $_REQUEST['dropitems']);
  52                 drop_items($arr_drop);
  53                 $json = array('success' => 1);
  54                 echo json_encode($json);
  55                 killme();
  56         }
  57
  58         call_hooks('post_local_start', $_REQUEST);
  59         // logger('postinput ' . file_get_contents('php://input'));
  60         logger('postvars ' . print_r($_REQUEST,true), LOGGER_DATA);
  61
  62         $api_source = ((x($_REQUEST, 'api_source') && $_REQUEST['api_source']) ? true : false);
  63
  64         $message_id = ((x($_REQUEST, 'message_id') && $api_source) ? strip_tags($_REQUEST['message_id']) : '');
  65
  66         $return_path = ((x($_REQUEST, 'return')) ? $_REQUEST['return'] : '');
  67         $preview = ((x($_REQUEST, 'preview')) ? intval($_REQUEST['preview']) : 0);
  68
  69         /*
  70          * Check for doubly-submitted posts, and reject duplicates
  71          * Note that we have to ignore previews, otherwise nothing will post
  72          * after it's been previewed
  73          */
  74         if (!$preview && x($_REQUEST, 'post_id_random')) {
  75                 if (x($_SESSION, 'post-random') && $_SESSION['post-random'] == $_REQUEST['post_id_random']) {
  76                         logger("item post: duplicate post", LOGGER_DEBUG);
  77                         item_post_return(System::baseUrl(), $api_source, $return_path);
  78                 } else {
  79                         $_SESSION['post-random'] = $_REQUEST['post_id_random'];
  80                 }
  81         }
  82
  83         // Is this a reply to something?
  84         $parent = (x($_REQUEST, 'parent') ? intval($_REQUEST['parent']) : 0);
  85         $parent_uri = (x($_REQUEST, 'parent_uri') ? trim($_REQUEST['parent_uri']) : '');
  86
  87         $parent_item = null;
  88         $parent_contact = null;
  89         $thr_parent = '';
  90         $parid = 0;
  91         $r = false;
  92         $objecttype = null;
  93
  94         if ($parent || $parent_uri) {
  95
  96                 $objecttype = ACTIVITY_OBJ_COMMENT;
  97
  98                 if (! x($_REQUEST, 'type')) {
  99                         $_REQUEST['type'] = 'net-comment';
 100                 }
 101
 102                 if ($parent) {
 103                         $r = q("SELECT * FROM `item` WHERE `id` = %d LIMIT 1",
 104                                 intval($parent)
 105                         );
 106                 } elseif ($parent_uri && local_user()) {
 107                         // This is coming from an API source, and we are logged in
 108                         $r = q("SELECT * FROM `item` WHERE `uri` = '%s' AND `uid` = %d LIMIT 1",
 109                                 dbesc($parent_uri),
 110                                 intval(local_user())
 111                         );
 112                 }
 113
 114                 // if this isn't the real parent of the conversation, find it
 115                 if (DBM::is_result($r)) {
 116                         $parid = $r[0]['parent'];
 117                         $parent_uri = $r[0]['uri'];
 118                         if ($r[0]['id'] != $r[0]['parent']) {
 119                                 $r = q("SELECT * FROM `item` WHERE `id` = `parent` AND `parent` = %d LIMIT 1",
 120                                         intval($parid)
 121                                 );
 122                         }
 123                 }
 124
 125                 if (!DBM::is_result($r)) {
 126                         notice( t('Unable to locate original post.') . EOL);
 127                         if (x($_REQUEST, 'return')) {
 128                                 goaway($return_path);
 129                         }
 130                         killme();
 131                 }
 132                 $parent_item = $r[0];
 133                 $parent = $r[0]['id'];
 134
 135                 // multi-level threading - preserve the info but re-parent to our single level threading
 136                 //if(($parid) && ($parid != $parent))
 137                 $thr_parent = $parent_uri;
 138
 139                 if ($parent_item['contact-id'] && $uid) {
 140                         $r = q("SELECT * FROM `contact` WHERE `id` = %d AND `uid` = %d LIMIT 1",
 141                                 intval($parent_item['contact-id']),
 142                                 intval($uid)
 143                         );
 144                         if (DBM::is_result($r)) {
 145                                 $parent_contact = $r[0];
 146                         }
 147
 148                         // If the contact id doesn't fit with the contact, then set the contact to null
 149                         $thrparent = q("SELECT `author-link`, `network` FROM `item` WHERE `uri` = '%s' LIMIT 1", dbesc($thr_parent));
 150                         if (DBM::is_result($thrparent) && ($thrparent[0]["network"] === NETWORK_OSTATUS)
 151                                 && (normalise_link($parent_contact["url"]) != normalise_link($thrparent[0]["author-link"]))) {
 152                                 $parent_contact = Contact::getDetailsByURL($thrparent[0]["author-link"]);
 153
 154                                 if (!isset($parent_contact["nick"])) {
 155                                         $probed_contact = Probe::uri($thrparent[0]["author-link"]);
 156                                         if ($probed_contact["network"] != NETWORK_FEED) {
 157                                                 $parent_contact = $probed_contact;
 158                                                 $parent_contact["nurl"] = normalise_link($probed_contact["url"]);
 159                                                 $parent_contact["thumb"] = $probed_contact["photo"];
 160                                                 $parent_contact["micro"] = $probed_contact["photo"];
 161                                                 $parent_contact["addr"] = $probed_contact["addr"];
 162                                         }
 163                                 }
 164                                 logger('no contact found: ' . print_r($thrparent, true), LOGGER_DEBUG);
 165                         } else {
 166                                 logger('parent contact: ' . print_r($parent_contact, true), LOGGER_DEBUG);
 167                         }
 168
 169                         if ($parent_contact["nick"] == "") {
 170                                 $parent_contact["nick"] = $parent_contact["name"];
 171                         }
 172                 }
 173         }
 174
 175         if ($parent) {
 176                 logger('mod_item: item_post parent=' . $parent);
 177         }
 178
 179         $profile_uid = ((x($_REQUEST, 'profile_uid')) ? intval($_REQUEST['profile_uid']) : 0);
 180         $post_id     = ((x($_REQUEST, 'post_id'))     ? intval($_REQUEST['post_id'])     : 0);
 181         $app         = ((x($_REQUEST, 'source'))      ? strip_tags($_REQUEST['source'])  : '');
 182         $extid       = ((x($_REQUEST, 'extid'))       ? strip_tags($_REQUEST['extid'])   : '');
 183         $object      = ((x($_REQUEST, 'object'))      ? $_REQUEST['object']              : '');
 184
 185         // Check for multiple posts with the same message id (when the post was created via API)
 186         if (($message_id != '') && ($profile_uid != 0)) {
 187                 $r = q("SELECT * FROM `item` WHERE `uri` = '%s' AND `uid` = %d LIMIT 1",
 188                         dbesc($message_id),
 189                         intval($profile_uid)
 190                 );
 191
 192                 if (DBM::is_result($r)) {
 193                         logger("Message with URI ".$message_id." already exists for user ".$profile_uid, LOGGER_DEBUG);
 194                         return;
 195                 }
 196         }
 197
 198         $allow_moderated = false;
 199
 200         // here is where we are going to check for permission to post a moderated comment.
 201
 202         // First check that the parent exists and it is a wall item.
 203
 204         if (x($_REQUEST, 'commenter') && (!$parent || !$parent_item['wall'])) {
 205                 notice(t('Permission denied.') . EOL) ;
 206                 if (x($_REQUEST, 'return')) {
 207                         goaway($return_path);
 208                 }
 209                 killme();
 210         }
 211
 212         // Allow commenting if it is an answer to a public post
 213         $allow_comment = ($profile_uid == 0) && $parent && in_array($parent_item['network'], [NETWORK_OSTATUS, NETWORK_DIASPORA]);
 214
 215         /*
 216          * Now check that it is a page_type of PAGE_BLOG, and that valid personal details
 217          * have been provided, and run any anti-spam plugins
 218          */
 219         if (!(can_write_wall($a, $profile_uid) || $allow_comment) && !$allow_moderated) {
 220                 notice(t('Permission denied.') . EOL) ;
 221                 if (x($_REQUEST, 'return')) {
 222                         goaway($return_path);
 223                 }
 224                 killme();
 225         }
 226
 227
 228         // is this an edited post?
 229
 230         $orig_post = null;
 231
 232         if ($post_id) {
 233                 $i = q("SELECT * FROM `item` WHERE `uid` = %d AND `id` = %d LIMIT 1",
 234                         intval($profile_uid),
 235                         intval($post_id)
 236                 );
 237                 if (! DBM::is_result($i)) {
 238                         killme();
 239                 }
 240                 $orig_post = $i[0];
 241         }
 242
 243         $user = null;
 244
 245         $r = q("SELECT * FROM `user` WHERE `uid` = %d LIMIT 1",
 246                 intval($profile_uid)
 247         );
 248         if (DBM::is_result($r)) {
 249                 $user = $r[0];
 250         }
 251
 252         if ($orig_post) {
 253                 $str_group_allow   = $orig_post['allow_gid'];
 254                 $str_contact_allow = $orig_post['allow_cid'];
 255                 $str_group_deny    = $orig_post['deny_gid'];
 256                 $str_contact_deny  = $orig_post['deny_cid'];
 257                 $location          = $orig_post['location'];
 258                 $coord             = $orig_post['coord'];
 259                 $verb              = $orig_post['verb'];
 260                 $objecttype        = $orig_post['object-type'];
 261                 $emailcc           = $orig_post['emailcc'];
 262                 $app               = $orig_post['app'];
 263                 $categories        = $orig_post['file'];
 264                 $title             = notags(trim($_REQUEST['title']));
 265                 $body              = escape_tags(trim($_REQUEST['body']));
 266                 $private           = $orig_post['private'];
 267                 $pubmail_enable    = $orig_post['pubmail'];
 268                 $network           = $orig_post['network'];
 269                 $guid              = $orig_post['guid'];
 270                 $extid             = $orig_post['extid'];
 271
 272         } else {
 273
 274                 /*
 275                  * if coming from the API and no privacy settings are set,
 276                  * use the user default permissions - as they won't have
 277                  * been supplied via a form.
 278                  */
 279                 /// @TODO use x($_REQUEST, 'foo') here
 280                 if (($api_source)
 281                         && (! array_key_exists('contact_allow', $_REQUEST))
 282                         && (! array_key_exists('group_allow', $_REQUEST))
 283                         && (! array_key_exists('contact_deny', $_REQUEST))
 284                         && (! array_key_exists('group_deny', $_REQUEST))) {
 285                         $str_group_allow   = $user['allow_gid'];
 286                         $str_contact_allow = $user['allow_cid'];
 287                         $str_group_deny    = $user['deny_gid'];
 288                         $str_contact_deny  = $user['deny_cid'];
 289                 } else {
 290
 291                         // use the posted permissions
 292
 293                         $str_group_allow   = perms2str($_REQUEST['group_allow']);
 294                         $str_contact_allow = perms2str($_REQUEST['contact_allow']);
 295                         $str_group_deny    = perms2str($_REQUEST['group_deny']);
 296                         $str_contact_deny  = perms2str($_REQUEST['contact_deny']);
 297                 }
 298
 299                 $title             = notags(trim($_REQUEST['title']));
 300                 $location          = notags(trim($_REQUEST['location']));
 301                 $coord             = notags(trim($_REQUEST['coord']));
 302                 $verb              = notags(trim($_REQUEST['verb']));
 303                 $emailcc           = notags(trim($_REQUEST['emailcc']));
 304                 $body              = escape_tags(trim($_REQUEST['body']));
 305                 $network           = notags(trim($_REQUEST['network']));
 306                 $guid              = get_guid(32);
 307
 308                 item_add_language_opt($_REQUEST);
 309                 $postopts = $_REQUEST['postopts'] ? $_REQUEST['postopts'] : "";
 310
 311                 $private = ((strlen($str_group_allow) || strlen($str_contact_allow) || strlen($str_group_deny) || strlen($str_contact_deny)) ? 1 : 0);
 312
 313                 if ($user['hidewall']) {
 314                         $private = 2;
 315                 }
 316
 317                 // If this is a comment, set the permissions from the parent.
 318
 319                 if ($parent_item) {
 320
 321                         // for non native networks use the network of the original post as network of the item
 322                         if (($parent_item['network'] != NETWORK_DIASPORA)
 323                                 && ($parent_item['network'] != NETWORK_OSTATUS)
 324                                 && ($network == "")) {
 325                                 $network = $parent_item['network'];
 326                         }
 327
 328                         $str_contact_allow = $parent_item['allow_cid'];
 329                         $str_group_allow   = $parent_item['allow_gid'];
 330                         $str_contact_deny  = $parent_item['deny_cid'];
 331                         $str_group_deny    = $parent_item['deny_gid'];
 332                         $private           = $parent_item['private'];
 333                 }
 334
 335                 $pubmail_enable    = ((x($_REQUEST, 'pubmail_enable') && intval($_REQUEST['pubmail_enable']) && (! $private)) ? 1 : 0);
 336
 337                 // if using the API, we won't see pubmail_enable - figure out if it should be set
 338
 339                 if ($api_source && $profile_uid && $profile_uid == local_user() && (! $private)) {
 340                         $mail_disabled = ((function_exists('imap_open') && (! Config::get('system', 'imap_disabled'))) ? 0 : 1);
 341                         if (! $mail_disabled) {
 342                                 /// @TODO Check if only pubmail is loaded, * loads all columns
 343                                 $r = q("SELECT * FROM `mailacct` WHERE `uid` = %d AND `server` != '' LIMIT 1",
 344                                         intval(local_user())
 345                                 );
 346                                 if (DBM::is_result($r) && intval($r[0]['pubmail'])) {
 347                                         $pubmail_enabled = true;
 348                                 }
 349                         }
 350                 }
 351
 352                 if (! strlen($body)) {
 353                         if ($preview) {
 354                                 killme();
 355                         }
 356                         info(t('Empty post discarded.') . EOL );
 357                         if (x($_REQUEST, 'return')) {
 358                                 goaway($return_path);
 359                         }
 360                         killme();
 361                 }
 362         }
 363
 364         if (strlen($categories)) {
 365                 // get the "fileas" tags for this post
 366                 $filedas = file_tag_file_to_list($categories, 'file');
 367         }
 368         // save old and new categories, so we can determine what needs to be deleted from pconfig
 369         $categories_old = $categories;
 370         $categories = file_tag_list_to_file(trim($_REQUEST['category']), 'category');
 371         $categories_new = $categories;
 372         if (strlen($filedas)) {
 373                 // append the fileas stuff to the new categories list
 374                 $categories .= file_tag_list_to_file($filedas, 'file');
 375         }
 376
 377         // get contact info for poster
 378
 379         $author = null;
 380         $self   = false;
 381         $contact_id = 0;
 382
 383         if (local_user() && ((local_user() == $profile_uid) || $allow_comment)) {
 384                 $self = true;
 385                 $r = q("SELECT * FROM `contact` WHERE `uid` = %d AND `self` LIMIT 1",
 386                         intval($_SESSION['uid']));
 387         } elseif (remote_user()) {
 388                 if (x($_SESSION, 'remote') && is_array($_SESSION['remote'])) {
 389                         foreach ($_SESSION['remote'] as $v) {
 390                                 if ($v['uid'] == $profile_uid) {
 391                                         $contact_id = $v['cid'];
 392                                         break;
 393                                 }
 394                         }
 395                 }
 396                 if ($contact_id) {
 397                         $r = q("SELECT * FROM `contact` WHERE `id` = %d LIMIT 1",
 398                                 intval($contact_id)
 399                         );
 400                 }
 401         }
 402
 403         if (DBM::is_result($r)) {
 404                 $author = $r[0];
 405                 $contact_id = $author['id'];
 406         }
 407
 408         // get contact info for owner
 409
 410         if ($profile_uid == local_user() || $allow_comment) {
 411                 $contact_record = $author;
 412         } else {
 413                 $r = q("SELECT * FROM `contact` WHERE `uid` = %d AND `self` LIMIT 1",
 414                         intval($profile_uid)
 415                 );
 416                 if (DBM::is_result($r)) {
 417                         $contact_record = $r[0];
 418                 }
 419         }
 420
 421         $post_type = notags(trim($_REQUEST['type']));
 422
 423         if ($post_type === 'net-comment' && $parent_item !== null) {
 424                 if ($parent_item['wall'] == 1) {
 425                         $post_type = 'wall-comment';
 426                 } else {
 427                         $post_type = 'remote-comment';
 428                 }
 429         }
 430
 431         // Look for any tags and linkify them
 432         $str_tags = '';
 433         $inform   = '';
 434
 435         $tags = get_tags($body);
 436
 437         /*
 438          * add a statusnet style reply tag if the original post was from there
 439          * and we are replying, and there isn't one already
 440          */
 441         if ($parent && ($parent_contact['network'] == NETWORK_OSTATUS)) {
 442                 $contact = '@[url=' . $parent_contact['url'] . ']' . $parent_contact['nick'] . '[/url]';
 443
 444                 if (!in_array($contact, $tags)) {
 445                         $body = $contact . ' ' . $body;
 446                         $tags[] = $contact;
 447                 }
 448
 449                 $toplevel_contact = "";
 450                 $toplevel_parent = q("SELECT `contact`.* FROM `contact`
 451                                                 INNER JOIN `item` ON `item`.`contact-id` = `contact`.`id` AND `contact`.`url` = `item`.`author-link`
 452                                                 WHERE `item`.`id` = `item`.`parent` AND `item`.`parent` = %d", intval($parent));
 453                 if (DBM::is_result($toplevel_parent)) {
 454                         if (!empty($toplevel_parent[0]['addr'])) {
 455                                 $toplevel_contact = '@' . $toplevel_parent[0]['addr'];
 456                         } else {
 457                                 $toplevel_contact = '@' . $toplevel_parent[0]['nick'] . '+' . $toplevel_parent[0]['id'];
 458                         }
 459                 } else {
 460                         $toplevel_parent = q("SELECT `author-link`, `author-name` FROM `item` WHERE `id` = `parent` AND `parent` = %d", intval($parent));
 461                         $toplevel_contact = '@[url=' . $toplevel_parent[0]['author-link'] . ']' . $toplevel_parent[0]['author-name'] . '[/url]';
 462                 }
 463
 464                 if (!in_array($toplevel_contact, $tags)) {
 465                         $tags[] = $toplevel_contact;
 466                 }
 467         }
 468
 469         $tagged = array();
 470
 471         $private_forum = false;
 472         $only_to_forum = false;
 473         $forum_contact = array();
 474
 475         if (count($tags)) {
 476                 foreach ($tags as $tag) {
 477
 478                         $tag_type = substr($tag, 0, 1);
 479
 480                         if ($tag_type == '#') {
 481                                 continue;
 482                         }
 483
 484                         /*
 485                          * If we already tagged 'Robert Johnson', don't try and tag 'Robert'.
 486                          * Robert Johnson should be first in the $tags array
 487                          */
 488                         $fullnametagged = false;
 489                         /// @TODO $tagged is initialized above if() block and is not filled, maybe old-lost code?
 490                         foreach ($tagged as $nextTag) {
 491                                 if (stristr($nextTag, $tag . ' ')) {
 492                                         $fullnametagged = true;
 493                                         break;
 494                                 }
 495                         }
 496                         if ($fullnametagged) {
 497                                 continue;
 498                         }
 499
 500                         $success = handle_tag($a, $body, $inform, $str_tags, (local_user()) ? local_user() : $profile_uid , $tag, $network);
 501                         if ($success['replaced']) {
 502                                 $tagged[] = $tag;
 503                         }
 504                         // When the forum is private or the forum is addressed with a "!" make the post private
 505                         if (is_array($success['contact']) && ($success['contact']['prv'] || ($tag_type == '!'))) {
 506                                 $private_forum = $success['contact']['prv'];
 507                                 $only_to_forum = ($tag_type == '!');
 508                                 $private_id = $success['contact']['id'];
 509                                 $forum_contact = $success['contact'];
 510                         } elseif (is_array($success['contact']) && $success['contact']['forum'] &&
 511                                 ($str_contact_allow == '<' . $success['contact']['id'] . '>')) {
 512                                 $private_forum = false;
 513                                 $only_to_forum = true;
 514                                 $private_id = $success['contact']['id'];
 515                                 $forum_contact = $success['contact'];
 516                         }
 517                 }
 518         }
 519
 520         $original_contact_id = $contact_id;
 521
 522         if (!$parent && count($forum_contact) && ($private_forum || $only_to_forum)) {
 523                 // we tagged a forum in a top level post. Now we change the post
 524                 $private = $private_forum;
 525
 526                 $str_group_allow = '';
 527                 $str_contact_deny = '';
 528                 $str_group_deny = '';
 529                 if ($private_forum) {
 530                         $str_contact_allow = '<' . $private_id . '>';
 531                 } else {
 532                         $str_contact_allow = '';
 533                 }
 534                 $contact_id = $private_id;
 535                 $contact_record = $forum_contact;
 536                 $_REQUEST['origin'] = false;
 537         }
 538
 539         /*
 540          * When a photo was uploaded into the message using the (profile wall) ajax
 541          * uploader, The permissions are initially set to disallow anybody but the
 542          * owner from seeing it. This is because the permissions may not yet have been
 543          * set for the post. If it's private, the photo permissions should be set
 544          * appropriately. But we didn't know the final permissions on the post until
 545          * now. So now we'll look for links of uploaded messages that are in the
 546          * post and set them to the same permissions as the post itself.
 547          */
 548
 549         $match = null;
 550
 551         if (!$preview && preg_match_all("/\[img([\=0-9x]*?)\](.*?)\[\/img\]/",$body,$match)) {
 552                 $images = $match[2];
 553                 if (count($images)) {
 554
 555                         $objecttype = ACTIVITY_OBJ_IMAGE;
 556
 557                         foreach ($images as $image) {
 558                                 if (!stristr($image, System::baseUrl() . '/photo/')) {
 559                                         continue;
 560                                 }
 561                                 $image_uri = substr($image,strrpos($image,'/') + 1);
 562                                 $image_uri = substr($image_uri,0, strpos($image_uri,'-'));
 563                                 if (!strlen($image_uri)) {
 564                                         continue;
 565                                 }
 566                                 $srch = '<' . intval($original_contact_id) . '>';
 567
 568                                 $r = q("SELECT `id` FROM `photo` WHERE `allow_cid` = '%s' AND `allow_gid` = '' AND `deny_cid` = '' AND `deny_gid` = ''
 569                                         AND `resource-id` = '%s' AND `uid` = %d LIMIT 1",
 570                                         dbesc($srch),
 571                                         dbesc($image_uri),
 572                                         intval($profile_uid)
 573                                 );
 574
 575                                 if (! DBM::is_result($r)) {
 576                                         continue;
 577                                 }
 578
 579                                 $r = q("UPDATE `photo` SET `allow_cid` = '%s', `allow_gid` = '%s', `deny_cid` = '%s', `deny_gid` = '%s'
 580                                         WHERE `resource-id` = '%s' AND `uid` = %d AND `album` = '%s' ",
 581                                         dbesc($str_contact_allow),
 582                                         dbesc($str_group_allow),
 583                                         dbesc($str_contact_deny),
 584                                         dbesc($str_group_deny),
 585                                         dbesc($image_uri),
 586                                         intval($profile_uid),
 587                                         dbesc(t('Wall Photos'))
 588                                 );
 589                         }
 590                 }
 591         }
 592
 593
 594         /*
 595          * Next link in any attachment references we find in the post.
 596          */
 597         $match = false;
 598
 599         if ((! $preview) && preg_match_all("/\[attachment\](.*?)\[\/attachment\]/", $body, $match)) {
 600                 $attaches = $match[1];
 601                 if (count($attaches)) {
 602                         foreach ($attaches as $attach) {
 603                                 $r = q("SELECT * FROM `attach` WHERE `uid` = %d AND `id` = %d LIMIT 1",
 604                                         intval($profile_uid),
 605                                         intval($attach)
 606                                 );
 607                                 if (DBM::is_result($r)) {
 608                                         $r = q("UPDATE `attach` SET `allow_cid` = '%s', `allow_gid` = '%s', `deny_cid` = '%s', `deny_gid` = '%s'
 609                                                 WHERE `uid` = %d AND `id` = %d",
 610                                                 dbesc($str_contact_allow),
 611                                                 dbesc($str_group_allow),
 612                                                 dbesc($str_contact_deny),
 613                                                 dbesc($str_group_deny),
 614                                                 intval($profile_uid),
 615                                                 intval($attach)
 616                                         );
 617                                 }
 618                         }
 619                 }
 620         }
 621
 622         // embedded bookmark or attachment in post? set bookmark flag
 623
 624         $bookmark = 0;
 625         $data = get_attachment_data($body);
 626         if (preg_match_all("/\[bookmark\=([^\]]*)\](.*?)\[\/bookmark\]/ism", $body, $match, PREG_SET_ORDER) || isset($data["type"])) {
 627                 $objecttype = ACTIVITY_OBJ_BOOKMARK;
 628                 $bookmark = 1;
 629         }
 630
 631         $body = bb_translate_video($body);
 632
 633
 634         // Fold multi-line [code] sequences
 635         $body = preg_replace('/\[\/code\]\s*\[code\]/ism', "\n", $body);
 636
 637         $body = scale_external_images($body, false);
 638
 639         // Setting the object type if not defined before
 640         if (!$objecttype) {
 641                 $objecttype = ACTIVITY_OBJ_NOTE; // Default value
 642                 require_once 'include/plaintext.php';
 643                 $objectdata = get_attached_data($body);
 644
 645                 if ($objectdata["type"] == "link") {
 646                         $objecttype = ACTIVITY_OBJ_BOOKMARK;
 647                 } elseif ($objectdata["type"] == "video") {
 648                         $objecttype = ACTIVITY_OBJ_VIDEO;
 649                 } elseif ($objectdata["type"] == "photo") {
 650                         $objecttype = ACTIVITY_OBJ_IMAGE;
 651                 }
 652
 653         }
 654
 655         $attachments = '';
 656         $match = false;
 657
 658         if (preg_match_all('/(\[attachment\]([0-9]+)\[\/attachment\])/',$body,$match)) {
 659                 foreach ($match[2] as $mtch) {
 660                         $r = q("SELECT `id`,`filename`,`filesize`,`filetype` FROM `attach` WHERE `uid` = %d AND `id` = %d LIMIT 1",
 661                                 intval($profile_uid),
 662                                 intval($mtch)
 663                         );
 664                         if (DBM::is_result($r)) {
 665                                 if (strlen($attachments)) {
 666                                         $attachments .= ',';
 667                                 }
 668                                 $attachments .= '[attach]href="' . System::baseUrl() . '/attach/' . $r[0]['id'] . '" length="' . $r[0]['filesize'] . '" type="' . $r[0]['filetype'] . '" title="' . (($r[0]['filename']) ? $r[0]['filename'] : '') . '"[/attach]';
 669                         }
 670                         $body = str_replace($match[1],'',$body);
 671                 }
 672         }
 673
 674         $wall = 0;
 675
 676         if (($post_type === 'wall' || $post_type === 'wall-comment') && !count($forum_contact)) {
 677                 $wall = 1;
 678         }
 679
 680         if (! strlen($verb)) {
 681                 $verb = ACTIVITY_POST ;
 682         }
 683
 684         if ($network == "") {
 685                 $network = NETWORK_DFRN;
 686         }
 687
 688         $gravity = (($parent) ? 6 : 0 );
 689
 690         // even if the post arrived via API we are considering that it
 691         // originated on this site by default for determining relayability.
 692
 693         $origin = ((x($_REQUEST, 'origin')) ? intval($_REQUEST['origin']) : 1);
 694
 695         $notify_type = (($parent) ? 'comment-new' : 'wall-new' );
 696
 697         $uri = (($message_id) ? $message_id : item_new_uri($a->get_hostname(),$profile_uid, $guid));
 698
 699         // Fallback so that we alway have a thr-parent
 700         if (!$thr_parent) {
 701                 $thr_parent = $uri;
 702         }
 703
 704         $datarray = array();
 705         $datarray['uid']           = $profile_uid;
 706         $datarray['type']          = $post_type;
 707         $datarray['wall']          = $wall;
 708         $datarray['gravity']       = $gravity;
 709         $datarray['network']       = $network;
 710         $datarray['contact-id']    = $contact_id;
 711         $datarray['owner-name']    = $contact_record['name'];
 712         $datarray['owner-link']    = $contact_record['url'];
 713         $datarray['owner-avatar']  = $contact_record['thumb'];
 714         $datarray['owner-id']      = Contact::getIdForURL($datarray['owner-link'], 0);
 715         $datarray['author-name']   = $author['name'];
 716         $datarray['author-link']   = $author['url'];
 717         $datarray['author-avatar'] = $author['thumb'];
 718         $datarray['author-id']     = Contact::getIdForURL($datarray['author-link'], 0);
 719         $datarray['created']       = datetime_convert();
 720         $datarray['edited']        = datetime_convert();
 721         $datarray['commented']     = datetime_convert();
 722         $datarray['received']      = datetime_convert();
 723         $datarray['changed']       = datetime_convert();
 724         $datarray['extid']         = $extid;
 725         $datarray['guid']          = $guid;
 726         $datarray['uri']           = $uri;
 727         $datarray['title']         = $title;
 728         $datarray['body']          = $body;
 729         $datarray['app']           = $app;
 730         $datarray['location']      = $location;
 731         $datarray['coord']         = $coord;
 732         $datarray['tag']           = $str_tags;
 733         $datarray['file']          = $categories;
 734         $datarray['inform']        = $inform;
 735         $datarray['verb']          = $verb;
 736         $datarray['object-type']   = $objecttype;
 737         $datarray['allow_cid']     = $str_contact_allow;
 738         $datarray['allow_gid']     = $str_group_allow;
 739         $datarray['deny_cid']      = $str_contact_deny;
 740         $datarray['deny_gid']      = $str_group_deny;
 741         $datarray['private']       = $private;
 742         $datarray['pubmail']       = $pubmail_enable;
 743         $datarray['attach']        = $attachments;
 744         $datarray['bookmark']      = intval($bookmark);
 745         $datarray['thr-parent']    = $thr_parent;
 746         $datarray['postopts']      = $postopts;
 747         $datarray['origin']        = $origin;
 748         $datarray['moderated']     = $allow_moderated;
 749         $datarray['gcontact-id']   = GContact::getId(array("url" => $datarray['author-link'], "network" => $datarray['network'],
 750                                                         "photo" => $datarray['author-avatar'], "name" => $datarray['author-name']));
 751         $datarray['object']        = $object;
 752
 753         /*
 754          * These fields are for the convenience of plugins...
 755          * 'self' if true indicates the owner is posting on their own wall
 756          * If parent is 0 it is a top-level post.
 757          */
 758         $datarray['parent']        = $parent;
 759         $datarray['self']          = $self;
 760 //      $datarray['prvnets']       = $user['prvnets'];
 761
 762         // This triggers posts via API and the mirror functions
 763         $datarray['api_source'] = $api_source;
 764
 765         $datarray['parent-uri'] = ($parent == 0) ? $uri : $parent_item['uri'];
 766         $datarray['plink'] = System::baseUrl() . '/display/' . urlencode($datarray['guid']);
 767         $datarray['last-child'] = 1;
 768         $datarray['visible'] = 1;
 769
 770         $datarray['protocol'] = PROTOCOL_DFRN;
 771
 772         $r = dba::fetch_first("SELECT `conversation-uri`, `conversation-href` FROM `conversation` WHERE `item-uri` = ?", $datarray['parent-uri']);
 773         if (DBM::is_result($r)) {
 774                 if ($r['conversation-uri'] != '') {
 775                         $datarray['conversation-uri'] = $r['conversation-uri'];
 776                 }
 777                 if ($r['conversation-href'] != '') {
 778                         $datarray['conversation-href'] = $r['conversation-href'];
 779                 }
 780         }
 781
 782         if ($orig_post) {
 783                 $datarray['edit'] = true;
 784         }
 785
 786         // Search for hashtags
 787         item_body_set_hashtags($datarray);
 788
 789         // preview mode - prepare the body for display and send it via json
 790         if ($preview) {
 791                 require_once 'include/conversation.php';
 792                 // We set the datarray ID to -1 because in preview mode the dataray
 793                 // doesn't have an ID.
 794                 $datarray["id"] = -1;
 795                 $o = conversation($a,array(array_merge($contact_record,$datarray)),'search', false, true);
 796                 logger('preview: ' . $o);
 797                 echo json_encode(array('preview' => $o));
 798                 killme();
 799         }
 800
 801         call_hooks('post_local',$datarray);
 802
 803         if (x($datarray, 'cancel')) {
 804                 logger('mod_item: post cancelled by plugin.');
 805                 if ($return_path) {
 806                         goaway($return_path);
 807                 }
 808
 809                 $json = array('cancel' => 1);
 810                 if (x($_REQUEST, 'jsreload') && strlen($_REQUEST['jsreload'])) {
 811                         $json['reload'] = System::baseUrl() . '/' . $_REQUEST['jsreload'];
 812                 }
 813
 814                 echo json_encode($json);
 815                 killme();
 816         }
 817
 818         // Fill the cache field
 819         put_item_in_cache($datarray);
 820
 821         $datarray = store_conversation($datarray);
 822
 823         if ($orig_post) {
 824                 $r = q("UPDATE `item` SET `title` = '%s', `body` = '%s', `tag` = '%s', `attach` = '%s', `file` = '%s', `rendered-html` = '%s', `rendered-hash` = '%s', `edited` = '%s', `changed` = '%s' WHERE `id` = %d AND `uid` = %d",
 825                         dbesc($datarray['title']),
 826                         dbesc($datarray['body']),
 827                         dbesc($datarray['tag']),
 828                         dbesc($datarray['attach']),
 829                         dbesc($datarray['file']),
 830                         dbesc($datarray['rendered-html']),
 831                         dbesc($datarray['rendered-hash']),
 832                         dbesc(datetime_convert()),
 833                         dbesc(datetime_convert()),
 834                         intval($post_id),
 835                         intval($profile_uid)
 836                 );
 837
 838                 create_tags_from_item($post_id);
 839                 create_files_from_item($post_id);
 840                 update_thread($post_id);
 841
 842                 // update filetags in pconfig
 843                 file_tag_update_pconfig($uid,$categories_old,$categories_new,'category');
 844
 845                 Worker::add(PRIORITY_HIGH, "Notifier", 'edit_post', $post_id);
 846                 if ((x($_REQUEST, 'return')) && strlen($return_path)) {
 847                         logger('return: ' . $return_path);
 848                         goaway($return_path);
 849                 }
 850                 killme();
 851         } else {
 852                 $post_id = 0;
 853         }
 854
 855         dba::transaction();
 856
 857         $r = q("INSERT INTO `item` (`guid`, `extid`, `uid`,`type`,`wall`,`gravity`, `network`, `contact-id`,
 858                                         `owner-name`,`owner-link`,`owner-avatar`, `owner-id`,
 859                                         `author-name`, `author-link`, `author-avatar`, `author-id`,
 860                                         `created`, `edited`, `commented`, `received`, `changed`,
 861                                         `uri`, `thr-parent`, `title`, `body`, `app`, `location`, `coord`,
 862                                         `tag`, `inform`, `verb`, `object-type`, `postopts`,
 863                                         `allow_cid`, `allow_gid`, `deny_cid`, `deny_gid`, `private`,
 864                                         `pubmail`, `attach`, `bookmark`,`origin`, `moderated`, `file`,
 865                                         `rendered-html`, `rendered-hash`, `gcontact-id`, `object`,
 866                                         `parent`, `parent-uri`, `plink`, `last-child`, `visible`)
 867                 VALUES('%s', '%s', %d, '%s', %d, %d, '%s', %d,
 868                         '%s', '%s', '%s', %d,
 869                         '%s', '%s', '%s', %d,
 870                         '%s', '%s', '%s', '%s', '%s',
 871                         '%s', '%s', '%s', '%s', '%s', '%s', '%s',
 872                         '%s', '%s', '%s', '%s', '%s',
 873                         '%s', '%s', '%s', '%s', %d,
 874                         %d, '%s', %d, %d, %d, '%s',
 875                         '%s', '%s', %d, '%s',
 876                         %d, '%s', '%s', %d, %d)",
 877                 dbesc($datarray['guid']),
 878                 dbesc($datarray['extid']),
 879                 intval($datarray['uid']),
 880                 dbesc($datarray['type']),
 881                 intval($datarray['wall']),
 882                 intval($datarray['gravity']),
 883                 dbesc($datarray['network']),
 884                 intval($datarray['contact-id']),
 885                 dbesc($datarray['owner-name']),
 886                 dbesc($datarray['owner-link']),
 887                 dbesc($datarray['owner-avatar']),
 888                 intval($datarray['owner-id']),
 889                 dbesc($datarray['author-name']),
 890                 dbesc($datarray['author-link']),
 891                 dbesc($datarray['author-avatar']),
 892                 intval($datarray['author-id']),
 893                 dbesc($datarray['created']),
 894                 dbesc($datarray['edited']),
 895                 dbesc($datarray['commented']),
 896                 dbesc($datarray['received']),
 897                 dbesc($datarray['changed']),
 898                 dbesc($datarray['uri']),
 899                 dbesc($datarray['thr-parent']),
 900                 dbesc($datarray['title']),
 901                 dbesc($datarray['body']),
 902                 dbesc($datarray['app']),
 903                 dbesc($datarray['location']),
 904                 dbesc($datarray['coord']),
 905                 dbesc($datarray['tag']),
 906                 dbesc($datarray['inform']),
 907                 dbesc($datarray['verb']),
 908                 dbesc($datarray['object-type']),
 909                 dbesc($datarray['postopts']),
 910                 dbesc($datarray['allow_cid']),
 911                 dbesc($datarray['allow_gid']),
 912                 dbesc($datarray['deny_cid']),
 913                 dbesc($datarray['deny_gid']),
 914                 intval($datarray['private']),
 915                 intval($datarray['pubmail']),
 916                 dbesc($datarray['attach']),
 917                 intval($datarray['bookmark']),
 918                 intval($datarray['origin']),
 919                 intval($datarray['moderated']),
 920                 dbesc($datarray['file']),
 921                 dbesc($datarray['rendered-html']),
 922                 dbesc($datarray['rendered-hash']),
 923                 intval($datarray['gcontact-id']),
 924                 dbesc($datarray['object']),
 925                 intval($datarray['parent']),
 926                 dbesc($datarray['parent-uri']),
 927                 dbesc($datarray['plink']),
 928                 intval($datarray['last-child']),
 929                 intval($datarray['visible'])
 930         );
 931
 932         if (DBM::is_result($r)) {
 933                 $post_id = dba::lastInsertId();
 934         } else {
 935                 logger('mod_item: unable to create post.');
 936                 $post_id = 0;
 937         }
 938
 939         if ($post_id == 0) {
 940                 dba::commit();
 941                 logger('mod_item: unable to retrieve post that was just stored.');
 942                 notice(t('System error. Post not saved.') . EOL);
 943                 goaway($return_path);
 944                 // NOTREACHED
 945         }
 946
 947         logger('mod_item: saved item ' . $post_id);
 948
 949         $datarray["id"] = $post_id;
 950
 951         item_set_last_item($datarray);
 952
 953         // update filetags in pconfig
 954         file_tag_update_pconfig($uid,$categories_old,$categories_new,'category');
 955
 956         if ($parent) {
 957
 958                 // This item is the last leaf and gets the comment box, clear any ancestors
 959                 $r = q("UPDATE `item` SET `last-child` = 0, `changed` = '%s' WHERE `parent` = %d AND `last-child` AND `id` != %d",
 960                         dbesc(datetime_convert()),
 961                         intval($parent),
 962                         intval($post_id)
 963                 );
 964
 965                 // update the commented timestamp on the parent
 966                 q("UPDATE `item` SET `visible` = 1, `commented` = '%s', `changed` = '%s' WHERE `id` = %d",
 967                         dbesc(datetime_convert()),
 968                         dbesc(datetime_convert()),
 969                         intval($parent)
 970                 );
 971
 972                 if ($contact_record != $author) {
 973                         notification(array(
 974                                 'type'         => NOTIFY_COMMENT,
 975                                 'notify_flags' => $user['notify-flags'],
 976                                 'language'     => $user['language'],
 977                                 'to_name'      => $user['username'],
 978                                 'to_email'     => $user['email'],
 979                                 'uid'          => $user['uid'],
 980                                 'item'         => $datarray,
 981                                 'link'         => System::baseUrl().'/display/'.urlencode($datarray['guid']),
 982                                 'source_name'  => $datarray['author-name'],
 983                                 'source_link'  => $datarray['author-link'],
 984                                 'source_photo' => $datarray['author-avatar'],
 985                                 'verb'         => ACTIVITY_POST,
 986                                 'otype'        => 'item',
 987                                 'parent'       => $parent,
 988                                 'parent_uri'   => $parent_item['uri']
 989                         ));
 990
 991                 }
 992
 993
 994                 // Store the comment signature information in case we need to relay to Diaspora
 995                 Diaspora::storeCommentSignature($datarray, $author, ($self ? $user['prvkey'] : false), $post_id);
 996
 997         } else {
 998                 $parent = $post_id;
 999
1000                 $r = q("UPDATE `item` SET `parent` = %d WHERE `id` = %d",
1001                         intval($parent),
1002                         intval($post_id));
1003
1004                 if (($contact_record != $author) && !count($forum_contact)) {
1005                         notification(array(
1006                                 'type'         => NOTIFY_WALL,
1007                                 'notify_flags' => $user['notify-flags'],
1008                                 'language'     => $user['language'],
1009                                 'to_name'      => $user['username'],
1010                                 'to_email'     => $user['email'],
1011                                 'uid'          => $user['uid'],
1012                                 'item'         => $datarray,
1013                                 'link'         => System::baseUrl().'/display/'.urlencode($datarray['guid']),
1014                                 'source_name'  => $datarray['author-name'],
1015                                 'source_link'  => $datarray['author-link'],
1016                                 'source_photo' => $datarray['author-avatar'],
1017                                 'verb'         => ACTIVITY_POST,
1018                                 'otype'        => 'item'
1019                         ));
1020                 }
1021         }
1022
1023         call_hooks('post_local_end', $datarray);
1024
1025         if (strlen($emailcc) && $profile_uid == local_user()) {
1026                 $erecips = explode(',', $emailcc);
1027                 if (count($erecips)) {
1028                         foreach ($erecips as $recip) {
1029                                 $addr = trim($recip);
1030                                 if (! strlen($addr)) {
1031                                         continue;
1032                                 }
1033                                 $disclaimer = '<hr />' . sprintf( t('This message was sent to you by %s, a member of the Friendica social network.'), $a->user['username'])
1034                                         . '<br />';
1035                                 $disclaimer .= sprintf( t('You may visit them online at %s'), System::baseUrl() . '/profile/' . $a->user['nickname']) . EOL;
1036                                 $disclaimer .= t('Please contact the sender by replying to this post if you do not wish to receive these messages.') . EOL;
1037                                 if (!$datarray['title']=='') {
1038                                         $subject = Email::encodeHeader($datarray['title'], 'UTF-8');
1039                                 } else {
1040                                         $subject = Email::encodeHeader('[Friendica]' . ' ' . sprintf( t('%s posted an update.'), $a->user['username']), 'UTF-8');
1041                                 }
1042                                 $link = '<a href="' . System::baseUrl() . '/profile/' . $a->user['nickname'] . '"><img src="' . $author['thumb'] . '" alt="' . $a->user['username'] . '" /></a><br /><br />';
1043                                 $html    = prepare_body($datarray);
1044                                 $message = '<html><body>' . $link . $html . $disclaimer . '</body></html>';
1045                                 include_once 'include/html2plain.php';
1046                                 $params = array (
1047                                         'fromName' => $a->user['username'],
1048                                         'fromEmail' => $a->user['email'],
1049                                         'toEmail' => $addr,
1050                                         'replyTo' => $a->user['email'],
1051                                         'messageSubject' => $subject,
1052                                         'htmlVersion' => $message,
1053                                         'textVersion' => html2plain($html.$disclaimer)
1054                                 );
1055                                 Emailer::send($params);
1056                         }
1057                 }
1058         }
1059
1060         if ($post_id == $parent) {
1061                 add_thread($post_id);
1062         } else {
1063                 update_thread($parent, true);
1064         }
1065
1066         dba::commit();
1067
1068         create_tags_from_item($post_id);
1069         create_files_from_item($post_id);
1070
1071         // Insert an item entry for UID=0 for global entries.
1072         // We now do it in the background to save some time.
1073         // This is important in interactive environments like the frontend or the API.
1074         // We don't fork a new process since this is done anyway with the following command
1075         Worker::add(array('priority' => PRIORITY_HIGH, 'dont_fork' => true), "CreateShadowEntry", $post_id);
1076
1077         // Call the background process that is delivering the item to the receivers
1078         Worker::add(PRIORITY_HIGH, "Notifier", $notify_type, $post_id);
1079
1080         logger('post_complete');
1081
1082         item_post_return(System::baseUrl(), $api_source, $return_path);
1083         // NOTREACHED
1084 }
1085
1086 function item_post_return($baseurl, $api_source, $return_path) {
1087         // figure out how to return, depending on from whence we came
1088
1089         if ($api_source) {
1090                 return;
1091         }
1092
1093         if ($return_path) {
1094                 goaway($return_path);
1095         }
1096
1097         $json = array('success' => 1);
1098         if (x($_REQUEST, 'jsreload') && strlen($_REQUEST['jsreload'])) {
1099                 $json['reload'] = $baseurl . '/' . $_REQUEST['jsreload'];
1100         }
1101
1102         logger('post_json: ' . print_r($json,true), LOGGER_DEBUG);
1103
1104         echo json_encode($json);
1105         killme();
1106 }
1107
1108
1109
1110 function item_content(App $a) {
1111
1112         if ((! local_user()) && (! remote_user())) {
1113                 return;
1114         }
1115
1116         require_once 'include/security.php';
1117
1118         $o = '';
1119         if (($a->argc == 3) && ($a->argv[1] === 'drop') && intval($a->argv[2])) {
1120                 $o = drop_item($a->argv[2], !is_ajax());
1121                 if (is_ajax()) {
1122                         // ajax return: [<item id>, 0 (no perm) | <owner id>]
1123                         echo json_encode(array(intval($a->argv[2]), intval($o)));
1124                         killme();
1125                 }
1126         }
1127         return $o;
1128 }
1129
1130 /**
1131  * This function removes the tag $tag from the text $body and replaces it with
1132  * the appropiate link.
1133  *
1134  * @param App $a Application instance @TODO is unused in this function's scope (excluding included files)
1135  * @param unknown_type $body the text to replace the tag in
1136  * @param string $inform a comma-seperated string containing everybody to inform
1137  * @param string $str_tags string to add the tag to
1138  * @param integer $profile_uid
1139  * @param string $tag the tag to replace
1140  * @param string $network The network of the post
1141  *
1142  * @return boolean true if replaced, false if not replaced
1143  */
1144 function handle_tag(App $a, &$body, &$inform, &$str_tags, $profile_uid, $tag, $network = "")
1145 {
1146         $replaced = false;
1147         $r = null;
1148         $tag_type = '@';
1149
1150         //is it a person tag?
1151         if ((strpos($tag, '@') === 0) || (strpos($tag, '!') === 0)) {
1152                 $tag_type = substr($tag, 0, 1);
1153                 //is it already replaced?
1154                 if (strpos($tag, '[url=')) {
1155                         //append tag to str_tags
1156                         if (!stristr($str_tags, $tag)) {
1157                                 if (strlen($str_tags)) {
1158                                         $str_tags .= ',';
1159                                 }
1160                                 $str_tags .= $tag;
1161                         }
1162
1163                         // Checking for the alias that is used for OStatus
1164                         $pattern = "/[@!]\[url\=(.*?)\](.*?)\[\/url\]/ism";
1165                         if (preg_match($pattern, $tag, $matches)) {
1166
1167                                 $r = q("SELECT `alias`, `name` FROM `contact` WHERE `nurl` = '%s' AND `alias` != '' AND `uid` = 0",
1168                                         normalise_link($matches[1]));
1169                                 if (!DBM::is_result($r)) {
1170                                         $r = q("SELECT `alias`, `name` FROM `gcontact` WHERE `nurl` = '%s' AND `alias` != ''",
1171                                                 normalise_link($matches[1]));
1172                                 }
1173                                 if (DBM::is_result($r)) {
1174                                         $data = $r[0];
1175                                 } else {
1176                                         $data = Probe::uri($matches[1]);
1177                                 }
1178
1179                                 if ($data["alias"] != "") {
1180                                         $newtag = '@[url=' . $data["alias"] . ']' . $data["name"] . '[/url]';
1181                                         if (!stristr($str_tags, $newtag)) {
1182                                                 if (strlen($str_tags)) {
1183                                                         $str_tags .= ',';
1184                                                 }
1185                                                 $str_tags .= $newtag;
1186                                         }
1187                                 }
1188                         }
1189
1190                         return $replaced;
1191                 }
1192                 $stat = false;
1193                 //get the person's name
1194                 $name = substr($tag, 1);
1195
1196                 // Sometimes the tag detection doesn't seem to work right
1197                 // This is some workaround
1198                 $nameparts = explode(" ", $name);
1199                 $name = $nameparts[0];
1200
1201                 // Try to detect the contact in various ways
1202                 if ((strpos($name, '@')) || (strpos($name, 'http://'))) {
1203                         // Is it in format @user@domain.tld or @http://domain.tld/...?
1204
1205                         // First check the contact table for the address
1206                         $r = q("SELECT `id`, `url`, `nick`, `name`, `alias`, `network`, `notify`, `forum`, `prv` FROM `contact`
1207                                 WHERE `addr` = '%s' AND `uid` = %d AND
1208                                         (`network` != '%s' OR (`notify` != '' AND `alias` != ''))
1209                                 LIMIT 1",
1210                                         dbesc($name),
1211                                         intval($profile_uid),
1212                                         dbesc(NETWORK_OSTATUS)
1213                         );
1214
1215                         // Then check in the contact table for the url
1216                         if (!DBM::is_result($r)) {
1217                                 $r = q("SELECT `id`, `url`, `nick`, `name`, `alias`, `network`, `notify`, `forum`, `prv` FROM `contact`
1218                                         WHERE `nurl` = '%s' AND `uid` = %d AND
1219                                                 (`network` != '%s' OR (`notify` != '' AND `alias` != ''))
1220                                         LIMIT 1",
1221                                                 dbesc(normalise_link($name)),
1222                                                 intval($profile_uid),
1223                                                 dbesc(NETWORK_OSTATUS)
1224                                 );
1225                         }
1226
1227                         // Then check in the global contacts for the address
1228                         if (!DBM::is_result($r)) {
1229                                 $r = q("SELECT `url`, `nick`, `name`, `alias`, `network`, `notify` FROM `gcontact`
1230                                         WHERE `addr` = '%s' AND (`network` != '%s' OR (`notify` != '' AND `alias` != ''))
1231                                         LIMIT 1",
1232                                                 dbesc($name),
1233                                                 dbesc(NETWORK_OSTATUS)
1234                                 );
1235                         }
1236
1237                         // Then check in the global contacts for the url
1238                         if (!DBM::is_result($r)) {
1239                                 $r = q("SELECT `url`, `nick`, `name`, `alias`, `network`, `notify` FROM `gcontact`
1240                                         WHERE `nurl` = '%s' AND (`network` != '%s' OR (`notify` != '' AND `alias` != ''))
1241                                         LIMIT 1",
1242                                                 dbesc(normalise_link($name)),
1243                                                 dbesc(NETWORK_OSTATUS)
1244                                 );
1245                         }
1246
1247                         if (!DBM::is_result($r)) {
1248                                 $probed = Probe::uri($name);
1249                                 if ($result['network'] != NETWORK_PHANTOM) {
1250                                         GContact::update($probed);
1251                                         $r = q("SELECT `url`, `name`, `nick`, `network`, `alias`, `notify` FROM `gcontact` WHERE `nurl` = '%s' LIMIT 1",
1252                                                 dbesc(normalise_link($probed["url"])));
1253                                 }
1254                         }
1255                 } else {
1256                         $r = false;
1257                         if (strrpos($name, '+')) {
1258                                 // Is it in format @nick+number?
1259                                 $tagcid = intval(substr($name, strrpos($name, '+') + 1));
1260
1261                                 $r = q("SELECT `id`, `url`, `nick`, `name`, `alias`, `network` FROM `contact` WHERE `id` = %d AND `uid` = %d LIMIT 1",
1262                                                 intval($tagcid),
1263                                                 intval($profile_uid)
1264                                 );
1265                         }
1266
1267                         // select someone by attag or nick and the name passed in the current network
1268                         if(!DBM::is_result($r) && ($network != ""))
1269                                 $r = q("SELECT `id`, `url`, `nick`, `name`, `alias`, `network` FROM `contact` WHERE `attag` = '%s' OR `nick` = '%s' AND `network` = '%s' AND `uid` = %d ORDER BY `attag` DESC LIMIT 1",
1270                                                 dbesc($name),
1271                                                 dbesc($name),
1272                                                 dbesc($network),
1273                                                 intval($profile_uid)
1274                                 );
1275
1276                         //select someone from this user's contacts by name in the current network
1277                         if (!DBM::is_result($r) && ($network != "")) {
1278                                 $r = q("SELECT `id`, `url`, `nick`, `name`, `alias`, `network` FROM `contact` WHERE `name` = '%s' AND `network` = '%s' AND `uid` = %d LIMIT 1",
1279                                                 dbesc($name),
1280                                                 dbesc($network),
1281                                                 intval($profile_uid)
1282                                 );
1283                         }
1284
1285                         // select someone by attag or nick and the name passed in
1286                         if(!DBM::is_result($r)) {
1287                                 $r = q("SELECT `id`, `url`, `nick`, `name`, `alias`, `network` FROM `contact` WHERE `attag` = '%s' OR `nick` = '%s' AND `uid` = %d ORDER BY `attag` DESC LIMIT 1",
1288                                                 dbesc($name),
1289                                                 dbesc($name),
1290                                                 intval($profile_uid)
1291                                 );
1292                         }
1293
1294                         // select someone from this user's contacts by name
1295                         if(!DBM::is_result($r)) {
1296                                 $r = q("SELECT `id`, `url`, `nick`, `name`, `alias`, `network` FROM `contact` WHERE `name` = '%s' AND `uid` = %d LIMIT 1",
1297                                                 dbesc($name),
1298                                                 intval($profile_uid)
1299                                 );
1300                         }
1301                 }
1302
1303                 if (DBM::is_result($r)) {
1304                         if (strlen($inform) && (isset($r[0]["notify"]) || isset($r[0]["id"]))) {
1305                                 $inform .= ',';
1306                         }
1307
1308                         if (isset($r[0]["id"])) {
1309                                 $inform .= 'cid:' . $r[0]["id"];
1310                         } elseif (isset($r[0]["notify"])) {
1311                                 $inform  .= $r[0]["notify"];
1312                         }
1313
1314                         $profile = $r[0]["url"];
1315                         $alias   = $r[0]["alias"];
1316                         $newname = $r[0]["nick"];
1317                         if (($newname == "") || (($r[0]["network"] != NETWORK_OSTATUS) && ($r[0]["network"] != NETWORK_TWITTER)
1318                                 && ($r[0]["network"] != NETWORK_STATUSNET) && ($r[0]["network"] != NETWORK_APPNET))) {
1319                                 $newname = $r[0]["name"];
1320                         }
1321                 }
1322
1323                 //if there is an url for this persons profile
1324                 if (isset($profile) && ($newname != "")) {
1325                         $replaced = true;
1326                         // create profile link
1327                         $profile = str_replace(',', '%2c', $profile);
1328                         $newtag = $tag_type.'[url=' . $profile . ']' . $newname . '[/url]';
1329                         $body = str_replace($tag_type . $name, $newtag, $body);
1330                         // append tag to str_tags
1331                         if (! stristr($str_tags, $newtag)) {
1332                                 if (strlen($str_tags)) {
1333                                         $str_tags .= ',';
1334                                 }
1335                                 $str_tags .= $newtag;
1336                         }
1337
1338                         /*
1339                          * Status.Net seems to require the numeric ID URL in a mention if the person isn't
1340                          * subscribed to you. But the nickname URL is OK if they are. Grrr. We'll tag both.
1341                          */
1342                         if (strlen($alias)) {
1343                                 $newtag = '@[url=' . $alias . ']' . $newname . '[/url]';
1344                                 if (! stristr($str_tags, $newtag)) {
1345                                         if (strlen($str_tags)) {
1346                                                 $str_tags .= ',';
1347                                         }
1348                                         $str_tags .= $newtag;
1349                                 }
1350                         }
1351                 }
1352         }
1353
1354         return array('replaced' => $replaced, 'contact' => $r[0]);
1355 }