mod/admin.php

   1 <?php
   2
   3  /**
   4  * @file mod/admin.php
   5  *
   6  * @brief Friendica admin
   7  */
   8
   9 use \Friendica\Core\Config;
  10
  11 require_once("include/enotify.php");
  12 require_once("include/text.php");
  13
  14 /**
  15  * @brief Process send data from the admin panels subpages
  16  *
  17  * This function acts as relais for processing the data send from the subpages
  18  * of the admin panel. Depending on the 1st parameter of the url (argv[1])
  19  * specialized functions are called to process the data from the subpages.
  20  *
  21  * The function itself does not return anything, but the subsequencely function
  22  * return the HTML for the pages of the admin panel.
  23  *
  24  * @param App $a
  25  *
  26  */
  27 function admin_post(App $a) {
  28
  29
  30         if (!is_site_admin()) {
  31                 return;
  32         }
  33
  34         // do not allow a page manager to access the admin panel at all.
  35
  36         if (x($_SESSION,'submanage') && intval($_SESSION['submanage'])) {
  37                 return;
  38         }
  39
  40         // urls
  41         if ($a->argc > 1) {
  42                 switch ($a->argv[1]) {
  43                         case 'site':
  44                                 admin_page_site_post($a);
  45                                 break;
  46                         case 'users':
  47                                 admin_page_users_post($a);
  48                                 break;
  49                         case 'plugins':
  50                                 if ($a->argc > 2 &&
  51                                         is_file("addon/".$a->argv[2]."/".$a->argv[2].".php")) {
  52                                                 @include_once("addon/".$a->argv[2]."/".$a->argv[2].".php");
  53                                                 if (function_exists($a->argv[2].'_plugin_admin_post')) {
  54                                                         $func = $a->argv[2].'_plugin_admin_post';
  55                                                         $func($a);
  56                                                 }
  57                                 }
  58                                 goaway('admin/plugins/'.$a->argv[2]);
  59                                 return; // NOTREACHED
  60                                 break;
  61                         case 'themes':
  62                                 if ($a->argc < 2) {
  63                                         if (is_ajax()) {
  64                                                 return;
  65                                         }
  66                                         goaway('admin/');
  67                                         return;
  68                                 }
  69
  70                                 $theme = $a->argv[2];
  71                                 if (is_file("view/theme/$theme/config.php")) {
  72                                         function __call_theme_admin_post(App $a, $theme) {
  73                                                 $orig_theme = $a->theme;
  74                                                 $orig_page = $a->page;
  75                                                 $orig_session_theme = $_SESSION['theme'];
  76                                                 require_once("view/theme/$theme/theme.php");
  77                                                 require_once("view/theme/$theme/config.php");
  78                                                 $_SESSION['theme'] = $theme;
  79
  80
  81                                                 $init = $theme."_init";
  82                                                 if (function_exists($init)) {
  83                                                         $init($a);
  84                                                 }
  85                                                 if (function_exists("theme_admin_post")) {
  86                                                         $admin_form = theme_admin_post($a);
  87                                                 }
  88
  89                                                 $_SESSION['theme'] = $orig_session_theme;
  90                                                 $a->theme = $orig_theme;
  91                                                 $a->page = $orig_page;
  92                                                 return $admin_form;
  93                                         }
  94                                         __call_theme_admin_post($a, $theme);
  95                                 }
  96                                 info(t('Theme settings updated.'));
  97                                 if (is_ajax()) {
  98                                         return;
  99                                 }
 100                                 goaway('admin/themes/'.$theme);
 101                                 return;
 102                                 break;
 103                         case 'features':
 104                                 admin_page_features_post($a);
 105                                 break;
 106                         case 'logs':
 107                                 admin_page_logs_post($a);
 108                                 break;
 109                         case 'dbsync':
 110                                 admin_page_dbsync_post($a);
 111                                 break;
 112                         case 'blocklist':
 113                                 admin_page_blocklist_post($a);
 114                                 break;
 115                 }
 116         }
 117
 118         goaway('admin');
 119         return; // NOTREACHED
 120 }
 121
 122 /**
 123  * @brief Generates content of the admin panel pages
 124  *
 125  * This function generates the content for the admin panel. It consists of the
 126  * aside menu (same for the entire admin panel) and the code for the soecified
 127  * subpage of the panel.
 128  *
 129  * The structure of the adress is: /admin/subpage/details though "details" is
 130  * only necessary for some subpages, like themes or addons where it is the name
 131  * of one theme resp. addon from which the details should be shown. Content for
 132  * the subpages is generated in separate functions for each of the subpages.
 133  *
 134  * The returned string hold the generated HTML code of the page.
 135  *
 136  * @param App $a
 137  * @return string
 138  */
 139 function admin_content(App $a) {
 140
 141         if (!is_site_admin()) {
 142                 return login(false);
 143         }
 144
 145         if (x($_SESSION,'submanage') && intval($_SESSION['submanage'])) {
 146                 return "";
 147         }
 148
 149         // APC deactivated, since there are problems with PHP 5.5
 150         //if (function_exists("apc_delete")) {
 151         //      $toDelete = new APCIterator('user', APC_ITER_VALUE);
 152         //      apc_delete($toDelete);
 153         //}
 154
 155         // Header stuff
 156         $a->page['htmlhead'] .= replace_macros(get_markup_template('admin_settings_head.tpl'), array());
 157
 158         /*
 159          * Side bar links
 160          */
 161         $aside_tools = array();
 162         // array(url, name, extra css classes)
 163         // not part of $aside to make the template more adjustable
 164         $aside_sub = array(
 165                 'site'   =>     array("admin/site/", t("Site") , "site"),
 166                 'users'  =>     array("admin/users/", t("Users") , "users"),
 167                 'plugins'=>     array("admin/plugins/", t("Plugins") , "plugins"),
 168                 'themes' =>     array("admin/themes/", t("Themes") , "themes"),
 169                 'features' =>   array("admin/features/", t("Additional features") , "features"),
 170                 'dbsync' =>     array("admin/dbsync/", t('DB updates'), "dbsync"),
 171                 'queue'  =>     array("admin/queue/", t('Inspect Queue'), "queue"),
 172                 'blocklist' => array("admin/blocklist/", t('Server Blocklist'), "blocklist"),
 173                 'federation' => array("admin/federation/", t('Federation Statistics'), "federation"),
 174         );
 175
 176         /* get plugins admin page */
 177
 178         $r = q("SELECT `name` FROM `addon` WHERE `plugin_admin` = 1 ORDER BY `name`");
 179         $aside_tools['plugins_admin']=array();
 180         foreach ($r as $h) {
 181                 $plugin =$h['name'];
 182                 $aside_tools['plugins_admin'][] = array("admin/plugins/".$plugin, $plugin, "plugin");
 183                 // temp plugins with admin
 184                 $a->plugins_admin[] = $plugin;
 185         }
 186
 187         $aside_tools['logs'] = array("admin/logs/", t("Logs"), "logs");
 188         $aside_tools['viewlogs'] = array("admin/viewlogs/", t("View Logs"), 'viewlogs');
 189         $aside_tools['diagnostics_probe'] = array('probe/', t('probe address'), 'probe');
 190         $aside_tools['diagnostics_webfinger'] = array('webfinger/', t('check webfinger'), 'webfinger');
 191
 192         $t = get_markup_template("admin_aside.tpl");
 193         $a->page['aside'] .= replace_macros($t, array(
 194                 '$admin' => $aside_tools,
 195                 '$subpages' => $aside_sub,
 196                 '$admtxt' => t('Admin'),
 197                 '$plugadmtxt' => t('Plugin Features'),
 198                 '$logtxt' => t('Logs'),
 199                 '$diagnosticstxt' => t('diagnostics'),
 200                 '$h_pending' => t('User registrations waiting for confirmation'),
 201                 '$admurl'=> "admin/"
 202         ));
 203
 204
 205
 206         /*
 207          * Page content
 208          */
 209         $o = '';
 210         // urls
 211         if ($a->argc > 1) {
 212                 switch ($a->argv[1]) {
 213                         case 'site':
 214                                 $o = admin_page_site($a);
 215                                 break;
 216                         case 'users':
 217                                 $o = admin_page_users($a);
 218                                 break;
 219                         case 'plugins':
 220                                 $o = admin_page_plugins($a);
 221                                 break;
 222                         case 'themes':
 223                                 $o = admin_page_themes($a);
 224                                 break;
 225                         case 'features':
 226                                 $o = admin_page_features($a);
 227                                 break;
 228                         case 'logs':
 229                                 $o = admin_page_logs($a);
 230                                 break;
 231                         case 'viewlogs':
 232                                 $o = admin_page_viewlogs($a);
 233                                 break;
 234                         case 'dbsync':
 235                                 $o = admin_page_dbsync($a);
 236                                 break;
 237                         case 'queue':
 238                                 $o = admin_page_queue($a);
 239                                 break;
 240                         case 'federation':
 241                                 $o = admin_page_federation($a);
 242                                 break;
 243                         case 'blocklist':
 244                                 $o = admin_page_blocklist($a);
 245                                 break;
 246                         default:
 247                                 notice(t("Item not found."));
 248                 }
 249         } else {
 250                 $o = admin_page_summary($a);
 251         }
 252
 253         if (is_ajax()) {
 254                 echo $o;
 255                 killme();
 256                 return '';
 257         } else {
 258                 return $o;
 259         }
 260 }
 261
 262 /**
 263  * @brief Subpage to modify the server wide block list via the admin panel.
 264  *
 265  * This function generates the subpage of the admin panel to allow the
 266  * modification of the node wide block/black list to block entire
 267  * remote servers from communication with this node. The page allows
 268  * adding, removing and editing of entries from the blocklist.
 269  *
 270  * @param App $a
 271  * @return string
 272  */
 273 function admin_page_blocklist(App $a) {
 274         $blocklist = Config::get('system', 'blocklist');
 275         $blocklistform = array();
 276         if (is_array($blocklist)) {
 277                 foreach($blocklist as $id => $b) {
 278                         $blocklistform[] = array(
 279                                 'url' => array("url[$id]", t('Blocked URL'), $b['URL'], '', t('The blocked URL'), 'required', '', ''),
 280                                 'reason' => array("reason[$id]", t("Reason for the block"), $b['reason'], t('The reason why you blocked this URL.').'('.$b['URL'].')', 'required', '', ''),
 281                                 'delete' => array("delete[$id]", t("Delete UFL").' ('.$b['URL'].')', False , "Check to delete this entry from the blocklist")
 282                         );
 283                 }
 284         }
 285         $t = get_markup_template("admin_blocklist.tpl");
 286         return replace_macros($t, array(
 287                 '$title' => t('Administration'),
 288                 '$page' => t('Server Blocklist'),
 289                 '$intro' => t('This page can be used to define a black list of servers from the federated network that are not allowed to interact with your node. For all entered URLs you should also give a reason, why you have blocked the remote server.'),
 290                 '$public' => t('The list of blocked servers will be made publically available on the /friendica page so that your users and people investigating communication problems can find the reason easily.'),
 291                 '$addtitle' => t('Add new entry to block list'),
 292                 '$newurl' => array('newentry_url', t('Server URL'), '', t('The URL of the new server to add to the block list. Do not include the protocol to the URL.'), 'required', '', ''),
 293                 '$newreason' => array('newentry_reason', t('Block reason'), '', t('The reason why you blocked this URL.'), 'required', '', ''),
 294                 '$submit' => t('Add Entry'),
 295                 '$savechanges' => t('Save changes to the blocklist'),
 296                 '$currenttitle' => t('Current Entries in the Blocklist'),
 297                 '$thurl' => t('Blocked URL'),
 298                 '$threason' => t('Reason for the block'),
 299                 '$delentry' => t('Delete entry from blocklist'),
 300                 '$entries' => $blocklistform,
 301                 '$baseurl' => App::get_baseurl(true),
 302                 '$confirm_delete' => t('Delete entry from blocklist?'),
 303                 '$form_security_token'  => get_form_security_token("admin_blocklist")
 304         ));
 305 }
 306
 307 /**
 308  * @brief Process send data from Admin Blocklist Page
 309  *
 310  * @param App $a
 311  */
 312 function admin_page_blocklist_post(App $a) {
 313         if (!x($_POST,"page_blocklist_save") && (!x($_POST['page_blocklist_edit']))) {
 314                 return;
 315         }
 316
 317         check_form_security_token_redirectOnErr('/admin/blocklist', 'admin_blocklist');
 318
 319         if (x($_POST['page_blocklist_save'])) {
 320                 //  Add new item to blocklist
 321                 $blocklist = get_config('system', 'blocklist');
 322                 $blocklist[] = array(
 323                         'URL' => notags(trim($_POST['newentry_url'])),
 324                         'reason' => notags(trim($_POST['newentry_reason']))
 325                 );
 326                 Config::set('system', 'blocklist', $blocklist);
 327                 info(t('Server added to blocklist.').EOL);
 328         } else {
 329                 // Edit the entries from blocklist
 330                 $blocklist = array();
 331                 foreach ($_POST['url'] as $id => $URL) {
 332                         $URL = notags(trim($URL));
 333                         $reason = notags(trim($_POST['reason'][$id]));
 334                         if (!x($_POST['delete'][$id])) {
 335                                 $blocklist[] = array(
 336                                         'URL' => $URL,
 337                                         'reason' => $reason
 338                                 );
 339                         }
 340                 }
 341                 Config::set('system', 'blocklist', $blocklist);
 342                 info(t('Site blocklist updated.').EOL);
 343         }
 344         goaway('admin/blocklist');
 345
 346         return; // NOTREACHED
 347 }
 348
 349 /**
 350  * @brief Subpage with some stats about "the federation" network
 351  *
 352  * This function generates the "Federation Statistics" subpage for the admin
 353  * panel. The page lists some numbers to the part of "The Federation" known to
 354  * the node. This data includes the different connected networks (e.g.
 355  * Diaspora, Hubzilla, GNU Social) and the used versions in the different
 356  * networks.
 357  *
 358  * The returned string contains the HTML code of the subpage for display.
 359  *
 360  * @param App $a
 361  * @return string
 362  */
 363 function admin_page_federation(App $a) {
 364         // get counts on active friendica, diaspora, redmatrix, hubzilla, gnu
 365         // social and statusnet nodes this node is knowing
 366         //
 367         // We are looking for the following platforms in the DB, "Red" should find
 368         // all variants of that platform ID string as the q() function is stripping
 369         // off one % two of them are needed in the query
 370         // Add more platforms if you like, when one returns 0 known nodes it is not
 371         // displayed on the stats page.
 372         $platforms = array('Friendi%%a', 'Diaspora', '%%red%%', 'Hubzilla', 'BlaBlaNet', 'GNU Social', 'StatusNet', 'Mastodon');
 373         $colors    = array('Friendi%%a' => '#ffc018',     // orange from the logo
 374                            'Diaspora'  => '#a1a1a1',     // logo is black and white, makes a gray
 375                            '%%red%%'   => '#c50001',     // fire red from the logo
 376                            'Hubzilla'  => '#43488a',     // blue from the logo
 377                            'BlaBlaNet' => '#3B5998',     // blue from the navbar at blablanet-dot-com
 378                            'GNU Social'=> '#a22430',     // dark red from the logo
 379                            'StatusNet' => '#789240',     // the green from the logo (red and blue have already others
 380                            'Mastodon'  => '#1a9df9');    // blue from the Mastodon logo
 381         $counts = array();
 382         $total = 0;
 383
 384         foreach ($platforms as $p) {
 385                 // get a total count for the platform, the name and version of the
 386                 // highest version and the protocol tpe
 387                 $c = qu('SELECT COUNT(*) AS `total`, ANY_VALUE(`platform`) AS `platform`,
 388                                 ANY_VALUE(`network`) AS `network`, MAX(`version`) AS `version` FROM `gserver`
 389                                 WHERE `platform` LIKE "%s" AND `last_contact` >= `last_failure`
 390                                 ORDER BY `version` ASC;', $p);
 391                 $total = $total + $c[0]['total'];
 392
 393                 // what versions for that platform do we know at all?
 394                 // again only the active nodes
 395                 $v = qu('SELECT COUNT(*) AS `total`, `version` FROM `gserver`
 396                                 WHERE `last_contact` >= `last_failure` AND `platform` LIKE "%s"
 397                                 GROUP BY `version`
 398                                 ORDER BY `version`;', $p);
 399
 400                 //
 401                 // clean up version numbers
 402                 //
 403                 // some platforms do not provide version information, add a unkown there
 404                 // to the version string for the displayed list.
 405                 foreach ($v as $key => $value) {
 406                         if ($v[$key]['version'] == '') {
 407                                 $v[$key] = array('total'=>$v[$key]['total'], 'version'=>t('unknown'));
 408                         }
 409                 }
 410                 // in the DB the Diaspora versions have the format x.x.x.x-xx the last
 411                 // part (-xx) should be removed to clean up the versions from the "head
 412                 // commit" information and combined into a single entry for x.x.x.x
 413                 if ($p == 'Diaspora') {
 414                         $newV = array();
 415                         $newVv = array();
 416                         foreach ($v as $vv) {
 417                                 $newVC = $vv['total'];
 418                                 $newVV = $vv['version'];
 419                                 $posDash = strpos($newVV, '-');
 420                                 if ($posDash) {
 421                                         $newVV = substr($newVV, 0, $posDash);
 422                                 }
 423                                 if (isset($newV[$newVV])) {
 424                                         $newV[$newVV] += $newVC;
 425                                 } else {
 426                                         $newV[$newVV] = $newVC;
 427                                 }
 428                         }
 429                         foreach ($newV as $key => $value) {
 430                                 array_push($newVv, array('total'=>$value, 'version'=>$key));
 431                         }
 432                         $v = $newVv;
 433                 }
 434
 435                 // early friendica versions have the format x.x.xxxx where xxxx is the
 436                 // DB version stamp; those should be operated out and versions be
 437                 // conbined
 438                 if ($p == 'Friendi%%a') {
 439                         $newV = array();
 440                         $newVv = array();
 441                         foreach ($v as $vv) {
 442                                 $newVC = $vv['total'];
 443                                 $newVV = $vv['version'];
 444                                 $lastDot = strrpos($newVV,'.');
 445                                 $len = strlen($newVV)-1;
 446                                 if (($lastDot == $len-4) && (!strrpos($newVV,'-rc') == $len-3)) {
 447                                         $newVV = substr($newVV, 0, $lastDot);
 448                                 }
 449                                 if (isset($newV[$newVV])) {
 450                                         $newV[$newVV] += $newVC;
 451                                 } else {
 452                                         $newV[$newVV] = $newVC;
 453                                 }
 454                         }
 455                         foreach ($newV as $key => $value) {
 456                                 array_push($newVv, array('total'=>$value, 'version'=>$key));
 457                         }
 458                         $v = $newVv;
 459                 }
 460
 461                 foreach ($v as $key => $vv)
 462                         $v[$key]["version"] = trim(strip_tags($vv["version"]));
 463
 464                 // the 3rd array item is needed for the JavaScript graphs as JS does
 465                 // not like some characters in the names of variables...
 466                 $counts[$p]=array($c[0], $v, str_replace(array(' ','%'),'',$p), $colors[$p]);
 467         }
 468
 469         // some helpful text
 470         $intro = t('This page offers you some numbers to the known part of the federated social network your Friendica node is part of. These numbers are not complete but only reflect the part of the network your node is aware of.');
 471         $hint = t('The <em>Auto Discovered Contact Directory</em> feature is not enabled, it will improve the data displayed here.');
 472
 473         // load the template, replace the macros and return the page content
 474         $t = get_markup_template("admin_federation.tpl");
 475         return replace_macros($t, array(
 476                 '$title' => t('Administration'),
 477                 '$page' => t('Federation Statistics'),
 478                 '$intro' => $intro,
 479                 '$hint' => $hint,
 480                 '$autoactive' => get_config('system', 'poco_completion'),
 481                 '$counts' => $counts,
 482                 '$version' => FRIENDICA_VERSION,
 483                 '$legendtext' => sprintf(t('Currently this node is aware of %d nodes from the following platforms:'), $total),
 484                 '$baseurl' => App::get_baseurl(),
 485         ));
 486 }
 487
 488 /**
 489  * @brief Admin Inspect Queue Page
 490  *
 491  * Generates a page for the admin to have a look into the current queue of
 492  * postings that are not deliverabke. Shown are the name and url of the
 493  * recipient, the delivery network and the dates when the posting was generated
 494  * and the last time tried to deliver the posting.
 495  *
 496  * The returned string holds the content of the page.
 497  *
 498  * @param App $a
 499  * @return string
 500  */
 501 function admin_page_queue(App $a) {
 502         // get content from the queue table
 503         $r = q("SELECT `c`.`name`, `c`.`nurl`, `q`.`id`, `q`.`network`, `q`.`created`, `q`.`last`
 504                         FROM `queue` AS `q`, `contact` AS `c`
 505                         WHERE `c`.`id` = `q`.`cid`
 506                         ORDER BY `q`.`cid`, `q`.`created`;");
 507
 508         $t = get_markup_template("admin_queue.tpl");
 509         return replace_macros($t, array(
 510                 '$title' => t('Administration'),
 511                 '$page' => t('Inspect Queue'),
 512                 '$count' => sizeof($r),
 513                 'id_header' => t('ID'),
 514                 '$to_header' => t('Recipient Name'),
 515                 '$url_header' => t('Recipient Profile'),
 516                 '$network_header' => t('Network'),
 517                 '$created_header' => t('Created'),
 518                 '$last_header' => t('Last Tried'),
 519                 '$info' => t('This page lists the content of the queue for outgoing postings. These are postings the initial delivery failed for. They will be resend later and eventually deleted if the delivery fails permanently.'),
 520                 '$entries' => $r,
 521         ));
 522 }
 523
 524 /**
 525  * @brief Admin Summary Page
 526  *
 527  * The summary page is the "start page" of the admin panel. It gives the admin
 528  * a first overview of the open adminastrative tasks.
 529  *
 530  * The returned string contains the HTML content of the generated page.
 531  *
 532  * @param App $a
 533  * @return string
 534  */
 535 function admin_page_summary(App $a) {
 536         global $db;
 537         // are there MyISAM tables in the DB? If so, trigger a warning message
 538         $r = q("SELECT `engine` FROM `information_schema`.`tables` WHERE `engine` = 'myisam' AND `table_schema` = '%s' LIMIT 1",
 539                 dbesc($db->database_name()));
 540         $showwarning = false;
 541         $warningtext = array();
 542         if (dbm::is_result($r)) {
 543                 $showwarning = true;
 544                 $warningtext[] = sprintf(t('Your DB still runs with MyISAM tables. You should change the engine type to InnoDB. As Friendica will use InnoDB only features in the future, you should change this! See <a href="%s">here</a> for a guide that may be helpful converting the table engines. You may also use the command <tt>php include/dbstructure.php toinnodb</tt> of your Friendica installation for an automatic conversion.<br />'), 'https://dev.mysql.com/doc/refman/5.7/en/converting-tables-to-innodb.html');
 545         }
 546         // MySQL >= 5.7.4 doesn't support the IGNORE keyword in ALTER TABLE statements
 547         if ((version_compare($db->server_info(), '5.7.4') >= 0) AND
 548                 !(strpos($db->server_info(), 'MariaDB') !== false)) {
 549                 $warningtext[] = t('You are using a MySQL version which does not support all features that Friendica uses. You should consider switching to MariaDB.');
 550         }
 551         $r = q("SELECT `page-flags`, COUNT(`uid`) AS `count` FROM `user` GROUP BY `page-flags`");
 552         $accounts = array(
 553                 array(t('Normal Account'), 0),
 554                 array(t('Soapbox Account'), 0),
 555                 array(t('Community/Celebrity Account'), 0),
 556                 array(t('Automatic Friend Account'), 0),
 557                 array(t('Blog Account'), 0),
 558                 array(t('Private Forum'), 0)
 559         );
 560
 561         $users=0;
 562         foreach ($r as $u) {
 563                 $accounts[$u['page-flags']][1] = $u['count'];
 564                 $users+= $u['count'];
 565         }
 566
 567         logger('accounts: '.print_r($accounts,true),LOGGER_DATA);
 568
 569         $r = qu("SELECT COUNT(`id`) AS `count` FROM `register`");
 570         $pending = $r[0]['count'];
 571
 572         $r = qu("SELECT COUNT(*) AS `total` FROM `queue` WHERE 1");
 573         $queue = (($r) ? $r[0]['total'] : 0);
 574
 575         $r = qu("SELECT COUNT(*) AS `total` FROM `workerqueue` WHERE 1");
 576         $workerqueue = (($r) ? $r[0]['total'] : 0);
 577
 578         // We can do better, but this is a quick queue status
 579
 580         $queues = array('label' => t('Message queues'), 'queue' => $queue, 'workerq' => $workerqueue);
 581
 582
 583         $t = get_markup_template("admin_summary.tpl");
 584         return replace_macros($t, array(
 585                 '$title' => t('Administration'),
 586                 '$page' => t('Summary'),
 587                 '$queues' => $queues,
 588                 '$users' => array(t('Registered users'), $users),
 589                 '$accounts' => $accounts,
 590                 '$pending' => array(t('Pending registrations'), $pending),
 591                 '$version' => array(t('Version'), FRIENDICA_VERSION),
 592                 '$baseurl' => App::get_baseurl(),
 593                 '$platform' => FRIENDICA_PLATFORM,
 594                 '$codename' => FRIENDICA_CODENAME,
 595                 '$build' =>  get_config('system','build'),
 596                 '$plugins' => array(t('Active plugins'), $a->plugins),
 597                 '$showwarning' => $showwarning,
 598                 '$warningtext' => $warningtext
 599         ));
 600 }
 601
 602 /**
 603  * @brief Process send data from Admin Site Page
 604  *
 605  * @param App $a
 606  */
 607 function admin_page_site_post(App $a) {
 608         if (!x($_POST,"page_site")) {
 609                 return;
 610         }
 611
 612         check_form_security_token_redirectOnErr('/admin/site', 'admin_site');
 613
 614         // relocate
 615         if (x($_POST,'relocate') && x($_POST,'relocate_url') && $_POST['relocate_url'] != "") {
 616                 $new_url = $_POST['relocate_url'];
 617                 $new_url = rtrim($new_url,"/");
 618
 619                 $parsed = @parse_url($new_url);
 620                 if (!$parsed || (!x($parsed,'host') || !x($parsed,'scheme'))) {
 621                         notice(t("Can not parse base url. Must have at least <scheme>://<domain>"));
 622                         goaway('admin/site');
 623                 }
 624
 625                 /* steps:
 626                  * replace all "baseurl" to "new_url" in config, profile, term, items and contacts
 627                  * send relocate for every local user
 628                  * */
 629
 630                 $old_url = App::get_baseurl(true);
 631
 632                 // Generate host names for relocation the addresses in the format user@address.tld
 633                 $new_host = str_replace("http://", "@", normalise_link($new_url));
 634                 $old_host = str_replace("http://", "@", normalise_link($old_url));
 635
 636                 function update_table($table_name, $fields, $old_url, $new_url) {
 637                         global $db, $a;
 638
 639                         $dbold = dbesc($old_url);
 640                         $dbnew = dbesc($new_url);
 641
 642                         $upd = array();
 643                         foreach ($fields as $f) {
 644                                 $upd[] = "`$f` = REPLACE(`$f`, '$dbold', '$dbnew')";
 645                         }
 646
 647                         $upds = implode(", ", $upd);
 648
 649
 650
 651                         $q = sprintf("UPDATE %s SET %s;", $table_name, $upds);
 652                         $r = q($q);
 653                         if (!$r) {
 654                                 notice("Failed updating '$table_name': ".$db->error);
 655                                 goaway('admin/site');
 656                         }
 657                 }
 658
 659                 // update tables
 660                 // update profile links in the format "http://server.tld"
 661                 update_table("profile", array('photo', 'thumb'), $old_url, $new_url);
 662                 update_table("term", array('url'), $old_url, $new_url);
 663                 update_table("contact", array('photo','thumb','micro','url','nurl','alias','request','notify','poll','confirm','poco', 'avatar'), $old_url, $new_url);
 664                 update_table("gcontact", array('url','nurl','photo','server_url','notify','alias'), $old_url, $new_url);
 665                 update_table("item", array('owner-link','owner-avatar','author-link','author-avatar','body','plink','tag'), $old_url, $new_url);
 666
 667                 // update profile addresses in the format "user@server.tld"
 668                 update_table("contact", array('addr'), $old_host, $new_host);
 669                 update_table("gcontact", array('connect','addr'), $old_host, $new_host);
 670
 671                 // update config
 672                 $a->set_baseurl($new_url);
 673                 set_config('system','url',$new_url);
 674
 675                 // send relocate
 676                 $users = q("SELECT `uid` FROM `user` WHERE `account_removed` = 0 AND `account_expired` = 0");
 677
 678                 foreach ($users as $user) {
 679                         proc_run(PRIORITY_HIGH, 'include/notifier.php', 'relocate', $user['uid']);
 680                 }
 681
 682                 info("Relocation started. Could take a while to complete.");
 683
 684                 goaway('admin/site');
 685         }
 686         // end relocate
 687
 688         $sitename               =       ((x($_POST,'sitename'))                 ? notags(trim($_POST['sitename']))              : '');
 689         $hostname               =       ((x($_POST,'hostname'))                 ? notags(trim($_POST['hostname']))              : '');
 690         $sender_email           =       ((x($_POST,'sender_email'))             ? notags(trim($_POST['sender_email']))          : '');
 691         $banner                 =       ((x($_POST,'banner'))                   ? trim($_POST['banner'])                        : false);
 692         $shortcut_icon          =       ((x($_POST,'shortcut_icon'))            ? notags(trim($_POST['shortcut_icon']))         : '');
 693         $touch_icon             =       ((x($_POST,'touch_icon'))               ? notags(trim($_POST['touch_icon']))            : '');
 694         $info                   =       ((x($_POST,'info'))                     ? trim($_POST['info'])                          : false);
 695         $language               =       ((x($_POST,'language'))                 ? notags(trim($_POST['language']))              : '');
 696         $theme                  =       ((x($_POST,'theme'))                    ? notags(trim($_POST['theme']))                 : '');
 697         $theme_mobile           =       ((x($_POST,'theme_mobile'))             ? notags(trim($_POST['theme_mobile']))          : '');
 698         $maximagesize           =       ((x($_POST,'maximagesize'))             ? intval(trim($_POST['maximagesize']))          :  0);
 699         $maximagelength         =       ((x($_POST,'maximagelength'))           ? intval(trim($_POST['maximagelength']))        :  MAX_IMAGE_LENGTH);
 700         $jpegimagequality       =       ((x($_POST,'jpegimagequality'))         ? intval(trim($_POST['jpegimagequality']))      :  JPEG_QUALITY);
 701
 702
 703         $register_policy        =       ((x($_POST,'register_policy'))          ? intval(trim($_POST['register_policy']))       :  0);
 704         $daily_registrations    =       ((x($_POST,'max_daily_registrations'))  ? intval(trim($_POST['max_daily_registrations']))       :0);
 705         $abandon_days           =       ((x($_POST,'abandon_days'))             ? intval(trim($_POST['abandon_days']))          :  0);
 706
 707         $register_text          =       ((x($_POST,'register_text'))            ? notags(trim($_POST['register_text']))         : '');
 708
 709         $allowed_sites          =       ((x($_POST,'allowed_sites'))            ? notags(trim($_POST['allowed_sites']))         : '');
 710         $allowed_email          =       ((x($_POST,'allowed_email'))            ? notags(trim($_POST['allowed_email']))         : '');
 711         $block_public           =       ((x($_POST,'block_public'))             ? True                                          : False);
 712         $force_publish          =       ((x($_POST,'publish_all'))              ? True                                          : False);
 713         $global_directory       =       ((x($_POST,'directory'))                ? notags(trim($_POST['directory']))             : '');
 714         $thread_allow           =       ((x($_POST,'thread_allow'))             ? True                                          : False);
 715         $newuser_private                =       ((x($_POST,'newuser_private'))          ? True                                  : False);
 716         $enotify_no_content             =       ((x($_POST,'enotify_no_content'))       ? True                                  : False);
 717         $private_addons                 =       ((x($_POST,'private_addons'))           ? True                                  : False);
 718         $disable_embedded               =       ((x($_POST,'disable_embedded'))         ? True                                  : False);
 719         $allow_users_remote_self        =       ((x($_POST,'allow_users_remote_self'))  ? True                                  : False);
 720
 721         $no_multi_reg           =       ((x($_POST,'no_multi_reg'))             ? True                                          : False);
 722         $no_openid              =       !((x($_POST,'no_openid'))               ? True                                          : False);
 723         $no_regfullname         =       !((x($_POST,'no_regfullname'))          ? True                                          : False);
 724         $community_page_style   =       ((x($_POST,'community_page_style'))     ? intval(trim($_POST['community_page_style']))  : 0);
 725         $max_author_posts_community_page        =       ((x($_POST,'max_author_posts_community_page'))  ? intval(trim($_POST['max_author_posts_community_page']))       : 0);
 726
 727         $verifyssl              =       ((x($_POST,'verifyssl'))                ? True                                          : False);
 728         $proxyuser              =       ((x($_POST,'proxyuser'))                ? notags(trim($_POST['proxyuser']))             : '');
 729         $proxy                  =       ((x($_POST,'proxy'))                    ? notags(trim($_POST['proxy']))                 : '');
 730         $timeout                =       ((x($_POST,'timeout'))                  ? intval(trim($_POST['timeout']))               : 60);
 731         $maxloadavg             =       ((x($_POST,'maxloadavg'))               ? intval(trim($_POST['maxloadavg']))            : 50);
 732         $maxloadavg_frontend    =       ((x($_POST,'maxloadavg_frontend'))      ? intval(trim($_POST['maxloadavg_frontend']))   : 50);
 733         $optimize_max_tablesize =       ((x($_POST,'optimize_max_tablesize'))   ? intval(trim($_POST['optimize_max_tablesize'])): 100);
 734         $optimize_fragmentation =       ((x($_POST,'optimize_fragmentation'))   ? intval(trim($_POST['optimize_fragmentation'])): 30);
 735         $poco_completion        =       ((x($_POST,'poco_completion'))          ? intval(trim($_POST['poco_completion']))       : false);
 736         $poco_requery_days      =       ((x($_POST,'poco_requery_days'))        ? intval(trim($_POST['poco_requery_days']))     : 7);
 737         $poco_discovery         =       ((x($_POST,'poco_discovery'))           ? intval(trim($_POST['poco_discovery']))        : 0);
 738         $poco_discovery_since   =       ((x($_POST,'poco_discovery_since'))     ? intval(trim($_POST['poco_discovery_since']))  : 30);
 739         $poco_local_search      =       ((x($_POST,'poco_local_search'))        ? intval(trim($_POST['poco_local_search']))     : false);
 740         $nodeinfo               =       ((x($_POST,'nodeinfo'))                 ? intval(trim($_POST['nodeinfo']))              : false);
 741         $dfrn_only              =       ((x($_POST,'dfrn_only'))                ? True                                          : False);
 742         $ostatus_disabled       =       !((x($_POST,'ostatus_disabled'))        ? True                                          : False);
 743         $ostatus_poll_interval  =       ((x($_POST,'ostatus_poll_interval'))    ? intval(trim($_POST['ostatus_poll_interval'])) :  0);
 744         $ostatus_full_threads   =       ((x($_POST,'ostatus_full_threads'))     ? True                                          : False);
 745         $diaspora_enabled       =       ((x($_POST,'diaspora_enabled'))         ? True                                          : False);
 746         $ssl_policy             =       ((x($_POST,'ssl_policy'))               ? intval($_POST['ssl_policy'])                  : 0);
 747         $force_ssl              =       ((x($_POST,'force_ssl'))                ? True                                          : False);
 748         $hide_help              =       ((x($_POST,'hide_help'))                ? True                                          : False);
 749         $suppress_tags          =       ((x($_POST,'suppress_tags'))            ? True                                          : False);
 750         $itemcache              =       ((x($_POST,'itemcache'))                ? notags(trim($_POST['itemcache']))             : '');
 751         $itemcache_duration     =       ((x($_POST,'itemcache_duration'))       ? intval($_POST['itemcache_duration'])          : 0);
 752         $max_comments           =       ((x($_POST,'max_comments'))             ? intval($_POST['max_comments'])                : 0);
 753         $temppath               =       ((x($_POST,'temppath'))                 ? notags(trim($_POST['temppath']))              : '');
 754         $basepath               =       ((x($_POST,'basepath'))                 ? notags(trim($_POST['basepath']))              : '');
 755         $singleuser             =       ((x($_POST,'singleuser'))               ? notags(trim($_POST['singleuser']))            : '');
 756         $proxy_disabled         =       ((x($_POST,'proxy_disabled'))           ? True                                          : False);
 757         $only_tag_search        =       ((x($_POST,'only_tag_search'))          ? True                                          : False);
 758         $rino                   =       ((x($_POST,'rino'))                     ? intval($_POST['rino'])                        : 0);
 759         $worker_queues          =       ((x($_POST,'worker_queues'))            ? intval($_POST['worker_queues'])               : 4);
 760         $worker_dont_fork       =       ((x($_POST,'worker_dont_fork'))         ? True                                          : False);
 761         $worker_fastlane        =       ((x($_POST,'worker_fastlane'))          ? True                                          : False);
 762         $worker_frontend        =       ((x($_POST,'worker_frontend'))          ? True                                          : False);
 763
 764         // Has the directory url changed? If yes, then resubmit the existing profiles there
 765         if ($global_directory != Config::get('system', 'directory') AND ($global_directory != '')) {
 766                 Config::set('system', 'directory', $global_directory);
 767                 proc_run(PRIORITY_LOW, 'include/directory.php');
 768         }
 769
 770         if ($a->get_path() != "") {
 771                 $diaspora_enabled = false;
 772         }
 773         if (!$thread_allow) {
 774                 $ostatus_disabled = true;
 775         }
 776         if ($ssl_policy != intval(get_config('system','ssl_policy'))) {
 777                 if ($ssl_policy == SSL_POLICY_FULL) {
 778                         q("UPDATE `contact` SET
 779                                 `url`     = REPLACE(`url`    , 'http:' , 'https:'),
 780                                 `photo`   = REPLACE(`photo`  , 'http:' , 'https:'),
 781                                 `thumb`   = REPLACE(`thumb`  , 'http:' , 'https:'),
 782                                 `micro`   = REPLACE(`micro`  , 'http:' , 'https:'),
 783                                 `request` = REPLACE(`request`, 'http:' , 'https:'),
 784                                 `notify`  = REPLACE(`notify` , 'http:' , 'https:'),
 785                                 `poll`    = REPLACE(`poll`   , 'http:' , 'https:'),
 786                                 `confirm` = REPLACE(`confirm`, 'http:' , 'https:'),
 787                                 `poco`    = REPLACE(`poco`   , 'http:' , 'https:')
 788                                 WHERE `self` = 1"
 789                         );
 790                         q("UPDATE `profile` SET
 791                                 `photo`   = REPLACE(`photo`  , 'http:' , 'https:'),
 792                                 `thumb`   = REPLACE(`thumb`  , 'http:' , 'https:')
 793                                 WHERE 1 "
 794                         );
 795                 } elseif ($ssl_policy == SSL_POLICY_SELFSIGN) {
 796                         q("UPDATE `contact` SET
 797                                 `url`     = REPLACE(`url`    , 'https:' , 'http:'),
 798                                 `photo`   = REPLACE(`photo`  , 'https:' , 'http:'),
 799                                 `thumb`   = REPLACE(`thumb`  , 'https:' , 'http:'),
 800                                 `micro`   = REPLACE(`micro`  , 'https:' , 'http:'),
 801                                 `request` = REPLACE(`request`, 'https:' , 'http:'),
 802                                 `notify`  = REPLACE(`notify` , 'https:' , 'http:'),
 803                                 `poll`    = REPLACE(`poll`   , 'https:' , 'http:'),
 804                                 `confirm` = REPLACE(`confirm`, 'https:' , 'http:'),
 805                                 `poco`    = REPLACE(`poco`   , 'https:' , 'http:')
 806                                 WHERE `self` = 1"
 807                         );
 808                         q("UPDATE `profile` SET
 809                                 `photo`   = REPLACE(`photo`  , 'https:' , 'http:'),
 810                                 `thumb`   = REPLACE(`thumb`  , 'https:' , 'http:')
 811                                 WHERE 1 "
 812                         );
 813                 }
 814         }
 815         set_config('system','ssl_policy',$ssl_policy);
 816         set_config('system','maxloadavg',$maxloadavg);
 817         set_config('system','maxloadavg_frontend',$maxloadavg_frontend);
 818         set_config('system','optimize_max_tablesize',$optimize_max_tablesize);
 819         set_config('system','optimize_fragmentation',$optimize_fragmentation);
 820         set_config('system','poco_completion',$poco_completion);
 821         set_config('system','poco_requery_days',$poco_requery_days);
 822         set_config('system','poco_discovery',$poco_discovery);
 823         set_config('system','poco_discovery_since',$poco_discovery_since);
 824         set_config('system','poco_local_search',$poco_local_search);
 825         set_config('system','nodeinfo',$nodeinfo);
 826         set_config('config','sitename',$sitename);
 827         set_config('config','hostname',$hostname);
 828         set_config('config','sender_email', $sender_email);
 829         set_config('system','suppress_tags',$suppress_tags);
 830         set_config('system','shortcut_icon',$shortcut_icon);
 831         set_config('system','touch_icon',$touch_icon);
 832
 833         if ($banner == "") {
 834                 // don't know why, but del_config doesn't work...
 835                 q("DELETE FROM `config` WHERE `cat` = '%s' AND `k` = '%s' LIMIT 1",
 836                         dbesc("system"),
 837                         dbesc("banner")
 838                 );
 839         } else {
 840                 set_config('system','banner', $banner);
 841         }
 842
 843         if ($info == "") {
 844                 del_config('config','info');
 845         } else {
 846                 set_config('config','info',$info);
 847         }
 848         set_config('system','language', $language);
 849         set_config('system','theme', $theme);
 850
 851         if ($theme_mobile === '---') {
 852                 del_config('system','mobile-theme');
 853         } else {
 854                 set_config('system','mobile-theme', $theme_mobile);
 855                 }
 856                 if ($singleuser === '---') {
 857                         del_config('system','singleuser');
 858                 } else {
 859                         set_config('system','singleuser', $singleuser);
 860                 }
 861         set_config('system', 'maximagesize', $maximagesize);
 862         set_config('system', 'max_image_length', $maximagelength);
 863         set_config('system', 'jpeg_quality', $jpegimagequality);
 864
 865         set_config('config', 'register_policy', $register_policy);
 866         set_config('system', 'max_daily_registrations', $daily_registrations);
 867         set_config('system', 'account_abandon_days', $abandon_days);
 868         set_config('config', 'register_text', $register_text);
 869         set_config('system', 'allowed_sites', $allowed_sites);
 870         set_config('system', 'allowed_email', $allowed_email);
 871         set_config('system', 'block_public', $block_public);
 872         set_config('system', 'publish_all', $force_publish);
 873         set_config('system', 'thread_allow', $thread_allow);
 874         set_config('system', 'newuser_private', $newuser_private);
 875         set_config('system', 'enotify_no_content', $enotify_no_content);
 876         set_config('system', 'disable_embedded', $disable_embedded);
 877         set_config('system', 'allow_users_remote_self', $allow_users_remote_self);
 878
 879         set_config('system', 'block_extended_register', $no_multi_reg);
 880         set_config('system', 'no_openid', $no_openid);
 881         set_config('system', 'no_regfullname', $no_regfullname);
 882         set_config('system', 'community_page_style', $community_page_style);
 883         set_config('system', 'max_author_posts_community_page', $max_author_posts_community_page);
 884         set_config('system', 'verifyssl', $verifyssl);
 885         set_config('system', 'proxyuser', $proxyuser);
 886         set_config('system', 'proxy', $proxy);
 887         set_config('system', 'curl_timeout', $timeout);
 888         set_config('system', 'dfrn_only', $dfrn_only);
 889         set_config('system', 'ostatus_disabled', $ostatus_disabled);
 890         set_config('system', 'ostatus_poll_interval', $ostatus_poll_interval);
 891         set_config('system', 'ostatus_full_threads', $ostatus_full_threads);
 892         set_config('system', 'diaspora_enabled', $diaspora_enabled);
 893
 894         set_config('config', 'private_addons', $private_addons);
 895
 896         set_config('system', 'force_ssl', $force_ssl);
 897         set_config('system', 'hide_help', $hide_help);
 898         set_config('system', 'itemcache', $itemcache);
 899         set_config('system', 'itemcache_duration', $itemcache_duration);
 900         set_config('system', 'max_comments', $max_comments);
 901         set_config('system', 'temppath', $temppath);
 902         set_config('system', 'basepath', $basepath);
 903         set_config('system', 'proxy_disabled', $proxy_disabled);
 904         set_config('system', 'only_tag_search', $only_tag_search);
 905         set_config('system', 'worker_queues', $worker_queues);
 906         set_config('system', 'worker_dont_fork', $worker_dont_fork);
 907         set_config('system', 'worker_fastlane', $worker_fastlane);
 908         set_config('system', 'frontend_worker', $worker_frontend);
 909         set_config('system', 'rino_encrypt', $rino);
 910
 911         info(t('Site settings updated.').EOL);
 912         goaway('admin/site');
 913         return; // NOTREACHED
 914
 915 }
 916
 917 /**
 918  * @brief Generate Admin Site subpage
 919  *
 920  * This function generates the main configuration page of the admin panel.
 921  *
 922  * @param  App $a
 923  * @return string
 924  */
 925 function admin_page_site(App $a) {
 926
 927         /* Installed langs */
 928         $lang_choices = get_available_languages();
 929
 930         if (strlen(get_config('system','directory_submit_url')) AND
 931                 !strlen(get_config('system','directory'))) {
 932                         set_config('system','directory', dirname(get_config('system','directory_submit_url')));
 933                         del_config('system','directory_submit_url');
 934         }
 935
 936         /* Installed themes */
 937         $theme_choices = array();
 938         $theme_choices_mobile = array();
 939         $theme_choices_mobile["---"] = t("No special theme for mobile devices");
 940         $files = glob('view/theme/*');
 941         if ($files) {
 942
 943                 $allowed_theme_list = Config::get('system', 'allowed_themes');
 944
 945                 foreach ($files as $file) {
 946                         if (intval(file_exists($file.'/unsupported')))
 947                                 continue;
 948
 949                         $f = basename($file);
 950
 951                         // Only show allowed themes here
 952                         if (($allowed_theme_list != '') AND !strstr($allowed_theme_list, $f)) {
 953                                 continue;
 954                         }
 955
 956                         $theme_name = ((file_exists($file.'/experimental')) ?  sprintf("%s - \x28Experimental\x29", $f) : $f);
 957
 958                         if (file_exists($file.'/mobile')) {
 959                                 $theme_choices_mobile[$f] = $theme_name;
 960                         } else {
 961                                 $theme_choices[$f] = $theme_name;
 962                         }
 963                 }
 964         }
 965
 966         /* Community page style */
 967         $community_page_style_choices = array(
 968                 CP_NO_COMMUNITY_PAGE => t("No community page"),
 969                 CP_USERS_ON_SERVER => t("Public postings from users of this site"),
 970                 CP_GLOBAL_COMMUNITY => t("Global community page")
 971                 );
 972
 973         /* OStatus conversation poll choices */
 974         $ostatus_poll_choices = array(
 975                 "-2" => t("Never"),
 976                 "-1" => t("At post arrival"),
 977                 "0" => t("Frequently"),
 978                 "60" => t("Hourly"),
 979                 "720" => t("Twice daily"),
 980                 "1440" => t("Daily")
 981                 );
 982
 983         $poco_discovery_choices = array(
 984                 "0" => t("Disabled"),
 985                 "1" => t("Users"),
 986                 "2" => t("Users, Global Contacts"),
 987                 "3" => t("Users, Global Contacts/fallback"),
 988                 );
 989
 990         $poco_discovery_since_choices = array(
 991                 "30" => t("One month"),
 992                 "91" => t("Three months"),
 993                 "182" => t("Half a year"),
 994                 "365" => t("One year"),
 995                 );
 996
 997         /* get user names to make the install a personal install of X */
 998         $user_names = array();
 999         $user_names['---'] = t('Multi user instance');
1000         $users = q("SELECT `username`, `nickname` FROM `user`");
1001         foreach ($users as $user) {
1002                 $user_names[$user['nickname']] = $user['username'];
1003         }
1004
1005         /* Banner */
1006         $banner = get_config('system','banner');
1007         if ($banner == false) {
1008                 $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>';
1009         }
1010         $banner = htmlspecialchars($banner);
1011         $info = get_config('config','info');
1012         $info = htmlspecialchars($info);
1013
1014         // Automatically create temporary paths
1015         get_temppath();
1016         get_itemcachepath();
1017
1018         //echo "<pre>"; var_dump($lang_choices); die("</pre>");
1019
1020         /* Register policy */
1021         $register_choices = array(
1022                 REGISTER_CLOSED => t("Closed"),
1023                 REGISTER_APPROVE => t("Requires approval"),
1024                 REGISTER_OPEN => t("Open")
1025         );
1026
1027         $ssl_choices = array(
1028                 SSL_POLICY_NONE => t("No SSL policy, links will track page SSL state"),
1029                 SSL_POLICY_FULL => t("Force all links to use SSL"),
1030                 SSL_POLICY_SELFSIGN => t("Self-signed certificate, use SSL for local links only (discouraged)")
1031         );
1032
1033         if ($a->config['hostname'] == "") {
1034                 $a->config['hostname'] = $a->get_hostname();
1035         }
1036         $diaspora_able = ($a->get_path() == "");
1037
1038         $optimize_max_tablesize = Config::get('system','optimize_max_tablesize', 100);
1039
1040         if ($optimize_max_tablesize < -1) {
1041                 $optimize_max_tablesize = -1;
1042         }
1043
1044         if ($optimize_max_tablesize == 0) {
1045                 $optimize_max_tablesize = 100;
1046         }
1047
1048         $t = get_markup_template("admin_site.tpl");
1049         return replace_macros($t, array(
1050                 '$title' => t('Administration'),
1051                 '$page' => t('Site'),
1052                 '$submit' => t('Save Settings'),
1053                 '$registration' => t('Registration'),
1054                 '$upload' => t('File upload'),
1055                 '$corporate' => t('Policies'),
1056                 '$advanced' => t('Advanced'),
1057                 '$portable_contacts' => t('Auto Discovered Contact Directory'),
1058                 '$performance' => t('Performance'),
1059                 '$worker_title' => t('Worker'),
1060                 '$relocate'=> t('Relocate - WARNING: advanced function. Could make this server unreachable.'),
1061                 '$baseurl' => App::get_baseurl(true),
1062                 // name, label, value, help string, extra data...
1063                 '$sitename'             => array('sitename', t("Site name"), $a->config['sitename'],''),
1064                 '$hostname'             => array('hostname', t("Host name"), $a->config['hostname'], ""),
1065                 '$sender_email'         => array('sender_email', t("Sender Email"), $a->config['sender_email'], t("The email address your server shall use to send notification emails from."), "", "", "email"),
1066                 '$banner'               => array('banner', t("Banner/Logo"), $banner, ""),
1067                 '$shortcut_icon'        => array('shortcut_icon', t("Shortcut icon"), get_config('system','shortcut_icon'),  t("Link to an icon that will be used for browsers.")),
1068                 '$touch_icon'           => array('touch_icon', t("Touch icon"), get_config('system','touch_icon'),  t("Link to an icon that will be used for tablets and mobiles.")),
1069                 '$info'                 => array('info', t('Additional Info'), $info, sprintf(t('For public servers: you can add additional information here that will be listed at %s/siteinfo.'), get_server())),
1070                 '$language'             => array('language', t("System language"), get_config('system','language'), "", $lang_choices),
1071                 '$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),
1072                 '$theme_mobile'         => array('theme_mobile', t("Mobile system theme"), get_config('system','mobile-theme'), t("Theme for mobile devices"), $theme_choices_mobile),
1073                 '$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),
1074                 '$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.")),
1075                 '$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.")),
1076                 '$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),
1077                 '$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.")),
1078                 '$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.")),
1079                 '$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.")),
1080
1081                 '$register_policy'      => array('register_policy', t("Register policy"), $a->config['register_policy'], "", $register_choices),
1082                 '$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.")),
1083                 '$register_text'        => array('register_text', t("Register text"), $a->config['register_text'], t("Will be displayed prominently on the registration page.")),
1084                 '$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.')),
1085                 '$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")),
1086                 '$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")),
1087                 '$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.")),
1088                 '$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.")),
1089                 '$global_directory'     => array('directory', t("Global directory URL"), get_config('system','directory'), t("URL to the global directory. If this is not set, the global directory is completely unavailable to the application.")),
1090                 '$thread_allow'         => array('thread_allow', t("Allow threaded items"), get_config('system','thread_allow'), t("Allow infinite level threading for items on this site.")),
1091                 '$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.")),
1092                 '$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.")),
1093                 '$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.")),
1094                 '$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.")),
1095                 '$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.')),
1096                 '$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.")),
1097                 '$no_openid'            => array('no_openid', t("OpenID support"), !get_config('system','no_openid'), t("OpenID support for registration and logins.")),
1098                 '$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")),
1099                 '$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),
1100                 '$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')")),
1101                 '$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.")),
1102                 '$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),
1103                 '$ostatus_full_threads' => array('ostatus_full_threads', t("Only import OStatus threads from our contacts"), get_config('system','ostatus_full_threads'), t("Normally we import every content from our OStatus contacts. With this option we only store threads that are started by a contact that is known on our system.")),
1104                 '$ostatus_not_able'     => t("OStatus support can only be enabled if threading is enabled."),
1105                 '$diaspora_able'        => $diaspora_able,
1106                 '$diaspora_not_able'    => t("Diaspora support can't be enabled because Friendica was installed into a sub directory."),
1107                 '$diaspora_enabled'     => array('diaspora_enabled', t("Enable Diaspora support"), get_config('system','diaspora_enabled'), t("Provide built-in Diaspora network compatibility.")),
1108                 '$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.")),
1109                 '$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.")),
1110                 '$proxyuser'            => array('proxyuser', t("Proxy user"), get_config('system','proxyuser'), ""),
1111                 '$proxy'                => array('proxy', t("Proxy URL"), get_config('system','proxy'), ""),
1112                 '$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).")),
1113                 '$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.")),
1114                 '$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.")),
1115                 '$optimize_max_tablesize'=> array('optimize_max_tablesize', t("Maximum table size for optimization"), $optimize_max_tablesize, t("Maximum table size (in MB) for the automatic optimization - default 100 MB. Enter -1 to disable it.")),
1116                 '$optimize_fragmentation'=> array('optimize_fragmentation', t("Minimum level of fragmentation"), ((intval(get_config('system','optimize_fragmentation')) > 0)?get_config('system','optimize_fragmentation'):30), t("Minimum fragmenation level to start the automatic optimization - default value is 30%.")),
1117
1118                 '$poco_completion'      => array('poco_completion', t("Periodical check of global contacts"), get_config('system','poco_completion'), t("If enabled, the global contacts are checked periodically for missing or outdated data and the vitality of the contacts and servers.")),
1119                 '$poco_requery_days'    => array('poco_requery_days', t("Days between requery"), get_config('system','poco_requery_days'), t("Number of days after which a server is requeried for his contacts.")),
1120                 '$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. The fallback increases the server load, so the recommened setting is 'Users, Global Contacts'."), $poco_discovery_choices),
1121                 '$poco_discovery_since' => array('poco_discovery_since', t("Timeframe for fetching global contacts"), (string) intval(get_config('system','poco_discovery_since')), t("When the discovery is activated, this value defines the timeframe for the activity of the global contacts that are fetched from other servers."), $poco_discovery_since_choices),
1122                 '$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.")),
1123
1124                 '$nodeinfo'             => array('nodeinfo', t("Publish server information"), get_config('system','nodeinfo'), t("If enabled, general server and usage data will be published. The data contains the name and version of the server, number of users with public profiles, number of posts and the activated protocols and connectors. See <a href='http://the-federation.info/'>the-federation.info</a> for details.")),
1125
1126                 '$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.")),
1127                 '$itemcache'            => array('itemcache', t("Path to item cache"), get_config('system','itemcache'), t("The item caches buffers generated bbcode and external images.")),
1128                 '$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.")),
1129                 '$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.")),
1130                 '$temppath'             => array('temppath', t("Temp path"), get_config('system','temppath'), t("If you have a restricted system where the webserver can't access the system temp path, enter another path here.")),
1131                 '$basepath'             => array('basepath', t("Base path to installation"), get_config('system','basepath'), t("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.")),
1132                 '$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.")),
1133                 '$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.")),
1134
1135                 '$relocate_url'         => array('relocate_url', t("New base url"), App::get_baseurl(), t("Change base url for this server. Sends relocate message to all DFRN contacts of all users.")),
1136
1137                 '$rino'                 => array('rino', t("RINO Encryption"), intval(get_config('system','rino_encrypt')), t("Encryption layer between nodes."), array("Disabled", "RINO1 (deprecated)", "RINO2")),
1138
1139                 '$worker_queues'        => array('worker_queues', t("Maximum number of parallel workers"), get_config('system','worker_queues'), t("On shared hosters set this to 2. On larger systems, values of 10 are great. Default value is 4.")),
1140                 '$worker_dont_fork'     => array('worker_dont_fork', t("Don't use 'proc_open' with the worker"), get_config('system','worker_dont_fork'), t("Enable this if your system doesn't allow the use of 'proc_open'. This can happen on shared hosters. If this is enabled you should increase the frequency of poller calls in your crontab.")),
1141                 '$worker_fastlane'      => array('worker_fastlane', t("Enable fastlane"), get_config('system','worker_fastlane'), t("When enabed, the fastlane mechanism starts an additional worker if processes with higher priority are blocked by processes of lower priority.")),
1142                 '$worker_frontend'      => array('worker_frontend', t('Enable frontend worker'), get_config('system','frontend_worker'), t('When enabled the Worker process is triggered when backend access is performed (e.g. messages being delivered). On smaller sites you might want to call yourdomain.tld/worker on a regular basis via an external cron job. You should only enable this option if you cannot utilize cron/scheduled jobs on your server. The worker background process needs to be activated for this.')),
1143
1144                 '$form_security_token'  => get_form_security_token("admin_site")
1145
1146         ));
1147
1148 }
1149
1150 /**
1151  * @brief Generates admin panel subpage for DB syncronization
1152  *
1153  * This page checks if the database of friendica is in sync with the specs.
1154  * Should this not be the case, it attemps to sync the structure and notifies
1155  * the admin if the automatic process was failing.
1156  *
1157  * The returned string holds the HTML code of the page.
1158  *
1159  * @param App $a
1160  * @return string
1161  **/
1162 function admin_page_dbsync(App $a) {
1163
1164         $o = '';
1165
1166         if ($a->argc > 3 && intval($a->argv[3]) && $a->argv[2] === 'mark') {
1167                 set_config('database', 'update_'.intval($a->argv[3]), 'success');
1168                 $curr = get_config('system','build');
1169                 if (intval($curr) == intval($a->argv[3])) {
1170                         set_config('system','build',intval($curr) + 1);
1171                 }
1172                 info(t('Update has been marked successful').EOL);
1173                 goaway('admin/dbsync');
1174         }
1175
1176         if (($a->argc > 2) AND (intval($a->argv[2]) OR ($a->argv[2] === 'check'))) {
1177                 require_once("include/dbstructure.php");
1178                 $retval = update_structure(false, true);
1179                 if (!$retval) {
1180                         $o .= sprintf(t("Database structure update %s was successfully applied."), DB_UPDATE_VERSION)."<br />";
1181                         set_config('database', 'dbupdate_'.DB_UPDATE_VERSION, 'success');
1182                 } else {
1183                         $o .= sprintf(t("Executing of database structure update %s failed with error: %s"),
1184                                         DB_UPDATE_VERSION, $retval)."<br />";
1185                 }
1186                 if ($a->argv[2] === 'check') {
1187                         return $o;
1188                 }
1189         }
1190
1191         if ($a->argc > 2 && intval($a->argv[2])) {
1192                 require_once('update.php');
1193                 $func = 'update_'.intval($a->argv[2]);
1194                 if (function_exists($func)) {
1195                         $retval = $func();
1196                         if ($retval === UPDATE_FAILED) {
1197                                 $o .= sprintf(t("Executing %s failed with error: %s"), $func, $retval);
1198                         }
1199                         elseif ($retval === UPDATE_SUCCESS) {
1200                                 $o .= sprintf(t('Update %s was successfully applied.', $func));
1201                                 set_config('database',$func, 'success');
1202                         } else {
1203                                 $o .= sprintf(t('Update %s did not return a status. Unknown if it succeeded.'), $func);
1204                         }
1205                 } else {
1206                         $o .= sprintf(t('There was no additional update function %s that needed to be called.'), $func)."<br />";
1207                         set_config('database',$func, 'success');
1208                 }
1209                 return $o;
1210         }
1211
1212         $failed = array();
1213         $r = q("SELECT `k`, `v` FROM `config` WHERE `cat` = 'database' ");
1214         if (dbm::is_result($r)) {
1215                 foreach ($r as $rr) {
1216                         $upd = intval(substr($rr['k'],7));
1217                         if ($upd < 1139 || $rr['v'] === 'success') {
1218                                 continue;
1219                         }
1220                         $failed[] = $upd;
1221                 }
1222         }
1223         if (! count($failed)) {
1224                 $o = replace_macros(get_markup_template('structure_check.tpl'),array(
1225                         '$base'   => App::get_baseurl(true),
1226                         '$banner' => t('No failed updates.'),
1227                         '$check'  => t('Check database structure'),
1228                 ));
1229         } else {
1230                 $o = replace_macros(get_markup_template('failed_updates.tpl'),array(
1231                         '$base'   => App::get_baseurl(true),
1232                         '$banner' => t('Failed Updates'),
1233                         '$desc'   => t('This does not include updates prior to 1139, which did not return a status.'),
1234                         '$mark'   => t('Mark success (if update was manually applied)'),
1235                         '$apply'  => t('Attempt to execute this update step automatically'),
1236                         '$failed' => $failed
1237                 ));
1238         }
1239
1240         return $o;
1241
1242 }
1243
1244 /**
1245  * @brief Process data send by Users admin page
1246  *
1247  * @param App $a
1248  */
1249 function admin_page_users_post(App $a) {
1250         $pending     = (x($_POST, 'pending')           ? $_POST['pending']           : array());
1251         $users       = (x($_POST, 'user')              ? $_POST['user']               : array());
1252         $nu_name     = (x($_POST, 'new_user_name')     ? $_POST['new_user_name']     : '');
1253         $nu_nickname = (x($_POST, 'new_user_nickname') ? $_POST['new_user_nickname'] : '');
1254         $nu_email    = (x($_POST, 'new_user_email')    ? $_POST['new_user_email']    : '');
1255         $nu_language = get_config('system', 'language');
1256
1257         check_form_security_token_redirectOnErr('/admin/users', 'admin_users');
1258
1259         if (!($nu_name === "") && !($nu_email === "") && !($nu_nickname === "")) {
1260                 require_once('include/user.php');
1261
1262                 $result = create_user(array('username'=>$nu_name, 'email'=>$nu_email,
1263                         'nickname'=>$nu_nickname, 'verified'=>1, 'language'=>$nu_language));
1264                 if (! $result['success']) {
1265                         notice($result['message']);
1266                         return;
1267                 }
1268                 $nu = $result['user'];
1269                 $preamble = deindent(t('
1270                         Dear %1$s,
1271                                 the administrator of %2$s has set up an account for you.'));
1272                 $body = deindent(t('
1273                         The login details are as follows:
1274
1275                         Site Location:  %1$s
1276                         Login Name:             %2$s
1277                         Password:               %3$s
1278
1279                         You may change your password from your account "Settings" page after logging
1280                         in.
1281
1282                         Please take a few moments to review the other account settings on that page.
1283
1284                         You may also wish to add some basic information to your default profile
1285                         (on the "Profiles" page) so that other people can easily find you.
1286
1287                         We recommend setting your full name, adding a profile photo,
1288                         adding some profile "keywords" (very useful in making new friends) - and
1289                         perhaps what country you live in; if you do not wish to be more specific
1290                         than that.
1291
1292                         We fully respect your right to privacy, and none of these items are necessary.
1293                         If you are new and do not know anybody here, they may help
1294                         you to make some new and interesting friends.
1295
1296                         Thank you and welcome to %4$s.'));
1297
1298                 $preamble = sprintf($preamble, $nu['username'], $a->config['sitename']);
1299                 $body = sprintf($body, App::get_baseurl(), $nu['email'], $result['password'], $a->config['sitename']);
1300
1301                 notification(array(
1302                         'type' => "SYSTEM_EMAIL",
1303                         'to_email' => $nu['email'],
1304                         'subject'=> sprintf(t('Registration details for %s'), $a->config['sitename']),
1305                         'preamble'=> $preamble,
1306                         'body' => $body));
1307
1308         }
1309
1310         if (x($_POST,'page_users_block')) {
1311                 foreach ($users as $uid) {
1312                         q("UPDATE `user` SET `blocked` = 1-`blocked` WHERE `uid` = %s",
1313                                 intval($uid)
1314                         );
1315                 }
1316                 notice(sprintf(tt("%s user blocked/unblocked", "%s users blocked/unblocked", count($users)), count($users)));
1317         }
1318         if (x($_POST,'page_users_delete')) {
1319                 require_once("include/Contact.php");
1320                 foreach ($users as $uid) {
1321                         user_remove($uid);
1322                 }
1323                 notice(sprintf(tt("%s user deleted", "%s users deleted", count($users)), count($users)));
1324         }
1325
1326         if (x($_POST,'page_users_approve')) {
1327                 require_once("mod/regmod.php");
1328                 foreach ($pending as $hash) {
1329                         user_allow($hash);
1330                 }
1331         }
1332         if (x($_POST,'page_users_deny')) {
1333                 require_once("mod/regmod.php");
1334                 foreach ($pending as $hash) {
1335                         user_deny($hash);
1336                 }
1337         }
1338         goaway('admin/users');
1339         return; // NOTREACHED
1340 }
1341
1342 /**
1343  * @brief Admin panel subpage for User management
1344  *
1345  * This function generates the admin panel page for user management of the
1346  * node. It offers functionality to add/block/delete users and offers some
1347  * statistics about the userbase.
1348  *
1349  * The returned string holds the HTML code of the page.
1350  *
1351  * @param App $a
1352  * @return string
1353  */
1354 function admin_page_users(App $a) {
1355         if ($a->argc>2) {
1356                 $uid = $a->argv[3];
1357                 $user = q("SELECT `username`, `blocked` FROM `user` WHERE `uid` = %d", intval($uid));
1358                 if (count($user) == 0) {
1359                         notice('User not found'.EOL);
1360                         goaway('admin/users');
1361                         return ''; // NOTREACHED
1362                 }
1363                 switch($a->argv[2]) {
1364                         case "delete":
1365                                 check_form_security_token_redirectOnErr('/admin/users', 'admin_users', 't');
1366                                 // delete user
1367                                 require_once("include/Contact.php");
1368                                 user_remove($uid);
1369
1370                                 notice(sprintf(t("User '%s' deleted"), $user[0]['username']).EOL);
1371                                 break;
1372                         case "block":
1373                                 check_form_security_token_redirectOnErr('/admin/users', 'admin_users', 't');
1374                                 q("UPDATE `user` SET `blocked` = %d WHERE `uid` = %s",
1375                                         intval(1-$user[0]['blocked']),
1376                                         intval($uid)
1377                                 );
1378                                 notice(sprintf(($user[0]['blocked']?t("User '%s' unblocked"):t("User '%s' blocked")) , $user[0]['username']).EOL);
1379                                 break;
1380                 }
1381                 goaway('admin/users');
1382                 return ''; // NOTREACHED
1383
1384         }
1385
1386         /* get pending */
1387         $pending = q("SELECT `register`.*, `contact`.`name`, `user`.`email`
1388                                  FROM `register`
1389                                  LEFT JOIN `contact` ON `register`.`uid` = `contact`.`uid`
1390                                  LEFT JOIN `user` ON `register`.`uid` = `user`.`uid`;");
1391
1392
1393         /* get users */
1394         $total = qu("SELECT COUNT(*) AS `total` FROM `user` WHERE 1");
1395         if (count($total)) {
1396                 $a->set_pager_total($total[0]['total']);
1397                 $a->set_pager_itemspage(100);
1398         }
1399
1400         /* ordering */
1401         $valid_orders = array(
1402                 'contact.name',
1403                 'user.email',
1404                 'user.register_date',
1405                 'user.login_date',
1406                 'lastitem_date',
1407                 'user.page-flags'
1408         );
1409
1410         $order = "contact.name";
1411         $order_direction = "+";
1412         if (x($_GET,'o')) {
1413                 $new_order = $_GET['o'];
1414                 if ($new_order[0] === "-") {
1415                         $order_direction = "-";
1416                         $new_order = substr($new_order,1);
1417                 }
1418
1419                 if (in_array($new_order, $valid_orders)) {
1420                         $order = $new_order;
1421                 }
1422                 if (x($_GET,'d')) {
1423                         $new_direction = $_GET['d'];
1424                 }
1425         }
1426         $sql_order = "`".str_replace('.','`.`',$order)."`";
1427         $sql_order_direction = ($order_direction === "+")?"ASC":"DESC";
1428
1429         $users = qu("SELECT `user`.*, `contact`.`name`, `contact`.`url`, `contact`.`micro`, `user`.`account_expired`, `contact`.`last-item` AS `lastitem_date`
1430                                 FROM `user`
1431                                 INNER JOIN `contact` ON `contact`.`uid` = `user`.`uid` AND `contact`.`self`
1432                                 WHERE `user`.`verified`
1433                                 ORDER BY $sql_order $sql_order_direction LIMIT %d, %d",
1434                                 intval($a->pager['start']),
1435                                 intval($a->pager['itemspage'])
1436                                 );
1437
1438         //echo "<pre>$users"; killme();
1439
1440         $adminlist = explode(",", str_replace(" ", "", $a->config['admin_email']));
1441         $_setup_users = function ($e) use ($adminlist) {
1442                 $accounts = array(
1443                         t('Normal Account'),
1444                         t('Soapbox Account'),
1445                         t('Community/Celebrity Account'),
1446                                                 t('Automatic Friend Account')
1447                 );
1448                 $e['page-flags'] = $accounts[$e['page-flags']];
1449                 $e['register_date'] = relative_date($e['register_date']);
1450                 $e['login_date'] = relative_date($e['login_date']);
1451                 $e['lastitem_date'] = relative_date($e['lastitem_date']);
1452                 //$e['is_admin'] = ($e['email'] === $a->config['admin_email']);
1453                 $e['is_admin'] = in_array($e['email'], $adminlist);
1454                 $e['is_deletable'] = (intval($e['uid']) != local_user());
1455                 $e['deleted'] = ($e['account_removed']?relative_date($e['account_expires_on']):False);
1456                 return $e;
1457         };
1458         $users = array_map($_setup_users, $users);
1459
1460
1461         // Get rid of dashes in key names, Smarty3 can't handle them
1462         // and extracting deleted users
1463
1464         $tmp_users = array();
1465         $deleted = array();
1466
1467         while (count($users)) {
1468                 $new_user = array();
1469                 foreach (array_pop($users) as $k => $v) {
1470                         $k = str_replace('-','_',$k);
1471                         $new_user[$k] = $v;
1472                 }
1473                 if ($new_user['deleted']) {
1474                         array_push($deleted, $new_user);
1475                 } else {
1476                         array_push($tmp_users, $new_user);
1477                 }
1478         }
1479         //Reversing the two array, and moving $tmp_users to $users
1480         array_reverse($deleted);
1481         while (count($tmp_users)) {
1482                 array_push($users, array_pop($tmp_users));
1483         }
1484
1485         $th_users = array_map(null,
1486                 array(t('Name'), t('Email'), t('Register date'), t('Last login'), t('Last item'),  t('Account')),
1487                 $valid_orders
1488         );
1489
1490         $t = get_markup_template("admin_users.tpl");
1491         $o = replace_macros($t, array(
1492                 // strings //
1493                 '$title' => t('Administration'),
1494                 '$page' => t('Users'),
1495                 '$submit' => t('Add User'),
1496                 '$select_all' => t('select all'),
1497                 '$h_pending' => t('User registrations waiting for confirm'),
1498                 '$h_deleted' => t('User waiting for permanent deletion'),
1499                 '$th_pending' => array(t('Request date'), t('Name'), t('Email')),
1500                 '$no_pending' =>  t('No registrations.'),
1501                 '$pendingnotetext' => t('Note from the user'),
1502                 '$approve' => t('Approve'),
1503                 '$deny' => t('Deny'),
1504                 '$delete' => t('Delete'),
1505                 '$block' => t('Block'),
1506                 '$unblock' => t('Unblock'),
1507                 '$siteadmin' => t('Site admin'),
1508                 '$accountexpired' => t('Account expired'),
1509
1510                 '$h_users' => t('Users'),
1511                 '$h_newuser' => t('New User'),
1512                 '$th_deleted' => array(t('Name'), t('Email'), t('Register date'), t('Last login'), t('Last item'), t('Deleted since')),
1513                 '$th_users' => $th_users,
1514                 '$order_users' => $order,
1515                 '$order_direction_users' => $order_direction,
1516
1517                 '$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?'),
1518                 '$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?'),
1519
1520                 '$form_security_token' => get_form_security_token("admin_users"),
1521
1522                 // values //
1523                 '$baseurl' => App::get_baseurl(true),
1524
1525                 '$pending' => $pending,
1526                 'deleted' => $deleted,
1527                 '$users' => $users,
1528                 '$newusername' => array('new_user_name', t("Name"), '', t("Name of the new user.")),
1529                 '$newusernickname' => array('new_user_nickname', t("Nickname"), '', t("Nickname of the new user.")),
1530                 '$newuseremail' => array('new_user_email', t("Email"), '', t("Email address of the new user."), '', '', 'email'),
1531         ));
1532         $o .= paginate($a);
1533         return $o;
1534 }
1535
1536
1537 /**
1538  * @brief Plugins admin page
1539  *
1540  * This function generates the admin panel page for managing plugins on the
1541  * friendica node. If a plugin name is given a single page showing the details
1542  * for this addon is generated. If no name is given, a list of available
1543  * plugins is shown.
1544  *
1545  * The template used for displaying the list of plugins and the details of the
1546  * plugin are the same as used for the templates.
1547  *
1548  * The returned string returned hulds the HTML code of the page.
1549  *
1550  * @param App $a
1551  * @return string
1552  */
1553 function admin_page_plugins(App $a) {
1554
1555         /*
1556          * Single plugin
1557          */
1558         if ($a->argc == 3) {
1559                 $plugin = $a->argv[2];
1560                 if (!is_file("addon/$plugin/$plugin.php")) {
1561                         notice(t("Item not found."));
1562                         return '';
1563                 }
1564
1565                 if (x($_GET,"a") && $_GET['a']=="t") {
1566                         check_form_security_token_redirectOnErr('/admin/plugins', 'admin_themes', 't');
1567
1568                         // Toggle plugin status
1569                         $idx = array_search($plugin, $a->plugins);
1570                         if ($idx !== false) {
1571                                 unset($a->plugins[$idx]);
1572                                 uninstall_plugin($plugin);
1573                                 info(sprintf(t("Plugin %s disabled."), $plugin));
1574                         } else {
1575                                 $a->plugins[] = $plugin;
1576                                 install_plugin($plugin);
1577                                 info(sprintf(t("Plugin %s enabled."), $plugin));
1578                         }
1579                         set_config("system","addon", implode(", ",$a->plugins));
1580                         goaway('admin/plugins');
1581                         return ''; // NOTREACHED
1582                 }
1583
1584                 // display plugin details
1585                 require_once('library/markdown.php');
1586
1587                 if (in_array($plugin, $a->plugins)) {
1588                         $status="on"; $action= t("Disable");
1589                 } else {
1590                         $status="off"; $action= t("Enable");
1591                 }
1592
1593                 $readme=Null;
1594                 if (is_file("addon/$plugin/README.md")) {
1595                         $readme = file_get_contents("addon/$plugin/README.md");
1596                         $readme = Markdown($readme);
1597                 } elseif (is_file("addon/$plugin/README")) {
1598                         $readme = "<pre>". file_get_contents("addon/$plugin/README") ."</pre>";
1599                 }
1600
1601                 $admin_form="";
1602                 if (is_array($a->plugins_admin) && in_array($plugin, $a->plugins_admin)) {
1603                         @require_once("addon/$plugin/$plugin.php");
1604                         $func = $plugin.'_plugin_admin';
1605                         $func($a, $admin_form);
1606                 }
1607
1608                 $t = get_markup_template("admin_plugins_details.tpl");
1609
1610                 return replace_macros($t, array(
1611                         '$title' => t('Administration'),
1612                         '$page' => t('Plugins'),
1613                         '$toggle' => t('Toggle'),
1614                         '$settings' => t('Settings'),
1615                         '$baseurl' => App::get_baseurl(true),
1616
1617                         '$plugin' => $plugin,
1618                         '$status' => $status,
1619                         '$action' => $action,
1620                         '$info' => get_plugin_info($plugin),
1621                         '$str_author' => t('Author: '),
1622                         '$str_maintainer' => t('Maintainer: '),
1623
1624                         '$admin_form' => $admin_form,
1625                         '$function' => 'plugins',
1626                         '$screenshot' => '',
1627                         '$readme' => $readme,
1628
1629                         '$form_security_token' => get_form_security_token("admin_themes"),
1630                 ));
1631         }
1632
1633
1634
1635         /*
1636          * List plugins
1637          */
1638
1639         if (x($_GET,"a") && $_GET['a']=="r") {
1640                 check_form_security_token_redirectOnErr(App::get_baseurl().'/admin/plugins', 'admin_themes', 't');
1641                 reload_plugins();
1642                 info("Plugins reloaded");
1643                 goaway(App::get_baseurl().'/admin/plugins');
1644         }
1645
1646         $plugins = array();
1647         $files = glob("addon/*/");
1648         if ($files) {
1649                 foreach ($files as $file) {
1650                         if (is_dir($file)) {
1651                                 list($tmp, $id)=array_map("trim", explode("/",$file));
1652                                 $info = get_plugin_info($id);
1653                                 $show_plugin = true;
1654
1655                                 // If the addon is unsupported, then only show it, when it is enabled
1656                                 if ((strtolower($info["status"]) == "unsupported") AND !in_array($id,  $a->plugins)) {
1657                                         $show_plugin = false;
1658                                 }
1659
1660                                 // Override the above szenario, when the admin really wants to see outdated stuff
1661                                 if (get_config("system", "show_unsupported_addons")) {
1662                                         $show_plugin = true;
1663                                 }
1664
1665                                 if ($show_plugin) {
1666                                         $plugins[] = array($id, (in_array($id,  $a->plugins)?"on":"off") , $info);
1667                                 }
1668                         }
1669                 }
1670         }
1671
1672         $t = get_markup_template("admin_plugins.tpl");
1673         return replace_macros($t, array(
1674                 '$title' => t('Administration'),
1675                 '$page' => t('Plugins'),
1676                 '$submit' => t('Save Settings'),
1677                 '$reload' => t('Reload active plugins'),
1678                 '$baseurl' => App::get_baseurl(true),
1679                 '$function' => 'plugins',
1680                 '$plugins' => $plugins,
1681                 '$pcount' => count($plugins),
1682                 '$noplugshint' => sprintf(t('There are currently no plugins available on your node. You can find the official plugin repository at %1$s and might find other interesting plugins in the open plugin registry at %2$s'), 'https://github.com/friendica/friendica-addons', 'http://addons.friendi.ca'),
1683                 '$form_security_token' => get_form_security_token("admin_themes"),
1684         ));
1685 }
1686
1687 /**
1688  * @param array $themes
1689  * @param string $th
1690  * @param int $result
1691  */
1692 function toggle_theme(&$themes,$th,&$result) {
1693         for($x = 0; $x < count($themes); $x ++) {
1694                 if ($themes[$x]['name'] === $th) {
1695                         if ($themes[$x]['allowed']) {
1696                                 $themes[$x]['allowed'] = 0;
1697                                 $result = 0;
1698                         }
1699                         else {
1700                                 $themes[$x]['allowed'] = 1;
1701                                 $result = 1;
1702                         }
1703                 }
1704         }
1705 }
1706
1707 /**
1708  * @param array $themes
1709  * @param string $th
1710  * @return int
1711  */
1712 function theme_status($themes,$th) {
1713         for($x = 0; $x < count($themes); $x ++) {
1714                 if ($themes[$x]['name'] === $th) {
1715                         if ($themes[$x]['allowed']) {
1716                                 return 1;
1717                         }
1718                         else {
1719                                 return 0;
1720                         }
1721                 }
1722         }
1723         return 0;
1724 }
1725
1726
1727 /**
1728  * @param array $themes
1729  * @return string
1730  */
1731 function rebuild_theme_table($themes) {
1732         $o = '';
1733         if (count($themes)) {
1734                 foreach ($themes as $th) {
1735                         if ($th['allowed']) {
1736                                 if (strlen($o)) {
1737                                         $o .= ',';
1738                                 }
1739                                 $o .= $th['name'];
1740                         }
1741                 }
1742         }
1743         return $o;
1744 }
1745
1746
1747 /**
1748  * @brief Themes admin page
1749  *
1750  * This function generates the admin panel page to control the themes available
1751  * on the friendica node. If the name of a theme is given as parameter a page
1752  * with the details for the theme is shown. Otherwise a list of available
1753  * themes is generated.
1754  *
1755  * The template used for displaying the list of themes and the details of the
1756  * themes are the same as used for the plugins.
1757  *
1758  * The returned string contains the HTML code of the admin panel page.
1759  *
1760  * @param App $a
1761  * @return string
1762  */
1763 function admin_page_themes(App $a) {
1764
1765         $allowed_themes_str = get_config('system','allowed_themes');
1766         $allowed_themes_raw = explode(',',$allowed_themes_str);
1767         $allowed_themes = array();
1768         if (count($allowed_themes_raw)) {
1769                 foreach ($allowed_themes_raw as $x) {
1770                         if (strlen(trim($x))) {
1771                                 $allowed_themes[] = trim($x);
1772                         }
1773                 }
1774         }
1775
1776         $themes = array();
1777         $files = glob('view/theme/*');
1778         if ($files) {
1779                 foreach ($files as $file) {
1780                         $f = basename($file);
1781
1782                         // Is there a style file?
1783                         $theme_files = glob('view/theme/'.$f.'/style.*');
1784
1785                         // If not then quit
1786                         if (count($theme_files) == 0) {
1787                                 continue;
1788                         }
1789
1790                         $is_experimental = intval(file_exists($file.'/experimental'));
1791                         $is_supported = 1-(intval(file_exists($file.'/unsupported')));
1792                         $is_allowed = intval(in_array($f,$allowed_themes));
1793
1794                         if ($is_allowed OR $is_supported OR get_config("system", "show_unsupported_themes")) {
1795                                 $themes[] = array('name' => $f, 'experimental' => $is_experimental, 'supported' => $is_supported, 'allowed' => $is_allowed);
1796                         }
1797                 }
1798         }
1799
1800         if (! count($themes)) {
1801                 notice(t('No themes found.'));
1802                 return '';
1803         }
1804
1805         /*
1806          * Single theme
1807          */
1808
1809         if ($a->argc == 3) {
1810                 $theme = $a->argv[2];
1811                 if (! is_dir("view/theme/$theme")) {
1812                         notice(t("Item not found."));
1813                         return '';
1814                 }
1815
1816                 if (x($_GET,"a") && $_GET['a']=="t") {
1817                         check_form_security_token_redirectOnErr('/admin/themes', 'admin_themes', 't');
1818
1819                         // Toggle theme status
1820
1821                         toggle_theme($themes,$theme,$result);
1822                         $s = rebuild_theme_table($themes);
1823                         if ($result) {
1824                                 install_theme($theme);
1825                                 info(sprintf('Theme %s enabled.',$theme));
1826                         } else {
1827                                 uninstall_theme($theme);
1828                                 info(sprintf('Theme %s disabled.',$theme));
1829                         }
1830
1831                         set_config('system','allowed_themes',$s);
1832                         goaway('admin/themes');
1833                         return ''; // NOTREACHED
1834                 }
1835
1836                 // display theme details
1837                 require_once('library/markdown.php');
1838
1839                 if (theme_status($themes,$theme)) {
1840                         $status="on"; $action= t("Disable");
1841                 } else {
1842                         $status="off"; $action= t("Enable");
1843                 }
1844
1845                 $readme = Null;
1846                 if (is_file("view/theme/$theme/README.md")) {
1847                         $readme = file_get_contents("view/theme/$theme/README.md");
1848                         $readme = Markdown($readme);
1849                 } elseif (is_file("view/theme/$theme/README")) {
1850                         $readme = "<pre>". file_get_contents("view/theme/$theme/README") ."</pre>";
1851                 }
1852
1853                 $admin_form = "";
1854                 if (is_file("view/theme/$theme/config.php")) {
1855                         function __get_theme_admin_form(App $a, $theme) {
1856                                 $orig_theme = $a->theme;
1857                                 $orig_page = $a->page;
1858                                 $orig_session_theme = $_SESSION['theme'];
1859                                 require_once("view/theme/$theme/theme.php");
1860                                 require_once("view/theme/$theme/config.php");
1861                                 $_SESSION['theme'] = $theme;
1862
1863
1864                                 $init = $theme."_init";
1865                                 if (function_exists($init)) {
1866                                         $init($a);
1867                                 }
1868                                 if (function_exists("theme_admin")) {
1869                                         $admin_form = theme_admin($a);
1870                                 }
1871
1872                                 $_SESSION['theme'] = $orig_session_theme;
1873                                 $a->theme = $orig_theme;
1874                                 $a->page = $orig_page;
1875                                 return $admin_form;
1876                         }
1877                         $admin_form = __get_theme_admin_form($a, $theme);
1878                 }
1879
1880                 $screenshot = array(get_theme_screenshot($theme), t('Screenshot'));
1881                 if (! stristr($screenshot[0],$theme)) {
1882                         $screenshot = null;
1883                 }
1884
1885                 $t = get_markup_template("admin_plugins_details.tpl");
1886                 return replace_macros($t, array(
1887                         '$title' => t('Administration'),
1888                         '$page' => t('Themes'),
1889                         '$toggle' => t('Toggle'),
1890                         '$settings' => t('Settings'),
1891                         '$baseurl' => App::get_baseurl(true),
1892                         '$plugin' => $theme,
1893                         '$status' => $status,
1894                         '$action' => $action,
1895                         '$info' => get_theme_info($theme),
1896                         '$function' => 'themes',
1897                         '$admin_form' => $admin_form,
1898                         '$str_author' => t('Author: '),
1899                         '$str_maintainer' => t('Maintainer: '),
1900                         '$screenshot' => $screenshot,
1901                         '$readme' => $readme,
1902
1903                         '$form_security_token' => get_form_security_token("admin_themes"),
1904                 ));
1905         }
1906
1907
1908         // reload active themes
1909         if (x($_GET,"a") && $_GET['a']=="r") {
1910                 check_form_security_token_redirectOnErr(App::get_baseurl().'/admin/themes', 'admin_themes', 't');
1911                 if ($themes) {
1912                         foreach ($themes as $th) {
1913                                 if ($th['allowed']) {
1914                                         uninstall_theme($th['name']);
1915                                         install_theme($th['name']);
1916                                 }
1917                         }
1918                 }
1919                 info("Themes reloaded");
1920                 goaway(App::get_baseurl().'/admin/themes');
1921         }
1922
1923         /*
1924          * List themes
1925          */
1926
1927         $xthemes = array();
1928         if ($themes) {
1929                 foreach ($themes as $th) {
1930                         $xthemes[] = array($th['name'],(($th['allowed']) ? "on" : "off"), get_theme_info($th['name']));
1931                 }
1932         }
1933
1934
1935         $t = get_markup_template("admin_plugins.tpl");
1936         return replace_macros($t, array(
1937                 '$title'               => t('Administration'),
1938                 '$page'                => t('Themes'),
1939                 '$submit'              => t('Save Settings'),
1940                 '$reload'              => t('Reload active themes'),
1941                 '$baseurl'             => App::get_baseurl(true),
1942                 '$function'            => 'themes',
1943                 '$plugins'             => $xthemes,
1944                 '$pcount'              => count($themes),
1945                 '$noplugshint'         => sprintf(t('No themes found on the system. They should be paced in %1$s'),'<code>/view/themes</code>'),
1946                 '$experimental'        => t('[Experimental]'),
1947                 '$unsupported'         => t('[Unsupported]'),
1948                 '$form_security_token' => get_form_security_token("admin_themes"),
1949         ));
1950 }
1951
1952
1953 /**
1954  * @brief Prosesses data send by Logs admin page
1955  *
1956  * @param App $a
1957  */
1958 function admin_page_logs_post(App $a) {
1959         if (x($_POST,"page_logs")) {
1960                 check_form_security_token_redirectOnErr('/admin/logs', 'admin_logs');
1961
1962                 $logfile   = ((x($_POST,'logfile'))   ? notags(trim($_POST['logfile']))  : '');
1963                 $debugging = ((x($_POST,'debugging')) ? true                             : false);
1964                 $loglevel  = ((x($_POST,'loglevel'))  ? intval(trim($_POST['loglevel'])) : 0);
1965
1966                 set_config('system','logfile', $logfile);
1967                 set_config('system','debugging',  $debugging);
1968                 set_config('system','loglevel', $loglevel);
1969         }
1970
1971         info(t("Log settings updated."));
1972         goaway('admin/logs');
1973         return; // NOTREACHED
1974 }
1975
1976 /**
1977  * @brief Generates admin panel subpage for configuration of the logs
1978  *
1979  * This function take the view/templates/admin_logs.tpl file and generates a
1980  * page where admin can configure the logging of friendica.
1981  *
1982  * Displaying the log is separated from the log config as the logfile can get
1983  * big depending on the settings and changing settings regarding the logs can
1984  * thus waste bandwidth.
1985  *
1986  * The string returned contains the content of the template file with replaced
1987  * macros.
1988  *
1989  * @param App $a
1990  * @return string
1991  */
1992 function admin_page_logs(App $a) {
1993
1994         $log_choices = array(
1995                 LOGGER_NORMAL   => 'Normal',
1996                 LOGGER_TRACE    => 'Trace',
1997                 LOGGER_DEBUG    => 'Debug',
1998                 LOGGER_DATA     => 'Data',
1999                 LOGGER_ALL      => 'All'
2000         );
2001
2002         if (ini_get('log_errors')) {
2003                 $phplogenabled = t('PHP log currently enabled.');
2004         } else {
2005                 $phplogenabled = t('PHP log currently disabled.');
2006         }
2007
2008         $t = get_markup_template("admin_logs.tpl");
2009
2010         return replace_macros($t, array(
2011                 '$title' => t('Administration'),
2012                 '$page' => t('Logs'),
2013                 '$submit' => t('Save Settings'),
2014                 '$clear' => t('Clear'),
2015                 '$baseurl' => App::get_baseurl(true),
2016                 '$logname' =>  get_config('system','logfile'),
2017
2018                 // name, label, value, help string, extra data...
2019                 '$debugging' => array('debugging', t("Enable Debugging"),get_config('system','debugging'), ""),
2020                 '$logfile' => array('logfile', t("Log file"), get_config('system','logfile'), t("Must be writable by web server. Relative to your Friendica top-level directory.")),
2021                 '$loglevel' => array('loglevel', t("Log level"), get_config('system','loglevel'), "", $log_choices),
2022
2023                 '$form_security_token' => get_form_security_token("admin_logs"),
2024                 '$phpheader' => t("PHP logging"),
2025                 '$phphint' => t("To enable logging of PHP errors and warnings you can add the following to the .htconfig.php file of your installation. The filename set in the 'error_log' line is relative to the friendica top-level directory and must be writeable by the web server. The option '1' for 'log_errors' and 'display_errors' is to enable these options, set to '0' to disable them."),
2026                 '$phplogcode' => "error_reporting(E_ERROR | E_WARNING | E_PARSE);\nini_set('error_log','php.out');\nini_set('log_errors','1');\nini_set('display_errors', '1');",
2027                 '$phplogenabled' => $phplogenabled,
2028         ));
2029 }
2030
2031 /**
2032  * @brief Generates admin panel subpage to view the Friendica log
2033  *
2034  * This function loads the template view/templates/admin_viewlogs.tpl to
2035  * display the systemlog content. The filename for the systemlog of friendica
2036  * is relative to the base directory and taken from the config entry 'logfile'
2037  * in the 'system' category.
2038  *
2039  * Displaying the log is separated from the log config as the logfile can get
2040  * big depending on the settings and changing settings regarding the logs can
2041  * thus waste bandwidth.
2042  *
2043  * The string returned contains the content of the template file with replaced
2044  * macros.
2045  *
2046  * @param App $a
2047  * @return string
2048  */
2049 function admin_page_viewlogs(App $a) {
2050         $t = get_markup_template("admin_viewlogs.tpl");
2051         $f = get_config('system','logfile');
2052         $data = '';
2053
2054         if (!file_exists($f)) {
2055                 $data = t("Error trying to open <strong>$f</strong> log file.\r\n<br/>Check to see if file $f exist and is readable.");
2056         } else {
2057                 $fp = fopen($f, 'r');
2058                 if (!$fp) {
2059                         $data = t("Couldn't open <strong>$f</strong> log file.\r\n<br/>Check to see if file $f is readable.");
2060                 } else {
2061                         $fstat = fstat($fp);
2062                         $size = $fstat['size'];
2063                         if ($size != 0) {
2064                                 if ($size > 5000000 || $size < 0) {
2065                                         $size = 5000000;
2066                                 }
2067                                 $seek = fseek($fp,0-$size,SEEK_END);
2068                                 if ($seek === 0) {
2069                                         $data = escape_tags(fread($fp,$size));
2070                                         while (! feof($fp)) {
2071                                                 $data .= escape_tags(fread($fp,4096));
2072                                         }
2073                                 }
2074                         }
2075                         fclose($fp);
2076                 }
2077         }
2078         return replace_macros($t, array(
2079                 '$title' => t('Administration'),
2080                 '$page' => t('View Logs'),
2081                 '$data' => $data,
2082                 '$logname' =>  get_config('system','logfile')
2083         ));
2084 }
2085
2086 /**
2087  * @brief Prosesses data send by the features admin page
2088  *
2089  * @param App $a
2090  */
2091 function admin_page_features_post(App $a) {
2092
2093         check_form_security_token_redirectOnErr('/admin/features', 'admin_manage_features');
2094
2095         logger('postvars: '.print_r($_POST,true),LOGGER_DATA);
2096
2097         $arr = array();
2098         $features = get_features(false);
2099
2100         foreach ($features as $fname => $fdata) {
2101                 foreach (array_slice($fdata, 1) as $f) {
2102                         $feature = $f[0];
2103                         $feature_state = 'feature_' . $feature;
2104                         $featurelock = 'featurelock_' . $feature;
2105
2106                         if (x($_POST, $feature_state)) {
2107                                 $val = intval($_POST[$feature_state]);
2108                         } else {
2109                                 $val = 0;
2110                         }
2111                         set_config('feature',$feature,$val);
2112
2113                         if (x($_POST, $featurelock)) {
2114                                 set_config('feature_lock', $feature, $val);
2115                         } else {
2116                                 del_config('feature_lock', $feature);
2117                         }
2118                 }
2119         }
2120
2121         goaway('admin/features');
2122         return; // NOTREACHED
2123 }
2124
2125 /**
2126  * @brief Subpage for global additional feature management
2127  *
2128  * This functin generates the subpage 'Manage Additional Features'
2129  * for the admin panel. At this page the admin can set preferences
2130  * for the user settings of the 'additional features'. If needed this
2131  * preferences can be locked through the admin.
2132  *
2133  * The returned string contains the HTML code of the subpage 'Manage
2134  * Additional Features'
2135  *
2136  * @param App $a
2137  * @return string
2138  */
2139 function admin_page_features(App $a) {
2140
2141         if ((argc() > 1) && (argv(1) === 'features')) {
2142                 $arr = array();
2143                 $features = get_features(false);
2144
2145                 foreach ($features as $fname => $fdata) {
2146                         $arr[$fname] = array();
2147                         $arr[$fname][0] = $fdata[0];
2148                         foreach (array_slice($fdata,1) as $f) {
2149
2150                                 $set = get_config('feature',$f[0]);
2151                                 if ($set === false) {
2152                                         $set = $f[3];
2153                                 }
2154                                 $arr[$fname][1][] = array(
2155                                         array('feature_' .$f[0],$f[1],$set,$f[2],array(t('Off'), t('On'))),
2156                                         array('featurelock_' .$f[0],sprintf(t('Lock feature %s'),$f[1]),(($f[4] !== false) ? "1" : ''),'',array(t('Off'), t('On')))
2157                                 );
2158                         }
2159                 }
2160
2161                 $tpl = get_markup_template("admin_settings_features.tpl");
2162                 $o .= replace_macros($tpl, array(
2163                         '$form_security_token' => get_form_security_token("admin_manage_features"),
2164                         '$title' => t('Manage Additional Features'),
2165                         '$features' => $arr,
2166                         '$submit' => t('Save Settings'),
2167                 ));
2168
2169                 return $o;
2170         }
2171 }