243 lines
6 KiB
PHP
243 lines
6 KiB
PHP
<?php
|
|
|
|
// send a private message
|
|
|
|
use Friendica\App;
|
|
use Friendica\Core\System;
|
|
|
|
function send_message($recipient=0, $body='', $subject='', $replyto=''){
|
|
|
|
$a = get_app();
|
|
|
|
if (! $recipient) return -1;
|
|
|
|
if (! strlen($subject))
|
|
$subject = t('[no subject]');
|
|
|
|
$me = q("SELECT * FROM `contact` WHERE `uid` = %d AND `self` = 1 LIMIT 1",
|
|
intval(local_user())
|
|
);
|
|
$contact = q("SELECT * FROM `contact` WHERE `id` = %d AND `uid` = %d LIMIT 1",
|
|
intval($recipient),
|
|
intval(local_user())
|
|
);
|
|
|
|
if (! (count($me) && (count($contact)))) {
|
|
return -2;
|
|
}
|
|
|
|
$guid = get_guid(32);
|
|
$uri = 'urn:X-dfrn:' . System::baseUrl() . ':' . local_user() . ':' . $guid;
|
|
|
|
$convid = 0;
|
|
$reply = false;
|
|
|
|
// look for any existing conversation structure
|
|
|
|
if (strlen($replyto)) {
|
|
$reply = true;
|
|
$r = q("select convid from mail where uid = %d and ( uri = '%s' or `parent-uri` = '%s' ) limit 1",
|
|
intval(local_user()),
|
|
dbesc($replyto),
|
|
dbesc($replyto)
|
|
);
|
|
if (dbm::is_result($r))
|
|
$convid = $r[0]['convid'];
|
|
}
|
|
|
|
if (! $convid) {
|
|
|
|
// create a new conversation
|
|
|
|
$recip_host = substr($contact[0]['url'],strpos($contact[0]['url'],'://')+3);
|
|
$recip_host = substr($recip_host,0,strpos($recip_host,'/'));
|
|
|
|
$recip_handle = (($contact[0]['addr']) ? $contact[0]['addr'] : $contact[0]['nick'] . '@' . $recip_host);
|
|
$sender_handle = $a->user['nickname'] . '@' . substr(System::baseUrl(), strpos(System::baseUrl(),'://') + 3);
|
|
|
|
$conv_guid = get_guid(32);
|
|
$convuri = $recip_handle.':'.$conv_guid;
|
|
|
|
$handles = $recip_handle . ';' . $sender_handle;
|
|
|
|
$r = q("insert into conv (uid,guid,creator,created,updated,subject,recips) values(%d, '%s', '%s', '%s', '%s', '%s', '%s') ",
|
|
intval(local_user()),
|
|
dbesc($conv_guid),
|
|
dbesc($sender_handle),
|
|
dbesc(datetime_convert()),
|
|
dbesc(datetime_convert()),
|
|
dbesc($subject),
|
|
dbesc($handles)
|
|
);
|
|
|
|
$r = q("select * from conv where guid = '%s' and uid = %d limit 1",
|
|
dbesc($conv_guid),
|
|
intval(local_user())
|
|
);
|
|
if (dbm::is_result($r))
|
|
$convid = $r[0]['id'];
|
|
}
|
|
|
|
if (! $convid) {
|
|
logger('send message: conversation not found.');
|
|
return -4;
|
|
}
|
|
|
|
if (! strlen($replyto)) {
|
|
$replyto = $convuri;
|
|
}
|
|
|
|
|
|
$r = q("INSERT INTO `mail` ( `uid`, `guid`, `convid`, `from-name`, `from-photo`, `from-url`,
|
|
`contact-id`, `title`, `body`, `seen`, `reply`, `replied`, `uri`, `parent-uri`, `created`)
|
|
VALUES ( %d, '%s', %d, '%s', '%s', '%s', %d, '%s', '%s', %d, %d, %d, '%s', '%s', '%s' )",
|
|
intval(local_user()),
|
|
dbesc($guid),
|
|
intval($convid),
|
|
dbesc($me[0]['name']),
|
|
dbesc($me[0]['thumb']),
|
|
dbesc($me[0]['url']),
|
|
intval($recipient),
|
|
dbesc($subject),
|
|
dbesc($body),
|
|
1,
|
|
intval($reply),
|
|
0,
|
|
dbesc($uri),
|
|
dbesc($replyto),
|
|
datetime_convert()
|
|
);
|
|
|
|
|
|
$r = q("SELECT * FROM `mail` WHERE `uri` = '%s' AND `uid` = %d LIMIT 1",
|
|
dbesc($uri),
|
|
intval(local_user())
|
|
);
|
|
if (dbm::is_result($r))
|
|
$post_id = $r[0]['id'];
|
|
|
|
/**
|
|
*
|
|
* When a photo was uploaded into the message using the (profile wall) ajax
|
|
* uploader, The permissions are initially set to disallow anybody but the
|
|
* owner from seeing it. This is because the permissions may not yet have been
|
|
* set for the post. If it's private, the photo permissions should be set
|
|
* appropriately. But we didn't know the final permissions on the post until
|
|
* now. So now we'll look for links of uploaded messages that are in the
|
|
* post and set them to the same permissions as the post itself.
|
|
*
|
|
*/
|
|
|
|
$match = null;
|
|
|
|
if (preg_match_all("/\[img\](.*?)\[\/img\]/",$body,$match)) {
|
|
$images = $match[1];
|
|
if (count($images)) {
|
|
foreach ($images as $image) {
|
|
if (! stristr($image,System::baseUrl() . '/photo/')) {
|
|
continue;
|
|
}
|
|
$image_uri = substr($image,strrpos($image,'/') + 1);
|
|
$image_uri = substr($image_uri,0, strpos($image_uri,'-'));
|
|
$r = q("UPDATE `photo` SET `allow_cid` = '%s'
|
|
WHERE `resource-id` = '%s' AND `album` = '%s' AND `uid` = %d ",
|
|
dbesc('<' . $recipient . '>'),
|
|
dbesc($image_uri),
|
|
dbesc( t('Wall Photos')),
|
|
intval(local_user())
|
|
);
|
|
}
|
|
}
|
|
}
|
|
|
|
if ($post_id) {
|
|
proc_run(PRIORITY_HIGH, "include/notifier.php", "mail", $post_id);
|
|
return intval($post_id);
|
|
} else {
|
|
return -3;
|
|
}
|
|
|
|
}
|
|
|
|
function send_wallmessage($recipient='', $body='', $subject='', $replyto=''){
|
|
|
|
if (! $recipient) {
|
|
return -1;
|
|
}
|
|
|
|
if (! strlen($subject)) {
|
|
$subject = t('[no subject]');
|
|
}
|
|
|
|
$guid = get_guid(32);
|
|
$uri = 'urn:X-dfrn:' . System::baseUrl() . ':' . local_user() . ':' . $guid;
|
|
|
|
$convid = 0;
|
|
$reply = false;
|
|
|
|
require_once 'include/probe.php';
|
|
|
|
$me = probe_url($replyto);
|
|
|
|
if (! $me['name']) {
|
|
return -2;
|
|
}
|
|
|
|
$conv_guid = get_guid(32);
|
|
|
|
$recip_handle = $recipient['nickname'] . '@' . substr(System::baseUrl(), strpos(System::baseUrl(),'://') + 3);
|
|
|
|
$sender_nick = basename($replyto);
|
|
$sender_host = substr($replyto,strpos($replyto,'://')+3);
|
|
$sender_host = substr($sender_host,0,strpos($sender_host,'/'));
|
|
$sender_handle = $sender_nick . '@' . $sender_host;
|
|
|
|
$handles = $recip_handle . ';' . $sender_handle;
|
|
|
|
$r = q("INSERT INTO `conv` (`uid`,`guid`,`creator`,`created`,`updated`,`subject`,`recips`) values(%d, '%s', '%s', '%s', '%s', '%s', '%s') ",
|
|
intval($recipient['uid']),
|
|
dbesc($conv_guid),
|
|
dbesc($sender_handle),
|
|
dbesc(datetime_convert()),
|
|
dbesc(datetime_convert()),
|
|
dbesc($subject),
|
|
dbesc($handles)
|
|
);
|
|
|
|
$r = q("SELECT * FROM `conv` WHERE `guid` = '%s' AND `uid` = %d LIMIT 1",
|
|
dbesc($conv_guid),
|
|
intval($recipient['uid'])
|
|
);
|
|
|
|
|
|
if (! dbm::is_result($r)) {
|
|
logger('send message: conversation not found.');
|
|
return -4;
|
|
}
|
|
|
|
$convid = $r[0]['id'];
|
|
|
|
$r = q("INSERT INTO `mail` ( `uid`, `guid`, `convid`, `from-name`, `from-photo`, `from-url`,
|
|
`contact-id`, `title`, `body`, `seen`, `reply`, `replied`, `uri`, `parent-uri`, `created`, `unknown`)
|
|
VALUES ( %d, '%s', %d, '%s', '%s', '%s', %d, '%s', '%s', %d, %d, %d, '%s', '%s', '%s', %d )",
|
|
intval($recipient['uid']),
|
|
dbesc($guid),
|
|
intval($convid),
|
|
dbesc($me['name']),
|
|
dbesc($me['photo']),
|
|
dbesc($me['url']),
|
|
0,
|
|
dbesc($subject),
|
|
dbesc($body),
|
|
0,
|
|
0,
|
|
0,
|
|
dbesc($uri),
|
|
dbesc($replyto),
|
|
datetime_convert(),
|
|
1
|
|
);
|
|
|
|
return 0;
|
|
|
|
}
|