]> git.mxchange.org Git - friendica.git/blob - mod/admin.php
Automatically updating the searched contacts while searching it.
[friendica.git] / mod / admin.php
1 <?php
2
3  /**
4   * Friendica admin
5   */
6 require_once("include/remoteupdate.php");
7 require_once("include/enotify.php");
8 require_once("include/text.php");
9
10
11 /**
12  * @param App $a
13  */
14 function admin_post(&$a){
15
16
17         if(!is_site_admin()) {
18                 return;
19         }
20
21         // do not allow a page manager to access the admin panel at all.
22
23         if(x($_SESSION,'submanage') && intval($_SESSION['submanage']))
24                 return;
25
26
27
28         // urls
29         if ($a->argc > 1){
30                 switch ($a->argv[1]){
31                         case 'site':
32                                 admin_page_site_post($a);
33                                 break;
34                         case 'users':
35                                 admin_page_users_post($a);
36                                 break;
37                         case 'plugins':
38                                 if ($a->argc > 2 &&
39                                         is_file("addon/".$a->argv[2]."/".$a->argv[2].".php")){
40                                                 @include_once("addon/".$a->argv[2]."/".$a->argv[2].".php");
41                                                 if(function_exists($a->argv[2].'_plugin_admin_post')) {
42                                                         $func = $a->argv[2].'_plugin_admin_post';
43                                                         $func($a);
44                                                 }
45                                 }
46                                 goaway($a->get_baseurl(true) . '/admin/plugins/' . $a->argv[2] );
47                                 return; // NOTREACHED
48                                 break;
49                         case 'themes':
50                                 $theme = $a->argv[2];
51                                 if (is_file("view/theme/$theme/config.php")){
52                                         require_once("view/theme/$theme/config.php");
53                                         if (function_exists("theme_admin_post")){
54                                                 theme_admin_post($a);
55                                         }
56                                 }
57                                 info(t('Theme settings updated.'));
58                                 if(is_ajax()) return;
59
60                                 goaway($a->get_baseurl(true) . '/admin/themes/' . $theme );
61                                 return;
62                                 break;
63                         case 'logs':
64                                 admin_page_logs_post($a);
65                                 break;
66                         case 'dbsync':
67                                 admin_page_dbsync_post($a);
68                                 break;
69                         case 'update':
70                                 admin_page_remoteupdate_post($a);
71                                 break;
72                 }
73         }
74
75         goaway($a->get_baseurl(true) . '/admin' );
76         return; // NOTREACHED
77 }
78
79 /**
80  * @param App $a
81  * @return string
82  */
83 function admin_content(&$a) {
84
85         if(!is_site_admin()) {
86                 return login(false);
87         }
88
89         if(x($_SESSION,'submanage') && intval($_SESSION['submanage']))
90                 return "";
91
92         // APC deactivated, since there are problems with PHP 5.5
93         //if (function_exists("apc_delete")) {
94         //      $toDelete = new APCIterator('user', APC_ITER_VALUE);
95         //      apc_delete($toDelete);
96         //}
97
98         /**
99          * Side bar links
100          */
101
102         // array( url, name, extra css classes )
103         $aside = Array(
104                 'site'   =>     Array($a->get_baseurl(true)."/admin/site/", t("Site") , "site"),
105                 'users'  =>     Array($a->get_baseurl(true)."/admin/users/", t("Users") , "users"),
106                 'plugins'=>     Array($a->get_baseurl(true)."/admin/plugins/", t("Plugins") , "plugins"),
107                 'themes' =>     Array($a->get_baseurl(true)."/admin/themes/", t("Themes") , "themes"),
108                 'dbsync' => Array($a->get_baseurl(true)."/admin/dbsync/", t('DB updates'), "dbsync"),
109                 //'update' =>   Array($a->get_baseurl(true)."/admin/update/", t("Software Update") , "update")
110         );
111
112         /* get plugins admin page */
113
114         $r = q("SELECT name FROM `addon` WHERE `plugin_admin`=1");
115         $aside['plugins_admin']=Array();
116         foreach ($r as $h){
117                 $plugin =$h['name'];
118                 $aside['plugins_admin'][] = Array($a->get_baseurl(true)."/admin/plugins/".$plugin, $plugin, "plugin");
119                 // temp plugins with admin
120                 $a->plugins_admin[] = $plugin;
121         }
122
123         $aside['logs'] = Array($a->get_baseurl(true)."/admin/logs/", t("Logs"), "logs");
124         $aside['diagnostics_probe'] = Array($a->get_baseurl(true).'/probe/', t('probe address'), 'probe');
125         $aside['diagnostics_webfinger'] = Array($a->get_baseurl(true).'/webfinger/', t('check webfinger'), 'webfinger');
126
127         $t = get_markup_template("admin_aside.tpl");
128         $a->page['aside'] .= replace_macros( $t, array(
129                         '$admin' => $aside,
130                         '$admtxt' => t('Admin'),
131                         '$plugadmtxt' => t('Plugin Features'),
132                         '$logtxt' => t('Logs'),
133                         '$diagnosticstxt' => t('diagnostics'),
134                         '$h_pending' => t('User registrations waiting for confirmation'),
135                         '$admurl'=> $a->get_baseurl(true)."/admin/"
136         ));
137
138
139
140         /**
141          * Page content
142          */
143         $o = '';
144         // urls
145         if ($a->argc > 1){
146                 switch ($a->argv[1]){
147                         case 'site':
148                                 $o = admin_page_site($a);
149                                 break;
150                         case 'users':
151                                 $o = admin_page_users($a);
152                                 break;
153                         case 'plugins':
154                                 $o = admin_page_plugins($a);
155                                 break;
156                         case 'themes':
157                                 $o = admin_page_themes($a);
158                                 break;
159                         case 'logs':
160                                 $o = admin_page_logs($a);
161                                 break;
162                         case 'dbsync':
163                                 $o = admin_page_dbsync($a);
164                                 break;
165                         case 'update':
166                                 $o = admin_page_remoteupdate($a);
167                                 break;
168                         default:
169                                 notice( t("Item not found.") );
170                 }
171         } else {
172                 $o = admin_page_summary($a);
173         }
174
175         if(is_ajax()) {
176                 echo $o;
177                 killme();
178                 return '';
179         } else {
180                 return $o;
181         }
182 }
183
184
185 /**
186  * Admin Summary Page
187  * @param App $a
188  * @return string
189  */
190 function admin_page_summary(&$a) {
191         $r = q("SELECT `page-flags`, COUNT(uid) as `count` FROM `user` GROUP BY `page-flags`");
192         $accounts = Array(
193                 Array( t('Normal Account'), 0),
194                 Array( t('Soapbox Account'), 0),
195                 Array( t('Community/Celebrity Account'), 0),
196                 Array( t('Automatic Friend Account'), 0),
197                 Array( t('Blog Account'), 0),
198                 Array( t('Private Forum'), 0)
199         );
200
201         $users=0;
202         foreach ($r as $u){ $accounts[$u['page-flags']][1] = $u['count']; $users+= $u['count']; }
203
204         logger('accounts: ' . print_r($accounts,true),LOGGER_DATA);
205
206         $r = q("SELECT COUNT(id) as `count` FROM `register`");
207         $pending = $r[0]['count'];
208
209         $r = q("select count(*) as total from deliverq where 1");
210         $deliverq = (($r) ? $r[0]['total'] : 0);
211
212         $r = q("select count(*) as total from queue where 1");
213         $queue = (($r) ? $r[0]['total'] : 0);
214
215         // We can do better, but this is a quick queue status
216
217         $queues = array( 'label' => t('Message queues'), 'deliverq' => $deliverq, 'queue' => $queue );
218
219
220         $t = get_markup_template("admin_summary.tpl");
221         return replace_macros($t, array(
222                 '$title' => t('Administration'),
223                 '$page' => t('Summary'),
224                 '$queues' => $queues,
225                 '$users' => Array( t('Registered users'), $users),
226                 '$accounts' => $accounts,
227                 '$pending' => Array( t('Pending registrations'), $pending),
228                 '$version' => Array( t('Version'), FRIENDICA_VERSION),
229                 '$platform' => FRIENDICA_PLATFORM,
230                 '$codename' => FRIENDICA_CODENAME,
231                 '$build' =>  get_config('system','build'),
232                 '$plugins' => Array( t('Active plugins'), $a->plugins )
233         ));
234 }
235
236
237 /**
238  * Admin Site Page
239  *  @param App $a
240  */
241 function admin_page_site_post(&$a){
242         if (!x($_POST,"page_site")){
243                 return;
244         }
245
246         check_form_security_token_redirectOnErr('/admin/site', 'admin_site');
247
248         // relocate
249         if (x($_POST,'relocate') && x($_POST,'relocate_url') && $_POST['relocate_url']!=""){
250                 $new_url = $_POST['relocate_url'];
251                 $new_url = rtrim($new_url,"/");
252
253                 $parsed = @parse_url($new_url);
254                 if (!$parsed || (!x($parsed,'host') || !x($parsed,'scheme'))) {
255                         notice(t("Can not parse base url. Must have at least <scheme>://<domain>"));
256                         goaway($a->get_baseurl(true) . '/admin/site' );
257                 }
258
259                 /* steps:
260                  * replace all "baseurl" to "new_url" in config, profile, term, items and contacts
261                  * send relocate for every local user
262                  * */
263
264                 $old_url = $a->get_baseurl(true);
265
266                 function update_table($table_name, $fields, $old_url, $new_url) {
267                         global $db, $a;
268
269                         $dbold = dbesc($old_url);
270                         $dbnew = dbesc($new_url);
271
272                         $upd = array();
273                         foreach ($fields as $f) {
274                                 $upd[] = "`$f` = REPLACE(`$f`, '$dbold', '$dbnew')";
275                         }
276
277                         $upds = implode(", ", $upd);
278
279
280
281                         $q = sprintf("UPDATE %s SET %s;", $table_name, $upds);
282                         $r = q($q);
283                         if (!$r) {
284                                 notice( "Failed updating '$table_name': " . $db->error );
285                                 goaway($a->get_baseurl(true) . '/admin/site' );
286                         }
287                 }
288
289                 // update tables
290                 update_table("profile", array('photo', 'thumb'), $old_url, $new_url);
291                 update_table("term", array('url'), $old_url, $new_url);
292                 update_table("contact", array('photo','thumb','micro','url','nurl','request','notify','poll','confirm','poco'), $old_url, $new_url);
293                 update_table("unique_contacts", array('url'), $old_url, $new_url);
294                 update_table("item", array('owner-link','owner-avatar','author-name','author-link','author-avatar','body','plink','tag'), $old_url, $new_url);
295
296                 // update config
297                 $a->set_baseurl($new_url);
298                 set_config('system','url',$new_url);
299
300                 // send relocate
301                 $users = q("SELECT uid FROM user WHERE account_removed = 0 AND account_expired = 0");
302
303                 foreach ($users as $user) {
304                         proc_run('php', 'include/notifier.php', 'relocate', $user['uid']);
305                 }
306
307                 info("Relocation started. Could take a while to complete.");
308
309                 goaway($a->get_baseurl(true) . '/admin/site' );
310         }
311         // end relocate
312
313         $sitename               =       ((x($_POST,'sitename'))                 ? notags(trim($_POST['sitename']))              : '');
314         $hostname               =       ((x($_POST,'hostname'))                 ? notags(trim($_POST['hostname']))              : '');
315         $sender_email           =       ((x($_POST,'sender_email'))             ? notags(trim($_POST['sender_email']))          : '');
316         $banner                 =       ((x($_POST,'banner'))                   ? trim($_POST['banner'])                        : false);
317         $shortcut_icon          =       ((x($_POST,'shortcut_icon'))            ? notags(trim($_POST['shortcut_icon']))         : '');
318         $touch_icon             =       ((x($_POST,'touch_icon'))               ? notags(trim($_POST['touch_icon']))            : '');
319         $info                   =       ((x($_POST,'info'))                     ? trim($_POST['info'])                  : false);
320         $language               =       ((x($_POST,'language'))                 ? notags(trim($_POST['language']))              : '');
321         $theme                  =       ((x($_POST,'theme'))                    ? notags(trim($_POST['theme']))                 : '');
322         $theme_mobile           =       ((x($_POST,'theme_mobile'))             ? notags(trim($_POST['theme_mobile']))          : '');
323         $maximagesize           =       ((x($_POST,'maximagesize'))             ? intval(trim($_POST['maximagesize']))          :  0);
324         $maximagelength         =       ((x($_POST,'maximagelength'))           ? intval(trim($_POST['maximagelength']))        :  MAX_IMAGE_LENGTH);
325         $jpegimagequality       =       ((x($_POST,'jpegimagequality'))         ? intval(trim($_POST['jpegimagequality']))      :  JPEG_QUALITY);
326
327
328         $register_policy        =       ((x($_POST,'register_policy'))          ? intval(trim($_POST['register_policy']))       :  0);
329         $daily_registrations    =       ((x($_POST,'max_daily_registrations'))  ? intval(trim($_POST['max_daily_registrations']))       :0);
330         $abandon_days           =       ((x($_POST,'abandon_days'))             ? intval(trim($_POST['abandon_days']))          :  0);
331
332         $register_text          =       ((x($_POST,'register_text'))            ? notags(trim($_POST['register_text']))         : '');
333
334         $allowed_sites          =       ((x($_POST,'allowed_sites'))            ? notags(trim($_POST['allowed_sites']))         : '');
335         $allowed_email          =       ((x($_POST,'allowed_email'))            ? notags(trim($_POST['allowed_email']))         : '');
336         $block_public           =       ((x($_POST,'block_public'))             ? True                                          : False);
337         $force_publish          =       ((x($_POST,'publish_all'))              ? True                                          : False);
338         $global_directory       =       ((x($_POST,'directory_submit_url'))     ? notags(trim($_POST['directory_submit_url']))  : '');
339         $thread_allow           =       ((x($_POST,'thread_allow'))             ? True                                          : False);
340         $newuser_private                =       ((x($_POST,'newuser_private'))          ? True                                          : False);
341         $enotify_no_content             =       ((x($_POST,'enotify_no_content'))       ? True                                          : False);
342         $private_addons                 =       ((x($_POST,'private_addons'))           ? True                                          : False);
343         $disable_embedded               =       ((x($_POST,'disable_embedded'))         ? True                                          : False);
344         $allow_users_remote_self        =       ((x($_POST,'allow_users_remote_self'))          ? True                                          : False);
345
346         $no_multi_reg           =       ((x($_POST,'no_multi_reg'))             ? True                                          : False);
347         $no_openid              =       !((x($_POST,'no_openid'))               ? True                                          : False);
348         $no_regfullname         =       !((x($_POST,'no_regfullname'))          ? True                                          : False);
349         $no_utf                 =       !((x($_POST,'no_utf'))                  ? True                                          : False);
350         $community_page_style   =       ((x($_POST,'community_page_style'))     ? intval(trim($_POST['community_page_style']))  : 0);
351         $max_author_posts_community_page        =       ((x($_POST,'max_author_posts_community_page'))  ? intval(trim($_POST['max_author_posts_community_page']))       : 0);
352
353         $verifyssl              =       ((x($_POST,'verifyssl'))                ? True                                          : False);
354         $proxyuser              =       ((x($_POST,'proxyuser'))                ? notags(trim($_POST['proxyuser']))             : '');
355         $proxy                  =       ((x($_POST,'proxy'))                    ? notags(trim($_POST['proxy']))                 : '');
356         $timeout                =       ((x($_POST,'timeout'))                  ? intval(trim($_POST['timeout']))               : 60);
357         $delivery_interval      =       ((x($_POST,'delivery_interval'))        ? intval(trim($_POST['delivery_interval']))     : 0);
358         $poll_interval          =       ((x($_POST,'poll_interval'))            ? intval(trim($_POST['poll_interval']))         : 0);
359         $maxloadavg             =       ((x($_POST,'maxloadavg'))               ? intval(trim($_POST['maxloadavg']))            : 50);
360         $maxloadavg_frontend    =       ((x($_POST,'maxloadavg_frontend'))      ? intval(trim($_POST['maxloadavg_frontend']))   : 50);
361         $poco_completion        =       ((x($_POST,'poco_completion'))          ? intval(trim($_POST['poco_completion']))       : false);
362         $poco_discovery         =       ((x($_POST,'poco_discovery'))           ? intval(trim($_POST['poco_discovery']))        : 0);
363         $poco_local_search      =       ((x($_POST,'poco_local_search'))        ? intval(trim($_POST['poco_local_search']))     : false);
364         $dfrn_only              =       ((x($_POST,'dfrn_only'))                ? True                                          : False);
365         $ostatus_disabled       =       !((x($_POST,'ostatus_disabled'))        ? True                                          : False);
366         $ostatus_poll_interval  =       ((x($_POST,'ostatus_poll_interval'))    ? intval(trim($_POST['ostatus_poll_interval'])) :  0);
367         $diaspora_enabled       =       ((x($_POST,'diaspora_enabled'))         ? True                                          : False);
368         $ssl_policy             =       ((x($_POST,'ssl_policy'))               ? intval($_POST['ssl_policy'])                  : 0);
369         $force_ssl              =       ((x($_POST,'force_ssl'))                ? True                                          : False);
370         $old_share              =       ((x($_POST,'old_share'))                ? True                                          : False);
371         $hide_help              =       ((x($_POST,'hide_help'))                ? True                                          : False);
372         $suppress_language      =       ((x($_POST,'suppress_language'))        ? True                                          : False);
373         $suppress_tags          =       ((x($_POST,'suppress_tags'))            ? True                                          : False);
374         $use_fulltext_engine    =       ((x($_POST,'use_fulltext_engine'))      ? True                                          : False);
375         $itemcache              =       ((x($_POST,'itemcache'))                ? notags(trim($_POST['itemcache']))             : '');
376         $itemcache_duration     =       ((x($_POST,'itemcache_duration'))       ? intval($_POST['itemcache_duration'])          : 0);
377         $max_comments           =       ((x($_POST,'max_comments'))             ? intval($_POST['max_comments'])                : 0);
378         $lockpath               =       ((x($_POST,'lockpath'))                 ? notags(trim($_POST['lockpath']))              : '');
379         $temppath               =       ((x($_POST,'temppath'))                 ? notags(trim($_POST['temppath']))              : '');
380         $basepath               =       ((x($_POST,'basepath'))                 ? notags(trim($_POST['basepath']))              : '');
381         $singleuser             =       ((x($_POST,'singleuser'))               ? notags(trim($_POST['singleuser']))            : '');
382         $proxy_disabled         =       ((x($_POST,'proxy_disabled'))           ? True                                          : False);
383         $old_pager              =       ((x($_POST,'old_pager'))                ? True                                          : False);
384         $only_tag_search        =       ((x($_POST,'only_tag_search'))          ? True                                          : False);
385         $rino                   =       ((x($_POST,'rino'))                             ? intval($_POST['rino'])                                : 0);
386
387
388         if($ssl_policy != intval(get_config('system','ssl_policy'))) {
389                 if($ssl_policy == SSL_POLICY_FULL) {
390                         q("update `contact` set
391                                 `url`     = replace(`url`    , 'http:' , 'https:'),
392                                 `photo`   = replace(`photo`  , 'http:' , 'https:'),
393                                 `thumb`   = replace(`thumb`  , 'http:' , 'https:'),
394                                 `micro`   = replace(`micro`  , 'http:' , 'https:'),
395                                 `request` = replace(`request`, 'http:' , 'https:'),
396                                 `notify`  = replace(`notify` , 'http:' , 'https:'),
397                                 `poll`    = replace(`poll`   , 'http:' , 'https:'),
398                                 `confirm` = replace(`confirm`, 'http:' , 'https:'),
399                                 `poco`    = replace(`poco`   , 'http:' , 'https:')
400                                 where `self` = 1"
401                         );
402                         q("update `profile` set
403                                 `photo`   = replace(`photo`  , 'http:' , 'https:'),
404                                 `thumb`   = replace(`thumb`  , 'http:' , 'https:')
405                                 where 1 "
406                         );
407                 }
408                 elseif($ssl_policy == SSL_POLICY_SELFSIGN) {
409                         q("update `contact` set
410                                 `url`     = replace(`url`    , 'https:' , 'http:'),
411                                 `photo`   = replace(`photo`  , 'https:' , 'http:'),
412                                 `thumb`   = replace(`thumb`  , 'https:' , 'http:'),
413                                 `micro`   = replace(`micro`  , 'https:' , 'http:'),
414                                 `request` = replace(`request`, 'https:' , 'http:'),
415                                 `notify`  = replace(`notify` , 'https:' , 'http:'),
416                                 `poll`    = replace(`poll`   , 'https:' , 'http:'),
417                                 `confirm` = replace(`confirm`, 'https:' , 'http:'),
418                                 `poco`    = replace(`poco`   , 'https:' , 'http:')
419                                 where `self` = 1"
420                         );
421                         q("update `profile` set
422                                 `photo`   = replace(`photo`  , 'https:' , 'http:'),
423                                 `thumb`   = replace(`thumb`  , 'https:' , 'http:')
424                                 where 1 "
425                         );
426                 }
427         }
428         set_config('system','ssl_policy',$ssl_policy);
429         set_config('system','delivery_interval',$delivery_interval);
430         set_config('system','poll_interval',$poll_interval);
431         set_config('system','maxloadavg',$maxloadavg);
432         set_config('system','maxloadavg_frontend',$maxloadavg_frontend);
433         set_config('system','poco_completion',$poco_completion);
434         set_config('system','poco_discovery',$poco_discovery);
435         set_config('system','poco_local_search',$poco_local_search);
436         set_config('config','sitename',$sitename);
437         set_config('config','hostname',$hostname);
438         set_config('config','sender_email', $sender_email);
439         set_config('system','suppress_language',$suppress_language);
440         set_config('system','suppress_tags',$suppress_tags);
441         set_config('system','shortcut_icon',$shortcut_icon);
442         set_config('system','touch_icon',$touch_icon);
443
444         if ($banner==""){
445                 // don't know why, but del_config doesn't work...
446                 q("DELETE FROM `config` WHERE `cat` = '%s' AND `k` = '%s' LIMIT 1",
447                         dbesc("system"),
448                         dbesc("banner")
449                 );
450         } else {
451                 set_config('system','banner', $banner);
452         }
453         if ($info=="") {
454                 del_config('config','info');
455         } else {
456                 set_config('config','info',$info);
457         }
458         set_config('system','language', $language);
459         set_config('system','theme', $theme);
460         if ( $theme_mobile === '---' ) {
461                 del_config('system','mobile-theme');
462         } else {
463                 set_config('system','mobile-theme', $theme_mobile);
464                 }
465                 if ( $singleuser === '---' ) {
466                         del_config('system','singleuser');
467                 } else {
468                         set_config('system','singleuser', $singleuser);
469                 }
470         set_config('system','maximagesize', $maximagesize);
471         set_config('system','max_image_length', $maximagelength);
472         set_config('system','jpeg_quality', $jpegimagequality);
473
474         set_config('config','register_policy', $register_policy);
475         set_config('system','max_daily_registrations', $daily_registrations);
476         set_config('system','account_abandon_days', $abandon_days);
477         set_config('config','register_text', $register_text);
478         set_config('system','allowed_sites', $allowed_sites);
479         set_config('system','allowed_email', $allowed_email);
480         set_config('system','block_public', $block_public);
481         set_config('system','publish_all', $force_publish);
482         if ($global_directory==""){
483                 // don't know why, but del_config doesn't work...
484                 q("DELETE FROM `config` WHERE `cat` = '%s' AND `k` = '%s' LIMIT 1",
485                         dbesc("system"),
486                         dbesc("directory_submit_url")
487                 );
488         } else {
489                 set_config('system','directory_submit_url', $global_directory);
490         }
491         set_config('system','thread_allow', $thread_allow);
492         set_config('system','newuser_private', $newuser_private);
493         set_config('system','enotify_no_content', $enotify_no_content);
494         set_config('system','disable_embedded', $disable_embedded);
495         set_config('system','allow_users_remote_self', $allow_users_remote_self);
496
497         set_config('system','block_extended_register', $no_multi_reg);
498         set_config('system','no_openid', $no_openid);
499         set_config('system','no_regfullname', $no_regfullname);
500         set_config('system','community_page_style', $community_page_style);
501         set_config('system','max_author_posts_community_page', $max_author_posts_community_page);
502         set_config('system','no_utf', $no_utf);
503         set_config('system','verifyssl', $verifyssl);
504         set_config('system','proxyuser', $proxyuser);
505         set_config('system','proxy', $proxy);
506         set_config('system','curl_timeout', $timeout);
507         set_config('system','dfrn_only', $dfrn_only);
508         set_config('system','ostatus_disabled', $ostatus_disabled);
509         set_config('system','ostatus_poll_interval', $ostatus_poll_interval);
510         set_config('system','diaspora_enabled', $diaspora_enabled);
511         set_config('config','private_addons', $private_addons);
512
513         set_config('system','force_ssl', $force_ssl);
514         set_config('system','old_share', $old_share);
515         set_config('system','hide_help', $hide_help);
516         set_config('system','use_fulltext_engine', $use_fulltext_engine);
517         set_config('system','itemcache', $itemcache);
518         set_config('system','itemcache_duration', $itemcache_duration);
519         set_config('system','max_comments', $max_comments);
520         set_config('system','lockpath', $lockpath);
521         set_config('system','temppath', $temppath);
522         set_config('system','basepath', $basepath);
523         set_config('system','proxy_disabled', $proxy_disabled);
524         set_config('system','old_pager', $old_pager);
525         set_config('system','only_tag_search', $only_tag_search);
526
527         set_config('system','rino_encrypt', $rino);
528         
529         
530         info( t('Site settings updated.') . EOL);
531         goaway($a->get_baseurl(true) . '/admin/site' );
532         return; // NOTREACHED
533
534 }
535
536 /**
537  * @param  App $a
538  * @return string
539  */
540 function admin_page_site(&$a) {
541
542         /* Installed langs */
543         $lang_choices = array();
544         $langs = glob('view/*/strings.php');
545
546         if(is_array($langs) && count($langs)) {
547                 if(! in_array('view/en/strings.php',$langs))
548                         $langs[] = 'view/en/';
549                 asort($langs);
550                 foreach($langs as $l) {
551                         $t = explode("/",$l);
552                         $lang_choices[$t[1]] = $t[1];
553                 }
554         }
555
556         /* Installed themes */
557         $theme_choices = array();
558         $theme_choices_mobile = array();
559         $theme_choices_mobile["---"] = t("No special theme for mobile devices");
560         $files = glob('view/theme/*');
561         if($files) {
562                 foreach($files as $file) {
563                         $f = basename($file);
564                         $theme_name = ((file_exists($file . '/experimental')) ?  sprintf("%s - \x28Experimental\x29", $f) : $f);
565                         if (file_exists($file . '/mobile')) {
566                                 $theme_choices_mobile[$f] = $theme_name;
567                         }
568                 else {
569                                 $theme_choices[$f] = $theme_name;
570                         }
571                 }
572                 }
573
574                 /* Community page style */
575                 $community_page_style_choices = array(
576                         CP_NO_COMMUNITY_PAGE => t("No community page"),
577                         CP_USERS_ON_SERVER => t("Public postings from users of this site"),
578                         CP_GLOBAL_COMMUNITY => t("Global community page")
579                         );
580
581                 /* OStatus conversation poll choices */
582                 $ostatus_poll_choices = array(
583                         "-2" => t("Never"),
584                         "-1" => t("At post arrival"),
585                         "0" => t("Frequently"),
586                         "60" => t("Hourly"),
587                         "720" => t("Twice daily"),
588                         "1440" => t("Daily")
589                         );
590
591                 $poco_discovery_choices = array(
592                         "0" => t("Disabled"),
593                         "1" => t("Users"),
594                         "2" => t("Users, Global Contacts"),
595                         "3" => t("Users, Global Contacts/fallback"),
596                         );
597
598                 /* get user names to make the install a personal install of X */
599                 $user_names = array();
600                 $user_names['---'] = t('Multi user instance');
601                 $users = q("SELECT username, nickname FROM `user`");
602                 foreach ($users as $user) {
603                         $user_names[$user['nickname']] = $user['username'];
604                 }
605
606         /* Banner */
607         $banner = get_config('system','banner');
608         if($banner == false)
609                 $banner = '<a href="http://friendica.com"><img id="logo-img" src="images/friendica-32.png" alt="logo" /></a><span id="logo-text"><a href="http://friendica.com">Friendica</a></span>';
610         $banner = htmlspecialchars($banner);
611         $info = get_config('config','info');
612         $info = htmlspecialchars($info);
613
614         // Automatically create temporary paths
615         get_temppath();
616         get_lockpath();
617         get_itemcachepath();
618
619         //echo "<pre>"; var_dump($lang_choices); die("</pre>");
620
621         /* Register policy */
622         $register_choices = Array(
623                 REGISTER_CLOSED => t("Closed"),
624                 REGISTER_APPROVE => t("Requires approval"),
625                 REGISTER_OPEN => t("Open")
626         );
627
628         $ssl_choices = array(
629                 SSL_POLICY_NONE => t("No SSL policy, links will track page SSL state"),
630                 SSL_POLICY_FULL => t("Force all links to use SSL"),
631                 SSL_POLICY_SELFSIGN => t("Self-signed certificate, use SSL for local links only (discouraged)")
632         );
633
634         if ($a->config['hostname'] == "")
635                 $a->config['hostname'] = $a->get_hostname();
636
637         $t = get_markup_template("admin_site.tpl");
638         return replace_macros($t, array(
639                 '$title' => t('Administration'),
640                 '$page' => t('Site'),
641                 '$submit' => t('Save Settings'),
642                 '$registration' => t('Registration'),
643                 '$upload' => t('File upload'),
644                 '$corporate' => t('Policies'),
645                 '$advanced' => t('Advanced'),
646                 '$portable_contacts' => t('Auto Discovered Contact Directory'),
647                 '$performance' => t('Performance'),
648                 '$relocate'=> t('Relocate - WARNING: advanced function. Could make this server unreachable.'),
649                 '$baseurl' => $a->get_baseurl(true),
650                 // name, label, value, help string, extra data...
651                 '$sitename'             => array('sitename', t("Site name"), $a->config['sitename'],'UTF-8'),
652                 '$hostname'             => array('hostname', t("Host name"), $a->config['hostname'], ""),
653                 '$sender_email'         => array('sender_email', t("Sender Email"), $a->config['sender_email'], "The email address your server shall use to send notification emails from.", "", "", "email"),
654                 '$banner'               => array('banner', t("Banner/Logo"), $banner, ""),
655                 '$shortcut_icon'        => array('shortcut_icon', t("Shortcut icon"), get_config('system','shortcut_icon'),  "Link to an icon that will be used for browsers."),
656                 '$touch_icon'           => array('touch_icon', t("Touch icon"), get_config('system','touch_icon'),  "Link to an icon that will be used for tablets and mobiles."),
657                 '$info' => array('info',t('Additional Info'), $info, t('For public servers: you can add additional information here that will be listed at dir.friendica.com/siteinfo.')),
658                 '$language'             => array('language', t("System language"), get_config('system','language'), "", $lang_choices),
659                 '$theme'                => array('theme', t("System theme"), get_config('system','theme'), t("Default system theme - may be over-ridden by user profiles - <a href='#' id='cnftheme'>change theme settings</a>"), $theme_choices),
660                 '$theme_mobile'         => array('theme_mobile', t("Mobile system theme"), get_config('system','mobile-theme'), t("Theme for mobile devices"), $theme_choices_mobile),
661                 '$ssl_policy'           => array('ssl_policy', t("SSL link policy"), (string) intval(get_config('system','ssl_policy')), t("Determines whether generated links should be forced to use SSL"), $ssl_choices),
662                 '$force_ssl'            => array('force_ssl', t("Force SSL"), get_config('system','force_ssl'), t("Force all Non-SSL requests to SSL - Attention: on some systems it could lead to endless loops.")),
663                 '$old_share'            => array('old_share', t("Old style 'Share'"), get_config('system','old_share'), t("Deactivates the bbcode element 'share' for repeating items.")),
664                 '$hide_help'            => array('hide_help', t("Hide help entry from navigation menu"), get_config('system','hide_help'), t("Hides the menu entry for the Help pages from the navigation menu. You can still access it calling /help directly.")),
665                 '$singleuser'           => array('singleuser', t("Single user instance"), get_config('system','singleuser'), t("Make this instance multi-user or single-user for the named user"), $user_names),
666                 '$maximagesize'         => array('maximagesize', t("Maximum image size"), get_config('system','maximagesize'), t("Maximum size in bytes of uploaded images. Default is 0, which means no limits.")),
667                 '$maximagelength'               => array('maximagelength', t("Maximum image length"), get_config('system','max_image_length'), t("Maximum length in pixels of the longest side of uploaded images. Default is -1, which means no limits.")),
668                 '$jpegimagequality'             => array('jpegimagequality', t("JPEG image quality"), get_config('system','jpeg_quality'), t("Uploaded JPEGS will be saved at this quality setting [0-100]. Default is 100, which is full quality.")),
669
670                 '$register_policy'      => array('register_policy', t("Register policy"), $a->config['register_policy'], "", $register_choices),
671                 '$daily_registrations'  => array('max_daily_registrations', t("Maximum Daily Registrations"), get_config('system', 'max_daily_registrations'), t("If registration is permitted above, this sets the maximum number of new user registrations to accept per day.  If register is set to closed, this setting has no effect.")),
672                 '$register_text'        => array('register_text', t("Register text"), $a->config['register_text'], t("Will be displayed prominently on the registration page.")),
673                 '$abandon_days'         => array('abandon_days', t('Accounts abandoned after x days'), get_config('system','account_abandon_days'), t('Will not waste system resources polling external sites for abandonded accounts. Enter 0 for no time limit.')),
674                 '$allowed_sites'        => array('allowed_sites', t("Allowed friend domains"), get_config('system','allowed_sites'), t("Comma separated list of domains which are allowed to establish friendships with this site. Wildcards are accepted. Empty to allow any domains")),
675                 '$allowed_email'        => array('allowed_email', t("Allowed email domains"), get_config('system','allowed_email'), t("Comma separated list of domains which are allowed in email addresses for registrations to this site. Wildcards are accepted. Empty to allow any domains")),
676                 '$block_public'         => array('block_public', t("Block public"), get_config('system','block_public'), t("Check to block public access to all otherwise public personal pages on this site unless you are currently logged in.")),
677                 '$force_publish'        => array('publish_all', t("Force publish"), get_config('system','publish_all'), t("Check to force all profiles on this site to be listed in the site directory.")),
678                 '$global_directory'     => array('directory_submit_url', t("Global directory update URL"), get_config('system','directory_submit_url'), t("URL to update the global directory. If this is not set, the global directory is completely unavailable to the application.")),
679                 '$thread_allow'         => array('thread_allow', t("Allow threaded items"), get_config('system','thread_allow'), t("Allow infinite level threading for items on this site.")),
680                 '$newuser_private'      => array('newuser_private', t("Private posts by default for new users"), get_config('system','newuser_private'), t("Set default post permissions for all new members to the default privacy group rather than public.")),
681                 '$enotify_no_content'   => array('enotify_no_content', t("Don't include post content in email notifications"), get_config('system','enotify_no_content'), t("Don't include the content of a post/comment/private message/etc. in the email notifications that are sent out from this site, as a privacy measure.")),
682                 '$private_addons'       => array('private_addons', t("Disallow public access to addons listed in the apps menu."), get_config('config','private_addons'), t("Checking this box will restrict addons listed in the apps menu to members only.")),
683                 '$disable_embedded'     => array('disable_embedded', t("Don't embed private images in posts"), get_config('system','disable_embedded'), t("Don't replace locally-hosted private photos in posts with an embedded copy of the image. This means that contacts who receive posts containing private photos will have to authenticate and load each image, which may take a while.")),
684                 '$allow_users_remote_self'      => array('allow_users_remote_self', t('Allow Users to set remote_self'), get_config('system','allow_users_remote_self'), t('With checking this, every user is allowed to mark every contact as a remote_self in the repair contact dialog. Setting this flag on a contact causes mirroring every posting of that contact in the users stream.')),
685                 '$no_multi_reg'         => array('no_multi_reg', t("Block multiple registrations"),  get_config('system','block_extended_register'), t("Disallow users to register additional accounts for use as pages.")),
686                 '$no_openid'            => array('no_openid', t("OpenID support"), !get_config('system','no_openid'), t("OpenID support for registration and logins.")),
687                 '$no_regfullname'       => array('no_regfullname', t("Fullname check"), !get_config('system','no_regfullname'), t("Force users to register with a space between firstname and lastname in Full name, as an antispam measure")),
688                 '$no_utf'               => array('no_utf', t("UTF-8 Regular expressions"), !get_config('system','no_utf'), t("Use PHP UTF8 regular expressions")),
689                 '$community_page_style' => array('community_page_style', t("Community Page Style"), get_config('system','community_page_style'), t("Type of community page to show. 'Global community' shows every public posting from an open distributed network that arrived on this server."), $community_page_style_choices),
690                 '$max_author_posts_community_page' => array('max_author_posts_community_page', t("Posts per user on community page"), get_config('system','max_author_posts_community_page'), t("The maximum number of posts per user on the community page. (Not valid for 'Global Community')")),
691                 '$ostatus_disabled'     => array('ostatus_disabled', t("Enable OStatus support"), !get_config('system','ostatus_disabled'), t("Provide built-in OStatus \x28StatusNet, GNU Social etc.\x29 compatibility. All communications in OStatus are public, so privacy warnings will be occasionally displayed.")),
692                 '$ostatus_poll_interval'        => array('ostatus_poll_interval', t("OStatus conversation completion interval"), (string) intval(get_config('system','ostatus_poll_interval')), t("How often shall the poller check for new entries in OStatus conversations? This can be a very ressource task."), $ostatus_poll_choices),
693                 '$diaspora_enabled'     => array('diaspora_enabled', t("Enable Diaspora support"), get_config('system','diaspora_enabled'), t("Provide built-in Diaspora network compatibility.")),
694                 '$dfrn_only'            => array('dfrn_only', t('Only allow Friendica contacts'), get_config('system','dfrn_only'), t("All contacts must use Friendica protocols. All other built-in communication protocols disabled.")),
695                 '$verifyssl'            => array('verifyssl', t("Verify SSL"), get_config('system','verifyssl'), t("If you wish, you can turn on strict certificate checking. This will mean you cannot connect (at all) to self-signed SSL sites.")),
696                 '$proxyuser'            => array('proxyuser', t("Proxy user"), get_config('system','proxyuser'), ""),
697                 '$proxy'                => array('proxy', t("Proxy URL"), get_config('system','proxy'), ""),
698                 '$timeout'              => array('timeout', t("Network timeout"), (x(get_config('system','curl_timeout'))?get_config('system','curl_timeout'):60), t("Value is in seconds. Set to 0 for unlimited (not recommended).")),
699                 '$delivery_interval'    => array('delivery_interval', t("Delivery interval"), (x(get_config('system','delivery_interval'))?get_config('system','delivery_interval'):2), t("Delay background delivery processes by this many seconds to reduce system load. Recommend: 4-5 for shared hosts, 2-3 for virtual private servers. 0-1 for large dedicated servers.")),
700                 '$poll_interval'        => array('poll_interval', t("Poll interval"), (x(get_config('system','poll_interval'))?get_config('system','poll_interval'):2), t("Delay background polling processes by this many seconds to reduce system load. If 0, use delivery interval.")),
701                 '$maxloadavg'           => array('maxloadavg', t("Maximum Load Average"), ((intval(get_config('system','maxloadavg')) > 0)?get_config('system','maxloadavg'):50), t("Maximum system load before delivery and poll processes are deferred - default 50.")),
702                 '$maxloadavg_frontend'  => array('maxloadavg_frontend', t("Maximum Load Average (Frontend)"), ((intval(get_config('system','maxloadavg_frontend')) > 0)?get_config('system','maxloadavg_frontend'):50), t("Maximum system load before the frontend quits service - default 50.")),
703
704                 '$poco_completion'      => array('poco_completion', t("Completion of incoming contacts"), get_config('system','poco_completion'), t("Complete data of incomplete incoming contacts that are provided by the 'portable contacts' functionality. (Useful when communicating with Redmatrix and friendica servers before 3.3)")),
705                 '$poco_discovery'       => array('poco_discovery', t("Discover contacts from other servers"), (string) intval(get_config('system','poco_discovery')), t("Periodically query other servers for contacts. You can choose between 'users': the users on the remote system, 'Global Contacts': active contacts that are known on the system. The fallback is meant for Redmatrix servers and older friendica servers, where global contacts weren't available."), $poco_discovery_choices),
706                 '$poco_local_search'    => array('poco_local_search', t("Search the local directory"), get_config('system','poco_local_search'), t("Search the local directory instead of the global directory. When searching locally, every search will be executed on the global directory in the background. This improves the search results when the search is repeated.")),
707
708                 '$use_fulltext_engine'  => array('use_fulltext_engine', t("Use MySQL full text engine"), get_config('system','use_fulltext_engine'), t("Activates the full text engine. Speeds up search - but can only search for four and more characters.")),
709                 '$suppress_language'    => array('suppress_language', t("Suppress Language"), get_config('system','suppress_language'), t("Suppress language information in meta information about a posting.")),
710                 '$suppress_tags'        => array('suppress_tags', t("Suppress Tags"), get_config('system','suppress_tags'), t("Suppress showing a list of hashtags at the end of the posting.")),
711                 '$itemcache'            => array('itemcache', t("Path to item cache"), get_config('system','itemcache'), "The item caches buffers generated bbcode and external images."),
712                 '$itemcache_duration'   => array('itemcache_duration', t("Cache duration in seconds"), get_config('system','itemcache_duration'), t("How long should the cache files be hold? Default value is 86400 seconds (One day). To disable the item cache, set the value to -1.")),
713                 '$max_comments'         => array('max_comments', t("Maximum numbers of comments per post"), get_config('system','max_comments'), t("How much comments should be shown for each post? Default value is 100.")),
714                 '$lockpath'             => array('lockpath', t("Path for lock file"), get_config('system','lockpath'), "The lock file is used to avoid multiple pollers at one time. Only define a folder here."),
715                 '$temppath'             => array('temppath', t("Temp path"), get_config('system','temppath'), "If you have a restricted system where the webserver can't access the system temp path, enter another path here."),
716                 '$basepath'             => array('basepath', t("Base path to installation"), get_config('system','basepath'), "If the system cannot detect the correct path to your installation, enter the correct path here. This setting should only be set if you are using a restricted system and symbolic links to your webroot."),
717                 '$proxy_disabled'       => array('proxy_disabled', t("Disable picture proxy"), get_config('system','proxy_disabled'), t("The picture proxy increases performance and privacy. It shouldn't be used on systems with very low bandwith.")),
718                 '$old_pager'            => array('old_pager', t("Enable old style pager"), get_config('system','old_pager'), t("The old style pager has page numbers but slows down massively the page speed.")),
719                 '$only_tag_search'      => array('only_tag_search', t("Only search in tags"), get_config('system','only_tag_search'), t("On large systems the text search can slow down the system extremely.")),
720
721                 '$relocate_url'     => array('relocate_url', t("New base url"), $a->get_baseurl(), "Change base url for this server. Sends relocate message to all DFRN contacts of all users."),
722                 
723                 '$rino'                 => array('rino', t("RINO Encryption"), intval(get_config('system','rino_encrypt')), t("Encryption layer between nodes."), array("Disabled", "RINO1 (deprecated)", "RINO2")),
724                 
725                 '$form_security_token' => get_form_security_token("admin_site")
726
727         ));
728
729 }
730
731
732 function admin_page_dbsync(&$a) {
733
734         $o = '';
735
736         if($a->argc > 3 && intval($a->argv[3]) && $a->argv[2] === 'mark') {
737                 set_config('database', 'update_' . intval($a->argv[3]), 'success');
738                 $curr = get_config('system','build');
739                 if(intval($curr) == intval($a->argv[3]))
740                         set_config('system','build',intval($curr) + 1);
741                 info( t('Update has been marked successful') . EOL);
742                 goaway($a->get_baseurl(true) . '/admin/dbsync');
743         }
744
745         if(($a->argc > 2) AND (intval($a->argv[2]) OR ($a->argv[2] === 'check'))) {
746                 require_once("include/dbstructure.php");
747                 $retval = update_structure(false, true);
748                 if (!$retval) {
749                         $o .= sprintf(t("Database structure update %s was successfully applied."), DB_UPDATE_VERSION)."<br />";
750                         set_config('database', 'dbupdate_'.DB_UPDATE_VERSION, 'success');
751                 } else
752                         $o .= sprintf(t("Executing of database structure update %s failed with error: %s"),
753                                         DB_UPDATE_VERSION, $retval)."<br />";
754                 if ($a->argv[2] === 'check')
755                         return $o;
756         }
757
758         if ($a->argc > 2 && intval($a->argv[2])) {
759                 require_once('update.php');
760                 $func = 'update_' . intval($a->argv[2]);
761                 if(function_exists($func)) {
762                         $retval = $func();
763                         if($retval === UPDATE_FAILED) {
764                                 $o .= sprintf(t("Executing %s failed with error: %s"), $func, $retval);
765                         }
766                         elseif($retval === UPDATE_SUCCESS) {
767                                 $o .= sprintf(t('Update %s was successfully applied.', $func));
768                                 set_config('database',$func, 'success');
769                         }
770                         else
771                                 $o .= sprintf(t('Update %s did not return a status. Unknown if it succeeded.'), $func);
772                 } else {
773                         $o .= sprintf(t('There was no additional update function %s that needed to be called.'), $func)."<br />";
774                         set_config('database',$func, 'success');
775                 }
776                 return $o;
777         }
778
779         $failed = array();
780         $r = q("select k, v from config where `cat` = 'database' ");
781         if(count($r)) {
782                 foreach($r as $rr) {
783                         $upd = intval(substr($rr['k'],7));
784                         if($upd < 1139 || $rr['v'] === 'success')
785                                 continue;
786                         $failed[] = $upd;
787                 }
788         }
789         if(! count($failed)) {
790                 $o = replace_macros(get_markup_template('structure_check.tpl'),array(
791                         '$base' => $a->get_baseurl(true),
792                         '$banner' => t('No failed updates.'),
793                         '$check' => t('Check database structure'),
794                 ));
795         } else {
796                 $o = replace_macros(get_markup_template('failed_updates.tpl'),array(
797                         '$base' => $a->get_baseurl(true),
798                         '$banner' => t('Failed Updates'),
799                         '$desc' => t('This does not include updates prior to 1139, which did not return a status.'),
800                         '$mark' => t('Mark success (if update was manually applied)'),
801                         '$apply' => t('Attempt to execute this update step automatically'),
802                         '$failed' => $failed
803                 ));
804         }
805
806         return $o;
807
808 }
809
810 /**
811  * Users admin page
812  *
813  * @param App $a
814  */
815 function admin_page_users_post(&$a){
816         $pending = ( x($_POST, 'pending') ? $_POST['pending'] : Array() );
817         $users = ( x($_POST, 'user') ? $_POST['user'] : Array() );
818         $nu_name = ( x($_POST, 'new_user_name') ? $_POST['new_user_name'] : '');
819         $nu_nickname = ( x($_POST, 'new_user_nickname') ? $_POST['new_user_nickname'] : '');
820         $nu_email = ( x($_POST, 'new_user_email') ? $_POST['new_user_email'] : '');
821
822         check_form_security_token_redirectOnErr($a->get_baseurl().'/admin/users', 'admin_users');
823
824         if (!($nu_name==="") && !($nu_email==="") && !($nu_nickname==="")) {
825                 require_once('include/user.php');
826
827                 $result = create_user( array('username'=>$nu_name, 'email'=>$nu_email, 'nickname'=>$nu_nickname, 'verified'=>1)  );
828                 if(! $result['success']) {
829                         notice($result['message']);
830                         return;
831                 }
832                 $nu = $result['user'];
833                 $preamble = deindent(t('
834                         Dear %1$s,
835                                 the administrator of %2$s has set up an account for you.'));
836                 $body = deindent(t('
837                         The login details are as follows:
838
839                         Site Location:  %1$s
840                         Login Name:             %2$s
841                         Password:               %3$s
842
843                         You may change your password from your account "Settings" page after logging
844                         in.
845
846                         Please take a few moments to review the other account settings on that page.
847
848                         You may also wish to add some basic information to your default profile
849                         (on the "Profiles" page) so that other people can easily find you.
850
851                         We recommend setting your full name, adding a profile photo,
852                         adding some profile "keywords" (very useful in making new friends) - and
853                         perhaps what country you live in; if you do not wish to be more specific
854                         than that.
855
856                         We fully respect your right to privacy, and none of these items are necessary.
857                         If you are new and do not know anybody here, they may help
858                         you to make some new and interesting friends.
859
860                         Thank you and welcome to %4$s.'));
861
862                 $preamble = sprintf($preamble, $nu['username'], $a->config['sitename']);
863                 $body = sprintf($body, $a->get_baseurl(), $nu['email'], $result['password'], $a->config['sitename']);
864
865                 notification(array(
866                         'type' => "SYSTEM_EMAIL",
867                         'to_email' => $nu['email'],
868                         'subject'=> sprintf( t('Registration details for %s'), $a->config['sitename']),
869                         'preamble'=> $preamble,
870                         'body' => $body));
871
872         }
873
874         if (x($_POST,'page_users_block')){
875                 foreach($users as $uid){
876                         q("UPDATE `user` SET `blocked`=1-`blocked` WHERE `uid`=%s",
877                                 intval( $uid )
878                         );
879                 }
880                 notice( sprintf( tt("%s user blocked/unblocked", "%s users blocked/unblocked", count($users)), count($users)) );
881         }
882         if (x($_POST,'page_users_delete')){
883                 require_once("include/Contact.php");
884                 foreach($users as $uid){
885                         user_remove($uid);
886                 }
887                 notice( sprintf( tt("%s user deleted", "%s users deleted", count($users)), count($users)) );
888         }
889
890         if (x($_POST,'page_users_approve')){
891                 require_once("mod/regmod.php");
892                 foreach($pending as $hash){
893                         user_allow($hash);
894                 }
895         }
896         if (x($_POST,'page_users_deny')){
897                 require_once("mod/regmod.php");
898                 foreach($pending as $hash){
899                         user_deny($hash);
900                 }
901         }
902         goaway($a->get_baseurl(true) . '/admin/users' );
903         return; // NOTREACHED
904 }
905
906 /**
907  * @param App $a
908  * @return string
909  */
910 function admin_page_users(&$a){
911         if ($a->argc>2) {
912                 $uid = $a->argv[3];
913                 $user = q("SELECT username, blocked FROM `user` WHERE `uid`=%d", intval($uid));
914                 if (count($user)==0){
915                         notice( 'User not found' . EOL);
916                         goaway($a->get_baseurl(true) . '/admin/users' );
917                         return ''; // NOTREACHED
918                 }
919                 switch($a->argv[2]){
920                         case "delete":{
921                                 check_form_security_token_redirectOnErr('/admin/users', 'admin_users', 't');
922                                 // delete user
923                                 require_once("include/Contact.php");
924                                 user_remove($uid);
925
926                                 notice( sprintf(t("User '%s' deleted"), $user[0]['username']) . EOL);
927                         }; break;
928                         case "block":{
929                                 check_form_security_token_redirectOnErr('/admin/users', 'admin_users', 't');
930                                 q("UPDATE `user` SET `blocked`=%d WHERE `uid`=%s",
931                                         intval( 1-$user[0]['blocked'] ),
932                                         intval( $uid )
933                                 );
934                                 notice( sprintf( ($user[0]['blocked']?t("User '%s' unblocked"):t("User '%s' blocked")) , $user[0]['username']) . EOL);
935                         }; break;
936                 }
937                 goaway($a->get_baseurl(true) . '/admin/users' );
938                 return ''; // NOTREACHED
939
940         }
941
942         /* get pending */
943         $pending = q("SELECT `register`.*, `contact`.`name`, `user`.`email`
944                                  FROM `register`
945                                  LEFT JOIN `contact` ON `register`.`uid` = `contact`.`uid`
946                                  LEFT JOIN `user` ON `register`.`uid` = `user`.`uid`;");
947
948
949         /* get users */
950
951         $total = q("SELECT count(*) as total FROM `user` where 1");
952         if(count($total)) {
953                 $a->set_pager_total($total[0]['total']);
954                 $a->set_pager_itemspage(100);
955         }
956
957
958         $users = q("SELECT `user` . * , `contact`.`name` , `contact`.`url` , `contact`.`micro`, `lastitem`.`lastitem_date`, `user`.`account_expired`
959                                 FROM
960                                         (SELECT MAX(`item`.`changed`) as `lastitem_date`, `item`.`uid`
961                                         FROM `item`
962                                         WHERE `item`.`type` = 'wall'
963                                         GROUP BY `item`.`uid`) AS `lastitem`
964                                                  RIGHT OUTER JOIN `user` ON `user`.`uid` = `lastitem`.`uid`,
965                                            `contact`
966                                 WHERE
967                                            `user`.`uid` = `contact`.`uid`
968                                                 AND `user`.`verified` =1
969                                         AND `contact`.`self` =1
970                                 ORDER BY `contact`.`name` LIMIT %d, %d
971                                 ",
972                                 intval($a->pager['start']),
973                                 intval($a->pager['itemspage'])
974                                 );
975
976         $adminlist = explode(",", str_replace(" ", "", $a->config['admin_email']));
977         $_setup_users = function ($e) use ($adminlist){
978                 $accounts = Array(
979                         t('Normal Account'),
980                         t('Soapbox Account'),
981                         t('Community/Celebrity Account'),
982                                                 t('Automatic Friend Account')
983                 );
984                 $e['page-flags'] = $accounts[$e['page-flags']];
985                 $e['register_date'] = relative_date($e['register_date']);
986                 $e['login_date'] = relative_date($e['login_date']);
987                 $e['lastitem_date'] = relative_date($e['lastitem_date']);
988                 //$e['is_admin'] = ($e['email'] === $a->config['admin_email']);
989                 $e['is_admin'] = in_array($e['email'], $adminlist);
990                 $e['is_deletable'] = (intval($e['uid']) != local_user());
991                 $e['deleted'] = ($e['account_removed']?relative_date($e['account_expires_on']):False);
992                 return $e;
993         };
994         $users = array_map($_setup_users, $users);
995
996
997         // Get rid of dashes in key names, Smarty3 can't handle them
998         // and extracting deleted users
999
1000         $tmp_users = Array();
1001         $deleted = Array();
1002
1003         while(count($users)) {
1004                 $new_user = Array();
1005                 foreach( array_pop($users) as $k => $v) {
1006                         $k = str_replace('-','_',$k);
1007                         $new_user[$k] = $v;
1008                 }
1009                 if($new_user['deleted']) {
1010                         array_push($deleted, $new_user);
1011                 }
1012                 else {
1013                         array_push($tmp_users, $new_user);
1014                 }
1015         }
1016         //Reversing the two array, and moving $tmp_users to $users
1017         array_reverse($deleted);
1018         while(count($tmp_users)) {
1019                 array_push($users, array_pop($tmp_users));
1020         }
1021
1022         $t = get_markup_template("admin_users.tpl");
1023         $o = replace_macros($t, array(
1024                 // strings //
1025                 '$title' => t('Administration'),
1026                 '$page' => t('Users'),
1027                 '$submit' => t('Add User'),
1028                 '$select_all' => t('select all'),
1029                 '$h_pending' => t('User registrations waiting for confirm'),
1030                 '$h_deleted' => t('User waiting for permanent deletion'),
1031                 '$th_pending' => array( t('Request date'), t('Name'), t('Email') ),
1032                 '$no_pending' =>  t('No registrations.'),
1033                 '$approve' => t('Approve'),
1034                 '$deny' => t('Deny'),
1035                 '$delete' => t('Delete'),
1036                 '$block' => t('Block'),
1037                 '$unblock' => t('Unblock'),
1038                 '$siteadmin' => t('Site admin'),
1039                 '$accountexpired' => t('Account expired'),
1040
1041                 '$h_users' => t('Users'),
1042                 '$h_newuser' => t('New User'),
1043                 '$th_deleted' => array( t('Name'), t('Email'), t('Register date'), t('Last login'), t('Last item'), t('Deleted since') ),
1044                 '$th_users' => array( t('Name'), t('Email'), t('Register date'), t('Last login'), t('Last item'),  t('Account') ),
1045
1046                 '$confirm_delete_multi' => t('Selected users will be deleted!\n\nEverything these users had posted on this site will be permanently deleted!\n\nAre you sure?'),
1047                 '$confirm_delete' => t('The user {0} will be deleted!\n\nEverything this user has posted on this site will be permanently deleted!\n\nAre you sure?'),
1048
1049                 '$form_security_token' => get_form_security_token("admin_users"),
1050
1051                 // values //
1052                 '$baseurl' => $a->get_baseurl(true),
1053
1054                 '$pending' => $pending,
1055                 'deleted' => $deleted,
1056                 '$users' => $users,
1057                 '$newusername'  => array('new_user_name', t("Name"), '', t("Name of the new user.")),
1058                 '$newusernickname'  => array('new_user_nickname', t("Nickname"), '', t("Nickname of the new user.")),
1059                 '$newuseremail'  => array('new_user_email', t("Email"), '', t("Email address of the new user."), '', '', 'email'),
1060         ));
1061         $o .= paginate($a);
1062         return $o;
1063 }
1064
1065
1066 /**
1067  * Plugins admin page
1068  *
1069  * @param App $a
1070  * @return string
1071  */
1072 function admin_page_plugins(&$a){
1073
1074         /**
1075          * Single plugin
1076          */
1077         if ($a->argc == 3){
1078                 $plugin = $a->argv[2];
1079                 if (!is_file("addon/$plugin/$plugin.php")){
1080                         notice( t("Item not found.") );
1081                         return '';
1082                 }
1083
1084                 if (x($_GET,"a") && $_GET['a']=="t"){
1085                         check_form_security_token_redirectOnErr('/admin/plugins', 'admin_themes', 't');
1086
1087                         // Toggle plugin status
1088                         $idx = array_search($plugin, $a->plugins);
1089                         if ($idx !== false){
1090                                 unset($a->plugins[$idx]);
1091                                 uninstall_plugin($plugin);
1092                                 info( sprintf( t("Plugin %s disabled."), $plugin ) );
1093                         } else {
1094                                 $a->plugins[] = $plugin;
1095                                 install_plugin($plugin);
1096                                 info( sprintf( t("Plugin %s enabled."), $plugin ) );
1097                         }
1098                         set_config("system","addon", implode(", ",$a->plugins));
1099                         goaway($a->get_baseurl(true) . '/admin/plugins' );
1100                         return ''; // NOTREACHED
1101                 }
1102                 // display plugin details
1103                 require_once('library/markdown.php');
1104
1105                 if (in_array($plugin, $a->plugins)){
1106                         $status="on"; $action= t("Disable");
1107                 } else {
1108                         $status="off"; $action= t("Enable");
1109                 }
1110
1111                 $readme=Null;
1112                 if (is_file("addon/$plugin/README.md")){
1113                         $readme = file_get_contents("addon/$plugin/README.md");
1114                         $readme = Markdown($readme);
1115                 } else if (is_file("addon/$plugin/README")){
1116                         $readme = "<pre>". file_get_contents("addon/$plugin/README") ."</pre>";
1117                 }
1118
1119                 $admin_form="";
1120                 if (is_array($a->plugins_admin) && in_array($plugin, $a->plugins_admin)){
1121                         @require_once("addon/$plugin/$plugin.php");
1122                         $func = $plugin.'_plugin_admin';
1123                         $func($a, $admin_form);
1124                 }
1125
1126                 $t = get_markup_template("admin_plugins_details.tpl");
1127
1128                 return replace_macros($t, array(
1129                         '$title' => t('Administration'),
1130                         '$page' => t('Plugins'),
1131                         '$toggle' => t('Toggle'),
1132                         '$settings' => t('Settings'),
1133                         '$baseurl' => $a->get_baseurl(true),
1134
1135                         '$plugin' => $plugin,
1136                         '$status' => $status,
1137                         '$action' => $action,
1138                         '$info' => get_plugin_info($plugin),
1139                         '$str_author' => t('Author: '),
1140                         '$str_maintainer' => t('Maintainer: '),
1141
1142                         '$admin_form' => $admin_form,
1143                         '$function' => 'plugins',
1144                         '$screenshot' => '',
1145                         '$readme' => $readme,
1146
1147                         '$form_security_token' => get_form_security_token("admin_themes"),
1148                 ));
1149         }
1150
1151
1152
1153         /**
1154          * List plugins
1155          */
1156
1157         $plugins = array();
1158         $files = glob("addon/*/"); /* */
1159         if($files) {
1160                 foreach($files as $file) {
1161                         if (is_dir($file)){
1162                                 list($tmp, $id)=array_map("trim", explode("/",$file));
1163                                 $info = get_plugin_info($id);
1164                                 $show_plugin = true;
1165
1166                                 // If the addon is unsupported, then only show it, when it is enabled
1167                                 if ((strtolower($info["status"]) == "unsupported") AND !in_array($id,  $a->plugins))
1168                                         $show_plugin = false;
1169
1170                                 // Override the above szenario, when the admin really wants to see outdated stuff
1171                                 if (get_config("system", "show_unsupported_addons"))
1172                                         $show_plugin = true;
1173
1174                                 if ($show_plugin)
1175                                         $plugins[] = array($id, (in_array($id,  $a->plugins)?"on":"off") , $info);
1176                         }
1177                 }
1178         }
1179
1180         $t = get_markup_template("admin_plugins.tpl");
1181         return replace_macros($t, array(
1182                 '$title' => t('Administration'),
1183                 '$page' => t('Plugins'),
1184                 '$submit' => t('Save Settings'),
1185                 '$baseurl' => $a->get_baseurl(true),
1186                 '$function' => 'plugins',
1187                 '$plugins' => $plugins,
1188                 '$form_security_token' => get_form_security_token("admin_themes"),
1189         ));
1190 }
1191
1192 /**
1193  * @param array $themes
1194  * @param string $th
1195  * @param int $result
1196  */
1197 function toggle_theme(&$themes,$th,&$result) {
1198         for($x = 0; $x < count($themes); $x ++) {
1199                 if($themes[$x]['name'] === $th) {
1200                         if($themes[$x]['allowed']) {
1201                                 $themes[$x]['allowed'] = 0;
1202                                 $result = 0;
1203                         }
1204                         else {
1205                                 $themes[$x]['allowed'] = 1;
1206                                 $result = 1;
1207                         }
1208                 }
1209         }
1210 }
1211
1212 /**
1213  * @param array $themes
1214  * @param string $th
1215  * @return int
1216  */
1217 function theme_status($themes,$th) {
1218         for($x = 0; $x < count($themes); $x ++) {
1219                 if($themes[$x]['name'] === $th) {
1220                         if($themes[$x]['allowed']) {
1221                                 return 1;
1222                         }
1223                         else {
1224                                 return 0;
1225                         }
1226                 }
1227         }
1228         return 0;
1229 }
1230
1231
1232 /**
1233  * @param array $themes
1234  * @return string
1235  */
1236 function rebuild_theme_table($themes) {
1237         $o = '';
1238         if(count($themes)) {
1239                 foreach($themes as $th) {
1240                         if($th['allowed']) {
1241                                 if(strlen($o))
1242                                         $o .= ',';
1243                                 $o .= $th['name'];
1244                         }
1245                 }
1246         }
1247         return $o;
1248 }
1249
1250
1251 /**
1252  * Themes admin page
1253  *
1254  * @param App $a
1255  * @return string
1256  */
1257 function admin_page_themes(&$a){
1258
1259         $allowed_themes_str = get_config('system','allowed_themes');
1260         $allowed_themes_raw = explode(',',$allowed_themes_str);
1261         $allowed_themes = array();
1262         if(count($allowed_themes_raw))
1263                 foreach($allowed_themes_raw as $x)
1264                         if(strlen(trim($x)))
1265                                 $allowed_themes[] = trim($x);
1266
1267         $themes = array();
1268         $files = glob('view/theme/*'); /* */
1269         if($files) {
1270                 foreach($files as $file) {
1271                         $f = basename($file);
1272                         $is_experimental = intval(file_exists($file . '/experimental'));
1273                         $is_supported = 1-(intval(file_exists($file . '/unsupported')));
1274                         $is_allowed = intval(in_array($f,$allowed_themes));
1275
1276                         if ($is_allowed OR $is_supported OR get_config("system", "show_unsupported_themes"))
1277                                 $themes[] = array('name' => $f, 'experimental' => $is_experimental, 'supported' => $is_supported, 'allowed' => $is_allowed);
1278                 }
1279         }
1280
1281         if(! count($themes)) {
1282                 notice( t('No themes found.'));
1283                 return '';
1284         }
1285
1286         /**
1287          * Single theme
1288          */
1289
1290         if ($a->argc == 3){
1291                 $theme = $a->argv[2];
1292                 if(! is_dir("view/theme/$theme")){
1293                         notice( t("Item not found.") );
1294                         return '';
1295                 }
1296
1297                 if (x($_GET,"a") && $_GET['a']=="t"){
1298                         check_form_security_token_redirectOnErr('/admin/themes', 'admin_themes', 't');
1299
1300                         // Toggle theme status
1301
1302                         toggle_theme($themes,$theme,$result);
1303                         $s = rebuild_theme_table($themes);
1304                         if($result) {
1305                                 install_theme($theme);
1306                                 info( sprintf('Theme %s enabled.',$theme));
1307                         }
1308                         else {
1309                                 uninstall_theme($theme);
1310                                 info( sprintf('Theme %s disabled.',$theme));
1311                         }
1312
1313                         set_config('system','allowed_themes',$s);
1314                         goaway($a->get_baseurl(true) . '/admin/themes' );
1315                         return ''; // NOTREACHED
1316                 }
1317
1318                 // display theme details
1319                 require_once('library/markdown.php');
1320
1321                 if (theme_status($themes,$theme)) {
1322                         $status="on"; $action= t("Disable");
1323                 } else {
1324                         $status="off"; $action= t("Enable");
1325                 }
1326
1327                 $readme=Null;
1328                 if (is_file("view/theme/$theme/README.md")){
1329                         $readme = file_get_contents("view/theme/$theme/README.md");
1330                         $readme = Markdown($readme);
1331                 } else if (is_file("view/theme/$theme/README")){
1332                         $readme = "<pre>". file_get_contents("view/theme/$theme/README") ."</pre>";
1333                 }
1334
1335                 $admin_form="";
1336                 if (is_file("view/theme/$theme/config.php")){
1337                         require_once("view/theme/$theme/config.php");
1338                         if(function_exists("theme_admin")){
1339                                 $admin_form = theme_admin($a);
1340                         }
1341
1342                 }
1343
1344                 $screenshot = array( get_theme_screenshot($theme), t('Screenshot'));
1345                 if(! stristr($screenshot[0],$theme))
1346                         $screenshot = null;
1347
1348                 $t = get_markup_template("admin_plugins_details.tpl");
1349                 return replace_macros($t, array(
1350                         '$title' => t('Administration'),
1351                         '$page' => t('Themes'),
1352                         '$toggle' => t('Toggle'),
1353                         '$settings' => t('Settings'),
1354                         '$baseurl' => $a->get_baseurl(true),
1355
1356                         '$plugin' => $theme,
1357                         '$status' => $status,
1358                         '$action' => $action,
1359                         '$info' => get_theme_info($theme),
1360                         '$function' => 'themes',
1361                         '$admin_form' => $admin_form,
1362                         '$str_author' => t('Author: '),
1363                         '$str_maintainer' => t('Maintainer: '),
1364                         '$screenshot' => $screenshot,
1365                         '$readme' => $readme,
1366
1367                         '$form_security_token' => get_form_security_token("admin_themes"),
1368                 ));
1369         }
1370
1371         /**
1372          * List themes
1373          */
1374
1375         $xthemes = array();
1376         if($themes) {
1377                 foreach($themes as $th) {
1378                         $xthemes[] = array($th['name'],(($th['allowed']) ? "on" : "off"), get_theme_info($th['name']));
1379                 }
1380         }
1381
1382         $t = get_markup_template("admin_plugins.tpl");
1383         return replace_macros($t, array(
1384                 '$title' => t('Administration'),
1385                 '$page' => t('Themes'),
1386                 '$submit' => t('Save Settings'),
1387                 '$baseurl' => $a->get_baseurl(true),
1388                 '$function' => 'themes',
1389                 '$plugins' => $xthemes,
1390                 '$experimental' => t('[Experimental]'),
1391                 '$unsupported' => t('[Unsupported]'),
1392                 '$form_security_token' => get_form_security_token("admin_themes"),
1393         ));
1394 }
1395
1396
1397 /**
1398  * Logs admin page
1399  *
1400  * @param App $a
1401  */
1402
1403 function admin_page_logs_post(&$a) {
1404         if (x($_POST,"page_logs")) {
1405                 check_form_security_token_redirectOnErr('/admin/logs', 'admin_logs');
1406
1407                 $logfile                =       ((x($_POST,'logfile'))          ? notags(trim($_POST['logfile']))       : '');
1408                 $debugging              =       ((x($_POST,'debugging'))        ? true                                                          : false);
1409                 $loglevel               =       ((x($_POST,'loglevel'))         ? intval(trim($_POST['loglevel']))      : 0);
1410
1411                 set_config('system','logfile', $logfile);
1412                 set_config('system','debugging',  $debugging);
1413                 set_config('system','loglevel', $loglevel);
1414
1415
1416         }
1417
1418         info( t("Log settings updated.") );
1419         goaway($a->get_baseurl(true) . '/admin/logs' );
1420         return; // NOTREACHED
1421 }
1422
1423 /**
1424  * @param App $a
1425  * @return string
1426  */
1427 function admin_page_logs(&$a){
1428
1429         $log_choices = Array(
1430                 LOGGER_NORMAL => 'Normal',
1431                 LOGGER_TRACE => 'Trace',
1432                 LOGGER_DEBUG => 'Debug',
1433                 LOGGER_DATA => 'Data',
1434                 LOGGER_ALL => 'All'
1435         );
1436
1437         $t = get_markup_template("admin_logs.tpl");
1438
1439         $f = get_config('system','logfile');
1440
1441         $data = '';
1442
1443         if(!file_exists($f)) {
1444                 $data = t("Error trying to open <strong>$f</strong> log file.\r\n<br/>Check to see if file $f exist and is
1445 readable.");
1446         }
1447         else {
1448                 $fp = fopen($f, 'r');
1449                 if(!$fp) {
1450                         $data = t("Couldn't open <strong>$f</strong> log file.\r\n<br/>Check to see if file $f is readable.");
1451                 }
1452                 else {
1453                         $fstat = fstat($fp);
1454                         $size = $fstat['size'];
1455                         if($size != 0)
1456                         {
1457                                 if($size > 5000000 || $size < 0)
1458                                         $size = 5000000;
1459                                 $seek = fseek($fp,0-$size,SEEK_END);
1460                                 if($seek === 0) {
1461                                         $data = escape_tags(fread($fp,$size));
1462                                         while(! feof($fp))
1463                                                 $data .= escape_tags(fread($fp,4096));
1464                                 }
1465                         }
1466                         fclose($fp);
1467                 }
1468         }
1469
1470         return replace_macros($t, array(
1471                 '$title' => t('Administration'),
1472                 '$page' => t('Logs'),
1473                 '$submit' => t('Save Settings'),
1474                 '$clear' => t('Clear'),
1475                 '$data' => $data,
1476                 '$baseurl' => $a->get_baseurl(true),
1477                 '$logname' =>  get_config('system','logfile'),
1478
1479                                                                         // name, label, value, help string, extra data...
1480                 '$debugging'            => array('debugging', t("Enable Debugging"),get_config('system','debugging'), ""),
1481                 '$logfile'                      => array('logfile', t("Log file"), get_config('system','logfile'), t("Must be writable by web server. Relative to your Friendica top-level directory.")),
1482                 '$loglevel'             => array('loglevel', t("Log level"), get_config('system','loglevel'), "", $log_choices),
1483
1484                 '$form_security_token' => get_form_security_token("admin_logs"),
1485         ));
1486 }
1487
1488 /**
1489  * @param App $a
1490  */
1491 function admin_page_remoteupdate_post(&$a) {
1492         // this function should be called via ajax post
1493         if(!is_site_admin()) {
1494                 return;
1495         }
1496
1497
1498         if (x($_POST,'remotefile') && $_POST['remotefile']!=""){
1499                 $remotefile = $_POST['remotefile'];
1500                 $ftpdata = (x($_POST['ftphost'])?$_POST:false);
1501                 doUpdate($remotefile, $ftpdata);
1502         } else {
1503                 echo "No remote file to download. Abort!";
1504         }
1505
1506         killme();
1507 }
1508
1509 /**
1510  * @param App $a
1511  * @return string
1512  */
1513 function admin_page_remoteupdate(&$a) {
1514         if(!is_site_admin()) {
1515                 return login(false);
1516         }
1517
1518         $canwrite = canWeWrite();
1519         $canftp = function_exists('ftp_connect');
1520
1521         $needupdate = true;
1522         $u = checkUpdate();
1523         if (!is_array($u)){
1524                 $needupdate = false;
1525                 $u = array('','','');
1526         }
1527
1528         $tpl = get_markup_template("admin_remoteupdate.tpl");
1529         return replace_macros($tpl, array(
1530                 '$baseurl' => $a->get_baseurl(true),
1531                 '$submit' => t("Update now"),
1532                 '$close' => t("Close"),
1533                 '$localversion' => FRIENDICA_VERSION,
1534                 '$remoteversion' => $u[1],
1535                 '$needupdate' => $needupdate,
1536                 '$canwrite' => $canwrite,
1537                 '$canftp'       => $canftp,
1538                 '$ftphost'      => array('ftphost', t("FTP Host"), '',''),
1539                 '$ftppath'      => array('ftppath', t("FTP Path"), '/',''),
1540                 '$ftpuser'      => array('ftpuser', t("FTP User"), '',''),
1541                 '$ftppwd'       => array('ftppwd', t("FTP Password"), '',''),
1542                 '$remotefile'=>array('remotefile','', $u['2'],''),
1543         ));
1544
1545 }