bug #62 - opt-out of importing FB friends/conversations but still allow FB posting
This commit is contained in:
parent
bddcc41518
commit
c3478a1485
1 changed files with 48 additions and 2 deletions
|
@ -112,6 +112,11 @@ function fb_get_self($uid) {
|
||||||
function fb_get_friends($uid) {
|
function fb_get_friends($uid) {
|
||||||
|
|
||||||
$access_token = get_pconfig($uid,'facebook','access_token');
|
$access_token = get_pconfig($uid,'facebook','access_token');
|
||||||
|
|
||||||
|
$no_linking = get_pconfig($uid,'facebook','no_linking');
|
||||||
|
if($no_linking)
|
||||||
|
return;
|
||||||
|
|
||||||
if(! $access_token)
|
if(! $access_token)
|
||||||
return;
|
return;
|
||||||
$s = fetch_url('https://graph.facebook.com/me/friends?access_token=' . $access_token);
|
$s = fetch_url('https://graph.facebook.com/me/friends?access_token=' . $access_token);
|
||||||
|
@ -229,10 +234,40 @@ function fb_get_friends($uid) {
|
||||||
|
|
||||||
function facebook_post(&$a) {
|
function facebook_post(&$a) {
|
||||||
|
|
||||||
if(local_user()){
|
$uid = local_user();
|
||||||
|
if($uid){
|
||||||
|
|
||||||
$value = ((x($_POST,'post_by_default')) ? intval($_POST['post_by_default']) : 0);
|
$value = ((x($_POST,'post_by_default')) ? intval($_POST['post_by_default']) : 0);
|
||||||
set_pconfig(local_user(),'facebook','post_by_default', $value);
|
set_pconfig($uid,'facebook','post_by_default', $value);
|
||||||
|
|
||||||
|
$no_linking = get_pconfig($uid,'facebook','no_linking');
|
||||||
|
|
||||||
|
$linkvalue = ((x($_POST,'facebook_linking')) ? intval($_POST['facebook_linking']) : 0);
|
||||||
|
set_pconfig($uid,'facebook','no_linking', (($linkvalue) ? 0 : 1));
|
||||||
|
|
||||||
|
// FB linkage was allowed but has just been turned off - remove all FB contacts and posts
|
||||||
|
|
||||||
|
if((! intval($no_linking)) && (! intval($linkvalue))) {
|
||||||
|
$r = q("SELECT `id` FROM `contact` WHERE `uid` = %d AND `network` = '%s' ",
|
||||||
|
intval($uid),
|
||||||
|
dbesc(NETWORK_FACEBOOK)
|
||||||
|
);
|
||||||
|
if(count($r)) {
|
||||||
|
require_once('include/Contact.php');
|
||||||
|
foreach($r as $rr)
|
||||||
|
contact_remove($rr['id']);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
elseif(intval($no_linking) && intval($linkvalue)) {
|
||||||
|
// FB linkage is now allowed - import stuff.
|
||||||
|
fb_get_self($uid);
|
||||||
|
fb_get_friends($uid);
|
||||||
|
fb_consume_all($uid);
|
||||||
|
}
|
||||||
|
|
||||||
|
info( t('Settings updated.') . EOL);
|
||||||
}
|
}
|
||||||
|
|
||||||
return;
|
return;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
@ -286,6 +321,13 @@ function facebook_content(&$a) {
|
||||||
$post_by_default = get_pconfig(local_user(),'facebook','post_by_default');
|
$post_by_default = get_pconfig(local_user(),'facebook','post_by_default');
|
||||||
$checked = (($post_by_default) ? ' checked="checked" ' : '');
|
$checked = (($post_by_default) ? ' checked="checked" ' : '');
|
||||||
$o .= '<input type="checkbox" name="post_by_default" value="1"' . $checked . '/>' . ' ' . t('Post to Facebook by default') . '<br />';
|
$o .= '<input type="checkbox" name="post_by_default" value="1"' . $checked . '/>' . ' ' . t('Post to Facebook by default') . '<br />';
|
||||||
|
|
||||||
|
$no_linking = get_pconfig(local_user(),'facebook','no_linking');
|
||||||
|
$checked = (($no_linking) ? '' : ' checked="checked" ');
|
||||||
|
$o .= '<input type="checkbox" name="facebook_linking" value="1"' . $checked . '/>' . ' ' . t('Link all your Facebook friends and conversations') . '<br />';
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
$o .= '<input type="submit" name="submit" value="' . t('Submit') . '" /></form></div>';
|
$o .= '<input type="submit" name="submit" value="' . t('Submit') . '" /></form></div>';
|
||||||
}
|
}
|
||||||
|
|
||||||
|
@ -626,6 +668,10 @@ function fb_consume_all($uid) {
|
||||||
function fb_consume_stream($uid,$j,$wall = false) {
|
function fb_consume_stream($uid,$j,$wall = false) {
|
||||||
$a = get_app();
|
$a = get_app();
|
||||||
|
|
||||||
|
$no_linking = get_pconfig($uid,'facebook','no_linking');
|
||||||
|
if($no_linking)
|
||||||
|
return;
|
||||||
|
|
||||||
$self = q("SELECT * FROM `contact` WHERE `self` = 1 AND `uid` = %d LIMIT 1",
|
$self = q("SELECT * FROM `contact` WHERE `self` = 1 AND `uid` = %d LIMIT 1",
|
||||||
intval($uid)
|
intval($uid)
|
||||||
);
|
);
|
||||||
|
|
Loading…
Reference in a new issue