2011-04-14 03:14:30 +00:00
< ? php
2017-11-29 17:17:12 +00:00
/**
* @ file mod / crepair . php
*/
2018-07-20 02:15:21 +00:00
2017-04-30 04:07:00 +00:00
use Friendica\App ;
2017-11-07 02:22:52 +00:00
use Friendica\Core\Config ;
2018-01-21 18:33:59 +00:00
use Friendica\Core\L10n ;
2018-08-11 20:40:44 +00:00
use Friendica\Core\Protocol ;
2018-07-20 12:19:26 +00:00
use Friendica\Database\DBA ;
2017-12-07 14:04:24 +00:00
use Friendica\Model\Contact ;
2018-01-15 02:22:39 +00:00
use Friendica\Model\Profile ;
2017-04-30 04:07:00 +00:00
2017-11-19 22:06:18 +00:00
require_once 'mod/contacts.php' ;
2011-04-14 03:14:30 +00:00
2018-01-01 21:27:01 +00:00
function crepair_init ( App $a )
{
if ( ! local_user ()) {
2011-11-10 03:30:14 +00:00
return ;
2016-12-20 10:56:34 +00:00
}
2011-11-10 03:30:14 +00:00
2018-01-13 04:41:18 +00:00
$contact = null ;
2018-01-01 21:27:01 +00:00
if (( $a -> argc == 2 ) && intval ( $a -> argv [ 1 ])) {
2018-07-20 12:19:26 +00:00
$contact = DBA :: selectFirst ( 'contact' , [], [ 'uid' => local_user (), 'id' => $a -> argv [ 1 ]]);
2011-11-10 03:30:14 +00:00
}
2018-01-01 21:27:01 +00:00
if ( ! x ( $a -> page , 'aside' )) {
2011-11-10 03:30:14 +00:00
$a -> page [ 'aside' ] = '' ;
2018-01-01 21:27:01 +00:00
}
2011-11-10 03:30:14 +00:00
2018-07-21 12:46:04 +00:00
if ( DBA :: isResult ( $contact )) {
2018-01-13 04:41:18 +00:00
$a -> data [ 'contact' ] = $contact ;
2018-01-15 02:22:39 +00:00
Profile :: load ( $a , " " , 0 , Contact :: getDetailsByURL ( $contact [ " url " ]));
2014-01-05 15:10:02 +00:00
}
2011-11-10 03:30:14 +00:00
}
2018-01-01 21:27:01 +00:00
function crepair_post ( App $a )
{
if ( ! local_user ()) {
2011-04-14 03:14:30 +00:00
return ;
2016-12-20 10:56:34 +00:00
}
2011-04-14 03:14:30 +00:00
$cid = (( $a -> argc > 1 ) ? intval ( $a -> argv [ 1 ]) : 0 );
2018-01-13 04:41:18 +00:00
$contact = null ;
2018-01-01 21:27:01 +00:00
if ( $cid ) {
2018-07-20 12:19:26 +00:00
$contact = DBA :: selectFirst ( 'contact' , [], [ 'id' => $cid , 'uid' => local_user ()]);
2011-04-14 03:14:30 +00:00
}
2018-07-21 12:46:04 +00:00
if ( ! DBA :: isResult ( $contact )) {
2011-04-14 03:14:30 +00:00
return ;
2016-12-20 09:10:33 +00:00
}
2011-04-14 03:14:30 +00:00
2018-01-01 21:27:01 +00:00
$name = defaults ( $_POST , 'name' , $contact [ 'name' ]);
$nick = defaults ( $_POST , 'nick' , '' );
$url = defaults ( $_POST , 'url' , '' );
$request = defaults ( $_POST , 'request' , '' );
$confirm = defaults ( $_POST , 'confirm' , '' );
$notify = defaults ( $_POST , 'notify' , '' );
$poll = defaults ( $_POST , 'poll' , '' );
$attag = defaults ( $_POST , 'attag' , '' );
$photo = defaults ( $_POST , 'photo' , '' );
$remote_self = defaults ( $_POST , 'remote_self' , false );
$nurl = normalise_link ( $url );
2011-04-14 03:14:30 +00:00
2014-09-11 21:37:55 +00:00
$r = q ( " UPDATE `contact` SET `name` = '%s', `nick` = '%s', `url` = '%s', `nurl` = '%s', `request` = '%s', `confirm` = '%s', `notify` = '%s', `poll` = '%s', `attag` = '%s' , `remote_self` = %d
2014-03-11 22:52:32 +00:00
WHERE `id` = % d AND `uid` = % d " ,
2018-07-21 13:10:13 +00:00
DBA :: escape ( $name ),
DBA :: escape ( $nick ),
DBA :: escape ( $url ),
DBA :: escape ( $nurl ),
DBA :: escape ( $request ),
DBA :: escape ( $confirm ),
DBA :: escape ( $notify ),
DBA :: escape ( $poll ),
DBA :: escape ( $attag ),
2014-01-05 15:10:02 +00:00
intval ( $remote_self ),
2011-04-14 03:14:30 +00:00
intval ( $contact [ 'id' ]),
local_user ()
);
2017-11-29 17:17:12 +00:00
if ( $photo ) {
2011-10-06 03:01:42 +00:00
logger ( 'mod-crepair: updating photo from ' . $photo );
2017-11-29 22:29:11 +00:00
Contact :: updateAvatar ( $photo , local_user (), $contact [ 'id' ]);
2011-10-06 03:01:42 +00:00
}
2017-11-29 17:17:12 +00:00
if ( $r ) {
2018-01-21 18:33:59 +00:00
info ( L10n :: t ( 'Contact settings applied.' ) . EOL );
2017-11-29 17:17:12 +00:00
} else {
2018-01-21 18:33:59 +00:00
notice ( L10n :: t ( 'Contact update failed.' ) . EOL );
2017-11-29 17:17:12 +00:00
}
2011-10-06 03:01:42 +00:00
2011-04-14 03:14:30 +00:00
return ;
}
2018-01-01 21:27:01 +00:00
function crepair_content ( App $a )
{
if ( ! local_user ()) {
2018-01-21 18:33:59 +00:00
notice ( L10n :: t ( 'Permission denied.' ) . EOL );
2011-04-14 03:14:30 +00:00
return ;
}
$cid = (( $a -> argc > 1 ) ? intval ( $a -> argv [ 1 ]) : 0 );
2018-08-25 13:48:00 +00:00
$contact = null ;
2018-01-01 21:27:01 +00:00
if ( $cid ) {
2018-07-20 12:19:26 +00:00
$contact = DBA :: selectFirst ( 'contact' , [], [ 'id' => $cid , 'uid' => local_user ()]);
2011-04-14 03:14:30 +00:00
}
2018-07-21 12:46:04 +00:00
if ( ! DBA :: isResult ( $contact )) {
2018-01-21 18:33:59 +00:00
notice ( L10n :: t ( 'Contact not found.' ) . EOL );
2011-04-14 03:14:30 +00:00
return ;
}
2018-01-21 18:33:59 +00:00
$warning = L10n :: t ( '<strong>WARNING: This is highly advanced</strong> and if you enter incorrect information your communications with this contact may stop working.' );
$info = L10n :: t ( 'Please use your browser \'Back\' button <strong>now</strong> if you are uncertain what to do on this page.' );
2011-04-14 03:14:30 +00:00
2015-10-24 13:57:46 +00:00
$returnaddr = " contacts/ $cid " ;
2012-01-13 02:54:35 +00:00
2018-01-01 21:27:01 +00:00
$allow_remote_self = Config :: get ( 'system' , 'allow_users_remote_self' );
2014-09-06 15:22:59 +00:00
// Disable remote self for everything except feeds.
// There is an issue when you repeat an item from maybe twitter and you got comments from friendica and twitter
// Problem is, you couldn't reply to both networks.
2018-08-11 20:40:44 +00:00
if ( ! in_array ( $contact [ 'network' ], [ Protocol :: FEED , Protocol :: DFRN , Protocol :: DIASPORA , Protocol :: TWITTER ])) {
2014-09-06 15:22:59 +00:00
$allow_remote_self = false ;
2018-01-01 21:27:01 +00:00
}
2014-09-06 15:22:59 +00:00
2018-08-11 20:40:44 +00:00
if ( $contact [ 'network' ] == Protocol :: FEED ) {
2018-01-21 18:33:59 +00:00
$remote_self_options = [ '0' => L10n :: t ( 'No mirroring' ), '1' => L10n :: t ( 'Mirror as forwarded posting' ), '2' => L10n :: t ( 'Mirror as my own posting' )];
2018-01-01 21:27:01 +00:00
} else {
2018-01-21 18:33:59 +00:00
$remote_self_options = [ '0' => L10n :: t ( 'No mirroring' ), '2' => L10n :: t ( 'Mirror as my own posting' )];
2018-01-01 21:27:01 +00:00
}
2014-10-22 06:30:16 +00:00
2018-10-13 20:36:44 +00:00
$update_profile = in_array ( $contact [ 'network' ], [ Protocol :: ACTIVITYPUB , Protocol :: DFRN , Protocol :: DIASPORA , Protocol :: OSTATUS ]);
2015-04-11 21:51:47 +00:00
2018-08-25 13:48:00 +00:00
$tab_str = contacts_tab ( $a , $contact , 5 );
2015-11-29 22:22:05 +00:00
2011-05-11 11:37:13 +00:00
$tpl = get_markup_template ( 'crepair.tpl' );
2018-01-15 13:05:12 +00:00
$o = replace_macros ( $tpl , [
2018-01-01 21:27:01 +00:00
'$tab_str' => $tab_str ,
'$warning' => $warning ,
'$info' => $info ,
'$returnaddr' => $returnaddr ,
2018-01-21 18:33:59 +00:00
'$return' => L10n :: t ( 'Return to contact editor' ),
2018-01-01 21:27:01 +00:00
'$update_profile' => $update_profile ,
2018-01-21 18:33:59 +00:00
'$udprofilenow' => L10n :: t ( 'Refetch contact data' ),
2018-01-01 21:27:01 +00:00
'$contact_id' => $contact [ 'id' ],
2018-01-21 18:33:59 +00:00
'$lbl_submit' => L10n :: t ( 'Submit' ),
'$label_remote_self' => L10n :: t ( 'Remote Self' ),
2014-09-06 15:22:59 +00:00
'$allow_remote_self' => $allow_remote_self ,
2018-01-15 13:05:12 +00:00
'$remote_self' => [ 'remote_self' ,
2018-01-21 18:33:59 +00:00
L10n :: t ( 'Mirror postings from this contact' ),
2018-01-01 21:27:01 +00:00
$contact [ 'remote_self' ],
2018-01-21 18:33:59 +00:00
L10n :: t ( 'Mark this contact as remote_self, this will cause friendica to repost new entries from this contact.' ),
2018-01-01 21:27:01 +00:00
$remote_self_options
2018-01-15 13:05:12 +00:00
],
2018-01-21 18:33:59 +00:00
'$name' => [ 'name' , L10n :: t ( 'Name' ) , htmlentities ( $contact [ 'name' ])],
'$nick' => [ 'nick' , L10n :: t ( 'Account Nickname' ), htmlentities ( $contact [ 'nick' ])],
'$attag' => [ 'attag' , L10n :: t ( '@Tagname - overrides Name/Nickname' ), $contact [ 'attag' ]],
'$url' => [ 'url' , L10n :: t ( 'Account URL' ), $contact [ 'url' ]],
'$request' => [ 'request' , L10n :: t ( 'Friend Request URL' ), $contact [ 'request' ]],
'confirm' => [ 'confirm' , L10n :: t ( 'Friend Confirm URL' ), $contact [ 'confirm' ]],
'notify' => [ 'notify' , L10n :: t ( 'Notification Endpoint URL' ), $contact [ 'notify' ]],
'poll' => [ 'poll' , L10n :: t ( 'Poll/Feed URL' ), $contact [ 'poll' ]],
'photo' => [ 'photo' , L10n :: t ( 'New photo from this URL' ), '' ],
2018-01-15 13:05:12 +00:00
]);
2011-04-14 03:14:30 +00:00
return $o ;
2011-05-23 09:39:57 +00:00
}