]> git.mxchange.org Git - friendica.git/blob - mod/contacts.php
Merge pull request #3010 from Quix0r/rewrites/mixed-static-object-reference-calls
[friendica.git] / mod / contacts.php
1 <?php
2
3 require_once('include/Contact.php');
4 require_once('include/socgraph.php');
5 require_once('include/contact_selectors.php');
6 require_once('include/Scrape.php');
7 require_once('mod/proxy.php');
8 require_once('include/Photo.php');
9
10 function contacts_init(&$a) {
11         if(! local_user())
12                 return;
13
14         $contact_id = 0;
15
16         if((($a->argc == 2) && intval($a->argv[1])) OR (($a->argc == 3) && intval($a->argv[1]) && ($a->argv[2] == "posts"))) {
17                 $contact_id = intval($a->argv[1]);
18                 $r = q("SELECT * FROM `contact` WHERE `uid` = %d and `id` = %d LIMIT 1",
19                         intval(local_user()),
20                         intval($contact_id)
21                 );
22                 if(! dbm::is_result($r)) {
23                         $contact_id = 0;
24                 }
25         }
26
27         require_once('include/group.php');
28         require_once('include/contact_widgets.php');
29
30         if ($_GET['nets'] == "all")
31         $_GET['nets'] = "";
32
33         if(! x($a->page,'aside'))
34                 $a->page['aside'] = '';
35
36         if($contact_id) {
37                         $a->data['contact'] = $r[0];
38
39                         if (($a->data['contact']['network'] != "") AND ($a->data['contact']['network'] != NETWORK_DFRN)) {
40                                 $networkname = format_network_name($a->data['contact']['network'],$a->data['contact']['url']);
41                         } else
42                                 $networkname = '';
43
44                         $vcard_widget = replace_macros(get_markup_template("vcard-widget.tpl"),array(
45                                 '$name' => htmlentities($a->data['contact']['name']),
46                                 '$photo' => $a->data['contact']['photo'],
47                                 '$url' => ($a->data['contact']['network'] == NETWORK_DFRN) ? "redir/".$a->data['contact']['id'] : $a->data['contact']['url'],
48                                 '$addr' => (($a->data['contact']['addr'] != "") ? ($a->data['contact']['addr']) : ""),
49                                 '$network_name' => $networkname,
50                                 '$network' => t('Network:'),
51                                 '$account_type' => account_type($a->data['contact'])
52                         ));
53                         $finpeople_widget = '';
54                         $follow_widget = '';
55                         $networks_widget = '';
56         }
57         else {
58                 $vcard_widget = '';
59                 $networks_widget .= networks_widget('contacts',$_GET['nets']);
60                 if (isset($_GET['add']))
61                         $follow_widget = follow_widget($_GET['add']);
62                 else
63                         $follow_widget = follow_widget();
64
65                 $findpeople_widget .= findpeople_widget();
66         }
67
68         $groups_widget .= group_side('contacts','group','full',0,$contact_id);
69
70         $a->page['aside'] .= replace_macros(get_markup_template("contacts-widget-sidebar.tpl"),array(
71                 '$vcard_widget' => $vcard_widget,
72                 '$findpeople_widget' => $findpeople_widget,
73                 '$follow_widget' => $follow_widget,
74                 '$groups_widget' => $groups_widget,
75                 '$networks_widget' => $networks_widget
76         ));
77
78         $base = z_root();
79         $tpl = get_markup_template("contacts-head.tpl");
80         $a->page['htmlhead'] .= replace_macros($tpl,array(
81                 '$baseurl' => $a->get_baseurl(true),
82                 '$base' => $base
83         ));
84
85         $tpl = get_markup_template("contacts-end.tpl");
86         $a->page['end'] .= replace_macros($tpl,array(
87                 '$baseurl' => $a->get_baseurl(true),
88                 '$base' => $base
89         ));
90
91
92 }
93
94 function contacts_batch_actions(&$a){
95         $contacts_id = $_POST['contact_batch'];
96         if (!is_array($contacts_id)) return;
97
98         $orig_records = q("SELECT * FROM `contact` WHERE `id` IN (%s) AND `uid` = %d AND `self` = 0",
99                 implode(",", $contacts_id),
100                 intval(local_user())
101         );
102
103         $count_actions=0;
104         foreach($orig_records as $orig_record) {
105                 $contact_id = $orig_record['id'];
106                 if (x($_POST, 'contacts_batch_update')) {
107                         _contact_update($contact_id);
108                         $count_actions++;
109                 }
110                 if (x($_POST, 'contacts_batch_block')) {
111                         $r  = _contact_block($contact_id, $orig_record);
112                         if ($r) $count_actions++;
113                 }
114                 if (x($_POST, 'contacts_batch_ignore')) {
115                         $r = _contact_ignore($contact_id, $orig_record);
116                         if ($r) $count_actions++;
117                 }
118                 if (x($_POST, 'contacts_batch_archive')) {
119                         $r = _contact_archive($contact_id, $orig_record);
120                         if ($r) $count_actions++;
121                 }
122                 if (x($_POST, 'contacts_batch_drop')) {
123                         _contact_drop($contact_id, $orig_record);
124                         $count_actions++;
125                 }
126         }
127         if ($count_actions>0) {
128                 info ( sprintf( tt("%d contact edited.", "%d contacts edited.", $count_actions), $count_actions) );
129         }
130
131         if(x($_SESSION,'return_url'))
132                 goaway('' . $_SESSION['return_url']);
133         else
134                 goaway('contacts');
135
136 }
137
138
139 function contacts_post(&$a) {
140
141         if(! local_user())
142                 return;
143
144         if ($a->argv[1]==="batch") {
145                 contacts_batch_actions($a);
146                 return;
147         }
148
149         $contact_id = intval($a->argv[1]);
150         if(! $contact_id)
151                 return;
152
153         $orig_record = q("SELECT * FROM `contact` WHERE `id` = %d AND `uid` = %d LIMIT 1",
154                 intval($contact_id),
155                 intval(local_user())
156         );
157
158         if(! count($orig_record)) {
159                 notice( t('Could not access contact record.') . EOL);
160                 goaway('contacts');
161                 return; // NOTREACHED
162         }
163
164         call_hooks('contact_edit_post', $_POST);
165
166         $profile_id = intval($_POST['profile-assign']);
167         if($profile_id) {
168                 $r = q("SELECT `id` FROM `profile` WHERE `id` = %d AND `uid` = %d LIMIT 1",
169                         intval($profile_id),
170                         intval(local_user())
171                 );
172                 if(! dbm::is_result($r)) {
173                         notice( t('Could not locate selected profile.') . EOL);
174                         return;
175                 }
176         }
177
178         $hidden = intval($_POST['hidden']);
179
180         $notify = intval($_POST['notify']);
181
182         $fetch_further_information = intval($_POST['fetch_further_information']);
183
184         $ffi_keyword_blacklist = fix_mce_lf(escape_tags(trim($_POST['ffi_keyword_blacklist'])));
185
186         $priority = intval($_POST['poll']);
187         if($priority > 5 || $priority < 0)
188                 $priority = 0;
189
190         $info = fix_mce_lf(escape_tags(trim($_POST['info'])));
191
192         $r = q("UPDATE `contact` SET `profile-id` = %d, `priority` = %d , `info` = '%s',
193                 `hidden` = %d, `notify_new_posts` = %d, `fetch_further_information` = %d,
194                 `ffi_keyword_blacklist` = '%s' WHERE `id` = %d AND `uid` = %d",
195                 intval($profile_id),
196                 intval($priority),
197                 dbesc($info),
198                 intval($hidden),
199                 intval($notify),
200                 intval($fetch_further_information),
201                 dbesc($ffi_keyword_blacklist),
202                 intval($contact_id),
203                 intval(local_user())
204         );
205         if($r)
206                 info( t('Contact updated.') . EOL);
207         else
208                 notice( t('Failed to update contact record.') . EOL);
209
210         $r = q("select * from contact where id = %d and uid = %d limit 1",
211                 intval($contact_id),
212                 intval(local_user())
213         );
214         if($r && dbm::is_result($r))
215                 $a->data['contact'] = $r[0];
216
217         return;
218
219 }
220
221 /*contact actions*/
222 function _contact_update($contact_id) {
223         $r = q("SELECT `uid`, `url`, `network` FROM `contact` WHERE `id` = %d", intval($contact_id));
224         if (!$r)
225                 return;
226
227         $uid = $r[0]["uid"];
228
229         if ($uid != local_user())
230                 return;
231
232         if ($r[0]["network"] == NETWORK_OSTATUS) {
233                 $result = new_contact($uid, $r[0]["url"], false);
234
235                 if ($result['success'])
236                         $r = q("UPDATE `contact` SET `subhub` = 1 WHERE `id` = %d",
237                                 intval($contact_id));
238         } else
239                 // pull feed and consume it, which should subscribe to the hub.
240                 proc_run(PRIORITY_HIGH, "include/onepoll.php", $contact_id, "force");
241 }
242
243 function _contact_update_profile($contact_id) {
244         $r = q("SELECT `uid`, `url`, `network` FROM `contact` WHERE `id` = %d", intval($contact_id));
245         if (!$r)
246                 return;
247
248         $uid = $r[0]["uid"];
249
250         if ($uid != local_user())
251                 return;
252
253         $data = probe_url($r[0]["url"]);
254
255         // "Feed" or "Unknown" is mostly a sign of communication problems
256         if ((in_array($data["network"], array(NETWORK_FEED, NETWORK_PHANTOM))) AND ($data["network"] != $r[0]["network"]))
257                 return;
258
259         $updatefields = array("name", "nick", "url", "addr", "batch", "notify", "poll", "request", "confirm",
260                                 "poco", "network", "alias");
261         $update = array();
262
263         if ($data["network"] == NETWORK_OSTATUS) {
264                 $result = new_contact($uid, $data["url"], false);
265
266                 if ($result['success'])
267                         $update["subhub"] = true;
268         }
269
270         foreach($updatefields AS $field)
271                 if (isset($data[$field]) AND ($data[$field] != ""))
272                         $update[$field] = $data[$field];
273
274         $update["nurl"] = normalise_link($data["url"]);
275
276         $query = "";
277
278         if (isset($data["priority"]) AND ($data["priority"] != 0))
279                 $query = "`priority` = ".intval($data["priority"]);
280
281         foreach($update AS $key => $value) {
282                 if ($query != "")
283                         $query .= ", ";
284
285                 $query .= "`".$key."` = '".dbesc($value)."'";
286         }
287
288         if ($query == "")
289                 return;
290
291         $r = q("UPDATE `contact` SET $query WHERE `id` = %d AND `uid` = %d",
292                 intval($contact_id),
293                 intval(local_user())
294         );
295
296         // Update the entry in the contact table
297         update_contact_avatar($data['photo'], local_user(), $contact_id);
298
299         // Update the entry in the gcontact table
300         update_gcontact_from_probe($data["url"]);
301 }
302
303 function _contact_block($contact_id, $orig_record) {
304         $blocked = (($orig_record['blocked']) ? 0 : 1);
305         $r = q("UPDATE `contact` SET `blocked` = %d WHERE `id` = %d AND `uid` = %d",
306                 intval($blocked),
307                 intval($contact_id),
308                 intval(local_user())
309         );
310         return $r;
311
312 }
313 function _contact_ignore($contact_id, $orig_record) {
314         $readonly = (($orig_record['readonly']) ? 0 : 1);
315         $r = q("UPDATE `contact` SET `readonly` = %d WHERE `id` = %d AND `uid` = %d",
316                 intval($readonly),
317                 intval($contact_id),
318                 intval(local_user())
319         );
320         return $r;
321 }
322 function _contact_archive($contact_id, $orig_record) {
323         $archived = (($orig_record['archive']) ? 0 : 1);
324         $r = q("UPDATE `contact` SET `archive` = %d WHERE `id` = %d AND `uid` = %d",
325                 intval($archived),
326                 intval($contact_id),
327                 intval(local_user())
328         );
329         if ($archived) {
330                 q("UPDATE `item` SET `private` = 2 WHERE `contact-id` = %d AND `uid` = %d", intval($contact_id), intval(local_user()));
331         }
332         return $r;
333 }
334 function _contact_drop($contact_id, $orig_record) {
335         $a = get_app();
336
337         terminate_friendship($a->user,$a->contact,$orig_record);
338         contact_remove($orig_record['id']);
339 }
340
341
342 function contacts_content(&$a) {
343
344         $sort_type = 0;
345         $o = '';
346         nav_set_selected('contacts');
347
348
349         if(! local_user()) {
350                 notice( t('Permission denied.') . EOL);
351                 return;
352         }
353
354         if($a->argc == 3) {
355
356                 $contact_id = intval($a->argv[1]);
357                 if(! $contact_id)
358                         return;
359
360                 $cmd = $a->argv[2];
361
362                 $orig_record = q("SELECT * FROM `contact` WHERE `id` = %d AND `uid` = %d AND `self` = 0 LIMIT 1",
363                         intval($contact_id),
364                         intval(local_user())
365                 );
366
367                 if(! count($orig_record)) {
368                         notice( t('Could not access contact record.') . EOL);
369                         goaway('contacts');
370                         return; // NOTREACHED
371                 }
372
373                 if($cmd === 'update') {
374                         _contact_update($contact_id);
375                         goaway('contacts/' . $contact_id);
376                         // NOTREACHED
377                 }
378
379                 if($cmd === 'updateprofile') {
380                         _contact_update_profile($contact_id);
381                         goaway('crepair/' . $contact_id);
382                         // NOTREACHED
383                 }
384
385                 if($cmd === 'block') {
386                         $r = _contact_block($contact_id, $orig_record[0]);
387                         if($r) {
388                                 $blocked = (($orig_record[0]['blocked']) ? 0 : 1);
389                                 info((($blocked) ? t('Contact has been blocked') : t('Contact has been unblocked')).EOL);
390                         }
391
392                         goaway('contacts/' . $contact_id);
393                         return; // NOTREACHED
394                 }
395
396                 if($cmd === 'ignore') {
397                         $r = _contact_ignore($contact_id, $orig_record[0]);
398                         if($r) {
399                                 $readonly = (($orig_record[0]['readonly']) ? 0 : 1);
400                                 info((($readonly) ? t('Contact has been ignored') : t('Contact has been unignored')).EOL);
401                         }
402
403                         goaway('contacts/' . $contact_id);
404                         return; // NOTREACHED
405                 }
406
407
408                 if($cmd === 'archive') {
409                         $r = _contact_archive($contact_id, $orig_record[0]);
410                         if($r) {
411                                 $archived = (($orig_record[0]['archive']) ? 0 : 1);
412                                 info((($archived) ? t('Contact has been archived') : t('Contact has been unarchived')).EOL);
413                         }
414
415                         goaway('contacts/' . $contact_id);
416                         return; // NOTREACHED
417                 }
418
419                 if($cmd === 'drop') {
420
421                         // Check if we should do HTML-based delete confirmation
422                         if($_REQUEST['confirm']) {
423                                 // <form> can't take arguments in its "action" parameter
424                                 // so add any arguments as hidden inputs
425                                 $query = explode_querystring($a->query_string);
426                                 $inputs = array();
427                                 foreach($query['args'] as $arg) {
428                                         if(strpos($arg, 'confirm=') === false) {
429                                                 $arg_parts = explode('=', $arg);
430                                                 $inputs[] = array('name' => $arg_parts[0], 'value' => $arg_parts[1]);
431                                         }
432                                 }
433
434                                 $a->page['aside'] = '';
435
436                                 return replace_macros(get_markup_template('contact_drop_confirm.tpl'), array(
437                                         '$header' => t('Drop contact'),
438                                         '$contact' => _contact_detail_for_template($orig_record[0]),
439                                         '$method' => 'get',
440                                         '$message' => t('Do you really want to delete this contact?'),
441                                         '$extra_inputs' => $inputs,
442                                         '$confirm' => t('Yes'),
443                                         '$confirm_url' => $query['base'],
444                                         '$confirm_name' => 'confirmed',
445                                         '$cancel' => t('Cancel'),
446                                 ));
447                         }
448                         // Now check how the user responded to the confirmation query
449                         if($_REQUEST['canceled']) {
450                                 if(x($_SESSION,'return_url'))
451                                         goaway('' . $_SESSION['return_url']);
452                                 else
453                                         goaway('contacts');
454                         }
455
456                         _contact_drop($contact_id, $orig_record[0]);
457                         info( t('Contact has been removed.') . EOL );
458                         if(x($_SESSION,'return_url'))
459                                 goaway('' . $_SESSION['return_url']);
460                         else
461                                 goaway('contacts');
462                         return; // NOTREACHED
463                 }
464                 if($cmd === 'posts') {
465                         return contact_posts($a, $contact_id);
466                 }
467         }
468
469
470
471         $_SESSION['return_url'] = $a->query_string;
472
473         if((x($a->data,'contact')) && (is_array($a->data['contact']))) {
474
475                 $contact_id = $a->data['contact']['id'];
476                 $contact = $a->data['contact'];
477
478                 $editselect = 'none';
479                 if( feature_enabled(local_user(),'richtext') )
480                         $editselect = 'exact';
481
482                 $a->page['htmlhead'] .= replace_macros(get_markup_template('contact_head.tpl'), array(
483                         '$baseurl' => $a->get_baseurl(true),
484                         '$editselect' => $editselect,
485                 ));
486                 $a->page['end'] .= replace_macros(get_markup_template('contact_end.tpl'), array(
487                         '$baseurl' => $a->get_baseurl(true),
488                         '$editselect' => $editselect,
489                 ));
490
491                 require_once('include/contact_selectors.php');
492
493                 $tpl = get_markup_template("contact_edit.tpl");
494
495                 switch($contact['rel']) {
496                         case CONTACT_IS_FRIEND:
497                                 $dir_icon = 'images/lrarrow.gif';
498                                 $relation_text = t('You are mutual friends with %s');
499                                 break;
500                         case CONTACT_IS_FOLLOWER;
501                                 $dir_icon = 'images/larrow.gif';
502                                 $relation_text = t('You are sharing with %s');
503                                 break;
504
505                         case CONTACT_IS_SHARING;
506                                 $dir_icon = 'images/rarrow.gif';
507                                 $relation_text = t('%s is sharing with you');
508                                 break;
509                         default:
510                                 break;
511                 }
512
513                 if(!in_array($contact['network'], array(NETWORK_DFRN, NETWORK_OSTATUS, NETWORK_DIASPORA)))
514                                 $relation_text = "";
515
516                 $relation_text = sprintf($relation_text,htmlentities($contact['name']));
517
518                 if(($contact['network'] === NETWORK_DFRN) && ($contact['rel'])) {
519                         $url = "redir/{$contact['id']}";
520                         $sparkle = ' class="sparkle" ';
521                 }
522                 else {
523                         $url = $contact['url'];
524                         $sparkle = '';
525                 }
526
527                 $insecure = t('Private communications are not available for this contact.');
528
529                 $last_update = (($contact['last-update'] == '0000-00-00 00:00:00')
530                                 ? t('Never')
531                                 : datetime_convert('UTC',date_default_timezone_get(),$contact['last-update'],'D, j M Y, g:i A'));
532
533                 if($contact['last-update'] !== '0000-00-00 00:00:00')
534                         $last_update .= ' ' . (($contact['last-update'] <= $contact['success_update']) ? t("\x28Update was successful\x29") : t("\x28Update was not successful\x29"));
535
536                 $lblsuggest = (($contact['network'] === NETWORK_DFRN) ? t('Suggest friends') : '');
537
538                 $poll_enabled = in_array($contact['network'], array(NETWORK_DFRN, NETWORK_OSTATUS, NETWORK_FEED, NETWORK_MAIL, NETWORK_MAIL2));
539
540                 $nettype = sprintf( t('Network type: %s'),network_to_name($contact['network'], $contact["url"]));
541
542                 //$common = count_common_friends(local_user(),$contact['id']);
543                 //$common_text = (($common) ? sprintf( tt('%d contact in common','%d contacts in common', $common),$common) : '');
544
545                 $polling = (($contact['network'] === NETWORK_MAIL | $contact['network'] === NETWORK_FEED) ? 'polling' : '');
546
547                 //$x = count_all_friends(local_user(), $contact['id']);
548                 //$all_friends = (($x) ? t('View all contacts') : '');
549
550                 // tabs
551                 $tab_str = contacts_tab($a, $contact_id, 2);
552
553                 $lost_contact = (($contact['archive'] && $contact['term-date'] != '0000-00-00 00:00:00' && $contact['term-date'] < datetime_convert('','','now')) ? t('Communications lost with this contact!') : '');
554
555                 if ($contact['network'] == NETWORK_FEED)
556                         $fetch_further_information = array('fetch_further_information', t('Fetch further information for feeds'), $contact['fetch_further_information'], t('Fetch further information for feeds'),
557                                                                         array('0'=>t('Disabled'), '1'=>t('Fetch information'), '2'=>t('Fetch information and keywords')));
558
559                 if (in_array($contact['network'], array(NETWORK_FEED, NETWORK_MAIL, NETWORK_MAIL2)))
560                         $poll_interval = contact_poll_interval($contact['priority'],(! $poll_enabled));
561
562                 if ($contact['network'] == NETWORK_DFRN)
563                         $profile_select = contact_profile_assign($contact['profile-id'],(($contact['network'] !== NETWORK_DFRN) ? true : false));
564
565                 if (in_array($contact['network'], array(NETWORK_DIASPORA, NETWORK_OSTATUS)) AND
566                         ($contact['rel'] == CONTACT_IS_FOLLOWER))
567                         $follow = $a->get_baseurl(true)."/follow?url=".urlencode($contact["url"]);
568
569                 // Load contactact related actions like hide, suggest, delete and others
570                 $contact_actions = contact_actions($contact);
571
572
573                 $o .= replace_macros($tpl, array(
574                         //'$header' => t('Contact Editor'),
575                         '$header' => t("Contact"),
576                         '$tab_str' => $tab_str,
577                         '$submit' => t('Submit'),
578                         '$lbl_vis1' => t('Profile Visibility'),
579                         '$lbl_vis2' => sprintf( t('Please choose the profile you would like to display to %s when viewing your profile securely.'), $contact['name']),
580                         '$lbl_info1' => t('Contact Information / Notes'),
581                         '$infedit' => t('Edit contact notes'),
582                         '$common_text' => $common_text,
583                         '$common_link' => 'common/loc/' . local_user() . '/' . $contact['id'],
584                         '$all_friends' => $all_friends,
585                         '$relation_text' => $relation_text,
586                         '$visit' => sprintf( t('Visit %s\'s profile [%s]'),$contact['name'],$contact['url']),
587                         '$blockunblock' => t('Block/Unblock contact'),
588                         '$ignorecont' => t('Ignore contact'),
589                         '$lblcrepair' => t("Repair URL settings"),
590                         '$lblrecent' => t('View conversations'),
591                         '$lblsuggest' => $lblsuggest,
592                         //'$delete' => t('Delete contact'),
593                         '$nettype' => $nettype,
594                         '$poll_interval' => $poll_interval,
595                         '$poll_enabled' => $poll_enabled,
596                         '$lastupdtext' => t('Last update:'),
597                         '$lost_contact' => $lost_contact,
598                         '$updpub' => t('Update public posts'),
599                         '$last_update' => $last_update,
600                         '$udnow' => t('Update now'),
601                         '$follow' => $follow,
602                         '$follow_text' => t("Connect/Follow"),
603                         '$profile_select' => $profile_select,
604                         '$contact_id' => $contact['id'],
605                         '$block_text' => (($contact['blocked']) ? t('Unblock') : t('Block') ),
606                         '$ignore_text' => (($contact['readonly']) ? t('Unignore') : t('Ignore') ),
607                         '$insecure' => (($contact['network'] !== NETWORK_DFRN && $contact['network'] !== NETWORK_MAIL && $contact['network'] !== NETWORK_FACEBOOK && $contact['network'] !== NETWORK_DIASPORA) ? $insecure : ''),
608                         '$info' => $contact['info'],
609                         '$cinfo' => array('info', '', $contact['info'], ''),
610                         '$blocked' => (($contact['blocked']) ? t('Currently blocked') : ''),
611                         '$ignored' => (($contact['readonly']) ? t('Currently ignored') : ''),
612                         '$archived' => (($contact['archive']) ? t('Currently archived') : ''),
613                         '$hidden' => array('hidden', t('Hide this contact from others'), ($contact['hidden'] == 1), t('Replies/likes to your public posts <strong>may</strong> still be visible')),
614                         '$notify' => array('notify', t('Notification for new posts'), ($contact['notify_new_posts'] == 1), t('Send a notification of every new post of this contact')),
615                         '$fetch_further_information' => $fetch_further_information,
616                         '$ffi_keyword_blacklist' => $contact['ffi_keyword_blacklist'],
617                         '$ffi_keyword_blacklist' => array('ffi_keyword_blacklist', t('Blacklisted keywords'), $contact['ffi_keyword_blacklist'], t('Comma separated list of keywords that should not be converted to hashtags, when "Fetch information and keywords" is selected')),
618                         '$photo' => $contact['photo'],
619                         '$name' => htmlentities($contact['name']),
620                         '$dir_icon' => $dir_icon,
621                         '$alt_text' => $alt_text,
622                         '$sparkle' => $sparkle,
623                         '$url' => $url,
624                         '$profileurllabel' => t('Profile URL'),
625                         '$profileurl' => $contact['url'],
626                         '$account_type' => account_type($contact),
627                         '$location' => bbcode($contact["location"]),
628                         '$location_label' => t("Location:"),
629                         '$xmpp' => bbcode($contact["xmpp"]),
630                         '$xmpp_label' => t("XMPP:"),
631                         '$about' => bbcode($contact["about"], false, false),
632                         '$about_label' => t("About:"),
633                         '$keywords' => $contact["keywords"],
634                         '$keywords_label' => t("Tags:"),
635                         '$contact_action_button' => t("Actions"),
636                         '$contact_actions' => $contact_actions,
637                         '$contact_status' => t("Status"),
638                         '$contact_settings_label' => t('Contact Settings'),
639                         '$contact_profile_label' => t("Profile"),
640
641                 ));
642
643                 $arr = array('contact' => $contact,'output' => $o);
644
645                 call_hooks('contact_edit', $arr);
646
647                 return $arr['output'];
648
649         }
650
651         $blocked = false;
652         $hidden = false;
653         $ignored = false;
654         $all = false;
655
656         if(($a->argc == 2) && ($a->argv[1] === 'all')) {
657                 $sql_extra = '';
658                 $all = true;
659         }
660         elseif(($a->argc == 2) && ($a->argv[1] === 'blocked')) {
661                 $sql_extra = " AND `blocked` = 1 ";
662                 $blocked = true;
663         }
664         elseif(($a->argc == 2) && ($a->argv[1] === 'hidden')) {
665                 $sql_extra = " AND `hidden` = 1 ";
666                 $hidden = true;
667         }
668         elseif(($a->argc == 2) && ($a->argv[1] === 'ignored')) {
669                 $sql_extra = " AND `readonly` = 1 ";
670                 $ignored = true;
671         }
672         elseif(($a->argc == 2) && ($a->argv[1] === 'archived')) {
673                 $sql_extra = " AND `archive` = 1 ";
674                 $archived = true;
675         }
676         else
677                 $sql_extra = " AND `blocked` = 0 ";
678
679         $search = ((x($_GET,'search')) ? notags(trim($_GET['search'])) : '');
680         $nets = ((x($_GET,'nets')) ? notags(trim($_GET['nets'])) : '');
681
682         $tabs = array(
683                 array(
684                         'label' => t('Suggestions'),
685                         'url'   => 'suggest',
686                         'sel'   => '',
687                         'title' => t('Suggest potential friends'),
688                         'id'    => 'suggestions-tab',
689                         'accesskey' => 'g',
690                 ),
691                 array(
692                         'label' => t('All Contacts'),
693                         'url'   => 'contacts/all',
694                         'sel'   => ($all) ? 'active' : '',
695                         'title' => t('Show all contacts'),
696                         'id'    => 'showall-tab',
697                         'accesskey' => 'l',
698                 ),
699                 array(
700                         'label' => t('Unblocked'),
701                         'url'   => 'contacts',
702                         'sel'   => ((! $all) && (! $blocked) && (! $hidden) && (! $search) && (! $nets) && (! $ignored) && (! $archived)) ? 'active' : '',
703                         'title' => t('Only show unblocked contacts'),
704                         'id'    => 'showunblocked-tab',
705                         'accesskey' => 'o',
706                 ),
707
708                 array(
709                         'label' => t('Blocked'),
710                         'url'   => 'contacts/blocked',
711                         'sel'   => ($blocked) ? 'active' : '',
712                         'title' => t('Only show blocked contacts'),
713                         'id'    => 'showblocked-tab',
714                         'accesskey' => 'b',
715                 ),
716
717                 array(
718                         'label' => t('Ignored'),
719                         'url'   => 'contacts/ignored',
720                         'sel'   => ($ignored) ? 'active' : '',
721                         'title' => t('Only show ignored contacts'),
722                         'id'    => 'showignored-tab',
723                         'accesskey' => 'i',
724                 ),
725
726                 array(
727                         'label' => t('Archived'),
728                         'url'   => 'contacts/archived',
729                         'sel'   => ($archived) ? 'active' : '',
730                         'title' => t('Only show archived contacts'),
731                         'id'    => 'showarchived-tab',
732                         'accesskey' => 'y',
733                 ),
734
735                 array(
736                         'label' => t('Hidden'),
737                         'url'   => 'contacts/hidden',
738                         'sel'   => ($hidden) ? 'active' : '',
739                         'title' => t('Only show hidden contacts'),
740                         'id'    => 'showhidden-tab',
741                         'accesskey' => 'h',
742                 ),
743
744         );
745
746         $tab_tpl = get_markup_template('common_tabs.tpl');
747         $t = replace_macros($tab_tpl, array('$tabs'=>$tabs));
748
749
750
751         $searching = false;
752         if($search) {
753                 $search_hdr = $search;
754                 $search_txt = dbesc(protect_sprintf(preg_quote($search)));
755                 $searching = true;
756         }
757         $sql_extra .= (($searching) ? " AND (name REGEXP '$search_txt' OR url REGEXP '$search_txt'  OR nick REGEXP '$search_txt') " : "");
758
759         if($nets)
760                 $sql_extra .= sprintf(" AND network = '%s' ", dbesc($nets));
761
762         $sql_extra2 = ((($sort_type > 0) && ($sort_type <= CONTACT_IS_FRIEND)) ? sprintf(" AND `rel` = %d ",intval($sort_type)) : '');
763
764
765         $r = q("SELECT COUNT(*) AS `total` FROM `contact`
766                 WHERE `uid` = %d AND `self` = 0 AND `pending` = 0 $sql_extra $sql_extra2 ",
767                 intval($_SESSION['uid']));
768         if (dbm::is_result($r)) {
769                 $a->set_pager_total($r[0]['total']);
770                 $total = $r[0]['total'];
771         }
772
773         $sql_extra3 = unavailable_networks();
774
775         $r = q("SELECT * FROM `contact` WHERE `uid` = %d AND `self` = 0 AND `pending` = 0 $sql_extra $sql_extra2 $sql_extra3 ORDER BY `name` ASC LIMIT %d , %d ",
776                 intval($_SESSION['uid']),
777                 intval($a->pager['start']),
778                 intval($a->pager['itemspage'])
779         );
780
781         $contacts = array();
782
783         if (dbm::is_result($r)) {
784                 foreach ($r as $rr) {
785                         $contacts[] = _contact_detail_for_template($rr);
786                 }
787         }
788
789         $tpl = get_markup_template("contacts-template.tpl");
790         $o .= replace_macros($tpl, array(
791                 '$baseurl' => z_root(),
792                 '$header' => t('Contacts') . (($nets) ? ' - ' . network_to_name($nets) : ''),
793                 '$tabs' => $t,
794                 '$total' => $total,
795                 '$search' => $search_hdr,
796                 '$desc' => t('Search your contacts'),
797                 '$finding' => (($searching) ? sprintf(t('Results for: %s'),$search) : ""),
798                 '$submit' => t('Find'),
799                 '$cmd' => $a->cmd,
800                 '$contacts' => $contacts,
801                 '$contact_drop_confirm' => t('Do you really want to delete this contact?'),
802                 'multiselect' => 1,
803                 '$batch_actions' => array(
804                         'contacts_batch_update' => t('Update'),
805                         'contacts_batch_block' => t('Block')."/".t("Unblock"),
806                         "contacts_batch_ignore" => t('Ignore')."/".t("Unignore"),
807                         "contacts_batch_archive" => t('Archive')."/".t("Unarchive"),
808                         "contacts_batch_drop" => t('Delete'),
809                 ),
810                 '$h_batch_actions' => t('Batch Actions'),
811                 '$paginate' => paginate($a),
812
813         ));
814
815         return $o;
816 }
817
818 /**
819  * @brief List of pages for the Contact TabBar
820  * 
821  * Available Pages are 'Status', 'Profile', 'Contacts' and 'Common Friends'
822  * 
823  * @param app $a
824  * @param int $contact_id The ID of the contact
825  * @param int $active_tab 1 if tab should be marked as active
826  * 
827  * @return array with with contact TabBar data
828  */
829 function contacts_tab($a, $contact_id, $active_tab) {
830         // tabs
831         $tabs = array(
832                 array(
833                         'label'=>t('Status'),
834                         'url' => "contacts/".$contact_id."/posts",
835                         'sel' => (($active_tab == 1)?'active':''),
836                         'title' => t('Status Messages and Posts'),
837                         'id' => 'status-tab',
838                         'accesskey' => 'm',
839                 ),
840                 array(
841                         'label'=>t('Profile'),
842                         'url' => "contacts/".$contact_id,
843                         'sel' => (($active_tab == 2)?'active':''),
844                         'title' => t('Profile Details'),
845                         'id' => 'status-tab',
846                         'accesskey' => 'o',
847                 )
848         );
849
850         // Show this tab only if there is visible friend list
851         $x = count_all_friends(local_user(), $contact_id);
852         if ($x)
853                 $tabs[] = array('label'=>t('Contacts'),
854                                 'url' => "allfriends/".$contact_id,
855                                 'sel' => (($active_tab == 3)?'active':''),
856                                 'title' => t('View all contacts'),
857                                 'id' => 'allfriends-tab',
858                                 'accesskey' => 't');
859
860         // Show this tab only if there is visible common friend list
861         $common = count_common_friends(local_user(),$contact_id);
862         if ($common)
863                 $tabs[] = array('label'=>t('Common Friends'),
864                                 'url' => "common/loc/".local_user()."/".$contact_id,
865                                 'sel' => (($active_tab == 4)?'active':''),
866                                 'title' => t('View all common friends'),
867                                 'id' => 'common-loc-tab',
868                                 'accesskey' => 'd');
869
870         $tabs[] = array('label' => t('Advanced'),
871                         'url'   => 'crepair/' . $contact_id,
872                         'sel' => (($active_tab == 5)?'active':''),
873                         'title' => t('Advanced Contact Settings'),
874                         'id'    => 'advanced-tab',
875                         'accesskey' => 'r');
876
877         $tab_tpl = get_markup_template('common_tabs.tpl');
878         $tab_str = replace_macros($tab_tpl, array('$tabs' => $tabs));
879
880         return $tab_str;
881 }
882
883 function contact_posts($a, $contact_id) {
884
885         $r = q("SELECT `url` FROM `contact` WHERE `id` = %d", intval($contact_id));
886         if ($r) {
887                 $contact = $r[0];
888                 $a->page['aside'] = "";
889                 profile_load($a, "", 0, get_contact_details_by_url($contact["url"]));
890         } else
891                 $profile = "";
892
893         $tab_str = contacts_tab($a, $contact_id, 1);
894
895         $o .= $tab_str;
896
897         $o .= posts_from_contact_url($a, $contact["url"]);
898
899         return $o;
900 }
901
902 function _contact_detail_for_template($rr){
903
904         switch($rr['rel']) {
905                 case CONTACT_IS_FRIEND:
906                         $dir_icon = 'images/lrarrow.gif';
907                         $alt_text = t('Mutual Friendship');
908                         break;
909                 case  CONTACT_IS_FOLLOWER;
910                         $dir_icon = 'images/larrow.gif';
911                         $alt_text = t('is a fan of yours');
912                         break;
913                 case CONTACT_IS_SHARING;
914                         $dir_icon = 'images/rarrow.gif';
915                         $alt_text = t('you are a fan of');
916                         break;
917                 default:
918                         break;
919         }
920         if(($rr['network'] === NETWORK_DFRN) && ($rr['rel'])) {
921                 $url = "redir/{$rr['id']}";
922                 $sparkle = ' class="sparkle" ';
923         }
924         else {
925                 $url = $rr['url'];
926                 $sparkle = '';
927         }
928
929         return array(
930                 'img_hover' => sprintf( t('Visit %s\'s profile [%s]'),$rr['name'],$rr['url']),
931                 'edit_hover' => t('Edit contact'),
932                 'photo_menu' => contact_photo_menu($rr),
933                 'id' => $rr['id'],
934                 'alt_text' => $alt_text,
935                 'dir_icon' => $dir_icon,
936                 'thumb' => proxy_url($rr['thumb'], false, PROXY_SIZE_THUMB),
937                 'name' => htmlentities($rr['name']),
938                 'username' => htmlentities($rr['name']),
939                 'account_type' => account_type($rr),
940                 'sparkle' => $sparkle,
941                 'itemurl' => (($rr['addr'] != "") ? $rr['addr'] : $rr['url']),
942                 'url' => $url,
943                 'network' => network_to_name($rr['network'], $rr['url']),
944         );
945
946 }
947
948 /**
949  * @brief Gives a array with actions which can performed to a given contact
950  * 
951  * This includes actions like e.g. 'block', 'hide', 'archive', 'delete' and others
952  * 
953  * @param array $contact Data about the Contact
954  * @return array with contact related actions
955  */
956 function contact_actions($contact) {
957
958         $poll_enabled = in_array($contact['network'], array(NETWORK_DFRN, NETWORK_OSTATUS, NETWORK_FEED, NETWORK_MAIL, NETWORK_MAIL2));
959         $contact_action = array();
960
961         // Provide friend suggestion only for Friendica contacts
962         if($contact['network'] === NETWORK_DFRN) {
963                 $contact_actions['suggest'] = array(
964                                                         'label' => t('Suggest friends'),
965                                                         'url'   => 'fsuggest/' . $contact['id'],
966                                                         'title' => '',
967                                                         'sel'   => '',
968                                                         'id'    =>  'suggest',
969                                         );
970         }
971
972         if($poll_enabled) {
973                 $contact_actions['update'] = array(
974                                                         'label' => t('Update now'),
975                                                         'url'   => 'contacts/' . $contact['id'] . '/update',
976                                                         'title' => '',
977                                                         'sel'   => '',
978                                                         'id'    => 'update',
979                                         );
980         }
981
982         $contact_actions['block'] = array(
983                                                 'label' => (intval($contact['blocked']) ? t('Unblock') : t('Block') ),
984                                                 'url'   => 'contacts/' . $contact['id'] . '/block',
985                                                 'title' => t('Toggle Blocked status'),
986                                                 'sel'   => (intval($contact['blocked']) ? 'active' : ''),
987                                                 'id'    => 'toggle-block',
988                                 );
989
990         $contact_actions['ignore'] = array(
991                                                 'label' => (intval($contact['readonly']) ? t('Unignore') : t('Ignore') ),
992                                                 'url'   => 'contacts/' . $contact['id'] . '/ignore',
993                                                 'title' => t('Toggle Ignored status'),
994                                                 'sel'   => (intval($contact['readonly']) ? 'active' : ''),
995                                                 'id'    => 'toggle-ignore',
996                                 );
997
998         $contact_actions['archive'] = array(
999                                                 'label' => (intval($contact['archive']) ? t('Unarchive') : t('Archive') ),
1000                                                 'url'   => 'contacts/' . $contact['id'] . '/archive',
1001                                                 'title' => t('Toggle Archive status'),
1002                                                 'sel'   => (intval($contact['archive']) ? 'active' : ''),
1003                                                 'id'    => 'toggle-archive',
1004                                 );
1005
1006         $contact_actions['delete'] = array(
1007                                                 'label' => t('Delete'),
1008                                                 'url'   => 'contacts/' . $contact['id'] . '/drop', 
1009                                                 'title' => t('Delete contact'),
1010                                                 'sel'   => '',
1011                                                 'id'    => 'delete',
1012                                 );
1013
1014         return $contact_actions;
1015 }