2010-09-09 03:14:17 +00:00
< ? php
2010-10-07 00:40:58 +00: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 11:58:47 +00:00
if ( ! $uid )
return ;
$a = get_app ();
logger ( 'Removing user: ' . $uid );
2012-01-19 00:21:30 +00:00
$r = q ( " select * from user where uid = %d limit 1 " , intval ( $uid ));
call_hooks ( 'remove_user' , $r [ 0 ]);
2015-02-01 12:32:05 +00:00
// save username (actually the nickname as it is guaranteed
2012-03-22 08:46:52 +00:00
// unique), so it cannot be re-registered in the future.
q ( " insert into userd ( username ) values ( '%s' ) " ,
$r [ 0 ][ 'nickname' ]
);
2012-01-19 00:21:30 +00:00
2012-11-02 20:43:47 +00: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 12:15:45 +00:00
q ( " DELETE FROM `gcign` WHERE `uid` = %d " , intval ( $uid ));
2010-10-07 00:40:58 +00: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 04:15:27 +00:00
q ( " DELETE FROM `event` WHERE `uid` = %d " , intval ( $uid ));
2010-10-07 00:40:58 +00:00
q ( " DELETE FROM `item` WHERE `uid` = %d " , intval ( $uid ));
2012-04-12 12:15:45 +00:00
q ( " DELETE FROM `item_id` WHERE `uid` = %d " , intval ( $uid ));
2010-10-07 00:40:58 +00:00
q ( " DELETE FROM `mail` WHERE `uid` = %d " , intval ( $uid ));
2012-04-12 12:15:45 +00: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-07 00:40:58 +00:00
q ( " DELETE FROM `photo` WHERE `uid` = %d " , intval ( $uid ));
2012-04-12 12:15:45 +00:00
q ( " DELETE FROM `attach` WHERE `uid` = %d " , intval ( $uid ));
2010-10-07 00:40:58 +00:00
q ( " DELETE FROM `profile` WHERE `uid` = %d " , intval ( $uid ));
q ( " DELETE FROM `profile_check` WHERE `uid` = %d " , intval ( $uid ));
2011-03-18 04:15:27 +00:00
q ( " DELETE FROM `pconfig` WHERE `uid` = %d " , intval ( $uid ));
2012-04-12 12:15:45 +00:00
q ( " DELETE FROM `search` WHERE `uid` = %d " , intval ( $uid ));
q ( " DELETE FROM `spam` WHERE `uid` = %d " , intval ( $uid ));
2012-11-02 20:43:47 +00: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 05:48:43 +00:00
proc_run ( PRIORITY_HIGH , " include/notifier.php " , " removeme " , $uid );
2015-03-30 20:22:11 +00:00
// Send an update to the directory
2016-08-01 05:48:43 +00:00
proc_run ( PRIORITY_LOW , " include/directory.php " , $r [ 0 ][ 'url' ]);
2015-03-30 20:22:11 +00:00
2010-10-18 21:34:59 +00:00
if ( $uid == local_user ()) {
2010-10-07 00:40:58 +00:00
unset ( $_SESSION [ 'authenticated' ]);
unset ( $_SESSION [ 'uid' ]);
2011-02-03 11:58:47 +00:00
goaway ( $a -> get_baseurl ());
2010-10-07 00:40:58 +00:00
}
}
2010-09-09 03:14:17 +00:00
function contact_remove ( $id ) {
2012-04-29 04:56:17 +00: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 ) {
2014-03-11 22:52:32 +00:00
q ( " update contact set `archive` = 1, `network` = 'none', `writable` = 0 where id = %d " ,
2012-04-29 04:56:17 +00:00
intval ( $id )
);
return ;
}
2014-03-11 22:52:32 +00:00
q ( " DELETE FROM `contact` WHERE `id` = %d " ,
2010-09-09 03:14:17 +00:00
intval ( $id )
);
q ( " DELETE FROM `item` WHERE `contact-id` = %d " ,
intval ( $id )
);
q ( " DELETE FROM `photo` WHERE `contact-id` = %d " ,
intval ( $id )
);
2010-12-06 03:42:28 +00:00
q ( " DELETE FROM `mail` WHERE `contact-id` = %d " ,
intval ( $id )
);
2011-03-18 04:15:27 +00:00
q ( " DELETE FROM `event` WHERE `cid` = %d " ,
intval ( $id )
);
2011-10-13 22:39:05 +00:00
q ( " DELETE FROM `queue` WHERE `cid` = %d " ,
intval ( $id )
);
2010-09-09 03:14:17 +00:00
}
2012-04-24 02:42:57 +00: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 ),
2015-08-14 05:48:28 +00:00
'$item_id' => 'urn:X-dfrn:' . $a -> get_hostname () . ':unfollow:' . get_guid ( 32 ),
2012-04-24 02:42:57 +00:00
'$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' );
2016-03-14 07:11:14 +00:00
diaspora :: send_unshare ( $user , $contact );
2012-04-24 02:42:57 +00:00
}
elseif ( $contact [ 'network' ] === NETWORK_DFRN ) {
2016-01-25 14:20:58 +00:00
require_once ( 'include/dfrn.php' );
dfrn :: deliver ( $user , $contact , 'placeholder' , 1 );
2012-04-24 02:42:57 +00:00
}
}
2010-09-09 03:14:17 +00: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 17:25:35 +00:00
2010-09-09 03:14:17 +00:00
if ( ! function_exists ( 'mark_for_death' )) {
function mark_for_death ( $contact ) {
2012-06-14 23:56:46 +00:00
if ( $contact [ 'archive' ])
return ;
2010-09-09 03:14:17 +00:00
if ( $contact [ 'term-date' ] == '0000-00-00 00:00:00' ) {
2014-03-11 22:52:32 +00:00
q ( " UPDATE `contact` SET `term-date` = '%s' WHERE `id` = %d " ,
2010-09-09 03:14:17 +00:00
dbesc ( datetime_convert ()),
intval ( $contact [ 'id' ])
);
}
else {
2012-06-14 02:59:20 +00:00
2015-12-25 22:17:34 +00: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
2012-06-14 02:59:20 +00:00
2010-09-09 03:14:17 +00:00
$expiry = $contact [ 'term-date' ] . ' + 32 days ' ;
if ( datetime_convert () > datetime_convert ( 'UTC' , 'UTC' , $expiry )) {
2015-11-07 17:25:35 +00:00
// relationship is really truly dead.
2012-06-14 02:59:20 +00:00
// archive them rather than delete
// though if the owner tries to unarchive them we'll start the whole process over again
2014-03-11 22:52:32 +00:00
q ( " update contact set `archive` = 1 where id = %d " ,
2012-06-14 02:59:20 +00:00
intval ( $contact [ 'id' ])
);
2012-11-02 22:54:03 +00:00
q ( " UPDATE `item` SET `private` = 2 WHERE `contact-id` = %d AND `uid` = %d " , intval ( $contact [ 'id' ]), intval ( $contact [ 'uid' ]));
2010-09-09 03:14:17 +00:00
2012-06-14 02:59:20 +00:00
//contact_remove($contact['id']);
2010-09-09 03:14:17 +00: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.
2014-03-11 22:52:32 +00:00
q ( " UPDATE `contact` SET `term-date` = '%s' WHERE `id` = %d " ,
2010-09-09 03:14:17 +00:00
dbesc ( '0000-00-00 00:00:00' ),
intval ( $contact [ 'id' ])
);
}}
2016-06-05 13:03:04 +00:00
/**
* @ brief Get contact data for a given profile link
*
* The function looks at several places ( contact table and gcontact table ) for the contact
*
* @ 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 11:57:11 +00:00
function get_contact_details_by_url ( $url , $uid = - 1 , $default = array ()) {
2015-10-30 00:30:42 +00:00
if ( $uid == - 1 )
$uid = local_user ();
2016-06-12 08:46:15 +00:00
// Fetch contact data from the contact table for the given user
2016-10-01 20:03:27 +00: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 08:46:15 +00:00
FROM `contact` WHERE `nurl` = '%s' AND `uid` = % d " ,
dbesc ( normalise_link ( $url )), intval ( $uid ));
2015-10-30 00:30:42 +00:00
2016-06-05 11:57:11 +00:00
// Fetch the data from the contact table with "uid=0" (which is filled automatically)
2016-06-08 20:50:57 +00:00
if ( ! $r )
2016-10-01 20:03:27 +00: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 11:57:11 +00:00
FROM `contact` WHERE `nurl` = '%s' AND `uid` = 0 " ,
dbesc ( normalise_link ( $url )));
2015-10-30 00:30:42 +00:00
2016-06-05 11:57:11 +00:00
// Fetch the data from the gcontact table
2016-06-08 20:50:57 +00:00
if ( ! $r )
2016-10-01 20:03:27 +00: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`,
`keywords` , `gender` , `photo` , `photo` AS `thumb` , `photo` AS `micro` , `community` AS `forum` , 0 AS `prv` , `community` , 0 AS `contact-type` , `birthday` , 0 AS `self`
2016-06-12 08:46:15 +00:00
FROM `gcontact` WHERE `nurl` = '%s' " ,
2016-06-05 11:57:11 +00:00
dbesc ( normalise_link ( $url )));
2016-06-05 13:09:40 +00:00
if ( $r ) {
2016-06-12 08:46:15 +00:00
// If there is more than one entry we filter out the connector networks
if ( count ( $r ) > 1 )
foreach ( $r AS $id => $result )
if ( $result [ " network " ] == NETWORK_STATUSNET )
unset ( $r [ $id ]);
$profile = array_shift ( $r );
2016-06-05 13:09:40 +00: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 ;
if ( $profile [ " bd " ] < $current )
$profile [ " bd " ] = ( ++ $current_year ) . " - " . $month . " - " . $day ;
} else
$profile [ " bd " ] = " 0000-00-00 " ;
2016-06-18 23:22:32 +00:00
} else
2016-06-05 11:57:11 +00:00
$profile = $default ;
2016-06-18 23:22:32 +00:00
if (( $profile [ " photo " ] == " " ) AND isset ( $default [ " photo " ]))
$profile [ " photo " ] = $default [ " photo " ];
if (( $profile [ " name " ] == " " ) AND isset ( $default [ " name " ]))
$profile [ " name " ] = $default [ " name " ];
if (( $profile [ " network " ] == " " ) AND isset ( $default [ " network " ]))
$profile [ " network " ] = $default [ " network " ];
2016-06-25 11:56:55 +00:00
if (( $profile [ " thumb " ] == " " ) AND isset ( $profile [ " photo " ]))
2016-06-18 23:22:32 +00:00
$profile [ " thumb " ] = $profile [ " photo " ];
2016-06-05 11:57:11 +00:00
2016-06-25 11:56:55 +00:00
if (( $profile [ " micro " ] == " " ) AND isset ( $profile [ " thumb " ]))
$profile [ " micro " ] = $profile [ " thumb " ];
2016-06-05 11:57:11 +00:00
if ((( $profile [ " addr " ] == " " ) OR ( $profile [ " name " ] == " " )) AND ( $profile [ " gid " ] != 0 ) AND
2016-06-05 13:03:04 +00:00
in_array ( $profile [ " network " ], array ( NETWORK_DFRN , NETWORK_DIASPORA , NETWORK_OSTATUS )))
2016-08-01 05:48:43 +00:00
proc_run ( PRIORITY_LOW , " include/update_gcontact.php " , $profile [ " gid " ]);
2015-10-30 00:30:42 +00:00
2016-06-05 11:57:11 +00:00
// Show contact details of Diaspora contacts only if connected
2015-10-30 00:30:42 +00:00
if (( $profile [ " cid " ] == 0 ) AND ( $profile [ " network " ] == NETWORK_DIASPORA )) {
$profile [ " location " ] = " " ;
$profile [ " about " ] = " " ;
2016-06-05 11:57:11 +00:00
$profile [ " gender " ] = " " ;
$profile [ " birthday " ] = " 0000-00-00 " ;
2015-10-30 00:30:42 +00:00
}
return ( $profile );
}
2011-08-25 05:40:26 +00:00
if ( ! function_exists ( 'contact_photo_menu' )){
2015-11-29 08:35:35 +00:00
function contact_photo_menu ( $contact , $uid = 0 ) {
2011-08-25 05:40:26 +00:00
$a = get_app ();
2015-02-01 12:32:05 +00:00
2011-08-25 05:40:26 +00:00
$contact_url = " " ;
$pm_url = " " ;
$status_link = " " ;
$photos_link = " " ;
$posts_link = " " ;
2013-11-05 21:06:23 +00:00
$contact_drop_link = " " ;
2012-07-20 04:03:31 +00:00
$poke_link = " " ;
2011-08-25 05:40:26 +00:00
2015-11-29 08:35:35 +00:00
if ( $uid == 0 )
$uid = local_user ();
if ( $contact [ " uid " ] != $uid ) {
if ( $uid == 0 ) {
$profile_link = zrl ( $contact [ 'url' ]);
$menu = Array ( 'profile' => array ( t ( " View Profile " ), $profile_link , true ));
return $menu ;
}
$r = q ( " SELECT * FROM `contact` WHERE `nurl` = '%s' AND `network` = '%s' AND `uid` = %d " ,
dbesc ( $contact [ " nurl " ]), dbesc ( $contact [ " network " ]), intval ( $uid ));
if ( $r )
return contact_photo_menu ( $r [ 0 ], $uid );
else {
$profile_link = zrl ( $contact [ 'url' ]);
$connlnk = 'follow/?url=' . $contact [ 'url' ];
$menu = Array (
'profile' => array ( t ( " View Profile " ), $profile_link , true ),
'follow' => array ( t ( " Connect/Follow " ), $connlnk , true )
);
return $menu ;
}
}
2011-08-25 05:40:26 +00: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 " ;
}
2015-10-04 22:14:39 +00:00
if ( in_array ( $contact [ " network " ], array ( NETWORK_DFRN , NETWORK_DIASPORA )))
$pm_url = $a -> get_baseurl () . '/message/new/' . $contact [ 'id' ];
if ( $contact [ " network " ] == NETWORK_DFRN )
$poke_link = $a -> get_baseurl () . '/poke/?f=&c=' . $contact [ 'id' ];
2011-08-25 06:20:04 +00:00
$contact_url = $a -> get_baseurl () . '/contacts/' . $contact [ 'id' ];
2015-11-29 22:22:05 +00:00
$posts_link = $a -> get_baseurl () . " /contacts/ " . $contact [ 'id' ] . '/posts' ;
2013-12-17 10:19:06 +00:00
$contact_drop_link = $a -> get_baseurl () . " /contacts/ " . $contact [ 'id' ] . '/drop?confirm=1' ;
2015-02-01 12:32:05 +00:00
2011-08-25 05:40:26 +00:00
2015-11-07 17:25:35 +00:00
/**
* menu array :
* " name " => [ " Label " , " link " , ( bool ) Should the link opened in a new tab ? ]
*/
2011-08-25 05:40:26 +00:00
$menu = Array (
2015-11-07 17:25:35 +00:00
'status' => array ( t ( " View Status " ), $status_link , true ),
'profile' => array ( t ( " View Profile " ), $profile_link , true ),
'photos' => array ( t ( " View Photos " ), $photos_link , true ),
'network' => array ( t ( " Network Posts " ), $posts_link , false ),
'edit' => array ( t ( " Edit Contact " ), $contact_url , false ),
'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 05:40:26 +00:00
);
2015-02-01 12:32:05 +00:00
2012-05-13 08:15:54 +00:00
$args = array ( 'contact' => $contact , 'menu' => & $menu );
2015-02-01 12:32:05 +00:00
2011-08-25 05:40:26 +00:00
call_hooks ( 'contact_photo_menu' , $args );
2015-02-01 12:32:05 +00:00
2015-10-04 22:14:39 +00:00
$menucondensed = array ();
2015-11-07 17:25:35 +00:00
foreach ( $menu AS $menuname => $menuitem )
2015-10-04 22:14:39 +00:00
if ( $menuitem [ 1 ] != " " )
2015-11-07 17:25:35 +00:00
$menucondensed [ $menuname ] = $menuitem ;
2015-10-04 22:14:39 +00:00
return $menucondensed ;
2011-08-25 05:40:26 +00:00
}}
2012-04-11 03:50:31 +00:00
function random_profile () {
2015-07-29 05:32:00 +00: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 ));
2012-04-11 03:50:31 +00:00
if ( count ( $r ))
return dirname ( $r [ 0 ][ 'url' ]);
return '' ;
2012-04-12 14:48:28 +00:00
}
2012-04-13 06:06:41 +00:00
function contacts_not_grouped ( $uid , $start = 0 , $count = 0 ) {
2012-04-13 06:14:41 +00:00
2012-04-13 06:06:41 +00: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 06:14:41 +00:00
2012-04-13 06:06:41 +00:00
return $r ;
}
2012-04-13 06:14:41 +00: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 06:06:41 +00:00
intval ( $uid ),
2012-04-12 14:48:28 +00:00
intval ( $uid ),
2012-04-13 06:06:41 +00:00
intval ( $start ),
intval ( $count )
2012-04-12 14:48:28 +00:00
);
2012-04-13 06:14:41 +00:00
2012-04-12 14:48:28 +00:00
return $r ;
}
2015-02-01 09:26:35 +00:00
function get_contact ( $url , $uid = 0 ) {
require_once ( " include/Scrape.php " );
$data = array ();
2015-02-01 12:32:05 +00:00
$contactid = 0 ;
2015-02-01 09:26:35 +00:00
// is it an address in the format user@server.tld?
2016-01-13 09:53:38 +00:00
/// @todo use gcontact and/or the addr field for a lookup
2015-02-01 09:26:35 +00:00
if ( ! strstr ( $url , " http " ) OR strstr ( $url , " @ " )) {
$data = probe_url ( $url );
$url = $data [ " url " ];
if ( $url == " " )
return 0 ;
}
2016-01-24 16:40:31 +00:00
$contact = q ( " SELECT `id`, `avatar-date` FROM `contact` WHERE `nurl` = '%s' AND `uid` = %d ORDER BY `id` LIMIT 2 " ,
2015-02-01 09:26:35 +00:00
dbesc ( normalise_link ( $url )),
intval ( $uid ));
2015-02-01 12:32:05 +00:00
if ( ! $contact )
2016-01-24 16:40:31 +00: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 15:32:58 +00:00
dbesc ( $url ),
2015-02-01 12:32:05 +00:00
dbesc ( normalise_link ( $url )),
intval ( $uid ));
if ( $contact ) {
$contactid = $contact [ 0 ][ " id " ];
2015-02-01 15:32:58 +00: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 12:32:05 +00:00
if ( ! $update_photo )
return ( $contactid );
2015-05-09 17:39:47 +00:00
} elseif ( $uid != 0 )
return 0 ;
2015-02-01 09:26:35 +00:00
if ( ! count ( $data ))
$data = probe_url ( $url );
// Does this address belongs to a valid network?
2016-06-18 23:07:20 +00: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 09:26:35 +00:00
2016-01-24 16:40:31 +00:00
$url = $data [ " url " ];
2015-02-01 09:26:35 +00:00
2015-02-01 12:32:05 +00:00
if ( $contactid == 0 ) {
q ( " INSERT INTO `contact` (`uid`, `created`, `url`, `nurl`, `addr`, `alias`, `notify`, `poll`,
`name` , `nick` , `photo` , `network` , `pubkey` , `rel` , `priority` ,
`batch` , `request` , `confirm` , `poco` ,
`writable` , `blocked` , `readonly` , `pending` )
VALUES ( % d , '%s' , '%s' , '%s' , '%s' , '%s' , '%s' , '%s' , '%s' , '%s' , '%s' , '%s' , '%s' , % d , % d , '%s' , '%s' , '%s' , '%s' , 1 , 0 , 0 , 0 ) " ,
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 " ]),
dbesc ( $data [ " poco " ])
);
2016-01-24 16:40:31 +00:00
$contact = q ( " SELECT `id` FROM `contact` WHERE `nurl` = '%s' AND `uid` = %d ORDER BY `id` LIMIT 2 " ,
2015-02-01 12:32:05 +00:00
dbesc ( normalise_link ( $data [ " url " ])),
intval ( $uid ));
if ( ! $contact )
return 0 ;
$contactid = $contact [ 0 ][ " id " ];
2016-06-18 23:07:20 +00: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 12:32:05 +00:00
}
2015-02-01 09:26:35 +00:00
2016-01-24 16:40:31 +00: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 09:26:35 +00:00
require_once ( " Photo.php " );
2016-01-28 10:09:08 +00:00
update_contact_avatar ( $data [ " photo " ], $uid , $contactid );
q ( " UPDATE `contact` SET `addr` = '%s', `alias` = '%s', `name` = '%s', `nick` = '%s',
`name-date` = '%s' , `uri-date` = '%s' WHERE `id` = % d " ,
2015-02-01 12:32:05 +00:00
dbesc ( $data [ " addr " ]),
dbesc ( $data [ " alias " ]),
dbesc ( $data [ " name " ]),
dbesc ( $data [ " nick " ]),
2015-02-01 09:26:35 +00:00
dbesc ( datetime_convert ()),
dbesc ( datetime_convert ()),
2015-02-01 12:32:05 +00:00
intval ( $contactid )
2015-02-01 09:26:35 +00:00
);
2015-02-01 12:32:05 +00:00
return $contactid ;
2015-02-01 09:26:35 +00:00
}
2016-01-10 08:19:00 +00: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
*/
function posts_from_gcontact ( $a , $gcontact_id ) {
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`
2016-01-10 18:06:34 +00:00
FROM `item` FORCE INDEX ( `gcontactid_uid_created` )
2016-01-10 08:19:00 +00: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 ;
}
/**
* @ brief Returns posts from a given contact
*
* @ param App $a argv application class
* @ param int $contact_id contact
*
* @ return string posts in HTML
*/
function posts_from_contact ( $a , $contact_id ) {
require_once ( 'include/conversation.php' );
$r = q ( " SELECT `url` FROM `contact` WHERE `id` = %d " , intval ( $contact_id ));
if ( ! $r )
return false ;
$contact = $r [ 0 ];
if ( get_config ( 'system' , 'old_pager' )) {
$r = q ( " SELECT COUNT(*) AS `total` FROM `item`
WHERE `item` . `uid` = % d AND `author-link` IN ( '%s' , '%s' ) " ,
intval ( local_user ()),
dbesc ( str_replace ( " https:// " , " http:// " , $contact [ " url " ])),
dbesc ( str_replace ( " http:// " , " https:// " , $contact [ " url " ])));
$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`
2016-07-19 06:43:57 +00:00
FROM `item` FORCE INDEX ( `uid_contactid_id` )
2016-01-10 08:19:00 +00:00
WHERE `item` . `uid` = % d AND `contact-id` = % d
AND `author-link` IN ( '%s' , '%s' )
AND NOT `deleted` AND NOT `moderated` AND `visible`
2016-07-19 06:43:57 +00:00
ORDER BY `item` . `id` DESC LIMIT % d , % d " ,
2016-01-10 08:19:00 +00:00
intval ( local_user ()),
intval ( $contact_id ),
dbesc ( str_replace ( " https:// " , " http:// " , $contact [ " url " ])),
dbesc ( str_replace ( " http:// " , " https:// " , $contact [ " url " ])),
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-01-24 13:30:57 +00: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 20:03:27 +00:00
/**
* @ brief Returns the account type name
*
* The function be called with either the profile or the contct array
*
* @ param array $contact contact or profile array
*/
function account_type ( $contact ) {
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 ;
if ( isset ( $contact [ " contact-type " ]))
$type = $contact [ " contact-type " ];
if ( isset ( $contact [ " account-type " ]))
$type = $contact [ " account-type " ];
if ( $type != 0 )
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 ;
}
return $account_type ;
}
2016-01-10 08:19:00 +00:00
?>