]> git.mxchange.org Git - friendica.git/blob - mod/admin.php
Query Redmatrix contacts for their contacts as well.
[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         $dfrn_only              =       ((x($_POST,'dfrn_only'))                ? True                                          : False);
364         $ostatus_disabled       =       !((x($_POST,'ostatus_disabled'))        ? True                                          : False);
365         $ostatus_poll_interval  =       ((x($_POST,'ostatus_poll_interval'))    ? intval(trim($_POST['ostatus_poll_interval'])) :  0);
366         $diaspora_enabled       =       ((x($_POST,'diaspora_enabled'))         ? True                                          : False);
367         $ssl_policy             =       ((x($_POST,'ssl_policy'))               ? intval($_POST['ssl_policy'])                  : 0);
368         $force_ssl              =       ((x($_POST,'force_ssl'))                ? True                                          : False);
369         $old_share              =       ((x($_POST,'old_share'))                ? True                                          : False);
370         $hide_help              =       ((x($_POST,'hide_help'))                ? True                                          : False);
371         $suppress_language      =       ((x($_POST,'suppress_language'))        ? True                                          : False);
372         $suppress_tags          =       ((x($_POST,'suppress_tags'))            ? True                                          : False);
373         $use_fulltext_engine    =       ((x($_POST,'use_fulltext_engine'))      ? True                                          : False);
374         $itemcache              =       ((x($_POST,'itemcache'))                ? notags(trim($_POST['itemcache']))             : '');
375         $itemcache_duration     =       ((x($_POST,'itemcache_duration'))       ? intval($_POST['itemcache_duration'])          : 0);
376         $max_comments           =       ((x($_POST,'max_comments'))             ? intval($_POST['max_comments'])                : 0);
377         $lockpath               =       ((x($_POST,'lockpath'))                 ? notags(trim($_POST['lockpath']))              : '');
378         $temppath               =       ((x($_POST,'temppath'))                 ? notags(trim($_POST['temppath']))              : '');
379         $basepath               =       ((x($_POST,'basepath'))                 ? notags(trim($_POST['basepath']))              : '');
380         $singleuser             =       ((x($_POST,'singleuser'))               ? notags(trim($_POST['singleuser']))            : '');
381         $proxy_disabled         =       ((x($_POST,'proxy_disabled'))           ? True                                          : False);
382         $old_pager              =       ((x($_POST,'old_pager'))                ? True                                          : False);
383         $only_tag_search        =       ((x($_POST,'only_tag_search'))          ? True                                          : False);
384         $rino                   =       ((x($_POST,'rino'))                             ? intval($_POST['rino'])                                : 0);
385
386
387         if($ssl_policy != intval(get_config('system','ssl_policy'))) {
388                 if($ssl_policy == SSL_POLICY_FULL) {
389                         q("update `contact` set
390                                 `url`     = replace(`url`    , 'http:' , 'https:'),
391                                 `photo`   = replace(`photo`  , 'http:' , 'https:'),
392                                 `thumb`   = replace(`thumb`  , 'http:' , 'https:'),
393                                 `micro`   = replace(`micro`  , 'http:' , 'https:'),
394                                 `request` = replace(`request`, 'http:' , 'https:'),
395                                 `notify`  = replace(`notify` , 'http:' , 'https:'),
396                                 `poll`    = replace(`poll`   , 'http:' , 'https:'),
397                                 `confirm` = replace(`confirm`, 'http:' , 'https:'),
398                                 `poco`    = replace(`poco`   , 'http:' , 'https:')
399                                 where `self` = 1"
400                         );
401                         q("update `profile` set
402                                 `photo`   = replace(`photo`  , 'http:' , 'https:'),
403                                 `thumb`   = replace(`thumb`  , 'http:' , 'https:')
404                                 where 1 "
405                         );
406                 }
407                 elseif($ssl_policy == SSL_POLICY_SELFSIGN) {
408                         q("update `contact` set
409                                 `url`     = replace(`url`    , 'https:' , 'http:'),
410                                 `photo`   = replace(`photo`  , 'https:' , 'http:'),
411                                 `thumb`   = replace(`thumb`  , 'https:' , 'http:'),
412                                 `micro`   = replace(`micro`  , 'https:' , 'http:'),
413                                 `request` = replace(`request`, 'https:' , 'http:'),
414                                 `notify`  = replace(`notify` , 'https:' , 'http:'),
415                                 `poll`    = replace(`poll`   , 'https:' , 'http:'),
416                                 `confirm` = replace(`confirm`, 'https:' , 'http:'),
417                                 `poco`    = replace(`poco`   , 'https:' , 'http:')
418                                 where `self` = 1"
419                         );
420                         q("update `profile` set
421                                 `photo`   = replace(`photo`  , 'https:' , 'http:'),
422                                 `thumb`   = replace(`thumb`  , 'https:' , 'http:')
423                                 where 1 "
424                         );
425                 }
426         }
427         set_config('system','ssl_policy',$ssl_policy);
428         set_config('system','delivery_interval',$delivery_interval);
429         set_config('system','poll_interval',$poll_interval);
430         set_config('system','maxloadavg',$maxloadavg);
431         set_config('system','maxloadavg_frontend',$maxloadavg_frontend);
432         set_config('system','poco_completion',$poco_completion);
433         set_config('system','poco_discovery',$poco_discovery);
434         set_config('config','sitename',$sitename);
435         set_config('config','hostname',$hostname);
436         set_config('config','sender_email', $sender_email);
437         set_config('system','suppress_language',$suppress_language);
438         set_config('system','suppress_tags',$suppress_tags);
439         set_config('system','shortcut_icon',$shortcut_icon);
440         set_config('system','touch_icon',$touch_icon);
441
442         if ($banner==""){
443                 // don't know why, but del_config doesn't work...
444                 q("DELETE FROM `config` WHERE `cat` = '%s' AND `k` = '%s' LIMIT 1",
445                         dbesc("system"),
446                         dbesc("banner")
447                 );
448         } else {
449                 set_config('system','banner', $banner);
450         }
451         if ($info=="") {
452                 del_config('config','info');
453         } else {
454                 set_config('config','info',$info);
455         }
456         set_config('system','language', $language);
457         set_config('system','theme', $theme);
458         if ( $theme_mobile === '---' ) {
459                 del_config('system','mobile-theme');
460         } else {
461                 set_config('system','mobile-theme', $theme_mobile);
462                 }
463                 if ( $singleuser === '---' ) {
464                         del_config('system','singleuser');
465                 } else {
466                         set_config('system','singleuser', $singleuser);
467                 }
468         set_config('system','maximagesize', $maximagesize);
469         set_config('system','max_image_length', $maximagelength);
470         set_config('system','jpeg_quality', $jpegimagequality);
471
472         set_config('config','register_policy', $register_policy);
473         set_config('system','max_daily_registrations', $daily_registrations);
474         set_config('system','account_abandon_days', $abandon_days);
475         set_config('config','register_text', $register_text);
476         set_config('system','allowed_sites', $allowed_sites);
477         set_config('system','allowed_email', $allowed_email);
478         set_config('system','block_public', $block_public);
479         set_config('system','publish_all', $force_publish);
480         if ($global_directory==""){
481                 // don't know why, but del_config doesn't work...
482                 q("DELETE FROM `config` WHERE `cat` = '%s' AND `k` = '%s' LIMIT 1",
483                         dbesc("system"),
484                         dbesc("directory_submit_url")
485                 );
486         } else {
487                 set_config('system','directory_submit_url', $global_directory);
488         }
489         set_config('system','thread_allow', $thread_allow);
490         set_config('system','newuser_private', $newuser_private);
491         set_config('system','enotify_no_content', $enotify_no_content);
492         set_config('system','disable_embedded', $disable_embedded);
493         set_config('system','allow_users_remote_self', $allow_users_remote_self);
494
495         set_config('system','block_extended_register', $no_multi_reg);
496         set_config('system','no_openid', $no_openid);
497         set_config('system','no_regfullname', $no_regfullname);
498         set_config('system','community_page_style', $community_page_style);
499         set_config('system','max_author_posts_community_page', $max_author_posts_community_page);
500         set_config('system','no_utf', $no_utf);
501         set_config('system','verifyssl', $verifyssl);
502         set_config('system','proxyuser', $proxyuser);
503         set_config('system','proxy', $proxy);
504         set_config('system','curl_timeout', $timeout);
505         set_config('system','dfrn_only', $dfrn_only);
506         set_config('system','ostatus_disabled', $ostatus_disabled);
507         set_config('system','ostatus_poll_interval', $ostatus_poll_interval);
508         set_config('system','diaspora_enabled', $diaspora_enabled);
509         set_config('config','private_addons', $private_addons);
510
511         set_config('system','force_ssl', $force_ssl);
512         set_config('system','old_share', $old_share);
513         set_config('system','hide_help', $hide_help);
514         set_config('system','use_fulltext_engine', $use_fulltext_engine);
515         set_config('system','itemcache', $itemcache);
516         set_config('system','itemcache_duration', $itemcache_duration);
517         set_config('system','max_comments', $max_comments);
518         set_config('system','lockpath', $lockpath);
519         set_config('system','temppath', $temppath);
520         set_config('system','basepath', $basepath);
521         set_config('system','proxy_disabled', $proxy_disabled);
522         set_config('system','old_pager', $old_pager);
523         set_config('system','only_tag_search', $only_tag_search);
524
525         set_config('system','rino_encrypt', $rino);
526         
527         
528         info( t('Site settings updated.') . EOL);
529         goaway($a->get_baseurl(true) . '/admin/site' );
530         return; // NOTREACHED
531
532 }
533
534 /**
535  * @param  App $a
536  * @return string
537  */
538 function admin_page_site(&$a) {
539
540         /* Installed langs */
541         $lang_choices = array();
542         $langs = glob('view/*/strings.php');
543
544         if(is_array($langs) && count($langs)) {
545                 if(! in_array('view/en/strings.php',$langs))
546                         $langs[] = 'view/en/';
547                 asort($langs);
548                 foreach($langs as $l) {
549                         $t = explode("/",$l);
550                         $lang_choices[$t[1]] = $t[1];
551                 }
552         }
553
554         /* Installed themes */
555         $theme_choices = array();
556         $theme_choices_mobile = array();
557         $theme_choices_mobile["---"] = t("No special theme for mobile devices");
558         $files = glob('view/theme/*');
559         if($files) {
560                 foreach($files as $file) {
561                         $f = basename($file);
562                         $theme_name = ((file_exists($file . '/experimental')) ?  sprintf("%s - \x28Experimental\x29", $f) : $f);
563                         if (file_exists($file . '/mobile')) {
564                                 $theme_choices_mobile[$f] = $theme_name;
565                         }
566                 else {
567                                 $theme_choices[$f] = $theme_name;
568                         }
569                 }
570                 }
571
572                 /* Community page style */
573                 $community_page_style_choices = array(
574                         CP_NO_COMMUNITY_PAGE => t("No community page"),
575                         CP_USERS_ON_SERVER => t("Public postings from users of this site"),
576                         CP_GLOBAL_COMMUNITY => t("Global community page")
577                         );
578
579                 /* OStatus conversation poll choices */
580                 $ostatus_poll_choices = array(
581                         "-2" => t("Never"),
582                         "-1" => t("At post arrival"),
583                         "0" => t("Frequently"),
584                         "60" => t("Hourly"),
585                         "720" => t("Twice daily"),
586                         "1440" => t("Daily")
587                         );
588
589                 $poco_discovery_choices = array(
590                         "0" => t("Disabled"),
591                         "1" => t("Users"),
592                         "2" => t("Users, Global Contacts"),
593                         "3" => t("Users, Global Contacts/fallback"),
594                         );
595
596                 /* get user names to make the install a personal install of X */
597                 $user_names = array();
598                 $user_names['---'] = t('Multi user instance');
599                 $users = q("SELECT username, nickname FROM `user`");
600                 foreach ($users as $user) {
601                         $user_names[$user['nickname']] = $user['username'];
602                 }
603
604         /* Banner */
605         $banner = get_config('system','banner');
606         if($banner == false)
607                 $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>';
608         $banner = htmlspecialchars($banner);
609         $info = get_config('config','info');
610         $info = htmlspecialchars($info);
611
612         // Automatically create temporary paths
613         get_temppath();
614         get_lockpath();
615         get_itemcachepath();
616
617         //echo "<pre>"; var_dump($lang_choices); die("</pre>");
618
619         /* Register policy */
620         $register_choices = Array(
621                 REGISTER_CLOSED => t("Closed"),
622                 REGISTER_APPROVE => t("Requires approval"),
623                 REGISTER_OPEN => t("Open")
624         );
625
626         $ssl_choices = array(
627                 SSL_POLICY_NONE => t("No SSL policy, links will track page SSL state"),
628                 SSL_POLICY_FULL => t("Force all links to use SSL"),
629                 SSL_POLICY_SELFSIGN => t("Self-signed certificate, use SSL for local links only (discouraged)")
630         );
631
632         if ($a->config['hostname'] == "")
633                 $a->config['hostname'] = $a->get_hostname();
634
635         $t = get_markup_template("admin_site.tpl");
636         return replace_macros($t, array(
637                 '$title' => t('Administration'),
638                 '$page' => t('Site'),
639                 '$submit' => t('Save Settings'),
640                 '$registration' => t('Registration'),
641                 '$upload' => t('File upload'),
642                 '$corporate' => t('Policies'),
643                 '$advanced' => t('Advanced'),
644                 '$portable_contacts' => t('Auto Discovered Contact Directory'),
645                 '$performance' => t('Performance'),
646                 '$relocate'=> t('Relocate - WARNING: advanced function. Could make this server unreachable.'),
647                 '$baseurl' => $a->get_baseurl(true),
648                 // name, label, value, help string, extra data...
649                 '$sitename'             => array('sitename', t("Site name"), $a->config['sitename'],'UTF-8'),
650                 '$hostname'             => array('hostname', t("Host name"), $a->config['hostname'], ""),
651                 '$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"),
652                 '$banner'               => array('banner', t("Banner/Logo"), $banner, ""),
653                 '$shortcut_icon'        => array('shortcut_icon', t("Shortcut icon"), get_config('system','shortcut_icon'),  "Link to an icon that will be used for browsers."),
654                 '$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."),
655                 '$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.')),
656                 '$language'             => array('language', t("System language"), get_config('system','language'), "", $lang_choices),
657                 '$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),
658                 '$theme_mobile'         => array('theme_mobile', t("Mobile system theme"), get_config('system','mobile-theme'), t("Theme for mobile devices"), $theme_choices_mobile),
659                 '$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),
660                 '$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.")),
661                 '$old_share'            => array('old_share', t("Old style 'Share'"), get_config('system','old_share'), t("Deactivates the bbcode element 'share' for repeating items.")),
662                 '$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.")),
663                 '$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),
664                 '$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.")),
665                 '$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.")),
666                 '$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.")),
667
668                 '$register_policy'      => array('register_policy', t("Register policy"), $a->config['register_policy'], "", $register_choices),
669                 '$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.")),
670                 '$register_text'        => array('register_text', t("Register text"), $a->config['register_text'], t("Will be displayed prominently on the registration page.")),
671                 '$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.')),
672                 '$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")),
673                 '$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")),
674                 '$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.")),
675                 '$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.")),
676                 '$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.")),
677                 '$thread_allow'         => array('thread_allow', t("Allow threaded items"), get_config('system','thread_allow'), t("Allow infinite level threading for items on this site.")),
678                 '$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.")),
679                 '$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.")),
680                 '$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.")),
681                 '$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.")),
682                 '$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.')),
683                 '$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.")),
684                 '$no_openid'            => array('no_openid', t("OpenID support"), !get_config('system','no_openid'), t("OpenID support for registration and logins.")),
685                 '$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")),
686                 '$no_utf'               => array('no_utf', t("UTF-8 Regular expressions"), !get_config('system','no_utf'), t("Use PHP UTF8 regular expressions")),
687                 '$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),
688                 '$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')")),
689                 '$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.")),
690                 '$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),
691                 '$diaspora_enabled'     => array('diaspora_enabled', t("Enable Diaspora support"), get_config('system','diaspora_enabled'), t("Provide built-in Diaspora network compatibility.")),
692                 '$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.")),
693                 '$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.")),
694                 '$proxyuser'            => array('proxyuser', t("Proxy user"), get_config('system','proxyuser'), ""),
695                 '$proxy'                => array('proxy', t("Proxy URL"), get_config('system','proxy'), ""),
696                 '$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).")),
697                 '$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.")),
698                 '$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.")),
699                 '$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.")),
700                 '$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.")),
701
702                 '$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)")),
703                 '$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),
704
705                 '$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.")),
706                 '$suppress_language'    => array('suppress_language', t("Suppress Language"), get_config('system','suppress_language'), t("Suppress language information in meta information about a posting.")),
707                 '$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.")),
708                 '$itemcache'            => array('itemcache', t("Path to item cache"), get_config('system','itemcache'), "The item caches buffers generated bbcode and external images."),
709                 '$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.")),
710                 '$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.")),
711                 '$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."),
712                 '$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."),
713                 '$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."),
714                 '$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.")),
715                 '$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.")),
716                 '$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.")),
717
718                 '$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."),
719                 
720                 '$rino'                 => array('rino', t("RINO Encryption"), intval(get_config('system','rino_encrypt')), t("Encryption layer between nodes."), array("Disabled", "RINO1 (deprecated)", "RINO2")),
721                 
722                 '$form_security_token' => get_form_security_token("admin_site")
723
724         ));
725
726 }
727
728
729 function admin_page_dbsync(&$a) {
730
731         $o = '';
732
733         if($a->argc > 3 && intval($a->argv[3]) && $a->argv[2] === 'mark') {
734                 set_config('database', 'update_' . intval($a->argv[3]), 'success');
735                 $curr = get_config('system','build');
736                 if(intval($curr) == intval($a->argv[3]))
737                         set_config('system','build',intval($curr) + 1);
738                 info( t('Update has been marked successful') . EOL);
739                 goaway($a->get_baseurl(true) . '/admin/dbsync');
740         }
741
742         if(($a->argc > 2) AND (intval($a->argv[2]) OR ($a->argv[2] === 'check'))) {
743                 require_once("include/dbstructure.php");
744                 $retval = update_structure(false, true);
745                 if (!$retval) {
746                         $o .= sprintf(t("Database structure update %s was successfully applied."), DB_UPDATE_VERSION)."<br />";
747                         set_config('database', 'dbupdate_'.DB_UPDATE_VERSION, 'success');
748                 } else
749                         $o .= sprintf(t("Executing of database structure update %s failed with error: %s"),
750                                         DB_UPDATE_VERSION, $retval)."<br />";
751                 if ($a->argv[2] === 'check')
752                         return $o;
753         }
754
755         if ($a->argc > 2 && intval($a->argv[2])) {
756                 require_once('update.php');
757                 $func = 'update_' . intval($a->argv[2]);
758                 if(function_exists($func)) {
759                         $retval = $func();
760                         if($retval === UPDATE_FAILED) {
761                                 $o .= sprintf(t("Executing %s failed with error: %s"), $func, $retval);
762                         }
763                         elseif($retval === UPDATE_SUCCESS) {
764                                 $o .= sprintf(t('Update %s was successfully applied.', $func));
765                                 set_config('database',$func, 'success');
766                         }
767                         else
768                                 $o .= sprintf(t('Update %s did not return a status. Unknown if it succeeded.'), $func);
769                 } else {
770                         $o .= sprintf(t('There was no additional update function %s that needed to be called.'), $func)."<br />";
771                         set_config('database',$func, 'success');
772                 }
773                 return $o;
774         }
775
776         $failed = array();
777         $r = q("select k, v from config where `cat` = 'database' ");
778         if(count($r)) {
779                 foreach($r as $rr) {
780                         $upd = intval(substr($rr['k'],7));
781                         if($upd < 1139 || $rr['v'] === 'success')
782                                 continue;
783                         $failed[] = $upd;
784                 }
785         }
786         if(! count($failed)) {
787                 $o = replace_macros(get_markup_template('structure_check.tpl'),array(
788                         '$base' => $a->get_baseurl(true),
789                         '$banner' => t('No failed updates.'),
790                         '$check' => t('Check database structure'),
791                 ));
792         } else {
793                 $o = replace_macros(get_markup_template('failed_updates.tpl'),array(
794                         '$base' => $a->get_baseurl(true),
795                         '$banner' => t('Failed Updates'),
796                         '$desc' => t('This does not include updates prior to 1139, which did not return a status.'),
797                         '$mark' => t('Mark success (if update was manually applied)'),
798                         '$apply' => t('Attempt to execute this update step automatically'),
799                         '$failed' => $failed
800                 ));
801         }
802
803         return $o;
804
805 }
806
807 /**
808  * Users admin page
809  *
810  * @param App $a
811  */
812 function admin_page_users_post(&$a){
813         $pending = ( x($_POST, 'pending') ? $_POST['pending'] : Array() );
814         $users = ( x($_POST, 'user') ? $_POST['user'] : Array() );
815         $nu_name = ( x($_POST, 'new_user_name') ? $_POST['new_user_name'] : '');
816         $nu_nickname = ( x($_POST, 'new_user_nickname') ? $_POST['new_user_nickname'] : '');
817         $nu_email = ( x($_POST, 'new_user_email') ? $_POST['new_user_email'] : '');
818
819         check_form_security_token_redirectOnErr($a->get_baseurl().'/admin/users', 'admin_users');
820
821         if (!($nu_name==="") && !($nu_email==="") && !($nu_nickname==="")) {
822                 require_once('include/user.php');
823
824                 $result = create_user( array('username'=>$nu_name, 'email'=>$nu_email, 'nickname'=>$nu_nickname, 'verified'=>1)  );
825                 if(! $result['success']) {
826                         notice($result['message']);
827                         return;
828                 }
829                 $nu = $result['user'];
830                 $preamble = deindent(t('
831                         Dear %1$s,
832                                 the administrator of %2$s has set up an account for you.'));
833                 $body = deindent(t('
834                         The login details are as follows:
835
836                         Site Location:  %1$s
837                         Login Name:             %2$s
838                         Password:               %3$s
839
840                         You may change your password from your account "Settings" page after logging
841                         in.
842
843                         Please take a few moments to review the other account settings on that page.
844
845                         You may also wish to add some basic information to your default profile
846                         (on the "Profiles" page) so that other people can easily find you.
847
848                         We recommend setting your full name, adding a profile photo,
849                         adding some profile "keywords" (very useful in making new friends) - and
850                         perhaps what country you live in; if you do not wish to be more specific
851                         than that.
852
853                         We fully respect your right to privacy, and none of these items are necessary.
854                         If you are new and do not know anybody here, they may help
855                         you to make some new and interesting friends.
856
857                         Thank you and welcome to %4$s.'));
858
859                 $preamble = sprintf($preamble, $nu['username'], $a->config['sitename']);
860                 $body = sprintf($body, $a->get_baseurl(), $nu['email'], $result['password'], $a->config['sitename']);
861
862                 notification(array(
863                         'type' => "SYSTEM_EMAIL",
864                         'to_email' => $nu['email'],
865                         'subject'=> sprintf( t('Registration details for %s'), $a->config['sitename']),
866                         'preamble'=> $preamble,
867                         'body' => $body));
868
869         }
870
871         if (x($_POST,'page_users_block')){
872                 foreach($users as $uid){
873                         q("UPDATE `user` SET `blocked`=1-`blocked` WHERE `uid`=%s",
874                                 intval( $uid )
875                         );
876                 }
877                 notice( sprintf( tt("%s user blocked/unblocked", "%s users blocked/unblocked", count($users)), count($users)) );
878         }
879         if (x($_POST,'page_users_delete')){
880                 require_once("include/Contact.php");
881                 foreach($users as $uid){
882                         user_remove($uid);
883                 }
884                 notice( sprintf( tt("%s user deleted", "%s users deleted", count($users)), count($users)) );
885         }
886
887         if (x($_POST,'page_users_approve')){
888                 require_once("mod/regmod.php");
889                 foreach($pending as $hash){
890                         user_allow($hash);
891                 }
892         }
893         if (x($_POST,'page_users_deny')){
894                 require_once("mod/regmod.php");
895                 foreach($pending as $hash){
896                         user_deny($hash);
897                 }
898         }
899         goaway($a->get_baseurl(true) . '/admin/users' );
900         return; // NOTREACHED
901 }
902
903 /**
904  * @param App $a
905  * @return string
906  */
907 function admin_page_users(&$a){
908         if ($a->argc>2) {
909                 $uid = $a->argv[3];
910                 $user = q("SELECT username, blocked FROM `user` WHERE `uid`=%d", intval($uid));
911                 if (count($user)==0){
912                         notice( 'User not found' . EOL);
913                         goaway($a->get_baseurl(true) . '/admin/users' );
914                         return ''; // NOTREACHED
915                 }
916                 switch($a->argv[2]){
917                         case "delete":{
918                                 check_form_security_token_redirectOnErr('/admin/users', 'admin_users', 't');
919                                 // delete user
920                                 require_once("include/Contact.php");
921                                 user_remove($uid);
922
923                                 notice( sprintf(t("User '%s' deleted"), $user[0]['username']) . EOL);
924                         }; break;
925                         case "block":{
926                                 check_form_security_token_redirectOnErr('/admin/users', 'admin_users', 't');
927                                 q("UPDATE `user` SET `blocked`=%d WHERE `uid`=%s",
928                                         intval( 1-$user[0]['blocked'] ),
929                                         intval( $uid )
930                                 );
931                                 notice( sprintf( ($user[0]['blocked']?t("User '%s' unblocked"):t("User '%s' blocked")) , $user[0]['username']) . EOL);
932                         }; break;
933                 }
934                 goaway($a->get_baseurl(true) . '/admin/users' );
935                 return ''; // NOTREACHED
936
937         }
938
939         /* get pending */
940         $pending = q("SELECT `register`.*, `contact`.`name`, `user`.`email`
941                                  FROM `register`
942                                  LEFT JOIN `contact` ON `register`.`uid` = `contact`.`uid`
943                                  LEFT JOIN `user` ON `register`.`uid` = `user`.`uid`;");
944
945
946         /* get users */
947
948         $total = q("SELECT count(*) as total FROM `user` where 1");
949         if(count($total)) {
950                 $a->set_pager_total($total[0]['total']);
951                 $a->set_pager_itemspage(100);
952         }
953
954
955         $users = q("SELECT `user` . * , `contact`.`name` , `contact`.`url` , `contact`.`micro`, `lastitem`.`lastitem_date`, `user`.`account_expired`
956                                 FROM
957                                         (SELECT MAX(`item`.`changed`) as `lastitem_date`, `item`.`uid`
958                                         FROM `item`
959                                         WHERE `item`.`type` = 'wall'
960                                         GROUP BY `item`.`uid`) AS `lastitem`
961                                                  RIGHT OUTER JOIN `user` ON `user`.`uid` = `lastitem`.`uid`,
962                                            `contact`
963                                 WHERE
964                                            `user`.`uid` = `contact`.`uid`
965                                                 AND `user`.`verified` =1
966                                         AND `contact`.`self` =1
967                                 ORDER BY `contact`.`name` LIMIT %d, %d
968                                 ",
969                                 intval($a->pager['start']),
970                                 intval($a->pager['itemspage'])
971                                 );
972
973         $adminlist = explode(",", str_replace(" ", "", $a->config['admin_email']));
974         $_setup_users = function ($e) use ($adminlist){
975                 $accounts = Array(
976                         t('Normal Account'),
977                         t('Soapbox Account'),
978                         t('Community/Celebrity Account'),
979                                                 t('Automatic Friend Account')
980                 );
981                 $e['page-flags'] = $accounts[$e['page-flags']];
982                 $e['register_date'] = relative_date($e['register_date']);
983                 $e['login_date'] = relative_date($e['login_date']);
984                 $e['lastitem_date'] = relative_date($e['lastitem_date']);
985                 //$e['is_admin'] = ($e['email'] === $a->config['admin_email']);
986                 $e['is_admin'] = in_array($e['email'], $adminlist);
987                 $e['is_deletable'] = (intval($e['uid']) != local_user());
988                 $e['deleted'] = ($e['account_removed']?relative_date($e['account_expires_on']):False);
989                 return $e;
990         };
991         $users = array_map($_setup_users, $users);
992
993
994         // Get rid of dashes in key names, Smarty3 can't handle them
995         // and extracting deleted users
996
997         $tmp_users = Array();
998         $deleted = Array();
999
1000         while(count($users)) {
1001                 $new_user = Array();
1002                 foreach( array_pop($users) as $k => $v) {
1003                         $k = str_replace('-','_',$k);
1004                         $new_user[$k] = $v;
1005                 }
1006                 if($new_user['deleted']) {
1007                         array_push($deleted, $new_user);
1008                 }
1009                 else {
1010                         array_push($tmp_users, $new_user);
1011                 }
1012         }
1013         //Reversing the two array, and moving $tmp_users to $users
1014         array_reverse($deleted);
1015         while(count($tmp_users)) {
1016                 array_push($users, array_pop($tmp_users));
1017         }
1018
1019         $t = get_markup_template("admin_users.tpl");
1020         $o = replace_macros($t, array(
1021                 // strings //
1022                 '$title' => t('Administration'),
1023                 '$page' => t('Users'),
1024                 '$submit' => t('Add User'),
1025                 '$select_all' => t('select all'),
1026                 '$h_pending' => t('User registrations waiting for confirm'),
1027                 '$h_deleted' => t('User waiting for permanent deletion'),
1028                 '$th_pending' => array( t('Request date'), t('Name'), t('Email') ),
1029                 '$no_pending' =>  t('No registrations.'),
1030                 '$approve' => t('Approve'),
1031                 '$deny' => t('Deny'),
1032                 '$delete' => t('Delete'),
1033                 '$block' => t('Block'),
1034                 '$unblock' => t('Unblock'),
1035                 '$siteadmin' => t('Site admin'),
1036                 '$accountexpired' => t('Account expired'),
1037
1038                 '$h_users' => t('Users'),
1039                 '$h_newuser' => t('New User'),
1040                 '$th_deleted' => array( t('Name'), t('Email'), t('Register date'), t('Last login'), t('Last item'), t('Deleted since') ),
1041                 '$th_users' => array( t('Name'), t('Email'), t('Register date'), t('Last login'), t('Last item'),  t('Account') ),
1042
1043                 '$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?'),
1044                 '$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?'),
1045
1046                 '$form_security_token' => get_form_security_token("admin_users"),
1047
1048                 // values //
1049                 '$baseurl' => $a->get_baseurl(true),
1050
1051                 '$pending' => $pending,
1052                 'deleted' => $deleted,
1053                 '$users' => $users,
1054                 '$newusername'  => array('new_user_name', t("Name"), '', t("Name of the new user.")),
1055                 '$newusernickname'  => array('new_user_nickname', t("Nickname"), '', t("Nickname of the new user.")),
1056                 '$newuseremail'  => array('new_user_email', t("Email"), '', t("Email address of the new user."), '', '', 'email'),
1057         ));
1058         $o .= paginate($a);
1059         return $o;
1060 }
1061
1062
1063 /**
1064  * Plugins admin page
1065  *
1066  * @param App $a
1067  * @return string
1068  */
1069 function admin_page_plugins(&$a){
1070
1071         /**
1072          * Single plugin
1073          */
1074         if ($a->argc == 3){
1075                 $plugin = $a->argv[2];
1076                 if (!is_file("addon/$plugin/$plugin.php")){
1077                         notice( t("Item not found.") );
1078                         return '';
1079                 }
1080
1081                 if (x($_GET,"a") && $_GET['a']=="t"){
1082                         check_form_security_token_redirectOnErr('/admin/plugins', 'admin_themes', 't');
1083
1084                         // Toggle plugin status
1085                         $idx = array_search($plugin, $a->plugins);
1086                         if ($idx !== false){
1087                                 unset($a->plugins[$idx]);
1088                                 uninstall_plugin($plugin);
1089                                 info( sprintf( t("Plugin %s disabled."), $plugin ) );
1090                         } else {
1091                                 $a->plugins[] = $plugin;
1092                                 install_plugin($plugin);
1093                                 info( sprintf( t("Plugin %s enabled."), $plugin ) );
1094                         }
1095                         set_config("system","addon", implode(", ",$a->plugins));
1096                         goaway($a->get_baseurl(true) . '/admin/plugins' );
1097                         return ''; // NOTREACHED
1098                 }
1099                 // display plugin details
1100                 require_once('library/markdown.php');
1101
1102                 if (in_array($plugin, $a->plugins)){
1103                         $status="on"; $action= t("Disable");
1104                 } else {
1105                         $status="off"; $action= t("Enable");
1106                 }
1107
1108                 $readme=Null;
1109                 if (is_file("addon/$plugin/README.md")){
1110                         $readme = file_get_contents("addon/$plugin/README.md");
1111                         $readme = Markdown($readme);
1112                 } else if (is_file("addon/$plugin/README")){
1113                         $readme = "<pre>". file_get_contents("addon/$plugin/README") ."</pre>";
1114                 }
1115
1116                 $admin_form="";
1117                 if (is_array($a->plugins_admin) && in_array($plugin, $a->plugins_admin)){
1118                         @require_once("addon/$plugin/$plugin.php");
1119                         $func = $plugin.'_plugin_admin';
1120                         $func($a, $admin_form);
1121                 }
1122
1123                 $t = get_markup_template("admin_plugins_details.tpl");
1124
1125                 return replace_macros($t, array(
1126                         '$title' => t('Administration'),
1127                         '$page' => t('Plugins'),
1128                         '$toggle' => t('Toggle'),
1129                         '$settings' => t('Settings'),
1130                         '$baseurl' => $a->get_baseurl(true),
1131
1132                         '$plugin' => $plugin,
1133                         '$status' => $status,
1134                         '$action' => $action,
1135                         '$info' => get_plugin_info($plugin),
1136                         '$str_author' => t('Author: '),
1137                         '$str_maintainer' => t('Maintainer: '),
1138
1139                         '$admin_form' => $admin_form,
1140                         '$function' => 'plugins',
1141                         '$screenshot' => '',
1142                         '$readme' => $readme,
1143
1144                         '$form_security_token' => get_form_security_token("admin_themes"),
1145                 ));
1146         }
1147
1148
1149
1150         /**
1151          * List plugins
1152          */
1153
1154         $plugins = array();
1155         $files = glob("addon/*/"); /* */
1156         if($files) {
1157                 foreach($files as $file) {
1158                         if (is_dir($file)){
1159                                 list($tmp, $id)=array_map("trim", explode("/",$file));
1160                                 $info = get_plugin_info($id);
1161                                 $show_plugin = true;
1162
1163                                 // If the addon is unsupported, then only show it, when it is enabled
1164                                 if ((strtolower($info["status"]) == "unsupported") AND !in_array($id,  $a->plugins))
1165                                         $show_plugin = false;
1166
1167                                 // Override the above szenario, when the admin really wants to see outdated stuff
1168                                 if (get_config("system", "show_unsupported_addons"))
1169                                         $show_plugin = true;
1170
1171                                 if ($show_plugin)
1172                                         $plugins[] = array($id, (in_array($id,  $a->plugins)?"on":"off") , $info);
1173                         }
1174                 }
1175         }
1176
1177         $t = get_markup_template("admin_plugins.tpl");
1178         return replace_macros($t, array(
1179                 '$title' => t('Administration'),
1180                 '$page' => t('Plugins'),
1181                 '$submit' => t('Save Settings'),
1182                 '$baseurl' => $a->get_baseurl(true),
1183                 '$function' => 'plugins',
1184                 '$plugins' => $plugins,
1185                 '$form_security_token' => get_form_security_token("admin_themes"),
1186         ));
1187 }
1188
1189 /**
1190  * @param array $themes
1191  * @param string $th
1192  * @param int $result
1193  */
1194 function toggle_theme(&$themes,$th,&$result) {
1195         for($x = 0; $x < count($themes); $x ++) {
1196                 if($themes[$x]['name'] === $th) {
1197                         if($themes[$x]['allowed']) {
1198                                 $themes[$x]['allowed'] = 0;
1199                                 $result = 0;
1200                         }
1201                         else {
1202                                 $themes[$x]['allowed'] = 1;
1203                                 $result = 1;
1204                         }
1205                 }
1206         }
1207 }
1208
1209 /**
1210  * @param array $themes
1211  * @param string $th
1212  * @return int
1213  */
1214 function theme_status($themes,$th) {
1215         for($x = 0; $x < count($themes); $x ++) {
1216                 if($themes[$x]['name'] === $th) {
1217                         if($themes[$x]['allowed']) {
1218                                 return 1;
1219                         }
1220                         else {
1221                                 return 0;
1222                         }
1223                 }
1224         }
1225         return 0;
1226 }
1227
1228
1229 /**
1230  * @param array $themes
1231  * @return string
1232  */
1233 function rebuild_theme_table($themes) {
1234         $o = '';
1235         if(count($themes)) {
1236                 foreach($themes as $th) {
1237                         if($th['allowed']) {
1238                                 if(strlen($o))
1239                                         $o .= ',';
1240                                 $o .= $th['name'];
1241                         }
1242                 }
1243         }
1244         return $o;
1245 }
1246
1247
1248 /**
1249  * Themes admin page
1250  *
1251  * @param App $a
1252  * @return string
1253  */
1254 function admin_page_themes(&$a){
1255
1256         $allowed_themes_str = get_config('system','allowed_themes');
1257         $allowed_themes_raw = explode(',',$allowed_themes_str);
1258         $allowed_themes = array();
1259         if(count($allowed_themes_raw))
1260                 foreach($allowed_themes_raw as $x)
1261                         if(strlen(trim($x)))
1262                                 $allowed_themes[] = trim($x);
1263
1264         $themes = array();
1265         $files = glob('view/theme/*'); /* */
1266         if($files) {
1267                 foreach($files as $file) {
1268                         $f = basename($file);
1269                         $is_experimental = intval(file_exists($file . '/experimental'));
1270                         $is_supported = 1-(intval(file_exists($file . '/unsupported')));
1271                         $is_allowed = intval(in_array($f,$allowed_themes));
1272
1273                         if ($is_allowed OR $is_supported OR get_config("system", "show_unsupported_themes"))
1274                                 $themes[] = array('name' => $f, 'experimental' => $is_experimental, 'supported' => $is_supported, 'allowed' => $is_allowed);
1275                 }
1276         }
1277
1278         if(! count($themes)) {
1279                 notice( t('No themes found.'));
1280                 return '';
1281         }
1282
1283         /**
1284          * Single theme
1285          */
1286
1287         if ($a->argc == 3){
1288                 $theme = $a->argv[2];
1289                 if(! is_dir("view/theme/$theme")){
1290                         notice( t("Item not found.") );
1291                         return '';
1292                 }
1293
1294                 if (x($_GET,"a") && $_GET['a']=="t"){
1295                         check_form_security_token_redirectOnErr('/admin/themes', 'admin_themes', 't');
1296
1297                         // Toggle theme status
1298
1299                         toggle_theme($themes,$theme,$result);
1300                         $s = rebuild_theme_table($themes);
1301                         if($result) {
1302                                 install_theme($theme);
1303                                 info( sprintf('Theme %s enabled.',$theme));
1304                         }
1305                         else {
1306                                 uninstall_theme($theme);
1307                                 info( sprintf('Theme %s disabled.',$theme));
1308                         }
1309
1310                         set_config('system','allowed_themes',$s);
1311                         goaway($a->get_baseurl(true) . '/admin/themes' );
1312                         return ''; // NOTREACHED
1313                 }
1314
1315                 // display theme details
1316                 require_once('library/markdown.php');
1317
1318                 if (theme_status($themes,$theme)) {
1319                         $status="on"; $action= t("Disable");
1320                 } else {
1321                         $status="off"; $action= t("Enable");
1322                 }
1323
1324                 $readme=Null;
1325                 if (is_file("view/theme/$theme/README.md")){
1326                         $readme = file_get_contents("view/theme/$theme/README.md");
1327                         $readme = Markdown($readme);
1328                 } else if (is_file("view/theme/$theme/README")){
1329                         $readme = "<pre>". file_get_contents("view/theme/$theme/README") ."</pre>";
1330                 }
1331
1332                 $admin_form="";
1333                 if (is_file("view/theme/$theme/config.php")){
1334                         require_once("view/theme/$theme/config.php");
1335                         if(function_exists("theme_admin")){
1336                                 $admin_form = theme_admin($a);
1337                         }
1338
1339                 }
1340
1341                 $screenshot = array( get_theme_screenshot($theme), t('Screenshot'));
1342                 if(! stristr($screenshot[0],$theme))
1343                         $screenshot = null;
1344
1345                 $t = get_markup_template("admin_plugins_details.tpl");
1346                 return replace_macros($t, array(
1347                         '$title' => t('Administration'),
1348                         '$page' => t('Themes'),
1349                         '$toggle' => t('Toggle'),
1350                         '$settings' => t('Settings'),
1351                         '$baseurl' => $a->get_baseurl(true),
1352
1353                         '$plugin' => $theme,
1354                         '$status' => $status,
1355                         '$action' => $action,
1356                         '$info' => get_theme_info($theme),
1357                         '$function' => 'themes',
1358                         '$admin_form' => $admin_form,
1359                         '$str_author' => t('Author: '),
1360                         '$str_maintainer' => t('Maintainer: '),
1361                         '$screenshot' => $screenshot,
1362                         '$readme' => $readme,
1363
1364                         '$form_security_token' => get_form_security_token("admin_themes"),
1365                 ));
1366         }
1367
1368         /**
1369          * List themes
1370          */
1371
1372         $xthemes = array();
1373         if($themes) {
1374                 foreach($themes as $th) {
1375                         $xthemes[] = array($th['name'],(($th['allowed']) ? "on" : "off"), get_theme_info($th['name']));
1376                 }
1377         }
1378
1379         $t = get_markup_template("admin_plugins.tpl");
1380         return replace_macros($t, array(
1381                 '$title' => t('Administration'),
1382                 '$page' => t('Themes'),
1383                 '$submit' => t('Save Settings'),
1384                 '$baseurl' => $a->get_baseurl(true),
1385                 '$function' => 'themes',
1386                 '$plugins' => $xthemes,
1387                 '$experimental' => t('[Experimental]'),
1388                 '$unsupported' => t('[Unsupported]'),
1389                 '$form_security_token' => get_form_security_token("admin_themes"),
1390         ));
1391 }
1392
1393
1394 /**
1395  * Logs admin page
1396  *
1397  * @param App $a
1398  */
1399
1400 function admin_page_logs_post(&$a) {
1401         if (x($_POST,"page_logs")) {
1402                 check_form_security_token_redirectOnErr('/admin/logs', 'admin_logs');
1403
1404                 $logfile                =       ((x($_POST,'logfile'))          ? notags(trim($_POST['logfile']))       : '');
1405                 $debugging              =       ((x($_POST,'debugging'))        ? true                                                          : false);
1406                 $loglevel               =       ((x($_POST,'loglevel'))         ? intval(trim($_POST['loglevel']))      : 0);
1407
1408                 set_config('system','logfile', $logfile);
1409                 set_config('system','debugging',  $debugging);
1410                 set_config('system','loglevel', $loglevel);
1411
1412
1413         }
1414
1415         info( t("Log settings updated.") );
1416         goaway($a->get_baseurl(true) . '/admin/logs' );
1417         return; // NOTREACHED
1418 }
1419
1420 /**
1421  * @param App $a
1422  * @return string
1423  */
1424 function admin_page_logs(&$a){
1425
1426         $log_choices = Array(
1427                 LOGGER_NORMAL => 'Normal',
1428                 LOGGER_TRACE => 'Trace',
1429                 LOGGER_DEBUG => 'Debug',
1430                 LOGGER_DATA => 'Data',
1431                 LOGGER_ALL => 'All'
1432         );
1433
1434         $t = get_markup_template("admin_logs.tpl");
1435
1436         $f = get_config('system','logfile');
1437
1438         $data = '';
1439
1440         if(!file_exists($f)) {
1441                 $data = t("Error trying to open <strong>$f</strong> log file.\r\n<br/>Check to see if file $f exist and is
1442 readable.");
1443         }
1444         else {
1445                 $fp = fopen($f, 'r');
1446                 if(!$fp) {
1447                         $data = t("Couldn't open <strong>$f</strong> log file.\r\n<br/>Check to see if file $f is readable.");
1448                 }
1449                 else {
1450                         $fstat = fstat($fp);
1451                         $size = $fstat['size'];
1452                         if($size != 0)
1453                         {
1454                                 if($size > 5000000 || $size < 0)
1455                                         $size = 5000000;
1456                                 $seek = fseek($fp,0-$size,SEEK_END);
1457                                 if($seek === 0) {
1458                                         $data = escape_tags(fread($fp,$size));
1459                                         while(! feof($fp))
1460                                                 $data .= escape_tags(fread($fp,4096));
1461                                 }
1462                         }
1463                         fclose($fp);
1464                 }
1465         }
1466
1467         return replace_macros($t, array(
1468                 '$title' => t('Administration'),
1469                 '$page' => t('Logs'),
1470                 '$submit' => t('Save Settings'),
1471                 '$clear' => t('Clear'),
1472                 '$data' => $data,
1473                 '$baseurl' => $a->get_baseurl(true),
1474                 '$logname' =>  get_config('system','logfile'),
1475
1476                                                                         // name, label, value, help string, extra data...
1477                 '$debugging'            => array('debugging', t("Enable Debugging"),get_config('system','debugging'), ""),
1478                 '$logfile'                      => array('logfile', t("Log file"), get_config('system','logfile'), t("Must be writable by web server. Relative to your Friendica top-level directory.")),
1479                 '$loglevel'             => array('loglevel', t("Log level"), get_config('system','loglevel'), "", $log_choices),
1480
1481                 '$form_security_token' => get_form_security_token("admin_logs"),
1482         ));
1483 }
1484
1485 /**
1486  * @param App $a
1487  */
1488 function admin_page_remoteupdate_post(&$a) {
1489         // this function should be called via ajax post
1490         if(!is_site_admin()) {
1491                 return;
1492         }
1493
1494
1495         if (x($_POST,'remotefile') && $_POST['remotefile']!=""){
1496                 $remotefile = $_POST['remotefile'];
1497                 $ftpdata = (x($_POST['ftphost'])?$_POST:false);
1498                 doUpdate($remotefile, $ftpdata);
1499         } else {
1500                 echo "No remote file to download. Abort!";
1501         }
1502
1503         killme();
1504 }
1505
1506 /**
1507  * @param App $a
1508  * @return string
1509  */
1510 function admin_page_remoteupdate(&$a) {
1511         if(!is_site_admin()) {
1512                 return login(false);
1513         }
1514
1515         $canwrite = canWeWrite();
1516         $canftp = function_exists('ftp_connect');
1517
1518         $needupdate = true;
1519         $u = checkUpdate();
1520         if (!is_array($u)){
1521                 $needupdate = false;
1522                 $u = array('','','');
1523         }
1524
1525         $tpl = get_markup_template("admin_remoteupdate.tpl");
1526         return replace_macros($tpl, array(
1527                 '$baseurl' => $a->get_baseurl(true),
1528                 '$submit' => t("Update now"),
1529                 '$close' => t("Close"),
1530                 '$localversion' => FRIENDICA_VERSION,
1531                 '$remoteversion' => $u[1],
1532                 '$needupdate' => $needupdate,
1533                 '$canwrite' => $canwrite,
1534                 '$canftp'       => $canftp,
1535                 '$ftphost'      => array('ftphost', t("FTP Host"), '',''),
1536                 '$ftppath'      => array('ftppath', t("FTP Path"), '/',''),
1537                 '$ftpuser'      => array('ftpuser', t("FTP User"), '',''),
1538                 '$ftppwd'       => array('ftppwd', t("FTP Password"), '',''),
1539                 '$remotefile'=>array('remotefile','', $u['2'],''),
1540         ));
1541
1542 }