2017-11-19 22:55:28 +01:00
< ? php
/**
2017-12-07 15:04:24 +01:00
* @ file src / Model / Contact . php
2017-11-19 22:55:28 +01:00
*/
2017-12-07 15:04:24 +01:00
namespace Friendica\Model ;
2017-11-19 22:55:28 +01:00
use Friendica\BaseObject ;
2018-01-17 19:42:40 +01:00
use Friendica\Core\Addon ;
2018-01-09 16:02:53 +01:00
use Friendica\Core\Config ;
2018-01-22 15:54:13 +01:00
use Friendica\Core\L10n ;
2017-11-19 22:55:28 +01:00
use Friendica\Core\PConfig ;
use Friendica\Core\System ;
use Friendica\Core\Worker ;
use Friendica\Database\DBM ;
use Friendica\Network\Probe ;
2017-12-08 07:15:06 +01:00
use Friendica\Model\Photo ;
2018-01-15 03:22:39 +01:00
use Friendica\Model\Profile ;
2017-11-19 22:55:28 +01:00
use Friendica\Protocol\Diaspora ;
use Friendica\Protocol\DFRN ;
use Friendica\Protocol\OStatus ;
2018-01-09 15:44:22 +01:00
use Friendica\Protocol\PortableContact ;
2017-12-02 15:32:45 +01:00
use Friendica\Protocol\Salmon ;
2018-01-27 05:51:41 +01:00
use Friendica\Util\Network ;
2017-11-19 22:55:28 +01:00
use dba ;
require_once 'boot.php' ;
2017-12-17 21:24:57 +01:00
require_once 'include/dba.php' ;
2017-11-19 22:55:28 +01:00
require_once 'include/text.php' ;
2017-11-22 15:02:55 +01:00
/**
* @ brief functions for interacting with a contact
*/
2017-11-19 22:55:28 +01:00
class Contact extends BaseObject
{
2017-12-09 19:31:00 +01:00
/**
* @ brief Returns a list of contacts belonging in a group
*
* @ param int $gid
* @ return array
*/
public static function getByGroupId ( $gid )
{
$return = [];
if ( intval ( $gid )) {
$stmt = dba :: p ( ' SELECT `group_member` . `contact-id` , `contact` .*
FROM `contact`
INNER JOIN `group_member`
ON `contact` . `id` = `group_member` . `contact-id`
WHERE `gid` = ?
2017-12-15 04:47:58 +01:00
AND `contact` . `uid` = ?
2017-12-09 19:31:00 +01:00
AND NOT `contact` . `self`
AND NOT `contact` . `blocked`
AND NOT `contact` . `pending`
ORDER BY `contact` . `name` ASC ' ,
$gid ,
local_user ()
);
if ( DBM :: is_result ( $stmt )) {
$return = dba :: inArray ( $stmt );
}
}
return $return ;
}
/**
* @ brief Returns the count of OStatus contacts in a group
*
* @ param int $gid
* @ return int
*/
public static function getOStatusCountByGroupId ( $gid )
{
$return = 0 ;
if ( intval ( $gid )) {
$contacts = dba :: fetch_first ( ' SELECT COUNT ( * ) AS `count`
FROM `contact`
INNER JOIN `group_member`
ON `contact` . `id` = `group_member` . `contact-id`
WHERE `gid` = ?
2017-12-15 04:47:58 +01:00
AND `contact` . `uid` = ?
2017-12-09 19:31:00 +01:00
AND `contact` . `network` = ?
AND `contact` . `notify` != " " ' ,
$gid ,
local_user (),
NETWORK_OSTATUS
);
$return = $contacts [ 'count' ];
}
return $return ;
}
2017-12-04 04:27:49 +01:00
/**
* Creates the self - contact for the provided user id
*
* @ param int $uid
* @ return bool Operation success
*/
public static function createSelfFromUserId ( $uid )
{
// Only create the entry if it doesn't exist yet
2017-12-13 02:44:05 +01:00
if ( dba :: exists ( 'contact' , [ 'uid' => $uid , 'self' => true ])) {
2017-12-04 04:27:49 +01:00
return true ;
}
2018-01-10 14:36:02 +01:00
$user = dba :: selectFirst ( 'user' , [ 'uid' , 'username' , 'nickname' ], [ 'uid' => $uid ]);
2017-12-04 04:27:49 +01:00
if ( ! DBM :: is_result ( $user )) {
return false ;
}
$return = dba :: insert ( 'contact' , [
'uid' => $user [ 'uid' ],
'created' => datetime_convert (),
'self' => 1 ,
'name' => $user [ 'username' ],
'nick' => $user [ 'nickname' ],
'photo' => System :: baseUrl () . '/photo/profile/' . $user [ 'uid' ] . '.jpg' ,
'thumb' => System :: baseUrl () . '/photo/avatar/' . $user [ 'uid' ] . '.jpg' ,
'micro' => System :: baseUrl () . '/photo/micro/' . $user [ 'uid' ] . '.jpg' ,
'blocked' => 0 ,
'pending' => 0 ,
'url' => System :: baseUrl () . '/profile/' . $user [ 'nickname' ],
'nurl' => normalise_link ( System :: baseUrl () . '/profile/' . $user [ 'nickname' ]),
'addr' => $user [ 'nickname' ] . '@' . substr ( System :: baseUrl (), strpos ( System :: baseUrl (), '://' ) + 3 ),
'request' => System :: baseUrl () . '/dfrn_request/' . $user [ 'nickname' ],
'notify' => System :: baseUrl () . '/dfrn_notify/' . $user [ 'nickname' ],
'poll' => System :: baseUrl () . '/dfrn_poll/' . $user [ 'nickname' ],
'confirm' => System :: baseUrl () . '/dfrn_confirm/' . $user [ 'nickname' ],
'poco' => System :: baseUrl () . '/poco/' . $user [ 'nickname' ],
'name-date' => datetime_convert (),
'uri-date' => datetime_convert (),
'avatar-date' => datetime_convert (),
'closeness' => 0
]);
return $return ;
}
2017-11-19 22:55:28 +01:00
/**
* @ brief Marks a contact for removal
*
2017-11-22 15:02:55 +01:00
* @ param int $id contact id
2017-11-19 22:55:28 +01:00
* @ return null
*/
public static function remove ( $id )
{
// We want just to make sure that we don't delete our "self" contact
2018-01-11 09:26:30 +01:00
$contact = dba :: selectFirst ( 'contact' , [ 'uid' ], [ 'id' => $id , 'self' => false ]);
if ( ! DBM :: is_result ( $contact ) || ! intval ( $contact [ 'uid' ])) {
2017-11-19 22:55:28 +01:00
return ;
}
2018-01-11 09:26:30 +01:00
$archive = PConfig :: get ( $contact [ 'uid' ], 'system' , 'archive_removed_contacts' );
2017-11-19 22:55:28 +01:00
if ( $archive ) {
2018-01-15 14:05:12 +01:00
dba :: update ( 'contact' , [ 'archive' => true , 'network' => 'none' , 'writable' => false ], [ 'id' => $id ]);
2017-11-19 22:55:28 +01:00
return ;
}
2018-01-15 14:05:12 +01:00
dba :: delete ( 'contact' , [ 'id' => $id ]);
2017-11-19 22:55:28 +01:00
// Delete the rest in the background
Worker :: add ( PRIORITY_LOW , 'RemoveContact' , $id );
}
/**
* @ brief Sends an unfriend message . Does not remove the contact
*
2017-11-22 15:02:55 +01:00
* @ param array $user User unfriending
2017-11-19 22:55:28 +01:00
* @ param array $contact Contact unfriended
2017-11-23 05:13:12 +01:00
* @ return void
2017-11-19 22:55:28 +01:00
*/
public static function terminateFriendship ( array $user , array $contact )
{
if ( $contact [ 'network' ] === NETWORK_OSTATUS ) {
// create an unfollow slap
2018-01-15 14:05:12 +01:00
$item = [];
2017-11-19 22:55:28 +01:00
$item [ 'verb' ] = NAMESPACE_OSTATUS . " /unfollow " ;
$item [ 'follow' ] = $contact [ " url " ];
$slap = OStatus :: salmon ( $item , $user );
if (( x ( $contact , 'notify' )) && ( strlen ( $contact [ 'notify' ]))) {
2017-12-02 15:32:45 +01:00
Salmon :: slapper ( $user , $contact [ 'notify' ], $slap );
2017-11-19 22:55:28 +01:00
}
} elseif ( $contact [ 'network' ] === NETWORK_DIASPORA ) {
Diaspora :: sendUnshare ( $user , $contact );
} elseif ( $contact [ 'network' ] === NETWORK_DFRN ) {
DFRN :: deliver ( $user , $contact , 'placeholder' , 1 );
}
}
/**
* @ brief Marks a contact for archival after a communication issue delay
*
* Contact has refused to recognise us as a friend . We will start a countdown .
* If they still don ' t recognise us in 32 days , the relationship is over ,
* and we won ' t waste any more time trying to communicate with them .
* This provides for the possibility that their database is temporarily messed
* up or some other transient event and that there ' s a possibility we could recover from it .
*
2017-11-22 15:02:55 +01:00
* @ param array $contact contact to mark for archival
2017-12-17 21:27:50 +01:00
* @ return null
2017-11-19 22:55:28 +01:00
*/
public static function markForArchival ( array $contact )
{
2017-12-05 22:29:33 +01:00
// Contact already archived or "self" contact? => nothing to do
if ( $contact [ 'archive' ] || $contact [ 'self' ]) {
2017-11-19 22:55:28 +01:00
return ;
}
2017-12-04 20:37:36 +01:00
2017-11-19 22:55:28 +01:00
if ( $contact [ 'term-date' ] <= NULL_DATE ) {
2018-01-15 14:05:12 +01:00
dba :: update ( 'contact' , [ 'term-date' => datetime_convert ()], [ 'id' => $contact [ 'id' ]]);
2017-11-19 22:55:28 +01:00
if ( $contact [ 'url' ] != '' ) {
2018-01-15 14:05:12 +01:00
dba :: update ( 'contact' , [ 'term-date' => datetime_convert ()], [ '`nurl` = ? AND `term-date` <= ? AND NOT `self`' , normalise_link ( $contact [ 'url' ]), NULL_DATE ]);
2017-11-19 22:55:28 +01:00
}
} else {
/* @ todo
* We really should send a notification to the owner after 2 - 3 weeks
* so they won ' t be surprised when the contact vanishes and can take
* remedial action if this was a serious mistake or glitch
*/
/// @todo Check for contact vitality via probing
$expiry = $contact [ 'term-date' ] . ' + 32 days ' ;
if ( datetime_convert () > datetime_convert ( 'UTC' , 'UTC' , $expiry )) {
/* Relationship is really truly dead . archive them rather than
* delete , though if the owner tries to unarchive them we ' ll start
* the whole process over again .
*/
2018-01-15 14:05:12 +01:00
dba :: update ( 'contact' , [ 'archive' => 1 ], [ 'id' => $contact [ 'id' ]]);
2017-11-19 22:55:28 +01:00
if ( $contact [ 'url' ] != '' ) {
2018-01-15 14:05:12 +01:00
dba :: update ( 'contact' , [ 'archive' => 1 ], [ 'nurl' => normalise_link ( $contact [ 'url' ]), 'self' => false ]);
2017-11-19 22:55:28 +01:00
}
}
}
}
/**
* @ brief Cancels the archival countdown
*
* @ see Contact :: markForArchival ()
*
2017-11-22 15:02:55 +01:00
* @ param array $contact contact to be unmarked for archival
2017-11-19 22:55:28 +01:00
* @ return null
*/
public static function unmarkForArchival ( array $contact )
{
2018-01-15 14:05:12 +01:00
$condition = [ '`id` = ? AND (`term-date` > ? OR `archive`)' , $contact [ 'id' ], NULL_DATE ];
2017-11-23 14:15:38 +01:00
$exists = dba :: exists ( 'contact' , $condition );
2017-11-19 22:55:28 +01:00
// We don't need to update, we never marked this contact for archival
2017-11-23 14:15:38 +01:00
if ( ! $exists ) {
2017-11-19 22:55:28 +01:00
return ;
}
// It's a miracle. Our dead contact has inexplicably come back to life.
2018-01-15 14:05:12 +01:00
$fields = [ 'term-date' => NULL_DATE , 'archive' => false ];
dba :: update ( 'contact' , $fields , [ 'id' => $contact [ 'id' ]]);
2017-11-19 22:55:28 +01:00
if ( $contact [ 'url' ] != '' ) {
2018-01-15 14:05:12 +01:00
dba :: update ( 'contact' , $fields , [ 'nurl' => normalise_link ( $contact [ 'url' ])]);
2017-11-19 22:55:28 +01:00
}
}
/**
* @ brief Get contact data for a given profile link
*
* The function looks at several places ( contact table and gcontact table ) for the contact
* It caches its result for the same script execution to prevent duplicate calls
*
2017-11-22 15:02:55 +01:00
* @ param string $url The profile link
* @ param int $uid User id
* @ param array $default If not data was found take this data as default value
2017-11-19 22:55:28 +01:00
*
* @ return array Contact data
*/
public static function getDetailsByURL ( $url , $uid = - 1 , array $default = [])
{
2018-01-15 14:05:12 +01:00
static $cache = [];
2017-11-19 22:55:28 +01:00
if ( $url == '' ) {
return $default ;
}
if ( $uid == - 1 ) {
$uid = local_user ();
}
if ( isset ( $cache [ $url ][ $uid ])) {
return $cache [ $url ][ $uid ];
}
$ssl_url = str_replace ( 'http://' , 'https://' , $url );
// Fetch contact data from the contact table for the given user
$s = dba :: p ( " SELECT `id`, `id` AS `cid`, 0 AS `gid`, 0 AS `zid`, `uid`, `url`, `nurl`, `alias`, `network`, `name`, `nick`, `addr`, `location`, `about`, `xmpp`,
`keywords` , `gender` , `photo` , `thumb` , `micro` , `forum` , `prv` , ( `forum` | `prv` ) AS `community` , `contact-type` , `bd` AS `birthday` , `self`
FROM `contact` WHERE `nurl` = ? AND `uid` = ? " , normalise_link( $url ), $uid );
$r = dba :: inArray ( $s );
// Fetch contact data from the contact table for the given user, checking with the alias
if ( ! DBM :: is_result ( $r )) {
$s = dba :: p ( " SELECT `id`, `id` AS `cid`, 0 AS `gid`, 0 AS `zid`, `uid`, `url`, `nurl`, `alias`, `network`, `name`, `nick`, `addr`, `location`, `about`, `xmpp`,
`keywords` , `gender` , `photo` , `thumb` , `micro` , `forum` , `prv` , ( `forum` | `prv` ) AS `community` , `contact-type` , `bd` AS `birthday` , `self`
FROM `contact` WHERE `alias` IN ( ? , ? , ? ) AND `uid` = ? " , normalise_link( $url ), $url , $ssl_url , $uid );
$r = dba :: inArray ( $s );
}
// Fetch the data from the contact table with "uid=0" (which is filled automatically)
if ( ! DBM :: is_result ( $r )) {
$s = dba :: p ( " SELECT `id`, 0 AS `cid`, `id` AS `zid`, 0 AS `gid`, `uid`, `url`, `nurl`, `alias`, `network`, `name`, `nick`, `addr`, `location`, `about`, `xmpp`,
`keywords` , `gender` , `photo` , `thumb` , `micro` , `forum` , `prv` , ( `forum` | `prv` ) AS `community` , `contact-type` , `bd` AS `birthday` , 0 AS `self`
FROM `contact` WHERE `nurl` = ? AND `uid` = 0 " , normalise_link( $url ));
$r = dba :: inArray ( $s );
}
// Fetch the data from the contact table with "uid=0" (which is filled automatically) - checked with the alias
if ( ! DBM :: is_result ( $r )) {
$s = dba :: p ( " SELECT `id`, 0 AS `cid`, `id` AS `zid`, 0 AS `gid`, `uid`, `url`, `nurl`, `alias`, `network`, `name`, `nick`, `addr`, `location`, `about`, `xmpp`,
`keywords` , `gender` , `photo` , `thumb` , `micro` , `forum` , `prv` , ( `forum` | `prv` ) AS `community` , `contact-type` , `bd` AS `birthday` , 0 AS `self`
FROM `contact` WHERE `alias` IN ( ? , ? , ? ) AND `uid` = 0 " , normalise_link( $url ), $url , $ssl_url );
$r = dba :: inArray ( $s );
}
// Fetch the data from the gcontact table
if ( ! DBM :: is_result ( $r )) {
$s = dba :: p ( " SELECT 0 AS `id`, 0 AS `cid`, `id` AS `gid`, 0 AS `zid`, 0 AS `uid`, `url`, `nurl`, `alias`, `network`, `name`, `nick`, `addr`, `location`, `about`, '' AS `xmpp`,
`keywords` , `gender` , `photo` , `photo` AS `thumb` , `photo` AS `micro` , `community` AS `forum` , 0 AS `prv` , `community` , `contact-type` , `birthday` , 0 AS `self`
FROM `gcontact` WHERE `nurl` = ? " , normalise_link( $url ));
$r = dba :: inArray ( $s );
}
if ( DBM :: is_result ( $r )) {
// If there is more than one entry we filter out the connector networks
if ( count ( $r ) > 1 ) {
2017-11-22 15:02:55 +01:00
foreach ( $r as $id => $result ) {
2017-11-19 22:55:28 +01:00
if ( $result [ " network " ] == NETWORK_STATUSNET ) {
unset ( $r [ $id ]);
}
}
}
$profile = array_shift ( $r );
// "bd" always contains the upcoming birthday of a contact.
// "birthday" might contain the birthday including the year of birth.
if ( $profile [ " birthday " ] > '0001-01-01' ) {
$bd_timestamp = strtotime ( $profile [ " birthday " ]);
$month = date ( " m " , $bd_timestamp );
$day = date ( " d " , $bd_timestamp );
$current_timestamp = time ();
$current_year = date ( " Y " , $current_timestamp );
$current_month = date ( " m " , $current_timestamp );
$current_day = date ( " d " , $current_timestamp );
$profile [ " bd " ] = $current_year . " - " . $month . " - " . $day ;
$current = $current_year . " - " . $current_month . " - " . $current_day ;
if ( $profile [ " bd " ] < $current ) {
$profile [ " bd " ] = ( ++ $current_year ) . " - " . $month . " - " . $day ;
}
} else {
$profile [ " bd " ] = '0001-01-01' ;
}
} else {
$profile = $default ;
}
if (( $profile [ " photo " ] == " " ) && isset ( $default [ " photo " ])) {
$profile [ " photo " ] = $default [ " photo " ];
}
if (( $profile [ " name " ] == " " ) && isset ( $default [ " name " ])) {
$profile [ " name " ] = $default [ " name " ];
}
if (( $profile [ " network " ] == " " ) && isset ( $default [ " network " ])) {
$profile [ " network " ] = $default [ " network " ];
}
if (( $profile [ " thumb " ] == " " ) && isset ( $profile [ " photo " ])) {
$profile [ " thumb " ] = $profile [ " photo " ];
}
if (( $profile [ " micro " ] == " " ) && isset ( $profile [ " thumb " ])) {
$profile [ " micro " ] = $profile [ " thumb " ];
}
2017-11-22 15:02:55 +01:00
if ((( $profile [ " addr " ] == " " ) || ( $profile [ " name " ] == " " )) && ( $profile [ " gid " ] != 0 )
2018-01-15 14:05:12 +01:00
&& in_array ( $profile [ " network " ], [ NETWORK_DFRN , NETWORK_DIASPORA , NETWORK_OSTATUS ])
2017-11-22 15:02:55 +01:00
) {
2017-11-19 22:55:28 +01:00
Worker :: add ( PRIORITY_LOW , " UpdateGContact " , $profile [ " gid " ]);
}
// Show contact details of Diaspora contacts only if connected
if (( $profile [ " cid " ] == 0 ) && ( $profile [ " network " ] == NETWORK_DIASPORA )) {
$profile [ " location " ] = " " ;
$profile [ " about " ] = " " ;
$profile [ " gender " ] = " " ;
$profile [ " birthday " ] = '0001-01-01' ;
}
$cache [ $url ][ $uid ] = $profile ;
return $profile ;
}
/**
* @ brief Get contact data for a given address
*
* The function looks at several places ( contact table and gcontact table ) for the contact
*
* @ param string $addr The profile link
2017-11-22 15:02:55 +01:00
* @ param int $uid User id
2017-11-19 22:55:28 +01:00
*
* @ return array Contact data
*/
public static function getDetailsByAddr ( $addr , $uid = - 1 )
{
2018-01-15 14:05:12 +01:00
static $cache = [];
2017-11-19 22:55:28 +01:00
if ( $addr == '' ) {
2018-01-15 14:05:12 +01:00
return [];
2017-11-19 22:55:28 +01:00
}
if ( $uid == - 1 ) {
$uid = local_user ();
}
// Fetch contact data from the contact table for the given user
$r = q ( " SELECT `id`, `id` AS `cid`, 0 AS `gid`, 0 AS `zid`, `uid`, `url`, `nurl`, `alias`, `network`, `name`, `nick`, `addr`, `location`, `about`, `xmpp`,
`keywords` , `gender` , `photo` , `thumb` , `micro` , `forum` , `prv` , ( `forum` | `prv` ) AS `community` , `contact-type` , `bd` AS `birthday` , `self`
2018-01-11 09:37:11 +01:00
FROM `contact` WHERE `addr` = '%s' AND `uid` = % d " ,
dbesc ( $addr ),
intval ( $uid )
);
2017-11-19 22:55:28 +01:00
// Fetch the data from the contact table with "uid=0" (which is filled automatically)
2018-01-11 09:37:11 +01:00
if ( ! DBM :: is_result ( $r )) {
2017-11-19 22:55:28 +01:00
$r = q ( " SELECT `id`, 0 AS `cid`, `id` AS `zid`, 0 AS `gid`, `uid`, `url`, `nurl`, `alias`, `network`, `name`, `nick`, `addr`, `location`, `about`, `xmpp`,
2018-01-11 09:37:11 +01:00
`keywords` , `gender` , `photo` , `thumb` , `micro` , `forum` , `prv` , ( `forum` | `prv` ) AS `community` , `contact-type` , `bd` AS `birthday` , 0 AS `self`
FROM `contact` WHERE `addr` = '%s' AND `uid` = 0 " ,
dbesc ( $addr )
);
}
2017-11-19 22:55:28 +01:00
// Fetch the data from the gcontact table
2018-01-11 09:37:11 +01:00
if ( ! DBM :: is_result ( $r )) {
2017-11-19 22:55:28 +01:00
$r = q ( " SELECT 0 AS `id`, 0 AS `cid`, `id` AS `gid`, 0 AS `zid`, 0 AS `uid`, `url`, `nurl`, `alias`, `network`, `name`, `nick`, `addr`, `location`, `about`, '' AS `xmpp`,
2018-01-11 09:37:11 +01:00
`keywords` , `gender` , `photo` , `photo` AS `thumb` , `photo` AS `micro` , `community` AS `forum` , 0 AS `prv` , `community` , `contact-type` , `birthday` , 0 AS `self`
FROM `gcontact` WHERE `addr` = '%s' " ,
dbesc ( $addr )
);
}
2017-11-19 22:55:28 +01:00
if ( ! DBM :: is_result ( $r )) {
$data = Probe :: uri ( $addr );
$profile = self :: getDetailsByURL ( $data [ 'url' ], $uid );
} else {
$profile = $r [ 0 ];
}
return $profile ;
}
/**
* @ brief Returns the data array for the photo menu of a given contact
*
2017-11-22 15:02:55 +01:00
* @ param array $contact contact
* @ param int $uid optional , default 0
2017-11-19 22:55:28 +01:00
* @ return array
*/
public static function photoMenu ( array $contact , $uid = 0 )
{
// @todo Unused, to be removed
$a = get_app ();
$contact_url = '' ;
$pm_url = '' ;
$status_link = '' ;
$photos_link = '' ;
$posts_link = '' ;
$contact_drop_link = '' ;
$poke_link = '' ;
if ( $uid == 0 ) {
$uid = local_user ();
}
if ( $contact [ 'uid' ] != $uid ) {
if ( $uid == 0 ) {
2018-01-15 03:22:39 +01:00
$profile_link = Profile :: zrl ( $contact [ 'url' ]);
2018-01-22 15:54:13 +01:00
$menu = [ 'profile' => [ L10n :: t ( 'View Profile' ), $profile_link , true ]];
2017-11-19 22:55:28 +01:00
return $menu ;
}
2018-01-11 09:26:30 +01:00
// Look for our own contact if the uid doesn't match and isn't public
$contact_own = dba :: selectFirst ( 'contact' , [], [ 'nurl' => $contact [ 'nurl' ], 'network' => $contact [ 'network' ], 'uid' => $uid ]);
if ( DBM :: is_result ( $contact_own )) {
return self :: photoMenu ( $contact_own , $uid );
2017-11-19 22:55:28 +01:00
} else {
2018-01-15 03:22:39 +01:00
$profile_link = Profile :: zrl ( $contact [ 'url' ]);
2017-11-19 22:55:28 +01:00
$connlnk = 'follow/?url=' . $contact [ 'url' ];
2018-01-15 14:05:12 +01:00
$menu = [
2018-01-22 15:54:13 +01:00
'profile' => [ L10n :: t ( 'View Profile' ), $profile_link , true ],
'follow' => [ L10n :: t ( 'Connect/Follow' ), $connlnk , true ]
2018-01-15 14:05:12 +01:00
];
2017-11-19 22:55:28 +01:00
return $menu ;
}
}
$sparkle = false ;
if ( $contact [ 'network' ] === NETWORK_DFRN ) {
$sparkle = true ;
$profile_link = System :: baseUrl () . '/redir/' . $contact [ 'id' ];
} else {
$profile_link = $contact [ 'url' ];
}
if ( $profile_link === 'mailbox' ) {
$profile_link = '' ;
}
if ( $sparkle ) {
$status_link = $profile_link . '?url=status' ;
$photos_link = $profile_link . '?url=photos' ;
$profile_link = $profile_link . '?url=profile' ;
}
2018-01-15 14:05:12 +01:00
if ( in_array ( $contact [ 'network' ], [ NETWORK_DFRN , NETWORK_DIASPORA ])) {
2017-11-19 22:55:28 +01:00
$pm_url = System :: baseUrl () . '/message/new/' . $contact [ 'id' ];
}
if ( $contact [ 'network' ] == NETWORK_DFRN ) {
$poke_link = System :: baseUrl () . '/poke/?f=&c=' . $contact [ 'id' ];
}
$contact_url = System :: baseUrl () . '/contacts/' . $contact [ 'id' ];
$posts_link = System :: baseUrl () . '/contacts/' . $contact [ 'id' ] . '/posts' ;
$contact_drop_link = System :: baseUrl () . '/contacts/' . $contact [ 'id' ] . '/drop?confirm=1' ;
/**
2017-11-22 15:02:55 +01:00
* Menu array :
2017-11-19 22:55:28 +01:00
* " name " => [ " Label " , " link " , ( bool ) Should the link opened in a new tab ? ]
*/
2018-01-11 09:37:11 +01:00
$menu = [
2018-01-22 15:54:13 +01:00
'status' => [ L10n :: t ( " View Status " ) , $status_link , true ],
'profile' => [ L10n :: t ( " View Profile " ) , $profile_link , true ],
'photos' => [ L10n :: t ( " View Photos " ) , $photos_link , true ],
'network' => [ L10n :: t ( " Network Posts " ), $posts_link , false ],
'edit' => [ L10n :: t ( " View Contact " ) , $contact_url , false ],
'drop' => [ L10n :: t ( " Drop Contact " ) , $contact_drop_link , false ],
'pm' => [ L10n :: t ( " Send PM " ) , $pm_url , false ],
'poke' => [ L10n :: t ( " Poke " ) , $poke_link , false ],
2018-01-11 09:37:11 +01:00
];
$args = [ 'contact' => $contact , 'menu' => & $menu ];
2017-11-19 22:55:28 +01:00
2018-01-17 19:42:40 +01:00
Addon :: callHooks ( 'contact_photo_menu' , $args );
2017-11-19 22:55:28 +01:00
2018-01-15 14:05:12 +01:00
$menucondensed = [];
2017-11-19 22:55:28 +01:00
2017-11-22 15:02:55 +01:00
foreach ( $menu as $menuname => $menuitem ) {
2017-11-19 22:55:28 +01:00
if ( $menuitem [ 1 ] != '' ) {
$menucondensed [ $menuname ] = $menuitem ;
}
}
return $menucondensed ;
}
/**
2017-11-22 15:02:55 +01:00
* @ brief Returns ungrouped contact count or list for user
*
2017-11-19 22:55:28 +01:00
* Returns either the total number of ungrouped contacts for the given user
* id or a paginated list of ungrouped contacts .
*
2017-11-22 15:02:55 +01:00
* @ param int $uid uid
* @ param int $start optional , default 0
* @ param int $count optional , default 0
2017-11-19 22:55:28 +01:00
*
* @ return array
*/
public static function getUngroupedList ( $uid , $start = 0 , $count = 0 )
{
if ( ! $count ) {
2017-11-23 14:15:38 +01:00
$r = q (
" SELECT COUNT(*) AS `total`
FROM `contact`
WHERE `uid` = % d
2017-11-29 21:59:06 +01:00
AND NOT `self`
AND NOT `blocked`
AND NOT `pending`
2017-11-23 14:15:38 +01:00
AND `id` NOT IN (
SELECT DISTINCT ( `contact-id` )
FROM `group_member`
WHERE `uid` = % d
2018-01-11 09:37:11 +01:00
) " ,
intval ( $uid ),
intval ( $uid )
2017-11-23 14:15:38 +01:00
);
2017-11-24 01:22:30 +01:00
2017-11-23 14:15:38 +01:00
return $r ;
}
$r = q (
" SELECT *
FROM `contact`
WHERE `uid` = % d
2017-11-29 21:59:06 +01:00
AND NOT `self`
AND NOT `blocked`
AND NOT `pending`
2017-11-23 14:15:38 +01:00
AND `id` NOT IN (
SELECT DISTINCT ( `contact-id` )
2017-12-15 04:47:58 +01:00
FROM `group_member`
2017-12-15 14:44:00 +01:00
INNER JOIN `group` ON `group` . `id` = `group_member` . `gid`
2017-12-15 04:47:58 +01:00
WHERE `group` . `uid` = % d
2017-11-23 14:15:38 +01:00
)
2018-01-11 09:37:11 +01:00
LIMIT % d , % d " ,
intval ( $uid ),
intval ( $uid ),
intval ( $start ),
intval ( $count )
2017-11-23 14:15:38 +01:00
);
2018-01-15 14:05:12 +01:00
2017-11-23 14:15:38 +01:00
return $r ;
2017-11-19 22:55:28 +01:00
}
/**
2018-01-11 09:37:11 +01:00
* @ brief Fetch the contact id for a given URL and user
2017-11-19 22:55:28 +01:00
*
* First lookup in the contact table to find a record matching either `url` , `nurl` ,
* `addr` or `alias` .
*
* If there 's no record and we aren' t looking for a public contact , we quit .
* If there 's one, we check that it isn' t time to update the picture else we
* directly return the found contact id .
*
2018-01-11 09:37:11 +01:00
* Second , we probe the provided $url whether it ' s http :// server . tld / profile or
2017-11-19 22:55:28 +01:00
* nick @ server . tld . We quit if we can ' t get any info back .
*
* Third , we create the contact record if it doesn ' t exist
*
* Fourth , we update the existing record with the new data ( avatar , alias , nick )
* if there ' s any updates
*
2017-11-22 15:02:55 +01:00
* @ param string $url Contact URL
* @ param integer $uid The user id for the contact ( 0 = public contact )
2017-11-19 22:55:28 +01:00
* @ param boolean $no_update Don ' t update the contact
*
* @ return integer Contact ID
*/
2017-11-19 23:03:39 +01:00
public static function getIdForURL ( $url , $uid = 0 , $no_update = false )
2017-11-19 22:55:28 +01:00
{
logger ( " Get contact data for url " . $url . " and user " . $uid . " - " . System :: callstack (), LOGGER_DEBUG );
$contact_id = 0 ;
if ( $url == '' ) {
return 0 ;
}
/// @todo Verify if we can't use Contact::getDetailsByUrl instead of the following
// We first try the nurl (http://server.tld/nick), most common case
2018-01-10 14:36:02 +01:00
$contact = dba :: selectFirst ( 'contact' , [ 'id' , 'avatar-date' ], [ 'nurl' => normalise_link ( $url ), 'uid' => $uid ]);
2017-11-19 22:55:28 +01:00
// Then the addr (nick@server.tld)
if ( ! DBM :: is_result ( $contact )) {
2018-01-10 14:36:02 +01:00
$contact = dba :: selectFirst ( 'contact' , [ 'id' , 'avatar-date' ], [ 'addr' => $url , 'uid' => $uid ]);
2017-11-19 22:55:28 +01:00
}
// Then the alias (which could be anything)
if ( ! DBM :: is_result ( $contact )) {
// The link could be provided as http although we stored it as https
$ssl_url = str_replace ( 'http://' , 'https://' , $url );
2018-01-11 09:26:30 +01:00
$condition = [ '`alias` IN (?, ?, ?) AND `uid` = ?' , $url , normalise_link ( $url ), $ssl_url , $uid ];
$contact = dba :: selectFirst ( 'contact' , [ 'id' , 'avatar' , 'avatar-date' ], $condition );
2017-11-19 22:55:28 +01:00
}
if ( DBM :: is_result ( $contact )) {
$contact_id = $contact [ " id " ];
// Update the contact every 7 days
$update_contact = ( $contact [ 'avatar-date' ] < datetime_convert ( '' , '' , 'now -7 days' ));
// We force the update if the avatar is empty
2018-01-01 21:51:02 +01:00
if ( ! x ( $contact , 'avatar' )) {
2017-11-19 22:55:28 +01:00
$update_contact = true ;
}
if ( ! $update_contact || $no_update ) {
return $contact_id ;
}
} elseif ( $uid != 0 ) {
// Non-existing user-specific contact, exiting
return 0 ;
}
$data = Probe :: uri ( $url , " " , $uid );
// Last try in gcontact for unsupported networks
2018-01-15 14:05:12 +01:00
if ( ! in_array ( $data [ " network " ], [ NETWORK_DFRN , NETWORK_OSTATUS , NETWORK_DIASPORA , NETWORK_PUMPIO , NETWORK_MAIL ])) {
2017-11-19 22:55:28 +01:00
if ( $uid != 0 ) {
return 0 ;
}
// Get data from the gcontact table
2018-01-11 09:26:30 +01:00
$gcontact = dba :: selectFirst ( 'gcontact' , [ 'name' , 'nick' , 'url' , 'photo' , 'addr' , 'alias' , 'network' ], [ 'nurl' => normalise_link ( $url )]);
if ( ! DBM :: is_result ( $gcontact )) {
2017-11-19 22:55:28 +01:00
return 0 ;
}
2018-01-11 09:26:30 +01:00
$data = array_merge ( $data , $gcontact );
2017-11-19 22:55:28 +01:00
}
if ( ! $contact_id && ( $data [ " alias " ] != '' ) && ( $data [ " alias " ] != $url )) {
2017-11-19 23:03:39 +01:00
$contact_id = self :: getIdForURL ( $data [ " alias " ], $uid , true );
2017-11-19 22:55:28 +01:00
}
$url = $data [ " url " ];
if ( ! $contact_id ) {
2018-01-11 09:37:11 +01:00
dba :: insert ( 'contact' , [
'uid' => $uid ,
'created' => datetime_convert (),
'url' => $data [ " url " ],
'nurl' => normalise_link ( $data [ " url " ]),
'addr' => $data [ " addr " ],
'alias' => $data [ " alias " ],
'notify' => $data [ " notify " ],
'poll' => $data [ " poll " ],
'name' => $data [ " name " ],
'nick' => $data [ " nick " ],
'photo' => $data [ " photo " ],
'keywords' => $data [ " keywords " ],
'location' => $data [ " location " ],
'about' => $data [ " about " ],
'network' => $data [ " network " ],
'pubkey' => $data [ " pubkey " ],
'rel' => CONTACT_IS_SHARING ,
'priority' => $data [ " priority " ],
'batch' => $data [ " batch " ],
'request' => $data [ " request " ],
'confirm' => $data [ " confirm " ],
'poco' => $data [ " poco " ],
'name-date' => datetime_convert (),
'uri-date' => datetime_convert (),
'avatar-date' => datetime_convert (),
'writable' => 1 ,
'blocked' => 0 ,
'readonly' => 0 ,
'pending' => 0 ]
2017-11-22 22:29:47 +01:00
);
2017-11-19 22:55:28 +01:00
2018-01-11 09:26:30 +01:00
$s = dba :: select ( 'contact' , [ 'id' ], [ 'nurl' => normalise_link ( $data [ " url " ]), 'uid' => $uid ], [ 'order' => [ 'id' ], 'limit' => 2 ]);
2017-11-22 22:29:47 +01:00
$contacts = dba :: inArray ( $s );
2017-11-19 22:55:28 +01:00
if ( ! DBM :: is_result ( $contacts )) {
return 0 ;
}
$contact_id = $contacts [ 0 ][ " id " ];
// Update the newly created contact from data in the gcontact table
2018-01-10 14:36:02 +01:00
$gcontact = dba :: selectFirst ( 'gcontact' , [ 'location' , 'about' , 'keywords' , 'gender' ], [ 'nurl' => normalise_link ( $data [ " url " ])]);
2017-11-19 22:55:28 +01:00
if ( DBM :: is_result ( $gcontact )) {
// Only use the information when the probing hadn't fetched these values
if ( $data [ 'keywords' ] != '' ) {
unset ( $gcontact [ 'keywords' ]);
}
if ( $data [ 'location' ] != '' ) {
unset ( $gcontact [ 'location' ]);
}
if ( $data [ 'about' ] != '' ) {
unset ( $gcontact [ 'about' ]);
}
2018-01-15 14:05:12 +01:00
dba :: update ( 'contact' , $gcontact , [ 'id' => $contact_id ]);
2017-11-19 22:55:28 +01:00
}
if ( count ( $contacts ) > 1 && $uid == 0 && $contact_id != 0 && $data [ " url " ] != " " ) {
2018-01-11 09:37:11 +01:00
dba :: delete ( 'contact' , [ " `nurl` = ? AND `uid` = 0 AND `id` != ? AND NOT `self` " ,
normalise_link ( $data [ " url " ]), $contact_id ]);
2017-11-19 22:55:28 +01:00
}
}
2017-11-29 23:29:11 +01:00
self :: updateAvatar ( $data [ " photo " ], $uid , $contact_id );
2017-11-19 22:55:28 +01:00
2018-01-10 04:20:33 +01:00
$fields = [ 'url' , 'nurl' , 'addr' , 'alias' , 'name' , 'nick' , 'keywords' , 'location' , 'about' , 'avatar-date' , 'pubkey' ];
2018-01-10 14:36:02 +01:00
$contact = dba :: selectFirst ( 'contact' , $fields , [ 'id' => $contact_id ]);
2017-11-19 22:55:28 +01:00
// This condition should always be true
if ( ! DBM :: is_result ( $contact )) {
return $contact_id ;
}
2018-01-15 14:05:12 +01:00
$updated = [ 'addr' => $data [ 'addr' ],
2017-11-19 22:55:28 +01:00
'alias' => $data [ 'alias' ],
'url' => $data [ 'url' ],
'nurl' => normalise_link ( $data [ 'url' ]),
'name' => $data [ 'name' ],
2018-01-15 14:05:12 +01:00
'nick' => $data [ 'nick' ]];
2017-11-19 22:55:28 +01:00
2017-12-07 07:51:38 +01:00
// Only fill the pubkey if it was empty before. We have to prevent identity theft.
if ( ! empty ( $contact [ 'pubkey' ])) {
unset ( $contact [ 'pubkey' ]);
} else {
$updated [ 'pubkey' ] = $data [ 'pubkey' ];
}
2017-11-19 22:55:28 +01:00
if ( $data [ 'keywords' ] != '' ) {
$updated [ 'keywords' ] = $data [ 'keywords' ];
}
if ( $data [ 'location' ] != '' ) {
$updated [ 'location' ] = $data [ 'location' ];
}
if ( $data [ 'about' ] != '' ) {
$updated [ 'about' ] = $data [ 'about' ];
}
if (( $data [ " addr " ] != $contact [ " addr " ]) || ( $data [ " alias " ] != $contact [ " alias " ])) {
$updated [ 'uri-date' ] = datetime_convert ();
}
if (( $data [ " name " ] != $contact [ " name " ]) || ( $data [ " nick " ] != $contact [ " nick " ])) {
$updated [ 'name-date' ] = datetime_convert ();
}
$updated [ 'avatar-date' ] = datetime_convert ();
2018-01-15 14:05:12 +01:00
dba :: update ( 'contact' , $updated , [ 'id' => $contact_id ], $contact );
2017-11-19 22:55:28 +01:00
return $contact_id ;
}
/**
* @ brief Checks if the contact is blocked
*
* @ param int $cid contact id
*
* @ return boolean Is the contact blocked ?
*/
public static function isBlocked ( $cid )
{
if ( $cid == 0 ) {
return false ;
}
2018-01-10 14:36:02 +01:00
$blocked = dba :: selectFirst ( 'contact' , [ 'blocked' ], [ 'id' => $cid ]);
2017-11-19 22:55:28 +01:00
if ( ! DBM :: is_result ( $blocked )) {
return false ;
}
return ( bool ) $blocked [ 'blocked' ];
}
/**
* @ brief Checks if the contact is hidden
*
* @ param int $cid contact id
*
* @ return boolean Is the contact hidden ?
*/
public static function isHidden ( $cid )
{
if ( $cid == 0 ) {
return false ;
}
2018-01-10 14:36:02 +01:00
$hidden = dba :: selectFirst ( 'contact' , [ 'hidden' ], [ 'id' => $cid ]);
2017-11-19 22:55:28 +01:00
if ( ! DBM :: is_result ( $hidden )) {
return false ;
}
return ( bool ) $hidden [ 'hidden' ];
}
/**
* @ brief Returns posts from a given contact url
*
* @ param string $contact_url Contact URL
*
* @ return string posts in HTML
*/
public static function getPostsFromUrl ( $contact_url )
{
2017-11-24 23:15:35 +01:00
$a = self :: getApp ();
2017-11-19 22:55:28 +01:00
require_once 'include/conversation.php' ;
// There are no posts with "uid = 0" with connector networks
// This speeds up the query a lot
2017-11-23 14:15:38 +01:00
$r = q ( " SELECT `network`, `id` AS `author-id`, `contact-type` FROM `contact`
2018-01-11 09:37:11 +01:00
WHERE `contact` . `nurl` = '%s' AND `contact` . `uid` = 0 " ,
dbesc ( normalise_link ( $contact_url ))
);
2017-11-19 22:55:28 +01:00
if ( ! DBM :: is_result ( $r )) {
return '' ;
}
2018-01-15 14:05:12 +01:00
if ( in_array ( $r [ 0 ][ " network " ], [ NETWORK_DFRN , NETWORK_DIASPORA , NETWORK_OSTATUS , " " ])) {
2017-11-19 22:55:28 +01:00
$sql = " (`item`.`uid` = 0 OR (`item`.`uid` = %d AND NOT `item`.`global`)) " ;
} else {
$sql = " `item`.`uid` = %d " ;
}
2017-11-23 14:15:38 +01:00
$author_id = intval ( $r [ 0 ][ " author-id " ]);
2017-11-19 22:55:28 +01:00
2017-11-23 14:15:38 +01:00
$contact = ( $r [ 0 ][ " contact-type " ] == ACCOUNT_TYPE_COMMUNITY ? 'owner-id' : 'author-id' );
2017-11-19 22:55:28 +01:00
$r = q ( item_query () . " AND `item`.` " . $contact . " ` = %d AND " . $sql .
2018-01-05 20:47:55 +01:00
" AND `item`.`verb` = '%s' ORDER BY `item`.`created` DESC LIMIT %d, %d " ,
intval ( $author_id ), intval ( local_user ()), dbesc ( ACTIVITY_POST ),
intval ( $a -> pager [ 'start' ]), intval ( $a -> pager [ 'itemspage' ])
2017-11-19 22:55:28 +01:00
);
2018-01-05 20:47:55 +01:00
$o = conversation ( $a , $r , 'contact-posts' , false );
2017-11-19 22:55:28 +01:00
$o .= alt_pager ( $a , count ( $r ));
return $o ;
}
/**
* @ brief Returns the account type name
*
* The function can be called with either the user or the contact array
*
* @ param array $contact contact or user array
* @ return string
*/
public static function getAccountType ( array $contact )
{
// There are several fields that indicate that the contact or user is a forum
// "page-flags" is a field in the user table,
// "forum" and "prv" are used in the contact table. They stand for PAGE_COMMUNITY and PAGE_PRVGROUP.
// "community" is used in the gcontact table and is true if the contact is PAGE_COMMUNITY or PAGE_PRVGROUP.
2017-11-22 22:29:47 +01:00
if (( isset ( $contact [ 'page-flags' ]) && ( intval ( $contact [ 'page-flags' ]) == PAGE_COMMUNITY ))
2017-11-19 22:55:28 +01:00
|| ( isset ( $contact [ 'page-flags' ]) && ( intval ( $contact [ 'page-flags' ]) == PAGE_PRVGROUP ))
|| ( isset ( $contact [ 'forum' ]) && intval ( $contact [ 'forum' ]))
|| ( isset ( $contact [ 'prv' ]) && intval ( $contact [ 'prv' ]))
|| ( isset ( $contact [ 'community' ]) && intval ( $contact [ 'community' ]))
) {
$type = ACCOUNT_TYPE_COMMUNITY ;
} else {
$type = ACCOUNT_TYPE_PERSON ;
}
// The "contact-type" (contact table) and "account-type" (user table) are more general then the chaos from above.
if ( isset ( $contact [ " contact-type " ])) {
$type = $contact [ " contact-type " ];
}
2018-01-11 09:37:11 +01:00
2017-11-19 22:55:28 +01:00
if ( isset ( $contact [ " account-type " ])) {
$type = $contact [ " account-type " ];
}
switch ( $type ) {
case ACCOUNT_TYPE_ORGANISATION :
2018-01-22 15:54:13 +01:00
$account_type = L10n :: t ( " Organisation " );
2017-11-19 22:55:28 +01:00
break ;
case ACCOUNT_TYPE_NEWS :
2018-01-22 15:54:13 +01:00
$account_type = L10n :: t ( 'News' );
2017-11-19 22:55:28 +01:00
break ;
case ACCOUNT_TYPE_COMMUNITY :
2018-01-22 15:54:13 +01:00
$account_type = L10n :: t ( " Forum " );
2017-11-19 22:55:28 +01:00
break ;
default :
$account_type = " " ;
break ;
}
return $account_type ;
}
2017-11-29 23:29:11 +01:00
/**
2017-12-01 06:41:26 +01:00
* @ brief Blocks a contact
*
* @ param int $uid
* @ return bool
*/
public static function block ( $uid )
{
$return = dba :: update ( 'contact' , [ 'blocked' => true ], [ 'id' => $uid ]);
return $return ;
}
/**
* @ brief Unblocks a contact
*
* @ param int $uid
* @ return bool
*/
public static function unblock ( $uid )
{
$return = dba :: update ( 'contact' , [ 'blocked' => false ], [ 'id' => $uid ]);
return $return ;
2018-01-11 09:37:11 +01:00
}
2017-12-01 06:48:13 +01:00
2018-01-11 09:37:11 +01:00
/**
* @ brief Updates the avatar links in a contact only if needed
2017-11-29 23:29:11 +01:00
*
* @ param string $avatar Link to avatar picture
* @ param int $uid User id of contact owner
* @ param int $cid Contact id
* @ param bool $force force picture update
*
* @ return array Returns array of the different avatar sizes
*/
public static function updateAvatar ( $avatar , $uid , $cid , $force = false )
{
2018-01-11 09:26:30 +01:00
$contact = dba :: selectFirst ( 'contact' , [ 'avatar' , 'photo' , 'thumb' , 'micro' , 'nurl' ], [ 'id' => $cid ]);
if ( ! DBM :: is_result ( $contact )) {
2017-11-29 23:29:11 +01:00
return false ;
} else {
2018-01-15 14:05:12 +01:00
$data = [ $contact [ " photo " ], $contact [ " thumb " ], $contact [ " micro " ]];
2017-11-29 23:29:11 +01:00
}
2018-01-11 09:26:30 +01:00
if (( $contact [ " avatar " ] != $avatar ) || $force ) {
2017-12-08 07:15:06 +01:00
$photos = Photo :: importProfilePhoto ( $avatar , $uid , $cid , true );
2017-11-29 23:29:11 +01:00
if ( $photos ) {
dba :: update (
'contact' ,
2018-01-15 14:05:12 +01:00
[ 'avatar' => $avatar , 'photo' => $photos [ 0 ], 'thumb' => $photos [ 1 ], 'micro' => $photos [ 2 ], 'avatar-date' => datetime_convert ()],
[ 'id' => $cid ]
2017-11-29 23:29:11 +01:00
);
// Update the public contact (contact id = 0)
if ( $uid != 0 ) {
2018-01-11 09:26:30 +01:00
$pcontact = dba :: selectFirst ( 'contact' , [ 'id' ], [ 'nurl' => $contact [ 'nurl' ]]);
2017-11-29 23:29:11 +01:00
if ( DBM :: is_result ( $pcontact )) {
self :: updateAvatar ( $avatar , 0 , $pcontact [ 'id' ], $force );
}
}
return $photos ;
}
}
return $data ;
}
2018-01-09 15:40:45 +01:00
/**
* @ param integer $id contact id
* @ return boolean
*/
2018-01-09 17:23:26 +01:00
public static function updateFromProbe ( $id )
2018-01-09 15:40:45 +01:00
{
/*
2018-01-11 09:37:11 +01:00
Warning : Never ever fetch the public key via Probe :: uri and write it into the contacts .
This will reliably kill your communication with Friendica contacts .
*/
2018-01-09 15:40:45 +01:00
2018-01-11 09:26:30 +01:00
$fields = [ 'url' , 'nurl' , 'addr' , 'alias' , 'batch' , 'notify' , 'poll' , 'poco' , 'network' ];
$contact = dba :: selectFirst ( 'contact' , $fields , [ 'id' => $id ]);
if ( ! DBM :: is_result ( $contact )) {
2018-01-09 15:40:45 +01:00
return false ;
}
2018-01-11 09:26:30 +01:00
$ret = Probe :: uri ( $contact [ " url " ]);
2018-01-09 15:40:45 +01:00
// If Probe::uri fails the network code will be different
2018-01-11 09:26:30 +01:00
if ( $ret [ " network " ] != $contact [ " network " ]) {
2018-01-09 15:40:45 +01:00
return false ;
}
$update = false ;
// make sure to not overwrite existing values with blank entries
2018-01-09 15:44:22 +01:00
foreach ( $ret as $key => $val ) {
2018-01-11 09:26:30 +01:00
if ( isset ( $contact [ $key ]) && ( $contact [ $key ] != " " ) && ( $val == " " )) {
$ret [ $key ] = $contact [ $key ];
}
2018-01-09 15:40:45 +01:00
2018-01-11 09:26:30 +01:00
if ( isset ( $contact [ $key ]) && ( $ret [ $key ] != $contact [ $key ])) {
2018-01-09 15:40:45 +01:00
$update = true ;
2018-01-11 09:26:30 +01:00
}
2018-01-09 15:40:45 +01:00
}
if ( ! $update ) {
return true ;
}
2018-01-09 15:44:22 +01:00
dba :: update (
2018-01-11 09:37:11 +01:00
'contact' , [
'url' => $ret [ 'url' ],
'nurl' => normalise_link ( $ret [ 'url' ]),
'addr' => $ret [ 'addr' ],
'alias' => $ret [ 'alias' ],
'batch' => $ret [ 'batch' ],
2018-01-09 15:44:22 +01:00
'notify' => $ret [ 'notify' ],
2018-01-11 09:37:11 +01:00
'poll' => $ret [ 'poll' ],
'poco' => $ret [ 'poco' ]
2018-01-09 15:44:22 +01:00
],
[ 'id' => $id ]
2018-01-09 15:40:45 +01:00
);
// Update the corresponding gcontact entry
PortableContact :: lastUpdated ( $ret [ " url " ]);
return true ;
}
/**
* Takes a $uid and a url / handle and adds a new contact
* Currently if the contact is DFRN , interactive needs to be true , to redirect to the
* dfrn_request page .
*
2018-01-11 09:37:11 +01:00
* Otherwise this can be used to bulk add StatusNet contacts , Twitter contacts , etc .
2018-01-09 15:40:45 +01:00
*
* Returns an array
* $return [ 'success' ] boolean true if successful
* $return [ 'message' ] error text if success is false .
*
* @ brief Takes a $uid and a url / handle and adds a new contact
* @ param int $uid
* @ param string $url
* @ param bool $interactive
* @ param string $network
* @ return boolean | string
*/
2018-01-09 17:40:25 +01:00
public static function createFromProbe ( $uid , $url , $interactive = false , $network = '' )
2018-01-09 15:40:45 +01:00
{
2018-01-15 14:05:12 +01:00
$result = [ 'cid' => - 1 , 'success' => false , 'message' => '' ];
2018-01-09 15:40:45 +01:00
$a = get_app ();
// remove ajax junk, e.g. Twitter
$url = str_replace ( '/#!/' , '/' , $url );
2018-01-27 05:51:41 +01:00
if ( ! Network :: allowedURL ( $url )) {
2018-01-22 15:54:13 +01:00
$result [ 'message' ] = L10n :: t ( 'Disallowed profile URL.' );
2018-01-09 15:40:45 +01:00
return $result ;
}
2018-01-27 05:51:41 +01:00
if ( Network :: blockedURL ( $url )) {
2018-01-22 15:54:13 +01:00
$result [ 'message' ] = L10n :: t ( 'Blocked domain' );
2018-01-09 15:40:45 +01:00
return $result ;
}
if ( ! $url ) {
2018-01-22 15:54:13 +01:00
$result [ 'message' ] = L10n :: t ( 'Connect URL missing.' );
2018-01-09 15:40:45 +01:00
return $result ;
}
2018-01-15 14:05:12 +01:00
$arr = [ 'url' => $url , 'contact' => []];
2018-01-09 15:40:45 +01:00
2018-01-17 19:42:40 +01:00
Addon :: callHooks ( 'follow' , $arr );
2018-01-09 15:40:45 +01:00
if ( x ( $arr [ 'contact' ], 'name' )) {
$ret = $arr [ 'contact' ];
} else {
$ret = Probe :: uri ( $url , $network , $uid , false );
}
if (( $network != '' ) && ( $ret [ 'network' ] != $network )) {
logger ( 'Expected network ' . $network . ' does not match actual network ' . $ret [ 'network' ]);
return result ;
}
if ( $ret [ 'network' ] === NETWORK_DFRN ) {
if ( $interactive ) {
if ( strlen ( $a -> path )) {
$myaddr = bin2hex ( System :: baseUrl () . '/profile/' . $a -> user [ 'nickname' ]);
} else {
$myaddr = bin2hex ( $a -> user [ 'nickname' ] . '@' . $a -> get_hostname ());
}
goaway ( $ret [ 'request' ] . " &addr= $myaddr " );
// NOTREACHED
}
} elseif ( Config :: get ( 'system' , 'dfrn_only' )) {
2018-01-22 15:54:13 +01:00
$result [ 'message' ] = L10n :: t ( 'This site is not configured to allow communications with other networks.' ) . EOL ;
$result [ 'message' ] != L10n :: t ( 'No compatible communication protocols or feeds were discovered.' ) . EOL ;
2018-01-09 15:40:45 +01:00
return $result ;
}
// This extra param just confuses things, remove it
if ( $ret [ 'network' ] === NETWORK_DIASPORA ) {
$ret [ 'url' ] = str_replace ( '?absolute=true' , '' , $ret [ 'url' ]);
}
// do we have enough information?
if ( ! (( x ( $ret , 'name' )) && ( x ( $ret , 'poll' )) && (( x ( $ret , 'url' )) || ( x ( $ret , 'addr' ))))) {
2018-01-22 15:54:13 +01:00
$result [ 'message' ] .= L10n :: t ( 'The profile address specified does not provide adequate information.' ) . EOL ;
2018-01-09 15:40:45 +01:00
if ( ! x ( $ret , 'poll' )) {
2018-01-22 15:54:13 +01:00
$result [ 'message' ] .= L10n :: t ( 'No compatible communication protocols or feeds were discovered.' ) . EOL ;
2018-01-09 15:40:45 +01:00
}
if ( ! x ( $ret , 'name' )) {
2018-01-22 15:54:13 +01:00
$result [ 'message' ] .= L10n :: t ( 'An author or name was not found.' ) . EOL ;
2018-01-09 15:40:45 +01:00
}
if ( ! x ( $ret , 'url' )) {
2018-01-22 15:54:13 +01:00
$result [ 'message' ] .= L10n :: t ( 'No browser URL could be matched to this address.' ) . EOL ;
2018-01-09 15:40:45 +01:00
}
if ( strpos ( $url , '@' ) !== false ) {
2018-01-22 15:54:13 +01:00
$result [ 'message' ] .= L10n :: t ( 'Unable to match @-style Identity Address with a known protocol or email contact.' ) . EOL ;
$result [ 'message' ] .= L10n :: t ( 'Use mailto: in front of address to force email check.' ) . EOL ;
2018-01-09 15:40:45 +01:00
}
return $result ;
}
if ( $ret [ 'network' ] === NETWORK_OSTATUS && Config :: get ( 'system' , 'ostatus_disabled' )) {
2018-01-22 15:54:13 +01:00
$result [ 'message' ] .= L10n :: t ( 'The profile address specified belongs to a network which has been disabled on this site.' ) . EOL ;
2018-01-09 15:40:45 +01:00
$ret [ 'notify' ] = '' ;
}
if ( ! $ret [ 'notify' ]) {
2018-01-22 15:54:13 +01:00
$result [ 'message' ] .= L10n :: t ( 'Limited profile. This person will be unable to receive direct/personal notifications from you.' ) . EOL ;
2018-01-09 15:40:45 +01:00
}
$writeable = ((( $ret [ 'network' ] === NETWORK_OSTATUS ) && ( $ret [ 'notify' ])) ? 1 : 0 );
$subhub = (( $ret [ 'network' ] === NETWORK_OSTATUS ) ? true : false );
$hidden = (( $ret [ 'network' ] === NETWORK_MAIL ) ? 1 : 0 );
2018-01-15 14:05:12 +01:00
if ( in_array ( $ret [ 'network' ], [ NETWORK_MAIL , NETWORK_DIASPORA ])) {
2018-01-09 15:40:45 +01:00
$writeable = 1 ;
}
// check if we already have a contact
// the poll url is more reliable than the profile url, as we may have
// indirect links or webfinger links
$r = q ( " SELECT * FROM `contact` WHERE `uid` = %d AND `poll` IN ('%s', '%s') AND `network` = '%s' LIMIT 1 " ,
intval ( $uid ),
dbesc ( $ret [ 'poll' ]),
dbesc ( normalise_link ( $ret [ 'poll' ])),
dbesc ( $ret [ 'network' ])
);
if ( ! DBM :: is_result ( $r )) {
$r = q ( " SELECT * FROM `contact` WHERE `uid` = %d AND `nurl` = '%s' AND `network` = '%s' LIMIT 1 " ,
2018-01-11 09:37:11 +01:00
intval ( $uid ),
dbesc ( normalise_link ( $url )),
dbesc ( $ret [ 'network' ])
2018-01-09 15:40:45 +01:00
);
}
if ( DBM :: is_result ( $r )) {
// update contact
$new_relation = (( $r [ 0 ][ 'rel' ] == CONTACT_IS_FOLLOWER ) ? CONTACT_IS_FRIEND : CONTACT_IS_SHARING );
2018-01-15 14:05:12 +01:00
$fields = [ 'rel' => $new_relation , 'subhub' => $subhub , 'readonly' => false ];
dba :: update ( 'contact' , $fields , [ 'id' => $r [ 0 ][ 'id' ]]);
2018-01-09 15:40:45 +01:00
} else {
2018-01-15 14:05:12 +01:00
$new_relation = (( in_array ( $ret [ 'network' ], [ NETWORK_MAIL ])) ? CONTACT_IS_FRIEND : CONTACT_IS_SHARING );
2018-01-09 15:40:45 +01:00
// create contact record
2018-01-11 09:37:11 +01:00
dba :: insert ( 'contact' , [
'uid' => $uid ,
'created' => datetime_convert (),
'url' => $ret [ 'url' ],
'nurl' => normalise_link ( $ret [ 'url' ]),
'addr' => $ret [ 'addr' ],
'alias' => $ret [ 'alias' ],
'batch' => $ret [ 'batch' ],
'notify' => $ret [ 'notify' ],
'poll' => $ret [ 'poll' ],
'poco' => $ret [ 'poco' ],
'name' => $ret [ 'name' ],
'nick' => $ret [ 'nick' ],
'network' => $ret [ 'network' ],
'pubkey' => $ret [ 'pubkey' ],
'rel' => $new_relation ,
'priority' => $ret [ 'priority' ],
'writable' => $writeable ,
'hidden' => $hidden ,
'blocked' => 0 ,
'readonly' => 0 ,
'pending' => 0 ,
'subhub' => $subhub
]);
2018-01-09 15:40:45 +01:00
}
2018-01-11 02:13:51 +01:00
$contact = dba :: selectFirst ( 'contact' , [], [ 'url' => $ret [ 'url' ], 'network' => $ret [ 'network' ], 'uid' => $uid ]);
if ( ! DBM :: is_result ( $contact )) {
2018-01-22 15:54:13 +01:00
$result [ 'message' ] .= L10n :: t ( 'Unable to retrieve contact information.' ) . EOL ;
2018-01-09 15:40:45 +01:00
return $result ;
}
2018-01-11 02:13:51 +01:00
$contact_id = $contact [ 'id' ];
2018-01-09 15:40:45 +01:00
$result [ 'cid' ] = $contact_id ;
Group :: addMember ( User :: getDefaultGroup ( $uid , $contact [ " network " ]), $contact_id );
// Update the avatar
2018-01-09 16:02:53 +01:00
self :: updateAvatar ( $ret [ 'photo' ], $uid , $contact_id );
2018-01-09 15:40:45 +01:00
// pull feed and consume it, which should subscribe to the hub.
Worker :: add ( PRIORITY_HIGH , " OnePoll " , $contact_id , " force " );
$r = q ( " SELECT `contact`.*, `user`.* FROM `contact` INNER JOIN `user` ON `contact`.`uid` = `user`.`uid`
2018-01-11 09:37:11 +01:00
WHERE `user` . `uid` = % d AND `contact` . `self` LIMIT 1 " ,
intval ( $uid )
2018-01-09 15:40:45 +01:00
);
if ( DBM :: is_result ( $r )) {
if (( $contact [ 'network' ] == NETWORK_OSTATUS ) && ( strlen ( $contact [ 'notify' ]))) {
// create a follow slap
2018-01-15 14:05:12 +01:00
$item = [];
2018-01-09 15:40:45 +01:00
$item [ 'verb' ] = ACTIVITY_FOLLOW ;
$item [ 'follow' ] = $contact [ " url " ];
$slap = OStatus :: salmon ( $item , $r [ 0 ]);
Salmon :: slapper ( $r [ 0 ], $contact [ 'notify' ], $slap );
}
if ( $contact [ 'network' ] == NETWORK_DIASPORA ) {
$ret = Diaspora :: sendShare ( $a -> user , $contact );
logger ( 'share returns: ' . $ret );
}
}
$result [ 'success' ] = true ;
return $result ;
}
2017-11-19 22:55:28 +01:00
}