2010-09-08 23:14:17 -04:00
< ? php
2010-10-06 20:40:58 -04:00
// Included here for completeness, but this is a very dangerous operation.
// It is the caller's responsibility to confirm the requestor's intent and
// authorisation to do this.
function user_remove ( $uid ) {
2011-02-03 06:58:47 -05:00
if ( ! $uid )
return ;
logger ( 'Removing user: ' . $uid );
2012-01-18 19:21:30 -05:00
$r = q ( " select * from user where uid = %d limit 1 " , intval ( $uid ));
call_hooks ( 'remove_user' , $r [ 0 ]);
2015-02-01 07:32:05 -05:00
// save username (actually the nickname as it is guaranteed
2012-03-22 04:46:52 -04:00
// unique), so it cannot be re-registered in the future.
q ( " insert into userd ( username ) values ( '%s' ) " ,
$r [ 0 ][ 'nickname' ]
);
2012-01-18 19:21:30 -05:00
2016-11-28 16:44:04 -05:00
/// @todo Should be done in a background job since this likely will run into a time out
2012-11-02 16:43:47 -04:00
// don't delete yet, will be done later when contacts have deleted my stuff
// q("DELETE FROM `contact` WHERE `uid` = %d", intval($uid));
2012-04-12 08:15:45 -04:00
q ( " DELETE FROM `gcign` WHERE `uid` = %d " , intval ( $uid ));
2010-10-06 20:40:58 -04:00
q ( " DELETE FROM `group` WHERE `uid` = %d " , intval ( $uid ));
q ( " DELETE FROM `group_member` WHERE `uid` = %d " , intval ( $uid ));
q ( " DELETE FROM `intro` WHERE `uid` = %d " , intval ( $uid ));
2011-03-18 00:15:27 -04:00
q ( " DELETE FROM `event` WHERE `uid` = %d " , intval ( $uid ));
2010-10-06 20:40:58 -04:00
q ( " DELETE FROM `item` WHERE `uid` = %d " , intval ( $uid ));
2012-04-12 08:15:45 -04:00
q ( " DELETE FROM `item_id` WHERE `uid` = %d " , intval ( $uid ));
2010-10-06 20:40:58 -04:00
q ( " DELETE FROM `mail` WHERE `uid` = %d " , intval ( $uid ));
2012-04-12 08:15:45 -04:00
q ( " DELETE FROM `mailacct` WHERE `uid` = %d " , intval ( $uid ));
q ( " DELETE FROM `manage` WHERE `uid` = %d " , intval ( $uid ));
q ( " DELETE FROM `notify` WHERE `uid` = %d " , intval ( $uid ));
2010-10-06 20:40:58 -04:00
q ( " DELETE FROM `photo` WHERE `uid` = %d " , intval ( $uid ));
2012-04-12 08:15:45 -04:00
q ( " DELETE FROM `attach` WHERE `uid` = %d " , intval ( $uid ));
2010-10-06 20:40:58 -04:00
q ( " DELETE FROM `profile` WHERE `uid` = %d " , intval ( $uid ));
q ( " DELETE FROM `profile_check` WHERE `uid` = %d " , intval ( $uid ));
2011-03-18 00:15:27 -04:00
q ( " DELETE FROM `pconfig` WHERE `uid` = %d " , intval ( $uid ));
2012-04-12 08:15:45 -04:00
q ( " DELETE FROM `search` WHERE `uid` = %d " , intval ( $uid ));
q ( " DELETE FROM `spam` WHERE `uid` = %d " , intval ( $uid ));
2012-11-02 16:43:47 -04:00
// don't delete yet, will be done later when contacts have deleted my stuff
// q("DELETE FROM `user` WHERE `uid` = %d", intval($uid));
q ( " UPDATE `user` SET `account_removed` = 1, `account_expires_on` = UTC_TIMESTAMP() WHERE `uid` = %d " , intval ( $uid ));
2016-08-01 01:48:43 -04:00
proc_run ( PRIORITY_HIGH , " include/notifier.php " , " removeme " , $uid );
2015-03-30 16:22:11 -04:00
// Send an update to the directory
2016-08-01 01:48:43 -04:00
proc_run ( PRIORITY_LOW , " include/directory.php " , $r [ 0 ][ 'url' ]);
2015-03-30 16:22:11 -04:00
2010-10-18 17:34:59 -04:00
if ( $uid == local_user ()) {
2010-10-06 20:40:58 -04:00
unset ( $_SESSION [ 'authenticated' ]);
unset ( $_SESSION [ 'uid' ]);
2016-12-19 08:26:13 -05:00
goaway ( App :: get_baseurl ());
2010-10-06 20:40:58 -04:00
}
}
2010-09-08 23:14:17 -04:00
function contact_remove ( $id ) {
2012-04-29 00:56:17 -04:00
$r = q ( " select uid from contact where id = %d limit 1 " ,
intval ( $id )
);
2016-12-13 04:44:13 -05:00
if (( ! dbm :: is_result ( $r )) || ( ! intval ( $r [ 0 ][ 'uid' ])))
2012-04-29 00:56:17 -04:00
return ;
$archive = get_pconfig ( $r [ 0 ][ 'uid' ], 'system' , 'archive_removed_contacts' );
if ( $archive ) {
2014-03-11 18:52:32 -04:00
q ( " update contact set `archive` = 1, `network` = 'none', `writable` = 0 where id = %d " ,
2012-04-29 00:56:17 -04:00
intval ( $id )
);
return ;
}
2016-11-28 16:44:04 -05:00
q ( " DELETE FROM `contact` WHERE `id` = %d " , intval ( $id ));
2011-10-13 18:39:05 -04:00
2016-11-28 16:44:04 -05:00
// Delete the rest in the background
proc_run ( PRIORITY_LOW , 'include/remove_contact.php' , $id );
2010-09-08 23:14:17 -04:00
}
2012-04-23 22:42:57 -04:00
// sends an unfriend message. Does not remove the contact
function terminate_friendship ( $user , $self , $contact ) {
2016-12-19 08:26:13 -05:00
/// @TODO Get rid of this, include/datetime.php should care about it by itself
2012-04-23 22:42:57 -04:00
$a = get_app ();
require_once ( 'include/datetime.php' );
2016-12-22 09:30:23 -05:00
if ( $contact [ 'network' ] === NETWORK_OSTATUS ) {
2012-04-23 22:42:57 -04:00
2016-12-18 12:10:38 -05:00
require_once ( 'include/ostatus.php' );
// create an unfollow slap
$item = array ();
$item [ 'verb' ] = NAMESPACE_OSTATUS . " /unfollow " ;
$item [ 'follow' ] = $contact [ " url " ];
$slap = ostatus :: salmon ( $item , $user );
2012-04-23 22:42:57 -04:00
2016-12-22 09:30:23 -05:00
if (( x ( $contact , 'notify' )) && ( strlen ( $contact [ 'notify' ]))) {
2012-04-23 22:42:57 -04:00
require_once ( 'include/salmon.php' );
slapper ( $user , $contact [ 'notify' ], $slap );
}
2016-12-22 09:30:23 -05:00
} elseif ( $contact [ 'network' ] === NETWORK_DIASPORA ) {
2012-04-23 22:42:57 -04:00
require_once ( 'include/diaspora.php' );
2016-12-20 12:44:15 -05:00
Diaspora :: send_unshare ( $user , $contact );
2016-12-22 09:30:23 -05:00
} elseif ( $contact [ 'network' ] === NETWORK_DFRN ) {
2016-01-25 09:20:58 -05:00
require_once ( 'include/dfrn.php' );
dfrn :: deliver ( $user , $contact , 'placeholder' , 1 );
2012-04-23 22:42:57 -04:00
}
}
2010-09-08 23:14:17 -04:00
// 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.
2015-11-07 12:25:35 -05:00
2010-09-08 23:14:17 -04:00
function mark_for_death ( $contact ) {
2012-06-14 19:56:46 -04:00
if ( $contact [ 'archive' ])
return ;
2010-09-08 23:14:17 -04:00
if ( $contact [ 'term-date' ] == '0000-00-00 00:00:00' ) {
2014-03-11 18:52:32 -04:00
q ( " UPDATE `contact` SET `term-date` = '%s' WHERE `id` = %d " ,
2010-09-08 23:14:17 -04:00
dbesc ( datetime_convert ()),
intval ( $contact [ 'id' ])
);
2016-11-19 15:10:29 -05:00
if ( $contact [ 'url' ] != '' ) {
q ( " UPDATE `contact` SET `term-date` = '%s'
WHERE `nurl` = '%s' AND `term-date` <= '1000-00-00' " ,
dbesc ( datetime_convert ()),
dbesc ( normalise_link ( $contact [ 'url' ]))
);
}
} else {
2012-06-13 22:59:20 -04:00
2016-10-22 22:49:12 -04:00
/// @todo
2015-12-25 17:17:34 -05:00
/// 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
2012-06-13 22:59:20 -04:00
2016-11-19 15:10:29 -05:00
/// @todo
/// Check for contact vitality via probing
2010-09-08 23:14:17 -04:00
$expiry = $contact [ 'term-date' ] . ' + 32 days ' ;
if ( datetime_convert () > datetime_convert ( 'UTC' , 'UTC' , $expiry )) {
2015-11-07 12:25:35 -05:00
// relationship is really truly dead.
2012-06-13 22:59:20 -04:00
// archive them rather than delete
// though if the owner tries to unarchive them we'll start the whole process over again
2016-11-19 15:10:29 -05:00
q ( " UPDATE `contact` SET `archive` = 1 WHERE `id` = %d " ,
2012-06-13 22:59:20 -04:00
intval ( $contact [ 'id' ])
);
2010-09-08 23:14:17 -04:00
2016-11-19 15:10:29 -05:00
if ( $contact [ 'url' ] != '' ) {
q ( " UPDATE `contact` SET `archive` = 1 WHERE `nurl` = '%s' " ,
dbesc ( normalise_link ( $contact [ 'url' ]))
);
}
2010-09-08 23:14:17 -04:00
}
}
2016-11-19 15:10:29 -05:00
}
2010-09-08 23:14:17 -04:00
function unmark_for_death ( $contact ) {
2016-11-19 15:10:29 -05:00
$r = q ( " SELECT `term-date` FROM `contact` WHERE `id` = %d AND `term-date` > '%s' " ,
intval ( $contact [ 'id' ]),
dbesc ( '1000-00-00 00:00:00' )
);
// We don't need to update, we never marked this contact as dead
if ( ! dbm :: is_result ( $r )) {
return ;
}
2010-09-08 23:14:17 -04:00
// It's a miracle. Our dead contact has inexplicably come back to life.
2014-03-11 18:52:32 -04:00
q ( " UPDATE `contact` SET `term-date` = '%s' WHERE `id` = %d " ,
2010-09-08 23:14:17 -04:00
dbesc ( '0000-00-00 00:00:00' ),
intval ( $contact [ 'id' ])
);
2016-11-19 15:10:29 -05:00
if ( $contact [ 'url' ] != '' ) {
q ( " UPDATE `contact` SET `term-date` = '%s' WHERE `nurl` = '%s' " ,
dbesc ( '0000-00-00 00:00:00' ),
dbesc ( normalise_link ( $contact [ 'url' ]))
);
}
}
2010-09-08 23:14:17 -04:00
2016-06-05 09:03:04 -04:00
/**
* @ brief Get contact data for a given profile link
*
* The function looks at several places ( contact table and gcontact table ) for the contact
2016-11-06 00:51:23 -04:00
* It caches its result for the same script execution to prevent duplicate calls
2016-06-05 09:03:04 -04: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
*
* @ return array Contact data
*/
2016-06-05 07:57:11 -04:00
function get_contact_details_by_url ( $url , $uid = - 1 , $default = array ()) {
2016-11-06 00:51:23 -04:00
static $cache = array ();
if ( $uid == - 1 ) {
2015-10-29 20:30:42 -04:00
$uid = local_user ();
2016-11-06 00:51:23 -04:00
}
if ( isset ( $cache [ $url ][ $uid ])) {
return $cache [ $url ][ $uid ];
}
2015-10-29 20:30:42 -04:00
2016-06-12 04:46:15 -04:00
// Fetch contact data from the contact table for the given user
2016-10-01 16:03:27 -04:00
$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`
2016-06-12 04:46:15 -04:00
FROM `contact` WHERE `nurl` = '%s' AND `uid` = % d " ,
dbesc ( normalise_link ( $url )), intval ( $uid ));
2015-10-29 20:30:42 -04:00
2016-06-05 07:57:11 -04:00
// Fetch the data from the contact table with "uid=0" (which is filled automatically)
2016-12-19 08:42:20 -05:00
if ( ! dbm :: is_result ( $r ))
2016-10-01 16:03:27 -04: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`,
`keywords` , `gender` , `photo` , `thumb` , `micro` , `forum` , `prv` , ( `forum` | `prv` ) AS `community` , `contact-type` , `bd` AS `birthday` , 0 AS `self`
2016-06-05 07:57:11 -04:00
FROM `contact` WHERE `nurl` = '%s' AND `uid` = 0 " ,
dbesc ( normalise_link ( $url )));
2015-10-29 20:30:42 -04:00
2016-06-05 07:57:11 -04:00
// Fetch the data from the gcontact table
2016-12-19 08:42:20 -05:00
if ( ! dbm :: is_result ( $r ))
2016-10-01 16:03:27 -04: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`,
2016-10-03 23:58:47 -04:00
`keywords` , `gender` , `photo` , `photo` AS `thumb` , `photo` AS `micro` , `community` AS `forum` , 0 AS `prv` , `community` , `contact-type` , `birthday` , 0 AS `self`
2016-06-12 04:46:15 -04:00
FROM `gcontact` WHERE `nurl` = '%s' " ,
2016-06-05 07:57:11 -04:00
dbesc ( normalise_link ( $url )));
2016-12-13 04:44:13 -05:00
if ( dbm :: is_result ( $r )) {
2016-06-12 04:46:15 -04:00
// If there is more than one entry we filter out the connector networks
2016-11-06 00:51:23 -04:00
if ( count ( $r ) > 1 ) {
foreach ( $r AS $id => $result ) {
if ( $result [ " network " ] == NETWORK_STATUSNET ) {
2016-06-12 04:46:15 -04:00
unset ( $r [ $id ]);
2016-11-06 00:51:23 -04:00
}
}
}
2016-06-12 04:46:15 -04:00
$profile = array_shift ( $r );
2016-06-05 09:09:40 -04:00
// "bd" always contains the upcoming birthday of a contact.
// "birthday" might contain the birthday including the year of birth.
if ( $profile [ " birthday " ] != " 0000-00-00 " ) {
$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 ;
2016-11-06 00:51:23 -04:00
if ( $profile [ " bd " ] < $current ) {
2016-06-05 09:09:40 -04:00
$profile [ " bd " ] = ( ++ $current_year ) . " - " . $month . " - " . $day ;
2016-11-06 00:51:23 -04:00
}
} else {
2016-06-05 09:09:40 -04:00
$profile [ " bd " ] = " 0000-00-00 " ;
2016-11-06 00:51:23 -04:00
}
} else {
2016-06-05 07:57:11 -04:00
$profile = $default ;
2016-11-06 00:51:23 -04:00
}
2016-06-18 19:22:32 -04:00
2016-11-06 00:51:23 -04:00
if (( $profile [ " photo " ] == " " ) AND isset ( $default [ " photo " ])) {
2016-06-18 19:22:32 -04:00
$profile [ " photo " ] = $default [ " photo " ];
2016-11-06 00:51:23 -04:00
}
2016-06-18 19:22:32 -04:00
2016-11-06 00:51:23 -04:00
if (( $profile [ " name " ] == " " ) AND isset ( $default [ " name " ])) {
2016-06-18 19:22:32 -04:00
$profile [ " name " ] = $default [ " name " ];
2016-11-06 00:51:23 -04:00
}
2016-06-18 19:22:32 -04:00
2016-11-06 00:51:23 -04:00
if (( $profile [ " network " ] == " " ) AND isset ( $default [ " network " ])) {
2016-06-18 19:22:32 -04:00
$profile [ " network " ] = $default [ " network " ];
2016-11-06 00:51:23 -04:00
}
2016-06-18 19:22:32 -04:00
2016-11-06 00:51:23 -04:00
if (( $profile [ " thumb " ] == " " ) AND isset ( $profile [ " photo " ])) {
2016-06-18 19:22:32 -04:00
$profile [ " thumb " ] = $profile [ " photo " ];
2016-11-06 00:51:23 -04:00
}
2016-06-05 07:57:11 -04:00
2016-11-06 00:51:23 -04:00
if (( $profile [ " micro " ] == " " ) AND isset ( $profile [ " thumb " ])) {
2016-06-25 07:56:55 -04:00
$profile [ " micro " ] = $profile [ " thumb " ];
2016-11-06 00:51:23 -04:00
}
2016-06-25 07:56:55 -04:00
2016-06-05 07:57:11 -04:00
if ((( $profile [ " addr " ] == " " ) OR ( $profile [ " name " ] == " " )) AND ( $profile [ " gid " ] != 0 ) AND
2016-11-06 00:51:23 -04:00
in_array ( $profile [ " network " ], array ( NETWORK_DFRN , NETWORK_DIASPORA , NETWORK_OSTATUS ))) {
2016-08-01 01:48:43 -04:00
proc_run ( PRIORITY_LOW , " include/update_gcontact.php " , $profile [ " gid " ]);
2016-11-06 00:51:23 -04:00
}
2015-10-29 20:30:42 -04:00
2016-06-05 07:57:11 -04:00
// Show contact details of Diaspora contacts only if connected
2015-10-29 20:30:42 -04:00
if (( $profile [ " cid " ] == 0 ) AND ( $profile [ " network " ] == NETWORK_DIASPORA )) {
$profile [ " location " ] = " " ;
$profile [ " about " ] = " " ;
2016-06-05 07:57:11 -04:00
$profile [ " gender " ] = " " ;
$profile [ " birthday " ] = " 0000-00-00 " ;
2015-10-29 20:30:42 -04:00
}
2016-11-06 00:51:23 -04:00
$cache [ $url ][ $uid ] = $profile ;
2015-10-29 20:30:42 -04:00
2016-11-06 00:51:23 -04:00
return $profile ;
2015-10-29 20:30:42 -04:00
}
2011-08-25 01:40:26 -04:00
2016-10-22 22:49:12 -04:00
if ( ! function_exists ( 'contact_photo_menu' )) {
function contact_photo_menu ( $contact , $uid = 0 )
{
2011-08-25 01:40:26 -04:00
$a = get_app ();
2015-02-01 07:32:05 -05:00
2016-10-22 22:49:12 -04:00
$contact_url = '' ;
$pm_url = '' ;
$status_link = '' ;
$photos_link = '' ;
$posts_link = '' ;
$contact_drop_link = '' ;
$poke_link = '' ;
2011-08-25 01:40:26 -04:00
2016-10-22 22:49:12 -04:00
if ( $uid == 0 ) {
2015-11-29 03:35:35 -05:00
$uid = local_user ();
2016-10-22 22:49:12 -04:00
}
2015-11-29 03:35:35 -05:00
2016-10-22 22:49:12 -04:00
if ( $contact [ 'uid' ] != $uid ) {
2015-11-29 03:35:35 -05:00
if ( $uid == 0 ) {
$profile_link = zrl ( $contact [ 'url' ]);
2016-10-22 22:49:12 -04:00
$menu = Array ( 'profile' => array ( t ( 'View Profile' ), $profile_link , true ));
2015-11-29 03:35:35 -05:00
return $menu ;
}
$r = q ( " SELECT * FROM `contact` WHERE `nurl` = '%s' AND `network` = '%s' AND `uid` = %d " ,
2016-10-22 22:49:12 -04:00
dbesc ( $contact [ 'nurl' ]), dbesc ( $contact [ 'network' ]), intval ( $uid ));
if ( $r ) {
2015-11-29 03:35:35 -05:00
return contact_photo_menu ( $r [ 0 ], $uid );
2016-10-22 22:49:12 -04:00
} else {
2015-11-29 03:35:35 -05:00
$profile_link = zrl ( $contact [ 'url' ]);
$connlnk = 'follow/?url=' . $contact [ 'url' ];
2016-10-22 22:49:12 -04:00
$menu = array (
'profile' => array ( t ( 'View Profile' ), $profile_link , true ),
'follow' => array ( t ( 'Connect/Follow' ), $connlnk , true )
);
2015-11-29 03:35:35 -05:00
return $menu ;
}
}
2011-08-25 01:40:26 -04:00
$sparkle = false ;
2016-10-22 22:49:12 -04:00
if ( $contact [ 'network' ] === NETWORK_DFRN ) {
2011-08-25 01:40:26 -04:00
$sparkle = true ;
2016-12-19 08:26:13 -05:00
$profile_link = App :: get_baseurl () . '/redir/' . $contact [ 'id' ];
2016-10-22 22:49:12 -04:00
} else {
2011-08-25 01:40:26 -04:00
$profile_link = $contact [ 'url' ];
2016-10-22 22:49:12 -04:00
}
2011-08-25 01:40:26 -04:00
2016-10-22 22:49:12 -04:00
if ( $profile_link === 'mailbox' ) {
2011-08-25 01:40:26 -04:00
$profile_link = '' ;
2016-10-22 22:49:12 -04:00
}
2011-08-25 01:40:26 -04:00
2016-10-22 22:49:12 -04:00
if ( $sparkle ) {
$status_link = $profile_link . '?url=status' ;
$photos_link = $profile_link . '?url=photos' ;
$profile_link = $profile_link . '?url=profile' ;
2011-08-25 01:40:26 -04:00
}
2016-10-22 22:49:12 -04:00
if ( in_array ( $contact [ 'network' ], array ( NETWORK_DFRN , NETWORK_DIASPORA ))) {
2016-12-19 08:26:13 -05:00
$pm_url = App :: get_baseurl () . '/message/new/' . $contact [ 'id' ];
2016-10-22 22:49:12 -04:00
}
2015-10-04 18:14:39 -04:00
2016-10-22 22:49:12 -04:00
if ( $contact [ 'network' ] == NETWORK_DFRN ) {
2016-12-19 08:26:13 -05:00
$poke_link = App :: get_baseurl () . '/poke/?f=&c=' . $contact [ 'id' ];
2016-10-22 22:49:12 -04:00
}
2015-10-04 18:14:39 -04:00
2016-12-19 08:26:13 -05:00
$contact_url = App :: get_baseurl () . '/contacts/' . $contact [ 'id' ];
2015-02-01 07:32:05 -05:00
2016-12-19 08:26:13 -05:00
$posts_link = App :: get_baseurl () . '/contacts/' . $contact [ 'id' ] . '/posts' ;
$contact_drop_link = App :: get_baseurl () . '/contacts/' . $contact [ 'id' ] . '/drop?confirm=1' ;
2011-08-25 01:40:26 -04:00
2015-11-07 12:25:35 -05:00
/**
* menu array :
* " name " => [ " Label " , " link " , ( bool ) Should the link opened in a new tab ? ]
*/
2016-10-22 22:49:12 -04:00
$menu = array (
2015-11-07 12:25:35 -05:00
'status' => array ( t ( " View Status " ), $status_link , true ),
'profile' => array ( t ( " View Profile " ), $profile_link , true ),
2016-10-22 22:49:12 -04:00
'photos' => array ( t ( " View Photos " ), $photos_link , true ),
'network' => array ( t ( " Network Posts " ), $posts_link , false ),
'edit' => array ( t ( " View Contact " ), $contact_url , false ),
2015-11-07 12:25:35 -05:00
'drop' => array ( t ( " Drop Contact " ), $contact_drop_link , false ),
'pm' => array ( t ( " Send PM " ), $pm_url , false ),
'poke' => array ( t ( " Poke " ), $poke_link , false ),
2011-08-25 01:40:26 -04:00
);
2015-02-01 07:32:05 -05:00
2012-05-13 04:15:54 -04:00
$args = array ( 'contact' => $contact , 'menu' => & $menu );
2015-02-01 07:32:05 -05:00
2011-08-25 01:40:26 -04:00
call_hooks ( 'contact_photo_menu' , $args );
2015-02-01 07:32:05 -05:00
2015-10-04 18:14:39 -04:00
$menucondensed = array ();
2016-10-22 22:49:12 -04:00
foreach ( $menu AS $menuname => $menuitem ) {
if ( $menuitem [ 1 ] != '' ) {
2015-11-07 12:25:35 -05:00
$menucondensed [ $menuname ] = $menuitem ;
2016-10-22 22:49:12 -04:00
}
}
2015-10-04 18:14:39 -04:00
return $menucondensed ;
2011-08-25 01:40:26 -04:00
}}
2012-04-10 23:50:31 -04:00
function random_profile () {
2015-07-29 01:32:00 -04:00
$r = q ( " SELECT `url` FROM `gcontact` WHERE `network` = '%s'
AND `last_contact` >= `last_failure`
AND `updated` > UTC_TIMESTAMP - INTERVAL 1 MONTH
ORDER BY rand () LIMIT 1 " ,
dbesc ( NETWORK_DFRN ));
2016-12-14 03:42:36 -05:00
if ( dbm :: is_result ( $r ))
2012-04-10 23:50:31 -04:00
return dirname ( $r [ 0 ][ 'url' ]);
return '' ;
2012-04-12 10:48:28 -04:00
}
2012-04-13 02:06:41 -04:00
function contacts_not_grouped ( $uid , $start = 0 , $count = 0 ) {
2012-04-13 02:14:41 -04:00
2012-04-13 02:06:41 -04:00
if ( ! $count ) {
$r = q ( " select count(*) as total from contact where uid = %d and self = 0 and id not in (select distinct(`contact-id`) from group_member where uid = %d) " ,
intval ( $uid ),
intval ( $uid )
);
2012-04-13 02:14:41 -04:00
2012-04-13 02:06:41 -04:00
return $r ;
}
2012-04-13 02:14:41 -04:00
$r = q ( " select * from contact where uid = %d and self = 0 and id not in (select distinct(`contact-id`) from group_member where uid = %d) and blocked = 0 and pending = 0 limit %d, %d " ,
2012-04-13 02:06:41 -04:00
intval ( $uid ),
2012-04-12 10:48:28 -04:00
intval ( $uid ),
2012-04-13 02:06:41 -04:00
intval ( $start ),
intval ( $count )
2012-04-12 10:48:28 -04:00
);
2012-04-13 02:14:41 -04:00
2012-04-12 10:48:28 -04:00
return $r ;
}
2016-11-04 18:45:20 -04:00
/**
* @ brief Fetch the contact id for a given url and user
*
* @ param string $url Contact URL
* @ param integer $uid The user id for the contact
* @ param boolean $no_update Don ' t update the contact
*
* @ return integer Contact ID
*/
function get_contact ( $url , $uid = 0 , $no_update = false ) {
2015-02-01 04:26:35 -05:00
require_once ( " include/Scrape.php " );
2016-11-04 18:45:20 -04:00
logger ( " Get contact data for url " . $url . " and user " . $uid . " - " . App :: callstack (), LOGGER_DEBUG );;
2015-02-01 04:26:35 -05:00
$data = array ();
2015-02-01 07:32:05 -05:00
$contactid = 0 ;
2015-02-01 04:26:35 -05:00
// is it an address in the format user@server.tld?
2016-01-13 04:53:38 -05:00
/// @todo use gcontact and/or the addr field for a lookup
2015-02-01 04:26:35 -05:00
if ( ! strstr ( $url , " http " ) OR strstr ( $url , " @ " )) {
$data = probe_url ( $url );
$url = $data [ " url " ];
if ( $url == " " )
return 0 ;
}
2016-01-24 11:40:31 -05:00
$contact = q ( " SELECT `id`, `avatar-date` FROM `contact` WHERE `nurl` = '%s' AND `uid` = %d ORDER BY `id` LIMIT 2 " ,
2015-02-01 04:26:35 -05:00
dbesc ( normalise_link ( $url )),
intval ( $uid ));
2015-02-01 07:32:05 -05:00
if ( ! $contact )
2016-01-24 11:40:31 -05:00
$contact = q ( " SELECT `id`, `avatar-date` FROM `contact` WHERE `alias` IN ('%s', '%s') AND `uid` = %d ORDER BY `id` LIMIT 1 " ,
2015-02-01 10:32:58 -05:00
dbesc ( $url ),
2015-02-01 07:32:05 -05:00
dbesc ( normalise_link ( $url )),
intval ( $uid ));
if ( $contact ) {
$contactid = $contact [ 0 ][ " id " ];
2015-02-01 10:32:58 -05:00
// Update the contact every 7 days
$update_photo = ( $contact [ 0 ][ 'avatar-date' ] < datetime_convert ( '' , '' , 'now -7 days' ));
//$update_photo = ($contact[0]['avatar-date'] < datetime_convert('','','now -12 hours'));
2015-02-01 07:32:05 -05:00
2016-11-04 18:45:20 -04:00
if ( ! $update_photo OR $no_update ) {
2015-02-01 07:32:05 -05:00
return ( $contactid );
2016-11-04 18:45:20 -04:00
}
2015-05-09 13:39:47 -04:00
} elseif ( $uid != 0 )
return 0 ;
2015-02-01 04:26:35 -05:00
if ( ! count ( $data ))
$data = probe_url ( $url );
// Does this address belongs to a valid network?
2016-06-18 19:07:20 -04:00
if ( ! in_array ( $data [ " network " ], array ( NETWORK_DFRN , NETWORK_OSTATUS , NETWORK_DIASPORA ))) {
if ( $uid != 0 )
return 0 ;
// Get data from the gcontact table
$r = q ( " SELECT `name`, `nick`, `url`, `photo`, `addr`, `alias`, `network` FROM `gcontact` WHERE `nurl` = '%s' " ,
dbesc ( normalise_link ( $url )));
if ( ! $r )
return 0 ;
$data = $r [ 0 ];
}
2015-02-01 04:26:35 -05:00
2016-01-24 11:40:31 -05:00
$url = $data [ " url " ];
2015-02-01 04:26:35 -05:00
2015-02-01 07:32:05 -05:00
if ( $contactid == 0 ) {
q ( " INSERT INTO `contact` (`uid`, `created`, `url`, `nurl`, `addr`, `alias`, `notify`, `poll`,
`name` , `nick` , `photo` , `network` , `pubkey` , `rel` , `priority` ,
2016-10-17 14:38:51 -04:00
`batch` , `request` , `confirm` , `poco` , `name-date` , `uri-date` ,
2015-02-01 07:32:05 -05:00
`writable` , `blocked` , `readonly` , `pending` )
2016-10-17 14:38:51 -04:00
VALUES ( % d , '%s' , '%s' , '%s' , '%s' , '%s' , '%s' , '%s' , '%s' , '%s' , '%s' , '%s' , '%s' , % d , % d , '%s' , '%s' , '%s' , '%s' , '%s' , '%s' , 1 , 0 , 0 , 0 ) " ,
2015-02-01 07:32:05 -05:00
intval ( $uid ),
dbesc ( datetime_convert ()),
dbesc ( $data [ " url " ]),
dbesc ( normalise_link ( $data [ " url " ])),
dbesc ( $data [ " addr " ]),
dbesc ( $data [ " alias " ]),
dbesc ( $data [ " notify " ]),
dbesc ( $data [ " poll " ]),
dbesc ( $data [ " name " ]),
dbesc ( $data [ " nick " ]),
dbesc ( $data [ " photo " ]),
dbesc ( $data [ " network " ]),
dbesc ( $data [ " pubkey " ]),
intval ( CONTACT_IS_SHARING ),
intval ( $data [ " priority " ]),
dbesc ( $data [ " batch " ]),
dbesc ( $data [ " request " ]),
dbesc ( $data [ " confirm " ]),
2016-10-17 14:38:51 -04:00
dbesc ( $data [ " poco " ]),
dbesc ( datetime_convert ()),
dbesc ( datetime_convert ())
2015-02-01 07:32:05 -05:00
);
2016-01-24 11:40:31 -05:00
$contact = q ( " SELECT `id` FROM `contact` WHERE `nurl` = '%s' AND `uid` = %d ORDER BY `id` LIMIT 2 " ,
2015-02-01 07:32:05 -05:00
dbesc ( normalise_link ( $data [ " url " ])),
intval ( $uid ));
if ( ! $contact )
return 0 ;
$contactid = $contact [ 0 ][ " id " ];
2016-06-18 19:07:20 -04:00
// Update the newly created contact from data in the gcontact table
$r = q ( " SELECT `location`, `about`, `keywords`, `gender` FROM `gcontact` WHERE `nurl` = '%s' " ,
dbesc ( normalise_link ( $data [ " url " ])));
if ( $r ) {
logger ( " Update contact " . $data [ " url " ]);
q ( " UPDATE `contact` SET `location` = '%s', `about` = '%s', `keywords` = '%s', `gender` = '%s' WHERE `id` = %d " ,
dbesc ( $r [ " location " ]), dbesc ( $r [ " about " ]), dbesc ( $r [ " keywords " ]),
dbesc ( $r [ " gender " ]), intval ( $contactid ));
}
2015-02-01 07:32:05 -05:00
}
2015-02-01 04:26:35 -05:00
2016-01-24 11:40:31 -05:00
if (( count ( $contact ) > 1 ) AND ( $uid == 0 ) AND ( $contactid != 0 ) AND ( $url != " " ))
q ( " DELETE FROM `contact` WHERE `nurl` = '%s' AND `id` != %d " ,
dbesc ( normalise_link ( $url )),
intval ( $contactid ));
2015-02-01 04:26:35 -05:00
require_once ( " Photo.php " );
2016-01-28 05:09:08 -05:00
update_contact_avatar ( $data [ " photo " ], $uid , $contactid );
2016-10-17 14:38:51 -04:00
$r = q ( " SELECT `addr`, `alias`, `name`, `nick` FROM `contact` WHERE `id` = %d " , intval ( $contactid ));
// This condition should always be true
if ( ! dbm :: is_result ( $r ))
return $contactid ;
// Only update if there had something been changed
if (( $data [ " addr " ] != $r [ 0 ][ " addr " ]) OR
( $data [ " alias " ] != $r [ 0 ][ " alias " ]) OR
( $data [ " name " ] != $r [ 0 ][ " name " ]) OR
( $data [ " nick " ] != $r [ 0 ][ " nick " ]))
q ( " UPDATE `contact` SET `addr` = '%s', `alias` = '%s', `name` = '%s', `nick` = '%s',
`name-date` = '%s' , `uri-date` = '%s' WHERE `id` = % d " ,
dbesc ( $data [ " addr " ]),
dbesc ( $data [ " alias " ]),
dbesc ( $data [ " name " ]),
dbesc ( $data [ " nick " ]),
dbesc ( datetime_convert ()),
dbesc ( datetime_convert ()),
intval ( $contactid )
);
2015-02-01 04:26:35 -05:00
2015-02-01 07:32:05 -05:00
return $contactid ;
2015-02-01 04:26:35 -05:00
}
2016-01-10 03:19:00 -05:00
/**
* @ brief Returns posts from a given gcontact
*
* @ param App $a argv application class
* @ param int $gcontact_id Global contact
*
* @ return string posts in HTML
*/
2017-01-09 07:09:01 -05:00
function posts_from_gcontact ( App $a , $gcontact_id ) {
2016-01-10 03:19:00 -05:00
require_once ( 'include/conversation.php' );
// There are no posts with "uid = 0" with connector networks
// This speeds up the query a lot
$r = q ( " SELECT `network` FROM `gcontact` WHERE `id` = %d " , dbesc ( $gcontact_id ));
if ( in_array ( $r [ 0 ][ " network " ], array ( NETWORK_DFRN , NETWORK_DIASPORA , NETWORK_OSTATUS , " " )))
$sql = " (`item`.`uid` = 0 OR (`item`.`uid` = %d AND `item`.`private`)) " ;
else
$sql = " `item`.`uid` = %d " ;
if ( get_config ( 'system' , 'old_pager' )) {
$r = q ( " SELECT COUNT(*) AS `total` FROM `item`
WHERE `gcontact-id` = % d and $sql " ,
intval ( $gcontact_id ),
intval ( local_user ()));
$a -> set_pager_total ( $r [ 0 ][ 'total' ]);
}
$r = q ( " SELECT `item`.`uri`, `item`.*, `item`.`id` AS `item_id`,
`author-name` AS `name` , `owner-avatar` AS `photo` ,
`owner-link` AS `url` , `owner-avatar` AS `thumb`
2017-01-06 01:37:27 -05:00
FROM `item`
2016-01-10 03:19:00 -05:00
WHERE `gcontact-id` = % d AND $sql AND
NOT `deleted` AND NOT `moderated` AND `visible`
ORDER BY `item` . `created` DESC LIMIT % d , % d " ,
intval ( $gcontact_id ),
intval ( local_user ()),
intval ( $a -> pager [ 'start' ]),
intval ( $a -> pager [ 'itemspage' ])
);
$o = conversation ( $a , $r , 'community' , false );
if ( ! get_config ( 'system' , 'old_pager' )) {
$o .= alt_pager ( $a , count ( $r ));
} else {
$o .= paginate ( $a );
}
return $o ;
}
/**
2016-07-26 16:10:13 -04:00
* @ brief Returns posts from a given contact url
2016-01-10 03:19:00 -05:00
*
* @ param App $a argv application class
2016-12-11 12:37:12 -05:00
* @ param string $contact_url Contact URL
2016-01-10 03:19:00 -05:00
*
* @ return string posts in HTML
*/
2017-01-09 07:09:01 -05:00
function posts_from_contact_url ( App $a , $contact_url ) {
2016-01-10 03:19:00 -05:00
require_once ( 'include/conversation.php' );
2016-07-26 16:10:13 -04:00
// There are no posts with "uid = 0" with connector networks
// This speeds up the query a lot
$r = q ( " SELECT `network`, `id` AS `author-id` FROM `contact`
WHERE `contact` . `nurl` = '%s' AND `contact` . `uid` = 0 " ,
dbesc ( normalise_link ( $contact_url )));
2016-12-10 07:28:49 -05:00
if ( in_array ( $r [ 0 ][ " network " ], array ( NETWORK_DFRN , NETWORK_DIASPORA , NETWORK_OSTATUS , " " ))) {
$sql = " (`item`.`uid` = 0 OR (`item`.`uid` = %d AND `item`.`private`)) " ;
} else {
2016-07-26 16:10:13 -04:00
$sql = " `item`.`uid` = %d " ;
2016-12-10 07:28:49 -05:00
}
2016-01-10 03:19:00 -05:00
2016-07-26 16:10:13 -04:00
$author_id = intval ( $r [ 0 ][ " author-id " ]);
2016-01-10 03:19:00 -05:00
2016-07-26 16:10:13 -04:00
if ( get_config ( 'system' , 'old_pager' )) {
2016-01-10 03:19:00 -05:00
$r = q ( " SELECT COUNT(*) AS `total` FROM `item`
2016-07-26 16:10:13 -04:00
WHERE `author-id` = % d and $sql " ,
intval ( $author_id ),
intval ( local_user ()));
2016-01-10 03:19:00 -05:00
$a -> set_pager_total ( $r [ 0 ][ 'total' ]);
}
2016-07-26 16:10:13 -04:00
$r = q ( item_query () . " AND `item`.`author-id` = %d AND " . $sql .
" ORDER BY `item`.`created` DESC LIMIT %d, %d " ,
intval ( $author_id ),
2016-01-10 03:19:00 -05:00
intval ( local_user ()),
intval ( $a -> pager [ 'start' ]),
intval ( $a -> pager [ 'itemspage' ])
);
2016-07-26 16:10:13 -04:00
$o = conversation ( $a , $r , 'community' , false );
2016-01-10 03:19:00 -05:00
2016-12-10 07:28:49 -05:00
if ( ! get_config ( 'system' , 'old_pager' )) {
2016-01-10 03:19:00 -05:00
$o .= alt_pager ( $a , count ( $r ));
2016-07-26 16:10:13 -04:00
} else {
2016-01-10 03:19:00 -05:00
$o .= paginate ( $a );
2016-07-26 16:10:13 -04:00
}
2016-01-10 03:19:00 -05:00
return $o ;
}
2016-01-24 08:30:57 -05:00
/**
* @ brief Returns a formatted location string from the given profile array
*
* @ param array $profile Profile array ( Generated from the " profile " table )
*
* @ return string Location string
*/
function formatted_location ( $profile ) {
$location = '' ;
if ( $profile [ 'locality' ])
$location .= $profile [ 'locality' ];
if ( $profile [ 'region' ] AND ( $profile [ 'locality' ] != $profile [ 'region' ])) {
if ( $location )
$location .= ', ' ;
$location .= $profile [ 'region' ];
}
if ( $profile [ 'country-name' ]) {
if ( $location )
$location .= ', ' ;
$location .= $profile [ 'country-name' ];
}
return $location ;
}
2016-10-01 16:03:27 -04:00
/**
* @ brief Returns the account type name
*
2016-10-01 16:20:27 -04:00
* The function can be called with either the user or the contact array
2016-10-01 16:03:27 -04:00
*
2016-10-01 16:20:27 -04:00
* @ param array $contact contact or user array
2016-10-01 16:03:27 -04:00
*/
function account_type ( $contact ) {
2016-10-01 16:20:27 -04:00
// There are several fields that indicate that the contact or user is a forum
2016-10-02 02:40:08 -04:00
// "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.
2016-10-01 16:03:27 -04:00
if (( isset ( $contact [ 'page-flags' ]) && ( intval ( $contact [ 'page-flags' ]) == PAGE_COMMUNITY ))
|| ( 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 ;
2016-10-02 02:40:08 -04:00
// The "contact-type" (contact table) and "account-type" (user table) are more general then the chaos from above.
2016-10-01 16:03:27 -04:00
if ( isset ( $contact [ " contact-type " ]))
$type = $contact [ " contact-type " ];
if ( isset ( $contact [ " account-type " ]))
$type = $contact [ " account-type " ];
2016-10-01 16:20:27 -04:00
switch ( $type ) {
case ACCOUNT_TYPE_ORGANISATION :
$account_type = t ( " Organisation " );
break ;
case ACCOUNT_TYPE_NEWS :
$account_type = t ( 'News' );
break ;
case ACCOUNT_TYPE_COMMUNITY :
$account_type = t ( " Forum " );
break ;
default :
$account_type = " " ;
break ;
}
2016-10-01 16:03:27 -04:00
return $account_type ;
}
2016-01-10 03:19:00 -05:00
?>