3 // send a private message
6 use Friendica\Core\System;
7 use Friendica\Core\Worker;
9 function send_message($recipient=0, $body='', $subject='', $replyto=''){
13 if (! $recipient) return -1;
15 if (! strlen($subject))
16 $subject = t('[no subject]');
18 $me = q("SELECT * FROM `contact` WHERE `uid` = %d AND `self` = 1 LIMIT 1",
21 $contact = q("SELECT * FROM `contact` WHERE `id` = %d AND `uid` = %d LIMIT 1",
26 if (! (count($me) && (count($contact)))) {
31 $uri = 'urn:X-dfrn:' . System::baseUrl() . ':' . local_user() . ':' . $guid;
36 // look for any existing conversation structure
38 if (strlen($replyto)) {
40 $r = q("select convid from mail where uid = %d and ( uri = '%s' or `parent-uri` = '%s' ) limit 1",
45 if (dbm::is_result($r))
46 $convid = $r[0]['convid'];
51 // create a new conversation
53 $recip_host = substr($contact[0]['url'],strpos($contact[0]['url'],'://')+3);
54 $recip_host = substr($recip_host,0,strpos($recip_host,'/'));
56 $recip_handle = (($contact[0]['addr']) ? $contact[0]['addr'] : $contact[0]['nick'] . '@' . $recip_host);
57 $sender_handle = $a->user['nickname'] . '@' . substr(System::baseUrl(), strpos(System::baseUrl(),'://') + 3);
59 $conv_guid = get_guid(32);
60 $convuri = $recip_handle.':'.$conv_guid;
62 $handles = $recip_handle . ';' . $sender_handle;
64 $fields = array('uid' => local_user(), 'guid' => $conv_guid, 'creator' => $sender_handle,
65 'created' => datetime_convert(), 'updated' => datetime_convert(),
66 'subject' => $subject, 'recips' => $handles);
67 $r = dba::insert('conv', $fields);
69 $r = dba::select('conv', array('id'), array('guid' => $conv_guid, 'uid' => local_user()), array('limit' => 1));
70 if (dbm::is_result($r))
75 logger('send message: conversation not found.');
79 if (! strlen($replyto)) {
84 $r = q("INSERT INTO `mail` ( `uid`, `guid`, `convid`, `from-name`, `from-photo`, `from-url`,
85 `contact-id`, `title`, `body`, `seen`, `reply`, `replied`, `uri`, `parent-uri`, `created`)
86 VALUES ( %d, '%s', %d, '%s', '%s', '%s', %d, '%s', '%s', %d, %d, %d, '%s', '%s', '%s' )",
90 dbesc($me[0]['name']),
91 dbesc($me[0]['thumb']),
105 $r = q("SELECT * FROM `mail` WHERE `uri` = '%s' AND `uid` = %d LIMIT 1",
109 if (dbm::is_result($r))
110 $post_id = $r[0]['id'];
114 * When a photo was uploaded into the message using the (profile wall) ajax
115 * uploader, The permissions are initially set to disallow anybody but the
116 * owner from seeing it. This is because the permissions may not yet have been
117 * set for the post. If it's private, the photo permissions should be set
118 * appropriately. But we didn't know the final permissions on the post until
119 * now. So now we'll look for links of uploaded messages that are in the
120 * post and set them to the same permissions as the post itself.
126 if (preg_match_all("/\[img\](.*?)\[\/img\]/",$body,$match)) {
128 if (count($images)) {
129 foreach ($images as $image) {
130 if (! stristr($image,System::baseUrl() . '/photo/')) {
133 $image_uri = substr($image,strrpos($image,'/') + 1);
134 $image_uri = substr($image_uri,0, strpos($image_uri,'-'));
135 $r = q("UPDATE `photo` SET `allow_cid` = '%s'
136 WHERE `resource-id` = '%s' AND `album` = '%s' AND `uid` = %d ",
137 dbesc('<' . $recipient . '>'),
139 dbesc( t('Wall Photos')),
147 Worker::add(PRIORITY_HIGH, "notifier", "mail", $post_id);
148 return intval($post_id);
155 function send_wallmessage($recipient='', $body='', $subject='', $replyto=''){
161 if (! strlen($subject)) {
162 $subject = t('[no subject]');
165 $guid = get_guid(32);
166 $uri = 'urn:X-dfrn:' . System::baseUrl() . ':' . local_user() . ':' . $guid;
171 $me = Probe::uri($replyto);
177 $conv_guid = get_guid(32);
179 $recip_handle = $recipient['nickname'] . '@' . substr(System::baseUrl(), strpos(System::baseUrl(),'://') + 3);
181 $sender_nick = basename($replyto);
182 $sender_host = substr($replyto,strpos($replyto,'://')+3);
183 $sender_host = substr($sender_host,0,strpos($sender_host,'/'));
184 $sender_handle = $sender_nick . '@' . $sender_host;
186 $handles = $recip_handle . ';' . $sender_handle;
188 $fields = array('uid' => $recipient['uid'], 'guid' => $conv_guid, 'creator' => $sender_handle,
189 'created' => datetime_convert(), 'updated' => datetime_convert(),
190 'subject' => $subject, 'recips' => $handles);
191 $r = dba::insert('conv', $fields);
193 $r = dba::select('conv', array('id'), array('guid' => $conv_guid, 'uid' => $recipient['uid']), array('limit' => 1));
194 if (!dbm::is_result($r)) {
195 logger('send message: conversation not found.');
201 $r = q("INSERT INTO `mail` ( `uid`, `guid`, `convid`, `from-name`, `from-photo`, `from-url`,
202 `contact-id`, `title`, `body`, `seen`, `reply`, `replied`, `uri`, `parent-uri`, `created`, `unknown`)
203 VALUES ( %d, '%s', %d, '%s', '%s', '%s', %d, '%s', '%s', %d, %d, %d, '%s', '%s', '%s', %d )",
204 intval($recipient['uid']),