4 use Friendica\Core\Config;
5 use Friendica\Database\DBM;
6 use Friendica\Object\Contact;
7 use Friendica\Object\Photo;
9 require_once 'include/contact_selectors.php';
10 require_once 'mod/contacts.php';
12 function crepair_init(App $a) {
19 if(($a->argc == 2) && intval($a->argv[1])) {
20 $contact_id = intval($a->argv[1]);
21 $r = q("SELECT * FROM `contact` WHERE `uid` = %d and `id` = %d LIMIT 1",
25 if (! DBM::is_result($r)) {
30 if(! x($a->page,'aside'))
31 $a->page['aside'] = '';
34 $a->data['contact'] = $r[0];
36 profile_load($a, "", 0, Contact::getDetailsByURL($contact["url"]));
40 function crepair_post(App $a) {
45 $cid = (($a->argc > 1) ? intval($a->argv[1]) : 0);
48 $r = q("SELECT * FROM `contact` WHERE `id` = %d AND `uid` = %d LIMIT 1",
54 if (! DBM::is_result($r)) {
60 $name = ((x($_POST,'name')) ? $_POST['name'] : $contact['name']);
61 $nick = ((x($_POST,'nick')) ? $_POST['nick'] : '');
62 $url = ((x($_POST,'url')) ? $_POST['url'] : '');
63 $request = ((x($_POST,'request')) ? $_POST['request'] : '');
64 $confirm = ((x($_POST,'confirm')) ? $_POST['confirm'] : '');
65 $notify = ((x($_POST,'notify')) ? $_POST['notify'] : '');
66 $poll = ((x($_POST,'poll')) ? $_POST['poll'] : '');
67 $attag = ((x($_POST,'attag')) ? $_POST['attag'] : '');
68 $photo = ((x($_POST,'photo')) ? $_POST['photo'] : '');
69 $remote_self = ((x($_POST,'remote_self')) ? $_POST['remote_self'] : false);
70 $nurl = normalise_link($url);
72 $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
73 WHERE `id` = %d AND `uid` = %d",
84 intval($contact['id']),
89 logger('mod-crepair: updating photo from ' . $photo);
91 update_contact_avatar($photo,local_user(),$contact['id']);
95 info( t('Contact settings applied.') . EOL);
97 notice( t('Contact update failed.') . EOL);
105 function crepair_content(App $a) {
107 if (! local_user()) {
108 notice( t('Permission denied.') . EOL);
112 $cid = (($a->argc > 1) ? intval($a->argv[1]) : 0);
115 $r = q("SELECT * FROM `contact` WHERE `id` = %d AND `uid` = %d LIMIT 1",
121 if (! DBM::is_result($r)) {
122 notice( t('Contact not found.') . EOL);
128 $warning = t('<strong>WARNING: This is highly advanced</strong> and if you enter incorrect information your communications with this contact may stop working.');
129 $info = t('Please use your browser \'Back\' button <strong>now</strong> if you are uncertain what to do on this page.');
131 $returnaddr = "contacts/$cid";
133 $allow_remote_self = Config::get('system','allow_users_remote_self');
135 // Disable remote self for everything except feeds.
136 // There is an issue when you repeat an item from maybe twitter and you got comments from friendica and twitter
137 // Problem is, you couldn't reply to both networks.
138 if (!in_array($contact['network'], array(NETWORK_FEED, NETWORK_DFRN, NETWORK_DIASPORA)))
139 $allow_remote_self = false;
141 if ($contact['network'] == NETWORK_FEED)
142 $remote_self_options = array('0'=>t('No mirroring'), '1'=>t('Mirror as forwarded posting'), '2'=>t('Mirror as my own posting'));
144 $remote_self_options = array('0'=>t('No mirroring'), '2'=>t('Mirror as my own posting'));
146 $update_profile = in_array($contact['network'], array(NETWORK_DFRN, NETWORK_DSPR, NETWORK_OSTATUS));
148 $tab_str = contacts_tab($a, $contact['id'], 5);
151 $tpl = get_markup_template('crepair.tpl');
152 $o .= replace_macros($tpl, array(
153 //'$title' => t('Repair Contact Settings'),
154 '$tab_str' => $tab_str,
155 '$warning' => $warning,
157 '$returnaddr' => $returnaddr,
158 '$return' => t('Return to contact editor'),
159 '$update_profile' => update_profile,
160 '$udprofilenow' => t('Refetch contact data'),
161 '$contact_id' => $contact['id'],
162 '$lbl_submit' => t('Submit'),
164 '$label_remote_self' => t('Remote Self'),
165 '$allow_remote_self' => $allow_remote_self,
166 '$remote_self' => array('remote_self',
167 t('Mirror postings from this contact'),
168 $contact['remote_self'],
169 t('Mark this contact as remote_self, this will cause friendica to repost new entries from this contact.'),
173 '$name' => array('name', t('Name') , htmlentities($contact['name'])),
174 '$nick' => array('nick', t('Account Nickname'), htmlentities($contact['nick'])),
175 '$attag' => array('attag', t('@Tagname - overrides Name/Nickname'), $contact['attag']),
176 '$url' => array('url', t('Account URL'), $contact['url']),
177 '$request' => array('request', t('Friend Request URL'), $contact['request']),
178 'confirm' => array('confirm', t('Friend Confirm URL'), $contact['confirm']),
179 'notify' => array('notify', t('Notification Endpoint URL'), $contact['notify']),
180 'poll' => array('poll', t('Poll/Feed URL'), $contact['poll']),
181 'photo' => array('photo', t('New photo from this URL'), ''),