mod/admin.php

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