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 ;
$a = get_app ();
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 ]);
2012-03-22 04:46:52 -04:00
// save username (actually the nickname as it is guaranteed
// 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
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 ));
proc_run ( 'php' , " include/notifier.php " , " removeme " , $uid );
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' ]);
2011-02-03 06:58:47 -05:00
goaway ( $a -> 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 )
);
if (( ! count ( $r )) || ( ! intval ( $r [ 0 ][ 'uid' ])))
return ;
$archive = get_pconfig ( $r [ 0 ][ 'uid' ], 'system' , 'archive_removed_contacts' );
if ( $archive ) {
q ( " update contact set `archive` = 1, `network` = 'none', `writable` = 0 where id = %d limit 1 " ,
intval ( $id )
);
return ;
}
2010-09-08 23:14:17 -04:00
q ( " DELETE FROM `contact` WHERE `id` = %d LIMIT 1 " ,
intval ( $id )
);
q ( " DELETE FROM `item` WHERE `contact-id` = %d " ,
intval ( $id )
);
q ( " DELETE FROM `photo` WHERE `contact-id` = %d " ,
intval ( $id )
);
2010-12-05 22:42:28 -05:00
q ( " DELETE FROM `mail` WHERE `contact-id` = %d " ,
intval ( $id )
);
2011-03-18 00:15:27 -04:00
q ( " DELETE FROM `event` WHERE `cid` = %d " ,
intval ( $id )
);
2011-10-13 18:39:05 -04:00
q ( " DELETE FROM `queue` WHERE `cid` = %d " ,
intval ( $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 ) {
$a = get_app ();
require_once ( 'include/datetime.php' );
if ( $contact [ 'network' ] === NETWORK_OSTATUS ) {
$slap = replace_macros ( get_markup_template ( 'follow_slap.tpl' ), array (
'$name' => $user [ 'username' ],
'$profile_page' => $a -> get_baseurl () . '/profile/' . $user [ 'nickname' ],
'$photo' => $self [ 'photo' ],
'$thumb' => $self [ 'thumb' ],
'$published' => datetime_convert ( 'UTC' , 'UTC' , 'now' , ATOM_TIME ),
'$item_id' => 'urn:X-dfrn:' . $a -> get_hostname () . ':unfollow:' . random_string (),
'$title' => '' ,
'$type' => 'text' ,
'$content' => t ( 'stopped following' ),
'$nick' => $user [ 'nickname' ],
'$verb' => 'http://ostatus.org/schema/1.0/unfollow' , // ACTIVITY_UNFOLLOW,
'$ostat_follow' => '' // '<as:verb>http://ostatus.org/schema/1.0/unfollow</as:verb>' . "\r\n"
));
if (( x ( $contact , 'notify' )) && ( strlen ( $contact [ 'notify' ]))) {
require_once ( 'include/salmon.php' );
slapper ( $user , $contact [ 'notify' ], $slap );
}
}
elseif ( $contact [ 'network' ] === NETWORK_DIASPORA ) {
require_once ( 'include/diaspora.php' );
diaspora_unshare ( $user , $contact );
}
elseif ( $contact [ 'network' ] === NETWORK_DFRN ) {
require_once ( 'include/items.php' );
dfrn_deliver ( $user , $contact , 'placeholder' , 1 );
}
}
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.
if ( ! function_exists ( 'mark_for_death' )) {
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' ) {
q ( " UPDATE `contact` SET `term-date` = '%s' WHERE `id` = %d LIMIT 1 " ,
dbesc ( datetime_convert ()),
intval ( $contact [ 'id' ])
);
}
else {
2012-06-13 22:59:20 -04:00
// 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
2010-09-08 23:14:17 -04:00
$expiry = $contact [ 'term-date' ] . ' + 32 days ' ;
if ( datetime_convert () > datetime_convert ( 'UTC' , 'UTC' , $expiry )) {
// 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
q ( " update contact set `archive` = 1 where id = %d limit 1 " ,
intval ( $contact [ 'id' ])
);
2012-11-02 18:54:03 -04:00
q ( " UPDATE `item` SET `private` = 2 WHERE `contact-id` = %d AND `uid` = %d " , intval ( $contact [ 'id' ]), intval ( $contact [ 'uid' ]));
2010-09-08 23:14:17 -04:00
2012-06-13 22:59:20 -04:00
//contact_remove($contact['id']);
2010-09-08 23:14:17 -04:00
}
}
}}
if ( ! function_exists ( 'unmark_for_death' )) {
function unmark_for_death ( $contact ) {
// It's a miracle. Our dead contact has inexplicably come back to life.
2010-09-17 19:50:30 -04:00
q ( " UPDATE `contact` SET `term-date` = '%s' WHERE `id` = %d LIMIT 1 " ,
2010-09-08 23:14:17 -04:00
dbesc ( '0000-00-00 00:00:00' ),
intval ( $contact [ 'id' ])
);
}}
2011-08-25 01:40:26 -04:00
if ( ! function_exists ( 'contact_photo_menu' )){
function contact_photo_menu ( $contact ) {
$a = get_app ();
$contact_url = " " ;
$pm_url = " " ;
$status_link = " " ;
$photos_link = " " ;
$posts_link = " " ;
2012-07-20 00:03:31 -04:00
$poke_link = " " ;
2011-08-25 01:40:26 -04:00
$sparkle = false ;
if ( $contact [ 'network' ] === NETWORK_DFRN ) {
$sparkle = true ;
$profile_link = $a -> get_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 " ;
$pm_url = $a -> get_baseurl () . '/message/new/' . $contact [ 'id' ];
}
2012-07-20 00:03:31 -04:00
$poke_link = $a -> get_baseurl () . '/poke/?f=&c=' . $contact [ 'id' ];
2011-08-25 02:20:04 -04:00
$contact_url = $a -> get_baseurl () . '/contacts/' . $contact [ 'id' ];
$posts_link = $a -> get_baseurl () . '/network/?cid=' . $contact [ 'id' ];
2011-08-25 01:40:26 -04:00
$menu = Array (
2013-01-26 14:52:21 -05:00
'poke' => array ( t ( " Poke " ), $poke_link ),
'status' => array ( t ( " View Status " ), $status_link ),
'profile' => array ( t ( " View Profile " ), $profile_link ),
'photos' => array ( t ( " View Photos " ), $photos_link ),
'network' => array ( t ( " Network Posts " ), $posts_link ),
'edit' => array ( t ( " Edit Contact " ), $contact_url ),
'pm' => array ( t ( " Send PM " ), $pm_url ),
2011-08-25 01:40:26 -04:00
);
2012-05-13 04:15:54 -04:00
$args = array ( 'contact' => $contact , 'menu' => & $menu );
2011-08-25 01:40:26 -04:00
call_hooks ( 'contact_photo_menu' , $args );
2013-01-26 14:52:21 -05:00
/* $o = " " ;
2011-08-25 01:40:26 -04:00
foreach ( $menu as $k => $v ){
2011-09-09 19:22:32 -04:00
if ( $v != " " ) {
2012-04-15 09:34:01 -04:00
if (( $k !== t ( " Network Posts " )) && ( $k !== t ( " Send PM " )) && ( $k !== t ( 'Edit Contact' )))
2011-09-09 19:22:32 -04:00
$o .= " <li><a target= \" redir \" href= \" $v\ " > $k </ a ></ li > \n " ;
else
$o .= " <li><a href= \" $v\ " > $k </ a ></ li > \n " ;
}
2011-08-25 01:40:26 -04:00
}
2013-01-26 14:52:21 -05:00
return $o ; */
foreach ( $menu as $k => $v ){
if ( $v [ 1 ] != " " ) {
if (( $v [ 0 ] !== t ( " Network Posts " )) && ( $v [ 0 ] !== t ( " Send PM " )) && ( $v [ 0 ] !== t ( 'Edit Contact' )))
$menu [ $k ][ 2 ] = 1 ;
else
$menu [ $k ][ 2 ] = 0 ;
}
}
return $menu ;
2011-08-25 01:40:26 -04:00
}}
2012-04-10 23:50:31 -04:00
function random_profile () {
$r = q ( " select url from gcontact where url like '%%://%%/profile/%%' order by rand() limit 1 " );
if ( count ( $r ))
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 ;
}